Yoko

Posted: **2008-02-03 12:38:50**

Пожалусто виложити скрипт на плавку дагеров, их очень много в сумке =)) спс зарание!

Posted: **2008-02-03 12:55:34**

Toxa_ wrote:Пожалусто виложити скрипт на плавку дагеров, их очень много в сумке =)) спс зарание!

sub smelt()

VAR dagger = '' #Тип даггера
VAR forge = '' #ID форжа

UO.FindType(dagger, '-1', 'backpack')
If UO.FindCount() > 0 then
  repeat
    UO.DeleteJournal()
    UO.WaitTargetObject('finditem')
    wait(100)
    UO.UseObject(forge)
    repeat
       wait(100)
    until UO.InJournal('You put') or UO.InJournal('in fire')
    wait(1000)
    UO.FindType(dagger, '-1', 'backpack')
  until not UO.FindCount()
end if
end sub

Posted: **2008-02-05 00:18:28**

столкнулся с проблемой мне скрипт не работает.
не пойму что не правельно делаю.

,инфо НОЖИКА
ID=0x400549F6 Type=0x0F51 MDCLKMD Name=
Quantity: 1 Colour: 0x0641 Layer: 0 Has: 1
X=95 Y=106 Z=0 C=0x40123FEF F=0x00
,инфо Форжджа
ID=0x400B9DBF Type=0x0FB1 ZSRILMD Name=
Quantity: 0 Colour: 0x0000 Layer: 0 Has: 0
X=2348 Y=864 Z=0 C=0xFFFFFFFF F=0x00

подредоктируйте пожалусто и если не трудно обесните что куда записывали! Спс зарание :wink:

Posted: **2008-02-05 00:33:57**

все работает. просто кто-то забыл ' ' тут поставить

Code: Select all

UO.WaitTargetObject('finditem')

Code: Select all

sub smelt() 

VAR dagger = '0x0F51' #Тип даггера 
VAR forge = '' #ID форжа 

UO.FindType(dagger, '-1', 'backpack') 
If UO.FindCount() > 0 then 
  repeat 
    UO.DeleteJournal() 
    UO.WaitTargetObject('finditem') 
    wait(100) 
    UO.UseObject(forge) 
    repeat 
       wait(100) 
    until UO.InJournal('You put') or UO.InJournal('in fire') 
    wait(1000) 
    UO.FindType(dagger, '-1', 'backpack') 
  until not UO.FindCount() 
end if 
end sub