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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Burik_
Posts: 7
Joined: 2005-02-05 20:04:56

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

Post by Burik_ »

может кто нибудь изменить этот скрипт чтоб вместо даггеров ковал
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
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

Code: Select all

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


А сам тут поменять не могешь ?....... вбей названия окон крафта для своего выбора.
Все просто.
BETEPAH ™
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Менять название ингов и цвет их в строках:
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
Burik_
Posts: 7
Joined: 2005-02-05 20:04:56

Post by Burik_ »

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

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

помогите как правильно я совсем ноль в скриптах
Goggy
Posts: 291
Joined: 2004-11-07 01:22:35
Location: Черкассы
Contact:

Post by Goggy »

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

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

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



Code: Select all

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