Yoko

Posted: **2005-04-12 21:51:24**

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.

Posted: **2005-04-13 05:50:55**

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

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

Posted: **2005-04-13 06:40:49**

Boljwoe sposibo

vse work

Posted: **2005-04-13 07:28:42**

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

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

Posted: **2005-04-13 09:10:51**

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? :wink:

Posted: **2005-04-13 09:34:35**

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

Code: Select all

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

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

end sub

Posted: **2005-04-13 10:34:43**

ooo sposibo hotj za eto

namnogo blogodaren :roll:

Yoko

please pomogite s Alchemy dopiwite skript...

please pomogite s Alchemy dopiwite skript...

Re: please pomogite s Alchemy dopiwite skript...

Re: please pomogite s Alchemy dopiwite skript...