Скрипты на мага, помогите переделать

magl · Post by **magl** » 2007-01-25 21:48:56

Команда для изи уо

set *1 0 
halt 




sub main() 
repeat 
wait(20) 
      If UO.GetEasyUO(2)=="0" then 
         If UO.GetEasyUO(1)=="1" then 
         UO.SetEasyUO(2,"1") 
         UO.Exec('exec var1') 
         end if 
         If UO.GetEasyUO(1)=="2" then 
         UO.SetEasyUO(2,"1") 
         UO.Exec('exec var2') 
         end if 
         If UO.GetEasyUO(1)=="3" then 
         UO.Exec('exec var3') 
         UO.SetEasyUO(2,"1") 
         end if 
         If UO.GetEasyUO(1)=="4" then 
         UO.Exec('exec var4') 
         UO.SetEasyUO(2,"1") 
         end if 
         If UO.GetEasyUO(1)=="5" then 
         UO.Exec('exec var5') 
         UO.SetEasyUO(2,"1") 
         end if 
         If UO.GetEasyUO(1)=="6" then 
         UO.Exec('exec var6') 
         UO.SetEasyUO(2,"1") 
         end if 
         If UO.GetEasyUO(1)=="7" then 
         UO.Exec('exec var7') 
         UO.SetEasyUO(2,"1") 
         end if 
         If UO.GetEasyUO(1)=="8" then 
         UO.Exec('exec var8') 
         UO.SetEasyUO(2,"1") 
         end if 
         If UO.GetEasyUO(1)=="9" then 
         UO.Exec('exec var9') 
         UO.SetEasyUO(2,"1") 
         end if 
         If UO.GetEasyUO(1)=="10" then 
         UO.Exec('exec var10') 
         UO.SetEasyUO(2,"1") 
         end if 
      end if 
          
      If UO.GetEasyUO(2)=="1" then 
         If UO.GetEasyUO(1)>="1" then 
         UO.SetEasyUO(3,(UO.GetEasyUO(1))) 
         end if 
      end if 

until uo.life<1 
end sub 



sub var1() 
UO.SetEasyUO(1,"666") 
uo.cast("Magic Arrow","lasttarget") 
wait(890) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var2() 
UO.SetEasyUO(1,"666") 
uo.cast("Poison","lasttarget") 
wait(1520) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var3() 
UO.SetEasyUO(1,"666") 
uo.cast("Lightning","lasttarget") 
wait(1890) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var4() 
UO.SetEasyUO(1,"666") 
uo.cast("Fireball","lasttarget") 
wait(1700) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var5() 
UO.SetEasyUO(1,"666") 
uo.cast("Harm","lasttarget") 
wait(1300) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var6() 
UO.SetEasyUO(1,"666") 
uo.cast("Mana Drain","lasttarget") 
wait(1520) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var7() 
uo.cast("Paralyze","lasttarget") 
uo.msg("Cast Sample 7") 
wait(2180) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var8() 
UO.SetEasyUO(1,"666") 
uo.cast("Clumsy","lasttarget") 
wait(2000) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var9() 
UO.SetEasyUO(1,"666") 
uo.cast("Cure","lasttarget") 
wait(1180) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var10() 
UO.SetEasyUO(1,"666") 
uo.cast("Heal","lasttarget") 
wait(1720) 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub 


sub var1a() 
UO.SetEasyUO(1,"1") 
end sub 

sub var2a() 
UO.SetEasyUO(1,"2") 
end sub 

sub var3a() 
UO.SetEasyUO(1,"3") 
end sub 

sub var4a() 
UO.SetEasyUO(1,"4") 
end sub 

sub var5a() 
UO.SetEasyUO(1,"5") 
end sub 

sub var6a() 
UO.SetEasyUO(1,"6") 
end sub 

sub var7a() 
UO.SetEasyUO(1,"7") 
end sub 

sub var8a() 
UO.SetEasyUO(1,"8") 
end sub 

sub var9a() 
UO.SetEasyUO(1,"9") 
end sub 

sub var10a() 
UO.SetEasyUO(1,"10") 
end sub 

sub zero() 
If UO.GetEasyUO(3)>="1" then 
UO.SetEasyUO(1,(UO.GetEasyUO(3))) 
UO.SetEasyUO(2,"0") 
end if 
UO.SetEasyUO(2,"0") 
end sub

Вот скрипт на блокировку каста - тоесть если я чтото кастую и жму другой, скрипт ждет пока кончится первый каст и затем сам начнет второй. Здесь все сделано на задержках - я хотел бы узнать возможно ли его переделать, чтобы он работал на проверке траты маны...
Вот скрипт в котором реализована проверка на трату маны (автокаст)

Code: Select all

sub cast() 
VAR m 
repeat 
m=uo.mana 
#var t=uo.timer() 
#uo.textopen() 
uo.cast('Energy Bolt','last') 
repeat 
wait(5) 
IF uo.mana==uo.int then 
m=uo.int 
end if 
until uo.mana<m 
#t=uo.timer()-t 
#uo.textprint(t) 
until 0 
end sub

Плз помогите:(

magl · Post by **magl** » 2007-01-27 20:14:09

Ап:(

magl · Post by **magl** » 2007-02-06 03:39:34

magl wrote:Ап:(

Плиз помогите