Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 19.07.2008, 18:05   #451
Новичок
 
Аватар для raid
 
Регистрация: 01.07.2008
Адрес: Пермь
Сообщений: 21
Сказал Спасибо: 0
Имеет 37 спасибок в 10 сообщенях
raid пока неопределено
По умолчанию

Данный пост важен для более-менее опытных скриптописателей.
В данных скриптах на пример бафера кота за адены показана работа Пати, Продажи и процесс ожидания действий другого персоонажа.
Вложения
Тип файла: txt BafferBot.txt (4.2 Кб, 209 просмотров)
Тип файла: txt FreeBafferBot.txt (3.4 Кб, 181 просмотров)
__________________
Emo-chan style.
raid вне форума   Ответить с цитированием
Старый 22.07.2008, 23:52   #452
Пользователь
 
Аватар для charly911
 
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
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:
delphi Код:
--------------------------------------------------------------------- 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, 23.07.2008 в 08:42.
charly911 вне форума   Ответить с цитированием
Старый 23.07.2008, 08:58   #453
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
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.
QaK вне форума   Ответить с цитированием
Старый 23.07.2008, 10:47   #454
Новичок
 
Аватар для raid
 
Регистрация: 01.07.2008
Адрес: Пермь
Сообщений: 21
Сказал Спасибо: 0
Имеет 37 спасибок в 10 сообщенях
raid пока неопределено
По умолчанию

QaK, нет. у меня нету MobX)
__________________
Emo-chan style.
raid вне форума   Ответить с цитированием
Старый 23.07.2008, 10:56   #455
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

raid,ясно,пасиб. charly911, where did you see this code? Which script do you try ti use?
QaK вне форума   Ответить с цитированием
Старый 23.07.2008, 11:54   #456
Новичок
 
Аватар для raid
 
Регистрация: 01.07.2008
Адрес: Пермь
Сообщений: 21
Сказал Спасибо: 0
Имеет 37 спасибок в 10 сообщенях
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.
__________________
Emo-chan style.
raid вне форума   Ответить с цитированием
Старый 23.07.2008, 12:38   #457
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
raid,ясно,пасиб. charly911, where did you see this code? Which script do you try ti use?
Это КАЧ БОТ "ЛОКОМОТИВ" by VORON
NLObP вне форума   Ответить с цитированием
Старый 23.07.2008, 13:09   #458
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
Это КАЧ БОТ "ЛОКОМОТИВ" by VORON
Ой блиин, ппц парниша попал =)
НЛО спасибо =)
QaK вне форума   Ответить с цитированием
Старый 24.07.2008, 07:48   #459
Пользователь
 
Аватар для charly911
 
Регистрация: 20.05.2008
Адрес: Arg.
Сообщений: 35
Сказал Спасибо: 2
Имеет 3 спасибок в 2 сообщенях
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.
charly911 вне форума   Ответить с цитированием
Старый 24.07.2008, 09:00   #460
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
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?
QaK вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:43.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!