боевые на блзйдах

[kapatuct]

нужен простой скрипт

кастим блзид, убиваем, хеал (без разных одеваний мечей) повтор,

[tylllkah]

Code: Select all

var vrag = '0x001DDB81' # айди того кто качает 
var BladeSpirit = '0x023E' 

var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 


sub main() 

while NOT uo.dead() 

if Uo.Mana < 40 then 
FullMeditation() 
endif 
uo.Say(MsgReady) 
wait(1000) 
Uo.DeleteJournal() 

while NOT Uo.InJournal(msgReady) 
wait(500) 
wend 
uo.waittargettile("1400",str(uo.getx(vrag)),str(uo.gety(vrag)),str(uo.getz(vrag)))
uo.cast("Blade Spirits") 
wait(6000) 
BladeContr() 

wend 

end sub 

Sub FullMeditation() 
while UO.Mana<UO.Int 
UO.UseSkill('Meditation') 
repeat 
wait(2000) 
uo.Say(msgNoMana) 
until UO.InJournal("You are") OR UO.InJournal("You lose") 
UO.DeleteJournal() 
wait(4000) 
wend 
uo.useskill("Spirit Speak") 
wait(10000) 
end sub 

sub BladeContr() 
var BladeFound = 1 
uo.set( 'finddistance', '20' ) 
while BladeFound == 1 
Uo.FindType( BladeSpirit ,-1,'ground') 
if Uo.FindCount() then 
BladeFound = 1 
Else 
BladeFound = 0 
endif 

If Uo.Injournal(msgHelp) then 
uo.cast('Greater Heal',vrag) 
wait(4000) 
uo.DeleteJOurnal() 
endif 

wait(1000) 
wend 

Uo.Say(msgBladeDied) 
wait(1000) 
end sub 

sub automedit() 
wait(10000) 
while not uo.dead() 
if uo.warmode() <> 1 then 
if uo.mana < 70 then 
uo.useskill("Meditation") 
wait(5000) 
endif 
endif 
wait(1000) 
wend 
end sub



var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 
var key = 0 

sub main() 
VAR Banka='0x401C4D33' ; айди умывальницы 
UO.waittargetobject(banka) 
UO.usetype(0x0E21) # бенты 
Wait(1000) 
while NOT uo.Dead() 
uo.DeleteJournal() 
if Uo.GetHP('self') < Uo.Str then 
uo.SetArm('MyArm') 
wait(100) 
uo.DisArm() 
while Uo.GetHP('self') < Uo.Str 
uo.bandageself() 
uo.DeleteJournal() 
while NOT uo.Injournal('You') 
wait(1000) 
wend 
wend 
endif 
uo.Arm('MyArm') 
Uo.DeleteJournal() 
CheckLag() 
while Uo.GetHP('self') == Uo.Str 
uo.say(msgReady) 
wait(3000) 
wend 
uo.deletejournal() 
while NOT Uo.Injournal(msgBladeDied) 
If Uo.GetHP('self') < 40 then 
uo.say(msgHelp) 
endif 
wait(2000) 
wend 

Uo.DeleteJournal() 
wend 

end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(150) 
until uo.InJournal('backpack') 
end sub

Про теги code не забываем © Mirage
Исполнено)) © tylllkah