ДА БУДЕТ БOT!

[raid]

Данный пост важен для более-менее опытных скриптописателей.
В данных скриптах на пример бафера кота за адены показана работа Пати, Продажи и процесс ожидания действий другого персоонажа.

[charly911]

Hello ppl, im new in the forum. Sry i dont know Russian... im from Argentina (South America).
First of all i would like to tell u that i love this forum and l2phx best botting tool ever
I know little programming, but i could write some scripts that worked excelent.
I have a problem with one script posted in this thread, i cant understand this:

---------------------------------------------------------------------
for i:= 1 to 100 do
 begin
  if MobID[i] <> '' then
   begin
   tempX1:=ord(MobX[i][3])*256*256  + ord(MobX[i][2]) * 256 + ord(MobX[i][1]);
   tempY1:=ord(MobY[i][3])*256*256  + ord(MobY[i][2]) * 256 + ord(MobY[i][1]);
   if (MobX[i][4] = #$FF) then tempX1:=16777215-tempX1;
   if (MobY[i][4] = #$FF) then tempY1:=16777215-tempY1;


   tempLenght:= sqrt((MyCoordXex-tempx1)*(MyCoordXex-tempx1) + (MyCoordYex-tempy1)*(MyCoordYex-tempy1));

    if (tempLenght<MinPutLenght) then
    begin
     MinPutLenght:=tempLenght;
     MinPutID:=i;
    end;
  end;
 end;
------------------------------------------------------------------

Can someone tell me what does it do???? what is "ord" for??? Why is MobID,MobX, etc string and not integer??? o.O

Thnx, Charly.

[QaK]

raid, эт он про твою мапу или про чью-то другую?

Сообщение от charly911

for i:= 1 to 100 do
begin
if MobID[i] <> '' then
begin
tempX1:=ord(MobX[i][3])*256*256 + ord(MobX[i][2]) * 256 + ord(MobX[i][1]);
tempY1:=ord(MobY[i][3])*256*256 + ord(MobY[i][2]) * 256 + ord(MobY[i][1]);
if (MobX[i][4] = #$FF) then tempX1:=16777215-tempX1;
if (MobY[i][4] = #$FF) then tempY1:=16777215-tempY1;


tempLenght:= sqrt((MyCoordXex-tempx1)*(MyCoordXex-tempx1) + (MyCoordYex-tempy1)*(MyCoordYex-tempy1));

if (tempLenght<MinPutLenght) then
begin
MinPutLenght:=tempLenght;
MinPutID:=i;
end;
end;
end;

This part of the script show, how to calculate relative distance from objects to your char.

Сообщение от charly911

Why is MobID,MobX, etc string and not integer??? o.O

because the autor of this script this want =)

Сообщение от charly911

what is "ord" for?

function ord is for conversion between string-type and integer-type variables. Read the synthax of Pascal and Delphi.

P.S. Sorry for my poor English.

[raid]

QaK, нет. у меня нету MobX)

[QaK]

raid,ясно,пасиб. charly911, where did you see this code? Which script do you try ti use?

[raid]

Сообщение от charly911

Can someone tell me what does it do???? what is "ord" for??? Why is MobID,MobX, etc string and not integer??? o.O

this part finding mob with minimal distance between mob and you.
ord - get ineteger from string.
maybe memory economy.

[NLObP]

Сообщение от QaK

raid,ясно,пасиб. charly911, where did you see this code? Which script do you try ti use?

Это КАЧ БОТ "ЛОКОМОТИВ" by VORON

[QaK]

Сообщение от NLObP

Это КАЧ БОТ "ЛОКОМОТИВ" by VORON

Ой блиин, ппц парниша попал =)
НЛО спасибо =)

[charly911]

Hi, thanks QaK for your answer, but when i asked for and explanation i wanted to know in detail what does it do, because once i tried to do something different but it didn't worked... Here is some piece of code:

--------------------------------------------------------
NpcID: array[1..100] of integer; // <-- integer, NOT STRING!!!
NpcX: array[1..100] of integer;
NpcY: array[1..100] of integer;
NpcZ: array[1..100] of integer;

------//-----

NpcID[i]:=ReadD(2);
NpcX[i]:=ReadD(14);
NpcY[i]:=ReadD(18);
NpcZ[i]:=ReadD(22);

----------------------------------------------------

If i tried to do this using string array i got an "incompatibility error".... Only this way worked.
Also i wanted to calculate distance using Pythagoras (sqrt((x*x)+(y*y)), but sometimes i got erros (negative values, theoricaly impossible), thas why i wanted to understand it better.
----
"function ord is for conversion between string-type and integer-type variables. Read the syntax of Pascal and Delphi."

why don't you use StrToInt?????

Thanks, Charly.

[QaK]

charly911, if you use Script by Voron ("Бот кач локомотив") there is o lot of errrs in this script,because olny Voron (as I known) use and test this script, so if something did'nt work correct - try to fix by yourself.

Сообщение от charly911

Also i wanted to calculate distance using Pythagoras (sqrt((x*x)+(y*y)), but sometimes i got erros (negative values, theoricaly impossible), thas why i wanted to understand it better.

Put there a code of the function to calculate distance, and example, where and how do you use it?