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()
   uo.automenu('Blacksmithing','Colored Armor & Weapons')
   uo.automenu('Colored Armor & Weapons','Rusty Weapons')
   uo.automenu('Rusty Weapons','Rusty Swords & Blades')
   uo.automenu('Rusty Swords & Blades','Rusty 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(0x400B9EB2) ; Форж
Endif

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

Code: Select all

sub BlacksmithyIM()
   VAR Exit=0, LastTimer
   uo.automenu('Blacksmithing','Colored Armor & Weapons')
   uo.automenu('Colored Armor & Weapons','Rusty Weapons')
   uo.automenu('Rusty Weapons','Rusty Swords & Blades')
   uo.automenu('Rusty Swords & Blades','Rusty Dagger')
   while Exit<>1
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.UseType('0x1BEF') ;Инги айрона
      while NOT UO.InJournal("You put|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')
      If UO.GetQuantity('finditem') then
         UO.WaitTargetObject('finditem')
         UO.UseObject('0x400B9EB2') ; Форж
         wait(100)
      Endif
      UO.FindType('0x1BEF',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x1BEF','0x0750','0x403EDFC9') ;Cундук с ингами
         UO.Grab('900','finditem')
         wait(1000)
      Endif
      wait(1000)
   wend
end sub