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

Помогите, пожалуйста, добавить функцию
http://forum.yoko.com.ua/viewtopic.php?f=17&t=11772		 Page 1 of 1
Author:  Tyra [ 2007-04-16 14:45:37 ]
Post subject:  Помогите, пожалуйста, добавить функцию
Нашла скрипт отлично работающий, чар кует ножики и плавит их, я бы хотела, чтобы скрипт работал следующим образом:
спрашивал какой металл использовать.
просил указать сумку с пустыми мешками.
просил указать сумку, куда заполненные мешки будут убираться.
То есть, нужно, чтобы сделанный предмет убирался в мешок, и так до тех пор пока в он не наполнится (255 предметов) и после этого мешок перекладывался в указанную сумку.

Сама сделать пыталась- неудачно. Скрипт используемый для ковки :

Code:
sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем
UO.UseType(0x1BEF) ;Инги айрона

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf

UO.FindType('0x0F51',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4028FF4C) ; Форж
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40228A46') ;Cундук с ингами
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
Author:  Scripts Writer [ 2007-04-16 14:49:42 ]
Post subject: 
Пиши в асю, договоримся.
Author:  Scripts Writer [ 2007-04-18 04:01:00 ]
Post subject: 
Если кому то еще нужен скрипт-пишите в асю.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/