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

------>исправление скрипта на карпентри<-------
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1833		 Page 1 of 1
Author:  maximka4 [ 2004-11-03 20:32:03 ]
Post subject:  ------>исправление скрипта на карпентри<-------
у меня тут есть скрипт на карпентри ,кто может исправте чтоб чар полсле того как сумка наполнится 255 удочками переходил на другую сумку.заранее спасибо



Code:
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
Author:  maximka4 [ 2004-11-04 07:05:32 ]
Post subject: 
что всем трудно помочь?
Author:  AGRS [ 2004-11-04 07:41:41 ]
Post subject: 
Трудно даже прочитать. Попробуй [code] [/code]. ;)
Author:  MitAl [ 2004-11-04 10:03:09 ]
Post subject: 
maximka4 wrote:
что всем трудно помочь?

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

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

http://yoko.netroof.net/forum/viewtopic.php?t=644&sid=03f78bb9b203fe3073e72514afec8d33
Author:  Edred [ 2004-11-04 12:50:31 ]
Post subject: 
MitAl wrote:
maximka4 wrote:
что всем трудно помочь?

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

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

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


Кстати говоря, количество логов там сидит в переменной и его легко можно изменить на нужное :)
Author:  maximka4 [ 2004-11-06 09:15:48 ]
Post subject: 
Спасибо большое ,но у меня проблема какаято, когда чар заполняет мешок 255 удочками он не перемещяет в сундук второй мешок , аначинает складывать удочки в пак к себе, что делать ? что изменить?
Author:  killmon [ 2004-11-06 11:26:00 ]
Post subject: 
У меня тож такая пробла хотя скрипт новый :
#####################################################################
; 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
Author:  maximka4 [ 2004-11-06 14:01:34 ]
Post subject: 
хыыыыылпп люди поможитеее бдным ньюбам
Author:  Edred [ 2004-11-06 14:43:40 ]
Post subject: 
maximka4 wrote:
Спасибо большое ,но у меня проблема какаято, когда чар заполняет мешок 255 удочками он не перемещяет в сундук второй мешок , аначинает складывать удочки в пак к себе, что делать ? что изменить?


Перед запуском скрипта открой оба сундука.
Author:  killmon [ 2004-11-07 12:03:42 ]
Post subject: 
Edred wrote:

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

всё равно
Author:  Edred [ 2004-11-09 13:58:06 ]
Post subject: 
TWI включен?
Author:  maximka4 [ 2004-11-13 15:59:50 ]
Post subject: 
Edred wrote:
TWI включен?
а что это такое?
Author:  Optical [ 2004-11-13 16:31:16 ]
Post subject: 
maximka4 wrote:
Edred wrote:
TWI включен?
а что это такое?

Track World Items
Author:  maximka4 [ 2004-11-13 21:24:58 ]
Post subject: 
Optical wrote:
maximka4 wrote:
Edred wrote:
TWI включен?
а что это такое?

Track World Items


у меня все включино ,но проблема осталась.:(
Author:  maximka4 [ 2004-11-29 07:57:44 ]
Post subject: 
люди помогите ,всяко у кого нить есть такой скрипт :roll:
Author:  maximka4 [ 2004-12-05 19:10:05 ]
Post subject: 
ну что жадины чтоли или тогда помогите настроить!!пожалустаааа
Author:  BETEPAH [ 2004-12-06 09:48:28 ]
Post subject: 
maximka4 wrote:
ну что жадины чтоли или тогда помогите настроить!!пожалустаааа


Скопируй мой в разделе и не парся.
Author:  maximka4 [ 2005-01-15 15:36:31 ]
Post subject: 
BETEPAH wrote:
maximka4 wrote:
ну что жадины чтоли или тогда помогите настроить!!пожалустаааа


Скопируй мой в разделе и не парся.
у тебя такого нету(((((
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/