Yoko

Code: Select all

sub findtree()
var dist = 10
var count = 0
dim TreeX[1000]
dim TreeY[1000]
var i = 0
var mx = uo.getx('self')
var my = uo.gety('self')
uo.print(mx)
var zx,zy,type
for zx = mx - dist to mx + dist
for zy = my - dist to my + dist
if uo.privategettile( zx, zy, 0, 3289, 3289 )then
count = count + 1
TreeX[count] = zx
TreeY[count] = zy
endif
next
next
for i = 1 to count
SaveToFile(TreeX[i],TreeY[i],i)
uo.print(str(i))
next
endsub


sub SaveToFile(x,y,count)
var f=file('C:\trer.txt')
var s
if count == 1 then
f.create()
uo.print('file created')
endif
f.open()
uo.print('Íàäåíî äåðåâî - '+str(x)+ " " + str(y))
s=safe call f.writeln('3289'+' '+str(x)+' '+str(y)) 
f.close()
endsub