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

BS упростите
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3475		 Page 1 of 1
Author:  babior [ 2005-03-22 21:42:28 ]
Post subject:  BS упростите
плиз, упростите этот скрипт в плане его настройки...ато я никак не могу его нормально запустить... кстате не могу понять, при чём тут цвет сундука и айрона...
сделайте пожалуйсто чтоб при запуске скрипта, просто надо было бы указать мышкой на эти предметы....
за ранее благодарю

#####################################################
### 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
Author:  KpZ [ 2005-03-23 14:01:52 ]
Post subject: 
Ещё бы добавили спирит, былобы cool :roll:
Author:  SAMURAI [ 2005-03-23 17:57:39 ]
Post subject:  Re: BS упростите
babior wrote:
...

А это написано для кого? :shock:
Quote:
UO.FindType('тип ингов айрона','colour сундука','ID сундука с ингами')- тут вы указываете: тип ингов айрона,их colour,ID сундука с ингами.

Соответственно
Code:
UO.FindType('0x1BEF','0x0000','ID сундука с ингами')
И что тут непонять? :?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/