Запись Пути ......

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Fenixsis
Posts: 49
Joined: 2004-08-25 01:28:18

Запись Пути ......

Post by Fenixsis »

Подскажите если не сложно ...
Почему эта часть скрипта не работает ...Тоесть не прописывает координаты. В чем проблема ?

sub record()
var x
var y
var path="1"
UO.DeleteJournal()
Repeat
x=UO.GetX()
y=UO.GetY()
if waitNewPos(x,y) then
path=path+extract_dir(x,y,UO.GetX(),UO.GetY())
endif
Until UO.InJournal("stop")
path = compressPath(path)
var f=file(MiningDir +"mine_mov.dat")
If NOT f.Open() Then
f.Create()
Messagebox("Файл передвижения " +MiningDir +"mine_mov.dat создан")
endif
f.Writeln(path)
f.close()
;Messagebox("Файл передвижения " +MiningDir +"mine_mov.dat переписан")
end sub
I'm
Expert!
Posts: 1396
Joined: 2004-10-15 22:38:04
Location: Moscow City.
Contact:

Post by I'm »

А ты пробовал сказать stop ? :roll:
Post Reply