code
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
where the error?
where the error?
When i run this script, no recorded all in tiles_tree.txt, only "1000,", nothing more
Last edited by -k- on 23.07.2014 20:12, edited 1 time in total.
Re: where the error?
i found the error, but i dont understand. when i put "file.WriteBuffer(coord,Lenght(coord));", the script write only "1000,", but when i put "file.WriteBuffer(coord,Lenght(coord)*2);", the script write all in .txt
Re: where the error?
maybe try to initialize the string earlier;
can ask you - why you need this, what is it for? Maybe there is another solution of your task?
Code: Select all
Begin
X := 1000;
y := 9999;
string1 := IntToStr(x) +',' + IntToStr(y) + '-';
WriteToFile('D:\progs\uo\txts\tree_tiles.txt', s);
End.
Re: where the error?
i use for mark respaw tree. =]]
Procedure Search(Tile, X, Y, Z: Integer);
Var
end : boolean;
Begin
if InJournal('elf') <> -1 then
begin
WriteToFile('D:\progs\uo\txts\elf.txt', IntToStr(Tile) +' ' +IntToStr(x) +' ' +IntToStr(y) +' ' +IntToStr(z) + #13#10);
end:=true;
clearjournal;
wait(100);
end;
end;
Search(TreesArray.Tile, TreesArray.X, TreesArray.Y, TreesArray.Z);
Procedure Search(Tile, X, Y, Z: Integer);
Var
end : boolean;
Begin
if InJournal('elf') <> -1 then
begin
WriteToFile('D:\progs\uo\txts\elf.txt', IntToStr(Tile) +' ' +IntToStr(x) +' ' +IntToStr(y) +' ' +IntToStr(z) + #13#10);
end:=true;
clearjournal;
wait(100);
end;
end;
Search(TreesArray.Tile, TreesArray.X, TreesArray.Y, TreesArray.Z);
Re: where the error?
just unicode, 1 char = 2 bytes. in old version 1 char = 1 byte.-k- wrote:i found the error, but i dont understand. when i put "file.WriteBuffer(coord,Lenght(coord));", the script write only "1000,", but when i put "file.WriteBuffer(coord,Lenght(coord)*2);", the script write all in .txt
thats mean your "WriteToFile" was outdated.
here - http://stealth.od.ua/forum/viewtopic.php?f=6&t=995 - its already changed and explained.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: where the error?
-k- wrote:i use for mark respaw tree. =]]
Procedure Search(Tile, X, Y, Z: Integer);
Var
end : boolean;
Begin
if InJournal('elf') <> -1 then
begin
WriteToFile('D:\progs\uo\txts\elf.txt', IntToStr(Tile) +' ' +IntToStr(x) +' ' +IntToStr(y) +' ' +IntToStr(z) + #13#10);
end:=true;
clearjournal;
wait(100);
end;
end;
Search(TreesArray.Tile, TreesArray.X, TreesArray.Y, TreesArray.Z);
oh shi.
use "clearjournal;" - bad way. really bad. injection\EUO-style.
use "injournalbetweentimes"
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: where the error?
hehe, thx man.
i gonna use betweentimes, thx so much
i gonna use betweentimes, thx so much
-
- Posts: 1
- Joined: 30.06.2015 14:58
- Location: Страна
- Contact:
where the error
this is for andrexia the shard scripter. i have noticed that magic reflection items moonstone does not come up on the .myinfo prot list. only magic immunity.
k