Yoko
http://forum.yoko.com.ua/

Народ помогите плиз
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13545		 Page 1 of 1
Author:  Username [ 2008-04-26 11:23:35 ]
Post subject:  Народ помогите плиз
Вот собсно сам скрипт на копку + рекалл от плаеров + антимакрос. Шард Forgotten World. Реколюсь в шахту, запускаю скрипт. В начале все работает, но с пустя какоето время выдает ошибку: Unhandled exception in parser. Скажите пожалуйста что это может быть. Мое предположение что это когда он должен останавливать скрипт и ты должен написать "го". Разберитесь пожалуйста. Вот сам скрипт:
sub maining()
var mx, my, mz, i, j

UO.print('Âûáåðèòå êèðó')
UO.exec('addobject kirka')
while uo.targeting()
wait(100)
wend

UO.print('Âûáåðèòå ðóíêó')
uo.exec('addobject rune')
while uo.targeting()
wait(100)
wend

start:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx-2 to mx+2
for j = my-2 to my+2
hidding()
UO.Print("Êîïàåì â êîîðäèíàòàõ: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.findman( -1 )
if uo.findcount() then
recal()
uo.exec('terminate mining')
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("kirka")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (1000)
if uo.weight>600 then
recal()
endif

uo.findman( -1 )
if uo.findcount() then
recal()
uo.exec('terminate all')
endif
hidding()
wend
wend
UO.DeleteJournal()
next
next
uo.print("Âû çàêîí÷èëè îáêîáêó, ïåðåäèòå íà äðóãîå ìåñòî è íàïèøèòå: ãî")

while not uo.dead()
if uo.injournal("ãî") then
goto start
endif
uo.findman( -1 )
if uo.findcount() then
recal()
uo.exec('terminate all')
endif
wend
end sub
###########################################################################
sub hidding()
while not uo.Hidden()
uo.WarMode("0")
uo.print('Ïðÿ÷åìñÿ')
uo.UseSkill("Hiding")
wait(3500)
wend
end sub
###########################################################################
sub recal()
if uo.waiting() then
uo.canceltarget()
endif
uo.print ("Ñüáûâàåìñÿ")
uo.waittargetobject('rune')
uo.cast('Recall')
wait(3500)
uo.exec('terminate all')

sub aams()
var gumpid=0
var buttonid=0
var buttontext
var i=18,j,rand

dim reindex[8]
reindex[0]=11
reindex[1]=12
reindex[2]=13
reindex[3]=10
reindex[4]=16
reindex[5]=14
reindex[6]=17
reindex[7]=15

for j=1 to 2
rand=uo.random(10)*100
wait(100)
wait(500+rand)
if uo.LastGump('text',4)<>"0" then
i=19
endif
GumpID =val(Mid(uo.LastGump('command',i),16,4))
ButtonID=reindex[GumpID-2225]
ButtonText=uo.LastGump('command', ButtonID)
uo.LClick(Val(Mid(ButtonText,7,3)),Val(Mid(ButtonText,11,3)))
next
wait(500)
endsub

sub AntiMacro()
while not uo.Dead()
if not uo.LastGump('replyed') then
if uo.LastGump('text', 0) == 'Antimacros System' then
aams()
end if
endif
wait(500)
wend

end sub
##################################################################################################################[code][/code]
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/