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

очень нужен скрипт на переплавку дагеров в игноты пж. помоги
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3049		 Page 1 of 1
Author:  yoyo [ 2005-02-10 02:32:32 ]
Post subject:  очень нужен скрипт на переплавку дагеров в игноты пж. помоги
Ребят ,а есть такой скрипт что бы чар , просто брал дагеры из бэкпэка и переплавлял их в Iron игноты?
Author:  Goggy [ 2005-02-10 02:47:07 ]
Post subject: 
как у тя на шарде реализуется переплавка?
Author:  yoyo [ 2005-02-10 15:16:44 ]
Post subject: 
Значит проблема вот в чём ,у меня есть Ёковский скрипт вот этот:
Code:
##################################################### 
### Blacksmitchy Script Vor Iron Metal v. 1.00. ### 
### ### 
### Copyright & tested by cOoler on DRW Shard. ### 
### ### 
### Oficial DRW Shards site - http://www.drw.ru ### 
##################################################### 
##################################################### 
### Инструкция по использованию и настройке. ### 
##################################################### 
### 1. Для работы этого скрипта надо: молоток, 
### инги(Iron),Форж(плавилка). 
### 
### 2. Описание подготовки к запуску скрипта. 
### Берём сундук (можно и backpack),меняем в скрипте 
### ID сундука на свой,меняем ID форжи, 
### кладем в сундук инги (как можно 
### больше),себе в руку молоток,запускаем скрипт. 
### Он куёт даггеры и плавит их. 
### 
### 3. При использовании скрипта вам так или иначе 
### придется менять конфигурации скрипта. 
### Вот как и где это НУЖНО сделать: 
### 
### $ Изменение продукта кования. 
### UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')- тут вы 
### можете изменить - что будет ковать ваш чар. 
### 
### $ Смена ID форжи. 
### UO.UseObject(ID форжи)- тут вы указываете: ID форжи. 
### 
### $ Смена типа ингов и ID сундука. 
### UO.FindType('тип ингов айрона',-1,'backpack')- тут вы указываете: тип ингов айрона. 
### UO.FindType('тип ингов айрона','colour сундука','ID сундука с ингами')- тут вы 
### указываете: тип ингов айрона,их colour,ID сундука с ингами. 
##################################################### 
### Конец инструкции. ### 
##################################################### 


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(0x4012B5AC) ; Форж 
Endif 

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4004CAE1') ;Cундук с ингами 
wait(1000) 
UO.Grab('1000','finditem') 
Endif 
wait(1000) 
wend 
end sub

Я как надо подхожу к форже ,беру молоток в руку запускаю скрипт ,дальше чар берёт из бэк пэка игноты и переплавляет их в дагер , потом чар УБИРАЕТ МОЛОТОК переплавляет получившийся дагер в игнот и скрипт останавливается по скольку молотка в руке нет !!!! В чём здесь проблема? Очень буду благодарен если вы его исправите!

Правлено Ветром, Скрипт не Yoko, а Кулера. Добавленны тяги
Author:  Goggy [ 2005-02-10 21:59:27 ]
Post subject: 
ну так впиши чтоб молоток брал, чё тут сложного??? :shock:
Author:  yoyo [ 2005-02-10 23:20:26 ]
Post subject: 
дык я не умею . Напиши пожалуйста что и куда нужно вставить
Author:  Goggy [ 2005-02-10 23:25:30 ]
Post subject: 
yoyo wrote:
дык я не умею . Напиши пожалуйста что и куда нужно вставить



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

############
UO.Usetype('*****')          #Type молотка вставь!
############
UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4004CAE1') ;Cундук с ингами 
wait(1000) 
UO.Grab('1000','finditem') 
Endif 
wait(1000) 
wend 
end sub

Author:  yoyo [ 2005-02-11 02:56:54 ]
Post subject: 
Cпасибо огромное !!!! Я переделал немного скрипт получился длинный но зато рабочий и качает сразу и мининг и БС ))) Кому интересно берем молоток (hamer ) и 100 ингов ирона в бэк пек ищем плавилку и впрёд ))

Code:
sub BlacksmithyIM()

UO.Usetype ('0x13E3')-тип молотка
wait(500)

VAR Exit=0, LastTimer 
while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ; 
UO.UseType(0x1BF2) ; тип ингов

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(0x400195C2) ;  -форжа
Endif 


UO.Usetype('0x198E')
UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BF2','0x0000','0x401541A4') ;-бэкпэк
wait(1000)
UO.Grab('1000','finditem')
UO.Usetype ('0x13E3')- тип хамера
wait(500)
Endif 
wait(1000) 
wend 
end sub


Правлено Ветром ( небыло тяг)
Author:  Goggy [ 2005-02-11 04:30:46 ]
Post subject: 
yoyo wrote:
Cпасибо огромное !!!! Я переделал немного скрипт получился длинный но зато рабочий и качает сразу и мининг и БС ))) Кому интересно берем молоток (hamer ) и 100 ингов ирона в бэк пек ищем плавилку и впрёд ))


Хех, малышь... у меня на шарде плавить можно тока при ГМ БС, так что не всем прихоится расчитывать на халяву :lol: (хоть и мининг за два дня качается до ГМа ) :wink:
Author:  yoyo [ 2005-02-11 14:36:28 ]
Post subject: 
Так нужно регистрироваться на нормальных шардах ;)
Author:  Sp@wn [ 2005-03-12 20:25:29 ]
Post subject: 
Вот у меня этот скрипт не работает :( пишет Line 3: parse error
Author:  Партизан [ 2005-03-12 23:49:33 ]
Post subject: 
Sp@wn wrote:
Вот у меня этот скрипт не работает :( пишет Line 3: parse error


line 3 Это type молотка
Author:  Sp@wn [ 2005-03-13 15:38:44 ]
Post subject: 
Да я понимаю, я уже тока че не пробовал, вроде все правильно, а пишет одно и тоже :(
Author:  POPKA [ 2005-03-26 12:26:10 ]
Post subject: 
каментарй поставь вот такой перед описанием ;
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/