Прошу указать на ошибку.
Posted: 2007-12-05 22:13:30
Есть скрипт на алхимию. Есть 2 проблемы. 1) не работате на 518 версии, но на 501 работает отлично. 2 проблема она же главная. Раньше скрипт работал на ура, сегодня решил запустить работает, но вот не залевает в кеги. Часа два просидел так и не нашел причину. Если знаете в чем причина подскажите.
Code: Select all
sub him()
Var Sunduk = '0x41396269' ; Сериал сундука с пустыми кегами
Var sunduk2 = '0x431A3АEE'
VAR Keg = '0x1940' ; Тип пустого кега
VAR Reg = '0x0F7A' ; Тип рега Мандрейк
Var potion = '0x0F0B' ; типа поушена
VAR Fizzle = 'the failed'
VAR Success = 'You put the'
UO.AutoMenu( 'What sort of potion','Total Refresh' )
UO.UseObject(Sunduk)
wait(1000)
repeat
repeat
DeleteJournal(Fizzle)
DeleteJournal(Success)
UO.UseType(Reg)
repeat
wait(100)
until UO.InJournal(Fizzle) OR UO.InJournal(Success)
uo.findtype('0x0F0B','0x0000','0x4G643B2')
uo.print('++++++++'+str(uo.count('0x0F0B','0x0000'))+'++++++++++')
Until UO.Count ('0x0F0B','0x0000') >= 49
wait(1000)
UO.FindType( Keg, -1, sunduk)
UO.Grab(-1,'finditem' )
repeat
wait(100)
until UO.Count( Keg ) > 0
CheckLag()
uo.getserial('finditem')
wait(100)
uo.waittargetobject('potion')
uo.useobject('finditem')
wait(1500)
Checklag()
wait(500)
uo.findtype('0x0F0B','0x0000','0x4G643B2')
if UO.Count ('0x0F0B','0x0000') >= 49 then
UO.FindType( Keg, -1, 'backpack')
uo.getserial('finditem')
wait(100)
uo.waittargetobject('backpack')
uo.useobject('finditem')
wait(1500)
Checklag()
endif
wait(500)
UO.MoveItem( 'finditem', 0, sunduk2 )
wait(1000)
CheckLag()
until uo.dead()
endsub
#####################################################################
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
return
end sub
#####################################################################
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, 'string replaced' )
DeleteJournal( string1 )
Endif
end sub