Yoko

Posted: **2007-12-20 00:23:08**

sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Nokaoz n sacagc c ionuezagc')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Nokaoz zoaa ionuezc isinanu')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('200','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif

UO.FindType('0x0F0E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','Bag')
wait(1000)
UO.Grab('100','finditem')
wait(1000)
Endif

UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif

LastTimer=UO.Timer()
UO.DeleteJournal()

UO.UseType('0x0F88')
UO.WaitMenu('What','Poison')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(600)
wend
If UO.InJournal("You toss the failed") then

uo.findtype( '0x0F88', '0x0998', 'backpack' )
if uo.findcount()>30 then
uo.moveitem( 'finditem', 'all', '0x40068DCC' )
wait(600)
endif
repeat
wait(100)
until UO.Timer()>=LastTimer+100
Else
EndIf
wend
end sub

незнаю почему банки "поисон" в мешок не скидываютса,помогите а то уже нерви не видерживают

Posted: **2007-12-20 23:37:41**

id менял?

Posted: **2007-12-21 16:54:19**

da. neskolko raz

Posted: **2007-12-21 17:12:57**

kapatuct wrote:da. neskolko raz

Попробуй так:

Code: Select all

 uo.findtype( '0x0F88', '0x0998', 'backpack' ) 
if uo.GetQuantity('finditem') > 30 then 
uo.moveitem( 'finditem', 'all', '0x40068DCC' )

Posted: **2007-12-21 22:50:40**

bolshoe sposibo za pomosch ! no vsioravno nefiga ne poluchaetsa ... :/

Posted: **2007-12-24 09:56:21**

kapatuct wrote:bolshoe sposibo za pomosch ! no vsioravno nefiga ne poluchaetsa ... :/

Блин как я не доглядел?!?!

Code: Select all

UO.UseType('0x0F88') 
UO.WaitMenu('What','Poison') 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 
If UO.InJournal("You toss the failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 
Else
wait(50) 
EndIf 

uo.findtype( '0x0F88', '0x0998', 'backpack' ) 
if uo.GetQuantity('finditem') > 30 then 
uo.moveitem( 'finditem', 'all', '0x40068DCC' ) 
wait(600)
else
wait(50) 
endif

wend 
end sub

Все, теперь будет работать.

Posted: **2007-12-26 22:42:24**

nerabotaet :/

Yoko

хелп ми скрипт нероботоет

хелп ми скрипт нероботоет