Code: Select all
Команда для изи уо
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
Плз помогите:(
