Как сделать что бы скрипт включался и выключался на кнопку?

[Krbisa]

Сабж, помогите незнаю как сделаьт так...

[SAMURAI]

Code: Select all

####################### 
sub Terminate()
uo.exec ("Terminate all")
end sub
#######################

Это макрос на выключение других макросов
В хоткейс пишешь exec Terminate и сохраняешь

[Krbisa]

хе, не плохо, тока как ещё сделать что бы я щёлкал на кнопку скрипт пускался, а при повторном нажатии выключался

[SAMURAI]

exec xxx - где xxx название функции sub. Это в хоткейс и всё. И того у тебя будет 2 кнопки.

[Krbisa]

что то я не допонял стукни в аську или стовою оставь ася:4721848

[Savage]

Первый макро - свитч, второй исполняет.

Code: Select all

#==============================================================
#  Arrowm() - cast magic arrow on lastattack
#--------------------------------------------------------------

sub OnArrow()
; Assign on Num F1 in hotkeys
   If UO.GetGlobal('OnArrow')=='Off' Then
      UO.Exec("exec arrowm")
      UO.SetGlobal('OnArrow','On')
   Else
      UO.SetGlobal('OnArrow','Off')
      UO.Exec("terminate arrowm")
   Endif
end sub


sub Arrowm()
   VAR Exit=0
   UO.Set('lasttarget','lastattack')
   While Exit<>1
      If UO.Mana<4 Then
         UO.Usetype('0x0F0E','0x09DF')
      Endif
      UO.Cast('Magic Arrow','lastattack')
      wait(1200)
uo.Print(STR(UO.IsNpc('lastattack')))
      If UO.IsNpc('lastattack')==0 Then
         Exit=1
      Endif
   Wend
   UO.SetGlobal('OnArrow','Off')
end sub

[Krbisa]

Спасибо