Page 1 of 1

На крафт

Posted: 2006-02-02 07:40:54
by Dominator
Мнеб нужен скриптик на крафт горгетов из цветных ингов (сам чтот несооброжу как его сделать), чтобы можно было менять тип ингов в скрипте если я вдруг захочу ковать из других ингов.

Posted: 2006-02-02 07:48:14
by Savage

Code: Select all

sub gorget()
   VAR IngName, IngColor

   IngName="Shadow"
   IngColor='0x096B'

   UO.AutoMenu(IngName+' Plate','Platemail Gorget')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

   UO.FindType('0x1BEF',IngColor,'backpack')
   While UO.GetQuantity('finditem')>=10
      UO.DeleteJournal()
      UO.UseObject('finditem')

      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
            wait(500)
      wend
   Wend   
   UO.CancelMenu()
end sub

Posted: 2006-02-03 07:36:06
by Dominator
Спасиб Savage ,очень выручил

Posted: 2006-02-03 07:38:48
by Savage
После очередного удешевления метала при продаже его НПС на дрв, я сделал это, но долго крафтать, проще еще одного копальщика подключить :)

Posted: 2006-02-03 07:43:15
by Dominator
Да знам вкурсах ,но у меня тачка непотянет прогу чтоб 2 чара запускать. Ктомуж 1 проблемка есть я на ДРВ зайти немогу сам - Терминайтед окно выскакивает, а зайти могу ток после того как ктонить за моего чара зайдёт