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

лумбер помагите плизз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=18		 Page 1 of 1
Author:  BOT [ 2004-04-05 18:51:17 ]
Post subject:  лумбер помагите плизз
НЕвырубывает деревя доканца и если можно увеличить кол _во деревев



sub main()
var i
Dim Lumb[303]

Lumb[1] = "3277 3404 429 4"
Lumb[2] = "3294 3400 426 9"
Lumb[3] = "3283 3400 429 9"
Lumb[4] = "3289 3400 432 9"
Lumb[5] = "3286 3396 429 9"
Lumb[6] = "3289 3396 432 9"
Lumb[7] = "3289 3396 426 9"
Lumb[8] = "3283 3392 429 9"
Lumb[9] = "3277 3392 426 9"
Lumb[10] ="3302 3392 432 9"
Lumb[11] = "3302 3392 432 9"
Lumb[12] = "3283 3392 438 9"
Lumb[13] = "3283 3388 438 9"
Lumb[14] = "3286 3384 432 9"
Lumb[15] = "3299 3380 438 9"
Lumb[16] = "3280 3380 435 9"
Lumb[17] = "3286 3376 429 9"
Lumb[18] = "3294 3372 435 9"
Lumb[19] = "3283 3372 438 9"
Lumb[20] = "3280 3372 441 9"
Lumb[21] = "3280 3376 441 9"
Lumb[22] = "3302 3372 444 9"
Lumb[23] = "3283 3372 447 9"
Lumb[24] = "3302 3372 450 9"
Lumb[25] = "3280 3376 450 9"
Lumb[26] = "3296 3368 456 9"
Lumb[27] = "3277 3368 450 9"
Lumb[28] = "3289 3364 447 4"
Lumb[29] = "3280 3360 450 4"
Lumb[30] = "3277 3364 441 4"
Lumb[31] = "3299 3356 444 4"
Lumb[32] = "3280 3360 441 4"
Lumb[33] = "3289 3356 447 4"
Lumb[34] = "3277 3356 450 4"
Lumb[35] = "3286 3356 453 4"
Lumb[36] = "3277 3356 456 4"
Lumb[37] = "3296 3360 456 4"
Lumb[38] = "3283 3356 459 4"
Lumb[39] = "3277 3360 459 4"
Lumb[39] = "3291 3356 462 4"
Lumb[40] = "3299 3360 462 4"
Lumb[41] = "3277 3360 468 4"
Lumb[42] = "3296 3356 465 4"
Lumb[43] = "3283 3352 468 4"
Lumb[44] = "3277 3352 471 4"
Lumb[45] = "3286 3356 471 4"
Lumb[46] = "3283 3352 474 4"
Lumb[47] = "3291 3352 477 4"
Lumb[48] = "3294 3352 480 4"
Lumb[49] = "3280 3352 483 4"
Lumb[50] = "3294 3356 483 4"





While true
recall()
for i = 1 to 100
if UO.Weight > 700 then
mark()
grab()
return()
endif
GoToMine( Lumb[i] )
UO.Print("Lumb Tree "+str(i))
Mine( Lumb[i] )
Mine( Lumb[i] )
Mine( Lumb[i] )
Mine( Lumb[i] )
Mine( Lumb[i] )
Next
grab()
wend
end sub

sub mark()
while true
UO.DeleteJournal()
UO.WaittargetObject(0x400D217A)
UO.Cast('Mark')
wait(10000)
if not UO.InJournal("fizzles") then
Return
endif
wend
end sub

sub return()
while true
UO.DeleteJournal()
UO.WaittargetObject(0x400D217A)
UO.Cast('Recall')
wait(10000)
if not UO.InJournal("fizzles") then
Return
endif
wend
end sub

sub recall()
while true
UO.DeleteJournal()
UO.WaitTargetObject(0x400D217A)
UO.Cast('Recal')
wait(10000)
if not UO.InJournal("fizzles") then
Return
endif
wend
end sub

