очень нужен скрипт на переплавку дагеров в игноты пж. помоги
Posted: 2005-02-10 02:32:32
Ребят ,а есть такой скрипт что бы чар , просто брал дагеры из бэкпэка и переплавлял их в Iron игноты?
Yoko
All sides of Injection
https://yoko.uokit.com/
очень нужен скрипт на переплавку дагеров в игноты пж. помоги
Page 1 of 1
Posted: 2005-02-10 02:47:07
как у тя на шарде реализуется переплавка?
Posted: 2005-02-10 15:16:44
Значит проблема вот в чём ,у меня есть Ёковский скрипт вот этот:
Я как надо подхожу к форже ,беру молоток в руку запускаю скрипт ,дальше чар берёт из бэк пэка игноты и переплавляет их в дагер , потом чар УБИРАЕТ МОЛОТОК переплавляет получившийся дагер в игнот и скрипт останавливается по скольку молотка в руке нет !!!! В чём здесь проблема? Очень буду благодарен если вы его исправите!
Правлено Ветром, Скрипт не Yoko, а Кулера. Добавленны тяги
Code: Select all
#####################################################
### 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, а Кулера. Добавленны тяги
Posted: 2005-02-10 21:59:27
ну так впиши чтоб молоток брал, чё тут сложного??? 
Posted: 2005-02-10 23:20:26
дык я не умею . Напиши пожалуйста что и куда нужно вставить
Posted: 2005-02-10 23:25:30
yoyo wrote:дык я не умею . Напиши пожалуйста что и куда нужно вставить
Code: Select all
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
Posted: 2005-02-11 02:56:54
Cпасибо огромное !!!! Я переделал немного скрипт получился длинный но зато рабочий и качает сразу и мининг и БС ))) Кому интересно берем молоток (hamer ) и 100 ингов ирона в бэк пек ищем плавилку и впрёд ))
Правлено Ветром ( небыло тяг)
Code: Select all
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
Правлено Ветром ( небыло тяг)
Posted: 2005-02-11 04:30:46
yoyo wrote:Cпасибо огромное !!!! Я переделал немного скрипт получился длинный но зато рабочий и качает сразу и мининг и БС ))) Кому интересно берем молоток (hamer ) и 100 ингов ирона в бэк пек ищем плавилку и впрёд ))
Хех, малышь... у меня на шарде плавить можно тока при ГМ БС, так что не всем прихоится расчитывать на халяву
(хоть и мининг за два дня качается до ГМа ) 
Posted: 2005-02-11 14:36:28
Так нужно регистрироваться на нормальных шардах
Posted: 2005-03-12 20:25:29
Вот у меня этот скрипт не работает 
пишет Line 3: parse error
пишет Line 3: parse errorPosted: 2005-03-12 23:49:33
Sp@wn wrote:Вот у меня этот скрипт не работает
line 3 Это type молотка
Posted: 2005-03-13 15:38:44
Да я понимаю, я уже тока че не пробовал, вроде все правильно, а пишет одно и тоже
Posted: 2005-03-26 12:26:10
каментарй поставь вот такой перед описанием ;