Yoko

Ошибка Unhandled exeption in parser

Напишите плиз рабочий скрипт.

Я его на первой странице постил. Если хочешь с переплавкой, замени здесь

И проверь весь свой скрипт на очепятки

ja stavlju tip daggerov a on pi6et undentifed tproduct?po4emu?

Excel wrote:ja stavlju tip daggerov a on pi6et undentifed tproduct?po4emu?

ну так там надо поставить тип продукции в твоём случае даггера

ja stavlju tak var tPoduct =0x13F0 pravilno?

sub BS()
var Iron='0x1bef'
var Forge='' - 0x4032D1C4
var tPoduct ='0x0F51'
uo.Automenu('Blacksmithing','Weapons')
uo.Automenu('Weapons','Swords & Blades')
uo.Automenu('Swords & Blades','dagger')
repeat
uo.DeleteJournal()
uo.UseType(Iron)
repeat
wait(150)
until uo.InJournal('You')

uo.FindType(tProduct,-1,'backpack')
if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(3000)
end if

until (uo.Count(Iron)<=16)
uo.playwav('c:\Inject\71.wav')
end sub


Proverj pozaluista ja pravilno napisal?

Excel wrote:

Code: Select all

sub BS() 
var Iron='0x1bef' 
var Forge='0x4032D1C4'
var tProduct ='0x0F51'
uo.Automenu('Blacksmithing','Weapons') 
uo.Automenu('Weapons','Swords & Blades') 
uo.Automenu('Swords & Blades','dagger') 
   repeat 
      uo.DeleteJournal() 
      uo.UseType(Iron) 
      repeat 
         wait(150) 
      until uo.InJournal('You') 

uo.FindType(tProduct,-1,'backpack') 
if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject(Forge) 
wait(3000) 
end if 

   until (uo.Count(Iron)<=16) 
uo.playwav('c:\Inject\71.wav') 
end sub 

Proverj pozaluista ja pravilno napisal?

вот так похоже

vse ravnp pi6et line 15 variable t product undentifed

Excel wrote:vse ravnp pi6et line 15 variable t product undentifed

те ж сказали посмотреть скрипт на очепятки...
tPoduct <> tProduct
ща поправлю в скрипте

vot ja durak ja uze popravil izivini za glupostj

Блин, почему то вылезает ошибка Unghandled Exception in parser

Gobzik wrote:Блин, почему то вылезает ошибка Unghandled Exception in parser

попробуй скопировать ещё раз с предыдущей страницы, последний скрипт.

Не помогло.

хнык

sub BS()
var Iron='0x1bef'
var Forge='0x4032D1C4' -ID форжи
var tPoduct =0x0F51
uo.Automenu('Blacksmithing','Weapons')
uo.Automenu('Weapons','Swords & Blades')
uo.Automenu('Swords & Blades','dagger')
repeat
uo.DeleteJournal()
uo.UseType(Iron)
repeat
wait(150)
until uo.InJournal('You')

uo.FindType(-1,'backpack')
if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(3000)
end if

until (uo.Count(Iron)<=16)
uo.playwav('c:\Inject\71.wav')
end sub

да нет, тоже самое, а может, что не так с настройками?

может быть но у меня идет попробуй этот
sub main()
uo.automenu('Blacksmithing','Weapons')
uo.automenu('Weapons','Swords & Blades')
uo.automenu('Swords & Blades','dagger')
uo.deletejournal()
while uo.count(0x1BEF)>=3
uo.usefromground(0x097B)
uo.usetype(0x1BEF) ;ingoti
wait(8500)
wend
if uo.count(0x0F51)==0 AND uo.count(0x1BEF)<3 then
uo.say(',terminate all')
endif
uo.say(',exec plavka')
uo.cancelmenu()
end sub

sub plavka()
while uo.count(0x0F51)>0
uo.usefromground(0x0FB1)
uo.waittargettype(0x0F51)
wait(200)
wend
uo.say(',exec main')
end sub

toka tut type forzi postavj svoi

сенкс )