Yoko
http://forum.yoko.com.ua/

please pomogite s Alchemy dopiwite skript...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3681		 Page 1 of 1
Author:  CHYVAKs [ 2005-04-12 21:51:24 ]
Post subject:  please pomogite s Alchemy dopiwite skript...
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.
Author:  flake [ 2005-04-13 05:50:55 ]
Post subject:  Re: please pomogite s Alchemy dopiwite skript...
Сделал, проверяй.



Code:
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
Author:  CHYVAKs [ 2005-04-13 06:40:49 ]
Post subject: 
Boljwoe sposibo :) vse work :)
Author:  Sfagnum [ 2005-04-13 07:28:42 ]
Post subject:  Re: please pomogite s Alchemy dopiwite skript...
flake wrote:
UO.UseType('0x0F0E','0x09BB') ; ПИТЬ ПОУШЕН
сюда цвет добавить воизбежания недоразумений ;)
Author:  CHYVAKs [ 2005-04-13 09:10:51 ]
Post subject: 
was skript vowe bomba :) SPOSIBO VSEM :D

was ewobi probitj skript chtobi sam letal v Oclo rval tama vseh, lutil i uletal damoi :) :arrow: sluchaino neukogo nezavaljalsja takoi skript? :wink:
Author:  flake [ 2005-04-13 09:34:35 ]
Post subject: 
Да без проблем!
Лови (только ЧУТОК не закончен, надо некоторые моменты дописать):


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

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

end sub
Author:  CHYVAKs [ 2005-04-13 10:34:43 ]
Post subject: 
:idea: :idea: :idea:
ooo sposibo hotj za eto :) namnogo blogodaren :roll:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/