Проверь токо )
если что пиши !
Code:
####KASTUJUSIJ
sub e1()
var ter
UO.Exec("set finddistance 15")
#UO.DeleteJournal()
repeat
#if UO.InJournal("Smog GO") then
repeat
wait(500)
UO.WaitTargetTile('0','2038','1261','0')#Koordinati kuda kastuetsya spirit, 2-oe(X) i 3-e(Y) chislo
wait(500)
UO.Cast("Blade Spirits")
wait(10000)
UO.FindType('0x023E','-1',1)
until UO.FindCount('finditem')>0
UO.Exec("warmode 0")
int()
UO.Exec('terminate int')
repeat
wait(3000)
UO.FindType('0x023E','-1',1)
until UO.FindCount('finditem')<1
repeat
wait(3000)
#UO.FindType('0x0190','-1',1)
#ter=UO.GetSerial('finditem')
uo.getstatus('0x0042F2AA') #ID togo kto ubivaet spirita.
until uo.GetHP('0x0042F2AA')>254 #ID togo kto ubivaet spirita.
#else
#wait(1000)
#end if
until UO.Dead()
end sub
sub e2()####KTO UBIVAET
UO.Exec("set finddistance 15")
repeat
UO.FindType('0x023E','0000x0',1)
If UO.FindCount('finditem')>0 then
UO.Attack('finditem')
repeat
wait(5000)
UO.FindType('0x023E','0000x0',1)
until UO.FindCount('finditem')<1
else
While uo.GetHP('self')<uo.GetMaxHP('self')
UO.SetArm('CWeapon')
stirka()
UO.Exec("bandageself")
wait (1000)
UO.Arm('CWeapon')
wait(5000)
# if UO.Armor < 50 then
#UO.WaitTargetSelf()
#UO.Cast("Protection")
#wait(5000)
#else
#wait(100)
#end if
wend
end if
wait(1000)
until UO.DEAD()
end sub
sub stirka()
if UO.Count('0x0E21')<1 then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType('0x1008')
UO.UseObject('finditem')
wait(1000)
endif
end sub
sub int()
repeat
UO.DeleteJournal()
repeat
UO.UseSkill('Meditation')
wait (2100)
until UO.InJournal("You must") or UO.InJournal("You are at")
if UO.InJournal("You must") then
repeat
wait (100)
until UO.InJournal("You are at peace.")
end if
end sub
#==============================================================
# Gong(counter) - playing wav-file 'counter'-times
# http://www.djetta.ru/cow.wav
#--------------------------------------------------------------
sub Gong(times) ; play wav-file
VAR i
for i=1 to times
UO.Exec("playwav C:\UO\inject\SOUND\mp3.wav")
wait(1200) ; time to play sample at once
next
end sub
#==============================================================
# Alarm() - when char lose some HP, U are informed :)
#--------------------------------------------------------------
sub Alarm()
VAR CharHP=10
while 1==1
wait(1000)
if UO.Life<CharHP then
gong(1)
endif
wend
end sub