sub GoToMine( Current_Tree )
var Tree, TreeX, TreeY
var oldX, oldY
var Dx, Dy
var Distance

TreeX = Current_Tree[5]+Current_Tree[6]+Current_Tree[7]+Current_Tree[8]
TreeY = Current_Tree[10]+Current_Tree[11]+Current_Tree[12]+Current_Tree[13]
uo.print("TreeX="+TreeX + ", TreeY=" + TreeY )
Repeat
oldX = UO.GetX()
oldY = UO.GetY()

Dx = val(TreeX) - oldX
Dy = val(TreeY) - oldY

Distance = Dx*Dx+Dy*Dy
uo.print("Dx="+str(Dx)+", Dy="+str(Dy)+", ----Dist= "+str(Distance) )
if Distance < 10 then
Return
endif
move(Dx,Dy,Distance)
Until (Distance < 10)
end sub

sub move(Dx,Dy,Distance)
var q
hide()
CheckLag()
if Dx<0 and Dy==0 then
q=1
endif
if Dx<0 and Dy<0 then
q=2
endif
if Dx==0 and Dy<0 then
q=3
endif
if Dx>0 and Dy<0 then
q=4
endif
if Dx>0 and Dy==0 then
q=5
endif
if Dx>0 and Dy>0 then
q=6
endif
if Dx==0 and Dy>0 then
q=7
endif
if Dx<0 and Dy>0 then
q=8
endif
hide()
CheckLag()
moveside(q)
end sub


sub moveside(q)
var k,l
var m,n
var j
k=UO.GetX()
l=UO.GetY()
For j=0 to 2
if q==1 then
UO.Press(36)
endif
if q==2 then
UO.Press(38)
endif
if q==3 then
UO.Press(33)
endif
if q==4 then
UO.Press(39)
endif
if q==5 then
UO.Press(34)
endif
if q==6 then
UO.Press(40)
endif
if q==7 then
UO.Press(35)
endif
if q==8 then
UO.Press(37)
endif
Next
CheckLag()
m=UO.GetX()
n=UO.GetY()
wait(300)
if k==m and l==n then
q=q+1
if q==9 then
q=1
endif
moveside(q)
endif
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('backpack')
UO.DeleteJournal()
end sub

sub mine(lumb)
UO.Warmode('flip')
hide()
UO.Print("lumb="+lumb)
UO.DeleteJournal()
var maxtime = 20000
var time
var coords
coords="waittargettile "+ lumb
time = 0
CheckLag()
UO.Exec(coords)
UO.UseType('0x0F43')
wait(4000)
If Uo.InJournal("chop") then
Return
endif
wait(6000)
If Uo.InJournal("put the logs") then
mine(lumb)
endif
end sub

sub grab()
UO.Print("Grabbing")
UO.DeleteJournal()
UO.WaitTargetObject(0x4004163C)
UO.Cast('Recal')
wait(10000)
UO.Exec("setreceivingcontainer 0x4008F660")
Repeat
UO.Exec("findtype 0x1BDD")
UO.Exec("waittargettype 0x1BDD")
UO.Exec("grab all")
wait(1000)
Until (UO.Findcount('finditem') == 0)
end sub

sub hide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.UseSkill('Hiding')
repeat
wait(100)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide')
wend
wait(100)
end sub
Author:  AGRS [ 2004-04-07 09:47:17 ]
Post subject: 
sub mine(lumb)
UO.Warmode('flip')
hide()
UO.Print("lumb="+lumb)
UO.DeleteJournal()
var maxtime = 20000
var time
var coords
coords="waittargettile "+ lumb
time = 0
CheckLag()
UO.Exec(coords)
UO.UseType('0x0F43')
wait(4000)
If Uo.InJournal("chop") then
Return
endif
wait(6000)
If Uo.InJournal("put the logs") then
mine(lumb)
endif
end sub


Перепиши этот бред заново и все получится. ;)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/