Yoko

Posted: **2005-03-01 19:53:34**

может кто нибудь изменить этот скрипт чтоб вместо даггеров ковал
Platemail gorget

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(0x401191DD) ; ????
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4013C4AA') ;C????? ? ??????
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub

Posted: **2005-03-02 11:49:30**

Code: Select all

 UO.WaitMenu 'Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')

А сам тут поменять не могешь ?....... вбей названия окон крафта для своего выбора.

Posted: **2005-03-02 12:05:21**

Менять название ингов и цвет их в строках:
IngName="Shadow"
IngColor='0x096B'

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: **2005-03-02 20:35:23**

изменил но наверное не так

UO.WaitMenu('Blacksmithing','Armor','Plate Mail','platemail gorget') ;??? ????

помогите как правильно я совсем ноль в скриптах

Posted: **2005-03-03 03:39:54**

Burik_ wrote:изменил но наверное не так

UO.WaitMenu('Blacksmithing','Armor','Plate Mail','platemail gorget') ;??? ????

помогите как правильно я совсем ноль в скриптах

Code: Select all

UO.WaitMenu('Blacksmithing','Armor','Armor','Plate Mail','Plate Mail','platemail gorget')

Yoko

как изменить скрипт

как изменить скрипт