бс катаны

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
lpushech
Posts: 33
Joined: 2007-09-02 19:16:55

бс катаны

Post by lpushech »

ищу в поиске катаны уже 2-й день =) ниче так и не нашел, только цветные катаны, цветные дагерыи дагеры из айрона
нужен скрипт чтобы делал катаны из айрона и сразу же плавил их
заранее спасибо
SEGA
Posts: 44
Joined: 2005-07-09 13:45:19

Post by SEGA »

sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','katana')
UO.UseType(0x1BF2) ;Инги айрона

while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы так и не смогли")
wait(500)
wend

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

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

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

UO.FindType('0x0F5E',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F5E','0x0000','0x401c1b87') ;Cундук с ингами
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
UO.UseType(0x13e3)
wend
end sub
koalla
Posts: 1
Joined: 2008-09-26 10:07:03
Contact:

Re: бс катаны

Post by koalla »

спасибо за скриптик!!!!!!!!!!
Post Reply