Page 1 of 1

Помогите плз

Posted: 2008-05-14 10:15:15
by Kukus
Вот этот скриптик у меня почему-то не берет бинты =(

sub Train_Heal()
; Attacking bees until hp=20, and then heal yourself.
; Get clean bandages from Sunduk, and move bloody
; bandage to Sunduk

var Bee=0x401AEC4B
var Sunduk=0x4001EFCD
var Bandage=0x0E21
var BBandage=0x0E20
var life, k
while not uo.Dead()
while uo.life > 20
uo.UseObject(Bee)
wait(450)
repeat
wait(100)
until uo.InJournal('backpack')
wend
if uo.Count(Bandage) then
while uo.life < uo.str && uo.Count(Bandage)>0
k=0
uo.Bandageself()
uo.DeleteJournal()
life=uo.life
repeat
wait(100)
k=k+1
until uo.life <> life || uo.InJournal('помогли|кладете') || k>100
wend
uo.FindType(BBandage,'-1','backpack')
if uo.FindCount() then
uo.moveitem('finditem','all',Sunduk)
wait(750)
end if
else
uo.FindType(Bandage,'-1',Sunduk)
if uo.FindCount() then
uo.moveitem('finditem','250')
wait(750)
end if
end if
wend
end sub


заранее спс!=)

Posted: 2008-05-14 18:02:59
by Scripts Writer
Открой сундук перед использованием скрипта и укажи его ID