please pomogite s Alchemy dopiwite skript...

[CHYVAKs]

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.

[flake]

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

Code: Select all

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

[CHYVAKs]

Boljwoe sposibo vse work

[Sfagnum]

UO.UseType('0x0F0E','0x09BB') ; ПИТЬ ПОУШЕН

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

[CHYVAKs]

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?

[flake]

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

Code: Select all

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

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

end sub

[CHYVAKs]

ooo sposibo hotj za eto namnogo blogodaren