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

помощь по розкладке изделий в мешки
http://forum.yoko.com.ua/viewtopic.php?f=17&t=17619
Page 1 of 1

Author:  7ice_k7 [ 2015-08-11 22:48:32 ]
Post subject:  помощь по розкладке изделий в мешки

что и где нужно вставить чтобы чар набывал полность мешок (255 штук изделий) а не брал новый мешок после каждого добора ингов
помогите плиз :)

sub Blacksmithy()
VAR Sunduk1 = '0x4027B817' ; Сериал сундука с пустыми мешками
VAR Sunduk2 = '0x40074B86' ; Сериал пустого сундука
VAR Meshok = '0x0E76' ; Тип мешка
VAR Logi = '0x1BF5' ; Тип ингов
VAR Rubanok = '0x13E3' ; Тип инструмента блексмита
VAR Udochka = '0x1414' ; Тип делаемого
VAR Kolvo = 1000 ; Брать ингов (3 инга = 1 ножик)
VAR MeshSer, j, k
While TRUE
UO.FindType( Logi, -1, Sunduk2 ) ; Ищем инги в сундуке 2
UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем инги в пак
wait( 2000 )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
Endif
UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак
wait( 2000 )
UO.MoveItem( MeshSer, 0, Sunduk2 )
wait( 2000 )
While UO.Count( Logi ) > 12 ; Пока в паке есть инги
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' ingov' )
UO.DeleteJournal()
UO.CancelMenu()
UO.Automenu("Blacksmithing","Armor")
uo.automenu ('Colored Armor & Weapons', 'Silver Armor')
uo.automenu ('Silver Armor', 'Silver Plate Armor & Shields')
uo.automenu ('Silver Plate Armor', 'Silver Platemail Gauntlets')
uo.waittargettype(Logi)
UO.UseType( Rubanok )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
; Wait( 14000 )
; Скрафтили даггер
; Сразу переложим ее в мешок
if UO.Count( Udochka ) > 0 then
UO.FindType( Udochka, -1, 'backpack' )
UO.MoveItem( 'finditem', 0, MeshSer )
wait( 2000 )
UO.Print( 'dagger perelozhen' )
end if
Wend
Wend
end sub

Author:  Mirage [ 2015-08-12 23:22:20 ]
Post subject:  Re: помощь по розкладке изделий в мешки

там же написано

Code:
UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак
wait( 2000 )


этот участок выше While TRUE подними

Author:  7ice_k7 [ 2015-08-15 01:12:00 ]
Post subject:  Re: помощь по розкладке изделий в мешки

Mirage wrote:
там же написано

Code:
UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак
wait( 2000 )


этот участок выше While TRUE подними



sub Blacksmithy()
VAR Sunduk1 = '0x4027B817' ; Сериал сундука с пустыми мешками
VAR Sunduk2 = '0x40074B86' ; Сериал пустого сундука
VAR Meshok = '0x0E76' ; Тип мешка
VAR Logi = '0x1BEF' ; Тип ингов
VAR Rubanok = '0x13E3' ; Тип инструмента блексмита
VAR Udochka = '0x1414' ; Тип делаемого
VAR Kolvo = 1000 ; Брать ингов (3 инга = 1 ножик)
VAR MeshSer, j, k
UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак
wait( 2000 )
While TRUE
UO.FindType( Logi, -1, Sunduk2 ) ; Ищем инги в сундуке 2
UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем инги в пак
wait( 2000 )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
Endif
UO.MoveItem( MeshSer, 0, Sunduk2 )
wait( 2000 )
While UO.Count( Logi ) > 12 ; Пока в паке есть инги
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' ingov' )
UO.DeleteJournal()
UO.CancelMenu()
UO.Automenu("Blacksmithing","Armor")
uo.automenu ('Colored Armor & Weapons', 'Bronze Plate Armor')
uo.automenu ('Bronze Armor & Shields', 'Bronze Armor & Shields')
uo.automenu ('Bronze Armor & Shields', 'Bronze Platemail Gaunt
uo.waittargettype(Logi)
UO.UseType( Rubanok )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
; Wait( 14000 )
; Скрафтили даггер
; Сразу переложим ее в мешок
if UO.Count( Udochka ) > 0 then
UO.FindType( Udochka, -1, 'backpack' )
UO.MoveItem( 'finditem', 0, MeshSer )
wait( 2000 )
UO.Print( 'dagger perelozhen' )
end if
Wend
Wend
end sub

вот переставил, но теперь пишет ошибка в 35 строке :(

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/