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

БС vs Спирит
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7845		 Page 1 of 1
Author:  Doktor_Kor [ 2006-06-02 13:16:57 ]
Post subject:  БС vs Спирит
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','Armor','Armor','Chain Mail','Chain Mail','chainmail  coif') ;Что куем 
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(0x404C2FB2) ; Форж 
Endif 

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



вот работающий скрипт на БС , скриптёры , не могли бы вы сделать так, чтобы после каждой скованой вещи чар качал спирит спик , и ковал дальше, ещё вещь , ещё юзанье спирита
Author:  Doktor_Kor [ 2006-06-02 13:17:49 ]
Post subject:  Re: БС vs Спирит
А ещё, чутка ошибся, он не переплавливает то что сковадл:( изправте плиз
Author:  Nmy [ 2006-06-02 14:34:42 ]
Post subject: 
Code:
uo.useskill('Spirit Speak')

засунь в скрипт... а неплавит потому что ты скрипт настроил неправильно...
Author:  Doktor_Kor [ 2006-06-02 15:42:48 ]
Post subject: 
NMY wrote:
Code:
uo.useskill('Spirit Speak')

засунь в скрипт... а неплавит потому что ты скрипт настроил неправильно...


а как надо ? :(
Author:  Nmy [ 2006-06-02 15:59:32 ]
Post subject: 
например:

Code:
sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.useskill('Spirit Speak')
UO.WaitMenu('Blacksmithing','Armor','Armor','Chain Mail','Chain Mail','chainmail  coif') ;Что куем
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(0x404C2FB2) ; Форж
Endif

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


думаю что так... проверь сам...
Author:  Doktor_Kor [ 2006-06-02 17:00:20 ]
Post subject: 
со спиритом всё замечательно , пасибо. не могли бы ещё сделать чтоб скрипт переплавлял что сковал когда айрон кончаеться в паке. а то сковывает айрон в паке, и не плавя то что сковал берёт ещё
Author:  Nmy [ 2006-06-02 17:33:53 ]
Post subject: 
Code:
sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.useskill('Spirit Speak')
UO.WaitMenu('Blacksmithing','Armor','Armor','Chain Mail','Chain Mail','chainmail  coif') ;Что куем
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(0x404C2FB2) ; ИД форжы
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40149D87') ;Cундук с ингами
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
Author:  Nmy [ 2006-06-02 17:49:59 ]
Post subject: 
Code:
sub BlacksmithyIM()
var Ingots = ' ' #Type
var Item = ' ' #Type итема каторага куем
var Forge = ' ' #ID форжы
var Chest = ' ' #ID сундука

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.useskill('Spirit Speak')
UO.WaitMenu('Blacksmithing','Armor','Armor','Chain Mail','Chain Mail','Chainmail Coif') 
UO.UseType(Ingots) 

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(Item,-1,'backpack') 
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(Forge) 
Endif

UO.FindType(Ingots,-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType(Ingots,'0x0000',Chest) 
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub


так будет легче... надеюсь без ошыбок...
Author:  Doktor_Kor [ 2006-06-03 09:02:43 ]
Post subject: 
NMY wrote:
Code:
sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.useskill('Spirit Speak')
UO.WaitMenu('Blacksmithing','Armor','Armor','Chain Mail','Chain Mail','chainmail  coif') ;Что куем
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(0x404C2FB2) ; ИД форжы
Endif

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


вот этот :) пасибо большое :);)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/