Tinker!!!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
DarkAngel
Posts: 9
Joined: 2005-07-18 15:39:22

Tinker!!!

Post by DarkAngel »

Нужен скрипт на тикер чтобы делал шестеренки и потом ее плавил....
DarkAngel
Posts: 9
Joined: 2005-07-18 15:39:22

Post by DarkAngel »

Люди ну ПЖАЛУСТА помогите со скриптом!!!Очень просим!!!
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Code: Select all

sub Bottles() 
VAR eda = 0x097B
repeat
UO.UseSkill('Spirit')
wait (600)
uo.usetype(eda)
wait (300)
CheckLag()
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x400B29CD') ;serial sunduka s iron
UO.Grab('100','finditem')
wait(300)
Endif
CheckLag()
UO.Usetype('0x1EBC')
UO.WaitMenu('Tinkering','Tools','Tools','lockpick') #тут что делать будешь
wait (1000)
CheckLag()
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed"))
wait(300)
wend
UO.FindType('0x0F51',-1,'backpack') #Тип вещи, которую делаем (для плавки)
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x402A765A) #форжа
Endif
wait(200)
until UO.Dead()
end sub

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('backpack')
   UO.DeleteJournal()
end sub
DarkAngel
Posts: 9
Joined: 2005-07-18 15:39:22

Post by DarkAngel »

ПАСИБА люди добрые....
Post Reply