Yoko

Posted: **2005-01-18 08:44:35**

Есть скрипт на изготовление даггеров:

sub BlackSmith() 
UO.AutoMenu('Blacksmithing','Weapons'); 
UO.AutoMenu('Weapons','Swords'); 
UO.AutoMenu('Swords','dagger'); 
UO.UseType(0x1bf2); 
wend 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(100) 
wend 

If UO.InJournal("You put") then 
repeat 
EndIf 

end sub

Как сделать так что бы он повторялся n-нное кол-во раз, почему после использования этого скрипта при дабл-клике ни ингах делаются даггеры? И возможно ли сделать скрипт для перетаскивания даггеров мусорщику за реварды, и как?

Помогите, плиз, ньюбику...

Posted: **2005-01-18 09:04:24**

Code: Select all

sub BlackSmith() 
uo.cancelmenu()
UO.AutoMenu('Blacksmithing','Weapons')
UO.AutoMenu('Weapons','Swords')
UO.AutoMenu('Swords','dagger')
While not uo.dead()
UO.UseType('0x1bf2')

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(100) 
wend 
wend
end sub

Как надоест макросить в уо набери команду

Code: Select all

,cancelmenu

Posted: **2005-02-02 05:20:44**

Code: Select all

sub BlackSmith() 
uo.cancelmenu() 
UO.AutoMenu('Blacksmithing','Weapons') 
UO.AutoMenu('Weapons','Swords') 
UO.AutoMenu('Swords','dagger') 
While not uo.dead() 
UO.DeleteJornal() ## You need this!!!
UO.UseType('0x1bf2') 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(100) 
wend 
wend 
end sub

Yoko

Помогите со скриптом...

Помогите со скриптом...

Re: Помогите со скриптом...