Yoko

у меня тут есть скрипт на карпентри ,кто может исправте чтоб чар полсле того как сумка наполнится 255 удочками переходил на другую сумку.заранее спасибо

sub main()
sub Carpentry() 
var Exit=0, LastTimer 
uo.Print('synduk') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('symka') 
uo.Exec('addobject TrashCan') 
while uo.Targeting() 
wait(100) 
wend 
while Exit<>1 
uo.DeleteJournal() 
uo.FindType('0x0DBF','0x0000','backpack') 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('TrashCan') 
wait(1000) 
uo.Grab('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if 
uo.FindType('0x1BDD',-1,'backpack')  
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BDD','0x0000','Chest') 
wait(1000) 
uo.Grab('300','finditem') 
wait(1300) 
end if 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
uo.UseType('0x1034') 
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','fishing pole') 
wait(15000) 
wend 
end sub

_________________
maxim viktorovich

что всем трудно помочь?

_________________
maxim viktorovich

Трудно даже прочитать. Попробуй [code] [/code].

Ну не понимаю я таких людей... Прежде чем писать топик неужели трудно зайти в раздел Scripts!, там же уже все давно сделано.

Вот описание скрипта:
Чар берет из первого сундука пустой мешок, помещает его во второй сундук, берет с пола 460 логов и крафтит удочки (1 удочка = 2 лога).
Готовые удочки сразу после крафта перекидывает в этот перемещенный мешок. По окончании крафта берет следующий мешок и по кругу. Если логи кончаются - останавливается.

http://yoko.netroof.net/forum/viewtopic.php?t=644&sid=03f78bb9b203fe3073e72514afec8d33

Кстати говоря, количество логов там сидит в переменной и его легко можно изменить на нужное

Спасибо большое ,но у меня проблема какаято, когда чар заполняет мешок 255 удочками он не перемещяет в сундук второй мешок , аначинает складывать удочки в пак к себе, что делать ? что изменить?

_________________
maxim viktorovich

У меня тож такая пробла хотя скрипт новый :
#####################################################################
; Carpentry. v.1.12b (c) Edred
;
; ×àð áåðåò èç ñóíäóêà 1 ïóñòîé ìåøîê, êëàäåò ýòîò ìåøîê â ñóíäóê 2,
; áåðåò ñ ïîëà ëîãè, êðàôòèò èç íèõ óäî÷êè è ñêëàäûâàåò ýòè óäî÷êè
; â ýòîò ìåøîê â ñóíäóêå 2. Åñëè ëîãè íà ïîëó èëè ïóñòûå ìåøêè
; êîí÷èëèñü - âûõîä
;
sub carpentry()
VAR Sunduk1 = '0x4002A518' ; Ñåðèàë ñóíäóêà ñ ïóñòûìè ìåøêàìè
VAR Sunduk2 = '0x40059A79' ; Ñåðèàë ïóñòîãî ñóíäóêà
VAR Meshok = '0x0E76' ; Òèï ìåøêà
VAR Logi = '0x1BDD' ; Òèï ëîãîâ
VAR Rubanok = '0x1034' ; Òèï èíñòðóìåíòà êàðïåíòåðà
VAR Udochka = '0xDBF' ; Òèï óäî÷êè
VAR Kolvo = 250 ; Áðàòü ëîãîâ (2 ëîãà = 1 óäî÷êà)
VAR MeshSer, j, k
While TRUE
UO.FindType( Logi, -1, 1 ) ; Èùåì ëîãè íà ïîëó
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 ) > 0
; Ïîêà â ïàêå åñòü ëîãè
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Carpentry', 'Weapons & Tools', 'Weapons & Tools', 'fishing' )
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( 'Udochka perelozhena' )
end if
Wend
Wend
end sub

хыыыыылпп люди поможитеее бдным ньюбам

_________________
maxim viktorovich

Перед запуском скрипта открой оба сундука.

всё равно

TWI включен?

а что это такое?

_________________
maxim viktorovich

Track World Items

у меня все включино ,но проблема осталась.

_________________
maxim viktorovich

люди помогите ,всяко у кого нить есть такой скрипт

_________________
maxim viktorovich

ну что жадины чтоли или тогда помогите настроить!!пожалустаааа

_________________
maxim viktorovich

Скопируй мой в разделе и не парся.

_________________
Все просто.
BETEPAH ™

у тебя такого нету(((((

_________________
maxim viktorovich