Yoko

All sides of Injection
It is currently 2025-12-30 01:40:25

All times are UTC+02:00




Post new topic  Reply to topic  [ 5 posts ] 
Author Message
PostPosted: 2005-03-01 19:53:34 
Offline

Joined: 2005-02-05 20:04:56
Posts: 7
может кто нибудь изменить этот скрипт чтоб вместо даггеров ковал
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


Top
   
 Post subject:
PostPosted: 2005-03-02 11:49:30 
Offline
Expert!
User avatar

Joined: 2004-05-31 09:31:51
Posts: 838
Code:
 UO.WaitMenu 'Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 


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

_________________
Все просто.
BETEPAH ™


Top
   
 Post subject:
PostPosted: 2005-03-02 12:05:21 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Менять название ингов и цвет их в строках:
IngName="Shadow"
IngColor='0x096B'


Code:
;==-==-===-==-=-==-===-=--===-=-=-=-===--=-=-=-=-=-=-=-=
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


Top
   
 Post subject:
PostPosted: 2005-03-02 20:35:23 
Offline

Joined: 2005-02-05 20:04:56
Posts: 7
изменил но наверное не так

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

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


Top
   
 Post subject:
PostPosted: 2005-03-03 03:39:54 
Offline
User avatar

Joined: 2004-11-07 01:22:35
Posts: 291
Location: Черкассы
Burik_ wrote:
изменил но наверное не так

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

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



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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 5 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 18 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited