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

Проблемка со скриптомпо ламберджекингу...
http://forum.yoko.com.ua/viewtopic.php?f=1&t=5396		 Page 1 of 1
Author:  El Bandito [ 2005-10-07 10:03:24 ]
Post subject:  Проблемка со скриптомпо ламберджекингу...
воть у меня такая ситуацыя хочюя рубить логи на скрипте

sub Lumberjacking()
var i=0,j=0,k=0,r=0,q=0,ii,jj
var TopX=324,TopY=65
dim TreeX[500], TreeY[500],TreeT[500]
dim TreeTile[10]
var flag=0,treeCount=0,clicks=0,flag2=0
######################
### Ģåķž / Options ###
######################
###################################################################################################
var f=file("C:\trees1.dat") ## - Ļóņü ź ōąéėó ā źīņīšīģ įóäóņ õšąķčņń˙ źīīšäčķąņū äåšåāüåā.
###
var Area=1 ## - Šąēģåš īįšąįąņūāąåģīé ņåšščņīščč, ģīęķī ģåķ˙ņü īņ 1 äī 4
### (īņ ēķą÷åķč˙ 1 - 4, ēąāčńčņ āšåģ˙ āūäåėåķķīå ķą ģąšź).
### (÷åģ įīėüųå šąēģåš īįšąįąņūāąåģīé ņåšščņīščč, ņåģ įīėüųå āšåģ˙ äąåņń˙ ķą ģąšźčšīāźó äåšåāüåā).
###
var TryHiding=0 ## 1 - Ļåšåä ņåģ źąź šóįčņü äåšåāī, įóäåņ ļūņąņüń˙ óéņč ā õąéä, 0 - ķå įóäåņ .
###
var TryRecall=0 ## 1 - Ļīńėå ņīćī źąź ńīįåšåņ LogsQty ėīćīā, įóäåņ ļūņąņüń˙ šåźīėčņüń˙ äīģīé,
### ńźėąäūāąņü ėīćč ā ńóķäóź č šåźīėčņüń˙ īįšąņķī
### (ķóęķī óźąēąņü Šóķįóź ā źīņīšīé, 1ą˙ šóķą äīģīé, ą 9ą˙ ā ėåń), 0 - ķå įóäåņ.
###
var LogsQty=500 ## - Źīėč÷åńņāī ėīćīā, äīįūā źīņīšīå ķąäī šåźīėčņüń˙ äīģīé.
###
var GetFromFile=1 ## 1 - Źīīšäčķąņū äåšåāüåā įóäóņ ń÷čņūāąņń˙ čē ōąéėą, 0 - ńīįčšąņń˙ čē źėčåķņą
### (ńķą÷ąėą ńīįåščņå ą ļīņīģ ń÷čņūāąéņå čē ōąéėą).
###
var AttackEnts=0 ## 1 - Āźėž÷čņü šåźīė ļī šóķå(ā ļąźå) ļšč ąņąźå, 0 - īņźėž÷čņü šåźīė.
###
var Reconnect=0 ## 1 - Āźėž÷čņü šåźīķķåźņ ķą ńåšāåš åńėč āūźčķåņ, 0 - īņźėž÷čņü šåźīķķåźņ.
###
uo.Set('norbcheck','1') ## - Äė˙ šåźīėą.
###
uo.Set('norbcalc','1') ## - Äė˙ šåźīėą.
###
##################################################################################################
########################
### Ćšąōčźą äåšåāüåā ###
########################
TreeTile[0]=3283
TreeTile[1]=3277
TreeTile[2]=3293
TreeTile[3]=3296
TreeTile[4]=3302
TreeTile[5]=3299
TreeTile[6]=3290
TreeTile[7]=3288
TreeTile[8]=3286
TreeTile[9]=3280

uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'")

uo.Print('Āūįåšč ņīļīš: ')
uo.Exec('addobject hatchet')
while uo.Targeting()
wait(100)
wend

if TryRecall==1 then
uo.Print('Āūįåšč PóķĮóź: ')
uo.Exec('addobject Runebook')
while uo.Targeting()
wait(100)
wend
end if

if AttackEnts==1 then
uo.Exec('exec AttackEnts')
end if

if Reconnect==1 then
uo.Exec('exec Reconnect')
end if
#####################################
### Ēąćšóęąåģ źīīšäčķąņū čē ōąéėą ###
#####################################
if GetFromFile==1 then
uo.Print('Ēąćšóęąåģ źīīšäčķąņū čē ōąéėą...')
f.open()
treeCount=safe call f.ReadNumber()
for i=1 to treeCount
TreeT[i]=safe call f.ReadNumber()
TreeX[i]=safe call f.ReadNumber()
TreeY[i]=safe call f.ReadNumber()
next
f.close()
else
######################################
### Ńīįčšąåģ źīīšäčķąņū čē źėčåķņą ###
######################################
uo.Print('Āūįåšč Źčšźó: ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
uo.Print('Ńīįčšąåģ źīīšäčķąņū äåšåāüåā ā īźšóćå...')
for q=1 to Area
if q==2 then
gotoXY(uo.getX()+20,uo.getY()-10)
end if
if q==3 then
gotoXY(uo.getX(),uo.getY()+20)
end if
if q==4 then
gotoXY(uo.getX()-20,uo.getY())
end if
for r=0 to 3
if r==1 then
gotoXY(uo.getX()+10,uo.getY())
end if
if r==2 then
gotoXY(uo.getX(),uo.getY()+10)
end if
if r==3 then
gotoXY(uo.getX()-10,uo.getY())
end if
for j=0 to 8
for i=0 to 8
clicks=0
flag=0
uo.DeleteJournal()
#######################
### Źėčźąåģ ķą ņąéė ###
#######################
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
###############################
### Ļšīāåš˙åģ äåšåāī ėč żņī ###
###############################
flag=0
for k=0 to 9
if uo.LastTile(0)==TreeTile[k]+1 then
flag=2
end if
next
if flag==0 then
for k=0 to 9
if uo.LastTile(0)==TreeTile[k] then
flag=1
end if
next
end if
#########################
### Źėčźķóėč ķą ńņāīė ###
#########################
if flag==1 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)
uo.Print('Ķąéäåķī äåšåāī: x='+str(uo.LastTile(1))+' y='+str(uo.LastTile(2)))
end if
end if
##########################
### Źėčźķóėč ļī ėčńņāå ###
##########################
if flag==2 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)-1
uo.print('Ķąéäåķī äåšåāī: x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
next
next
next
next
uo.Exec("filterspeech off")
uo.Print('Ąķąėčē ēąźīķ÷åķ, źīīšäčķąņū äåšåāüåā ēąļčńąķū ā ōąéė C:\trees3.dat')
SaveToFile(treeCount,TreeX,TreeY,TreeT)
end if
uo.Print('Äåšåāüåā ķąéäåķī: '+str(treeCount))
wait(2000)
######################################
### Õīäčģ ļī ńīįšąķķūģ źīīšäčķąņąģ ###
######################################
while 1==1
if treeCount>0 then
for i=1 to treeCount
if TryRecall==1 and uo.Count('ZLK')>=LogsQty then
ToRecall()
end if
uo.Print('Čäåģ ź äåšåāó '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i]))
InfoLogs()
flag=gotoXY(TreeX[i],TreeY[i])
if flag==1 then
if TryHiding==1 then
ToHide()
end if
GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ()))
end if
next
end if
wend
end sub

sub GetTree(Type,X,Y,Z)
var i
uo.Print('Ķą÷čķąåģ šóįźó äåšåāą...')
for i=0 to 15
if uo.Warmode()==1 then
return 0
end if
wait(200)
uo.DeleteJournal()
CheckLag()
uo.WaitTargetTile(Type,X,Y,Z)
uo.UseObject('Axe')
if WaitForChange()==1 then
return 1
end if
next
return 0
end sub

sub ToRecall()
RecallToHome()
DropLogs()
InfoLogs()
wait(3000)
RecallToLumber()
end sub

sub RecallToHome()
uo.Print('Ļšūćąåģ Äīģīé.')
UO.UseObject('0x4008E59E') ;-Ēäåńü āļčńūāąåģ ID šóķįóźą ā źīņīšīģ šóķū ā ėåń č äīģīé (ź ńóķäóźó)
wait(500)
UO.LClick(135,99) ;åņī ķīģåš ńėīņą ā źīņīšīģ ėåęčņ šóķą ā ĖÅŃ (ēäåńü - 3 ńėīņ)
wait(15000)
end sub

sub RecallToLumber()
uo.Print('Ļšūćąåģ ā Ėåń.')
UO.UseObject('0x4008E59E') ;-Ēäåńü āļčńūāąåģ ID šóķįóźą ā źīņīšīģ šóķū ā ėåń č äīģīé (ź ńóķäóźó)
wait(500)
UO.LClick(135,129) ;åņī ķīģåš ńėīņą ā źīņīšīģ ėåęčņ šóķą ā ĖÅŃ (ēäåńü - 5 ńėīņ)
wait(15000)
end sub

sub ToHide()
while not uo.Hidden()
uo.Print('Ļūņąåģń˙ óéņč ā õąéä...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4100)
wend
wait(100)
end sub

sub WaitForRecall()
var Text1=uo.GetName()+": The spell fizzles."
var mess='',lastX=uo.getX(),lastY=uo.getY()
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 0
end if
if uo.getX()<>lastX or uo.getY()<>LastY then
return 1
end if
wait(50)
next
return 0
end sub

sub WaitForHide()
var Text1=uo.GetName()+": You have hidden yourself well"
var Text2=uo.GetName()+": You can't seem to hide here."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 1
end if
if uo.Journal(0)==Text2 then
return 0
end if
wait(50)
next
return 0
end sub

sub WaitForChange()
var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.'
var Text2='There are no logs here to chop.'
var Text3="You can't reach this."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 then
return 1
end if
if uo.Journal(0)==Text1 then
return 0
end if
if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then
return 0
end if
wait(50)
next
return 0
end sub

sub WaitForTryRock()
var Text1="That is too far away."
var Text2="Try mining in rock."
var Text3="There is no ore here to mine."
var Text4="You have no line of sight to that location"
var Text5="You can't see the target"
for var i=0 to 50
if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then
return 1
end if
wait(200)
next
return 0
end sub

sub WaitForTarget()
for var i=0 to 50
if uo.Targeting()==1 then
return 1
end if
wait(200)
next
return 0
end sub

sub WaitForChangeXY(myX,myY,lastX,lastY)
for var i=1 to 50
if lastX<>myX or lastY<>myY then
return 1
end if
wait(200)
next
return 0
end sub

sub gotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60
myX=uo.getX();
myY=uo.getY();
if LastX==myX and LastY==myY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.Press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.Press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.Press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.Press(39)
next
end if
halt=15
end if
if numb(x-myX)<=1 and numb(y-myY)<=2 then
return 1
end if
if x<=myX then
if y<=myY then
for z=0 to 3
uo.Press(38)
next
else
for z=0 to 3
uo.Press(37)
next
end if
else
if y<=myY then
for z=0 to 3
uo.Press(39)
next
else
for z=0 to 3
uo.Press(40)
next
end if
end if
lastX=myX
lastY=myY
wait(200)
next
return 0
end sub

sub numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub

sub SaveToFile(treeCount,TreeX,TreeY,TreeT)
var f=file("C:\trees.dat")
var s=0,i=0
f.open()
f.create()
s=safe call f.writeln(treeCount)
for i=1 to treeCount
s=safe call f.writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i]))
next
f.close()
end sub

sub DropLogs()
ToHide()
if uo.Waiting() then
uo.CancelTarget()
end if
var a, Exit
var Chest='0x40361006' ## - ID ńóķäóźą äė˙ ńįšīńą ėīćīā.
dim Logs[1]
Logs[0]=0x1BDD
uo.Print('Āūźėąäūāąåģ Ėīćč.')
uo.SetReceivingContainer(Chest)
wait(500)
for a=0 to 0
exit=0
repeat
uo.FindType(Logs[a])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
else
exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer(Chest)
uo.Print('Ėīćč Āūėīęåķū.')
end sub

sub InfoLogs()
uo.Print('Ó āąń āńåćī '+str(uo.Count('0x1BDD'))+' ėīćīā ā ńóģźå')
uo.Print('Čē ķčõ '+str(uo.Count('0x1BDD','0x0000'))+' ļšīńņūõ č ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' öāåņķūõ')
end sub

sub AttackEnts()
uo.DeleteJournal()
var Enemy='0x00000000'
repeat
if uo.InJournal("is attacking you") or uo.InJournal("OOPS!!!") or uo.InJournal("Wis Quas") then
uo.Say(',terminate Lumberjacking')
Enemy = uo.JournalSerial(uo.InJournal("is attacking you")-1)
uo.PlayWav("D:\Ultima Online\Injection\Lumb Sound\humiliation.wav")
uo.DeleteJournal()
RecallAtAttack()
end if
wait(1000)
until false
end sub

sub RecallAtAttack()
var mX, mY
reccal:
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
mX = uo.getX("self")
mY = uo.getY("self")
uo.DeleteJournal()
uo.FindType('0x1F14',-1,'mY')
uo.Cast('Recall','finditem')
uo.Print('Ąņąźą! Šåźīėčģń˙!')
wait(4000)
if not uo.getX("self") <> mX and not uo.getY("self") <> mY then
goto reccal
end if
Terminate()
end sub

sub Reconnect()
var reconnectTime, rFlag
reconnectTime = '0'
rFlag = 1
repeat
while (uo.ObjAtLayer('Bpack') == '')
if rFlag then
reconnectTime = MakeTime()
rFlag = 0
endif
wait(20000) ## - WorldSave.
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.LDblClick(357,164)
uo.LClick(616,459)
wait(3000)
wend
wait(3000)
if (rFlag == 0) and (reconnectTime <> '0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+reconnectTime)
rFlag = 1
reconnectTime = '0'
endif
until false
end sub

sub MakeTime()
var d, t, ret, i
ret = str(uo.Time())
t = ""
for i = 0 to Len(ret)
t = ret[Len(ret)-i] + t
if (i == 2) or (i == 4) then
t = ":" + t
endif
next
ret = str(uo.Date())
d = ""
for i = 0 to Len(ret)
d = ret[Len(ret)-i] + d
if (i == 2) or (I == 4) then
d = "." + d
endif
next
ret = t + " @ " + d
return ret
end sub

sub Terminate()
uo.Print('Āńå ōóķźöčč ńźščļņą āūźėž÷åķū!')
uo.DeleteJournal()
uo.Exec('terminate all')
uo.Exec('terminate all')
end sub

sub CheckLag()
if uo.Waiting() > 0 then
uo.Exec("canceltarget")
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub

он мне пишет при запуске
NoRBCheck On
NoRBCale On
Curent sate: enabled

What is hatchet?

я навожу на топор, и выскакивет еррор
Unhandled exception in parser.
подскажыте плиз вчем проблемка? просто у маего друга такая же версия инжекта и етот же скрипт тб от него.. и у неговсё идет

версия инжекта у меня 501,22
Author:  Askaneli [ 2005-10-07 11:22:43 ]
Post subject: 
Может с компом чё та ?
Конфигурации компов напиши плиз. Обоих.
Особенно какая стоит операционка и память.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/