Кто там просил маркировку тайлов ?
У меня оно в моей личной библиотечке лежит
Запускаем, не забыв указать файл.
Биндим на любую клавишу "mfgi resend", и когда отходим далеко и возвращаемся - жамкаем клавишу.
Когда надоест бродить - пишем "BREAK FNC", не напишите - не запишет в файл.
Собственно мне надо было немного - 2000 тайлов разметить, под конец лаги стали вылезать, небольшие, так, что на слабых машинах особо не порезвишся
Code: Select all
sub Des.Mark_Possible_Tiles()
var x = uo.getX();
var y = uo.getY();
var file = "tiles.dat"
var f = file(file);
f.create()
f.open()
deljournal("BREAK FNC")
while true
if uo.getGlobal(str(uo.getX())+":"+str(uo.getY())) == "N/A" then
uo.mfgi("add","2760",str(uo.getX()),str(uo.getY()),str(uo.getZ()+2),"5555")
x = uo.getX();
y = uo.getY();
uo.setGlobal(str(x)+":"+str(y),"true")
f.writeln(str(x)+" "+str(y))
else
wait(10)
endif
if uo.injournal("BREAK FNC") then
f.close()
return
endif
wend
endsub
И если вдруг кому-понадобится, соответсвенно один из вариантов проверки тайла на проходимость:
Code: Select all
Sub isPossibleTile_init(file)
file = file(file)
file.open()
var x, y
while not file.eof()
x = safe call file.readnumber()
y = safe call file.readnumber()
uo.setglobal(str(x)+":"+str(y),"1")
wend
uo.setGlobal("isPossibleTile_init", "1")
endsub
sub isPossibleTile(x, y)
if NOT uo.getGlobal("isPossibleTile_init") == "1" then
isPossibleTile_init("tiles.dat") ; имя файла с тайлами, должно лежать в папке с Injection, если указан не абсалютный путь.
endif
if uo.getGlobal(str(x)+":"+str(y))=="1" then
return 1
endif
return 0
endsub
sub main()
if isPossibleTile(5500, 1800) then
;// по тайлу можно ходить
else
;// по тайлу нельзя ходить
endif
endsub
существует огромное кол-во хороших (быстрых) алгоритмов для нахождения пути, причём многие из них можно найти в исходниках для различных языков программирования (прежде всего С++). Если уж взялись за идею, так воплотите её не "как получиться", а как "следует"