Yoko

u menja estj skript na alchemy na Heal

sub alchemy()
uo.print('Gde banki i gs legat ?')
uo.exec('addobject BOX')
while uo.targeting()
wait(100)
wend
VAR c
while NOT UO.Dead()
UO.FindType('0x0F0E','0x09BB','backpack')
If UO.GetQuantity('finditem')>100 Then
UO.SetReceivingContainer('BOX') ;sunduk kuda heal kidat`
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F0E','0x0000','backpack')
if UO.GetQuantity('finditem')<=10 then
UO.FindType('0x0F0E','0x0000','BOX') ; sunduk gde botli lejat
wait(1000)
UO.Grab('100','finditem')
wait(1000)
endif
UO.FindType('0x0F85','0x0000','backpack')
if UO.GetQuantity('finditem')<=10 then
UO.FindType('0x0F85','0x0000','BOX') ; sunduk gde gs lejit
wait(1000)
UO.Grab('100','finditem')
wait(1000)
endif
CheckLag()
uo.exec("waitmenu 'What sort of potion do you' (2)")
UO.UseType('0x0F85') ; ns
while NOT UO.InJournal("You put") AND NOT UO.InJournal("unable to create")
wait(300)
wend
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub


please pomogite: dopiwite chtobi on kogda zdelajet heal, ego vipil...
ochenj blogodaren.

Сделал, проверяй.

sub alchemy()
uo.print('Gde banki i gs legat ?')
uo.exec('addobject BOX')
while uo.targeting()
 wait(100)
wend
VAR c
while NOT UO.Dead()
UO.FindType('0x0F0E','0x09BB','backpack')
If UO.GetQuantity('finditem')>100 Then
UO.SetReceivingContainer('BOX') ;sunduk kuda heal kidat`
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x0F0E','0x0000','backpack')
if UO.GetQuantity('finditem')<=10 then
UO.FindType('0x0F0E','0x0000','BOX') ; sunduk gde botli lejat
wait(1000)
UO.Grab('100','finditem')
wait(1000)
endif
UO.FindType('0x0F85','0x0000','backpack')
if UO.GetQuantity('finditem')<=10 then
UO.FindType('0x0F85','0x0000','BOX') ; sunduk gde gs lejit
wait(1000)
UO.Grab('100','finditem')
wait(1000)
endif
CheckLag()
uo.exec("waitmenu 'What sort of potion do you' (2)")
UO.UseType('0x0F85') ; ns
while NOT UO.InJournal("You put") AND NOT UO.InJournal("unable to create")
wait(300)
UO.UseType('0x0F0E') ; ПИТЬ ПОУШЕН
wend
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

Boljwoe sposibo vse work

сюда цвет добавить воизбежания недоразумений

was skript vowe bomba SPOSIBO VSEM

was ewobi probitj skript chtobi sam letal v Oclo rval tama vseh, lutil i uletal damoi sluchaino neukogo nezavaljalsja takoi skript?

Да без проблем!
Лови (только ЧУТОК не закончен, надо некоторые моменты дописать):

############
# Killing Mashine. ver 1.02b.
# комменты автора: убивает всех,  лутит и разгружается на базе. 
#  Затем все с начала.
###############
sub Ultimate_Killer()

    ; Тут чуток поправить надо.

end sub

ooo sposibo hotj za eto namnogo blogodaren