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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 28.12.2007, 03:59   #1
Пользователь
 
Аватар для skymanrus
 
Регистрация: 28.12.2007
Сообщений: 54
Сказал Спасибо: 0
Имеет 40 спасибок в 10 сообщенях
skymanrus пока неопределено
По умолчанию ВОПРОСИК У НОВИЧКА!

седня узнал о этой проге и тут же попытался написать какой-то свой скрипт вот пример:

var ID, xpos, ypos, mob: string;
MyID: integer;

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;

begin
if FromServer and (pck[1]=#$04) then MyID:=ReadD(18); //получаю ид моего чара
if FromServer and (pck[1]=#$01) and (ReadD(2)=MyID) then //если на серваке ктото перемещается
//по карте и если у него мой ид значит это я! :)
ID:=IntToStr(ReadD(2));
ypos:=IntToStr(ReadD(6));
xpos:=IntToStr(ReadD(10));
SendMsg('id-'+ID+' xpos-'+ypos+' xpos-'+xpos); //пишу в игре своой ид и коордиаты!
end.

смысл скрипта прост- когда я перемещаюсь печатать мои координаты точные на карте но фишка в том что помимо моих координат прога засекает ещё кучу какого то мусора включая нули и даже когда я стою на месте и не рыпаюсь она всеравно показывает чьи то координаты :(
вопрос: что я сделал не так ? как мне убрать посторонюю информацию так чтоб когда я стоял на месте она бред не писала а когда тыкал куда нидь она писала только мои координаты ????

помогите плиз :)
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
skymanrus вне форума   Ответить с цитированием
Старый 28.12.2007, 08:30   #2
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию Re: ВОПРОСИК У НОВИЧКА!

Цитата:
Сообщение от skymanrus
седня узнал о этой проге и тут же попытался написать какой-то свой скрипт вот пример:

var ID, xpos, ypos, mob: string;
MyID: integer;

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;

begin
if FromServer and (pck[1]=#$04) then MyID:=ReadD(18); //получаю ид моего чара
if FromServer and (pck[1]=#$01) and (ReadD(2)=MyID) then //если на серваке ктото перемещается
//по карте и если у него мой ид значит это я! :)
begin
ID:=IntToStr(ReadD(2));
ypos:=IntToStr(ReadD(6));
xpos:=IntToStr(ReadD(10));
SendMsg('id-'+ID+' xpos-'+ypos+' xpos-'+xpos); //пишу в игре своой ид и коордиаты!
end;
end.

смысл скрипта прост- когда я перемещаюсь печатать мои координаты точные на карте но фишка в том что помимо моих координат прога засекает ещё кучу какого то мусора включая нули и даже когда я стою на месте и не рыпаюсь она всеравно показывает чьи то координаты :(
вопрос: что я сделал не так ? как мне убрать посторонюю информацию так чтоб когда я стоял на месте она бред не писала а когда тыкал куда нидь она писала только мои координаты ????

помогите плиз :)
жиным выделены дополнения, попробуй так.
QaK вне форума   Ответить с цитированием
Старый 28.12.2007, 13:27   #3
Гость
 
Сообщений: n/a
По умолчанию

ЭВРИКА!!! ЗАРАБОТАЛО! спасибо большое но все же интересно а почему раньше такая ерунда была ??? в чем была моя ошибка так сказать можете пояснить чтоб я больше не делал подобных глупостей ??
  Ответить с цитированием
Старый 28.12.2007, 14:15   #4
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Вообщето это основы программирования =) Ну да ладно =) после then выполняется только одно выражение, если хочешь, чтоб выполнялось несколько, их надо вставить между begin и end. Почитай основы программирования, минимум знаний все-таки необходим, для написания скриптов.
QaK вне форума   Ответить с цитированием
Старый 28.12.2007, 17:27   #5
Гость
 
Сообщений: n/a
По умолчанию

спасиб :) минимум знаий есть я даж на с++ проги писал просто с BASIC подобным скриптами впервые столкнулся :) ещё будут вопросы обязательно обращусь а так за все спасиб ! :)
  Ответить с цитированием
Старый 28.12.2007, 17:31   #6
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Незачто,
Цитата:
Сообщение от Гость
минимум знаий есть я даж на с++ проги писал просто с BASIC подобным скриптами впервые столкнулся
тогда имеет смысл почитать документацию по синтаксису языка.
QaK вне форума   Ответить с цитированием
Старый 28.12.2007, 19:13   #7
Рыцарь
 
Аватар для VORON
 
Регистрация: 06.08.2007
Сообщений: 209
Сказал Спасибо: 6
Имеет 67 спасибок в 34 сообщенях
VORON пока неопределено
По умолчанию

ПАСКАЛЬ- сила...! а не бейсик подобный язык.. времена в которые раньше спорили что сильней паскаль, бейсик или Ц++ - ушли в прошлое... язык программирования- стал просто языком общения с компом.. никоем образом не наклыдывающий ограничений на возможности того что можно накодить.. просто так уж повелось что БИЛ ГЕЙТС запатентовал почти все функции у БЕЙСИКА- поетому тока его контора и может его продвигать на рынок.. а они немогут или не хатят ориентировать етот язык на код низково уровня.. так уж повелось (благодаря майкрософту) что БЕЙСИК язык для скриптов.. паскаль изначально был аналогичен бейсику.. но развивался многосторонне.. и со временем компания БОРЛАНД превратила его в язык для всего чего угодно.. впрочем как и СИ++ изначально был языком низково уровня.. но превратился в аналог ДЕЛЬФИ.. в настоящее время любую задачу моджно накодить как на ДЕЛЬФИ так и на СИ++ разница лиш в синтаксисе... причем компания дельфи- стремиться разницу между языками- сократить к минимуму- применяя в них аналогичные конструкции и понятия... {} на СИ++ равно begin end; на дельфи...
__________________
Цитата:
Сообщение от pybukon
прежде чета попросить я немнога раскажу чтоб вы понили как мне плоха
Цитата:
Сообщение от Byrger
А как сделать мой скрипт бесконечным?
Цитата:
Сообщение от XKOR
.. каждый день ионизированной ногой протирает больную)
Цитата:
Сообщение от PsyR
Вылоджите пожалуйста скрипт на рыбалку желательно что бы сам в ВХ клал адаптированый под шоки и так же скрипт на ТТ рец, тоже с диалогами
VORON вне форума   Ответить с цитированием
Старый 29.12.2007, 00:55   #8
Гость
 
Сообщений: n/a
По умолчанию ВОПРОСИК У НОВИЧКА!2

это скрипт ворона - но я его переделал под своих двух чаров
1. запускаю л2пнх318 ставлю чара Glup
2. перехожу на вкладку дополнительно -> выполнить
3. в игре ZOPANKOK нажимаю 1 и 2 и даже в парти) И ничего не происходит(ПОЧЕМУУУУУ??????? поправте плиз)


var
IDPartyMember, IDAssistTarget, IDMy: String; //?? ????????? ? ?? ??? ??????? ? ??????????? ??
CoordglupX, CoordglupY, CoordglupZ :String; //?????????? ????
IDTargetForSpoil : String; //?? ?????????????? ????

procedure glupBeg;
begin
if (CoordglupX <> '') and (IDPartyMember <> '') then
begin
buf:=hstr('04') + IDPartyMember + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
buf:=hstr('04') + IDPartyMember + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
end;
end;

procedure glupAttack;
begin
if (CoordglupX <> '') and (IDAssistTarget <> '') then
begin
buf:=hstr('04') + IDAssistTarget + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
buf:=hstr('04') + IDAssistTarget + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
end;
end;

begin
if pck='' then exit;

if FromServer and (pck[1]=#$a7) then
begin
IDPartyMember:=pck[6] + pck[7] + pck[8] + pck[9];
end;

if FromServer and (pck[1]=#$29) then
if (pck[2]+pck[3]+pck[4]+pck[5]=IDPartyMember) then
begin

IDAssistTarget:= pck[6]+pck[7]+pck[8]+pck[9];
end;

if FromClient and (ConnectName='Glup') and (pck[1]=#$48) then
begin
CoordglupX:= pck[6] + pck[7] + pck[8] + pck[9];
CoordglupY:= pck[10] + pck[11] + pck[12] + pck[13];
CoordglupZ:= pck[14] + pck[15] + pck[16] + pck[17];
end;

if FromClient and (ConnectName='ZOPANKOK')and (pck[1]=#$38) then
if (pck[2]=#$31) and (pck[3]=#$00) then
begin

pck:='';

GlupBeg;
exit;
end;

if FromClient and (ConnectName='ZOPANKOK')and (pck[1]=#$38) then
if (pck[2]=#$32) and (pck[3]=#$00) then
begin
pck:='';
GlupAttack;
exit;
end;
end.
  Ответить с цитированием
Старый 29.12.2007, 02:47   #9
Гость
 
Сообщений: n/a
По умолчанию Re: ВОПРОСИК У НОВИЧКА!

Почему то там пакет на атаку кладешь в посылку - отправляешь - и ничего! и в этом скрипте тоже паке на ассист и атак(тупо пакет копируешь в скрипт и тоже 0-эмоций) и вообще ни как не заставить ассист и атак сделать((((((((((((((( :cry:
  Ответить с цитированием
Старый 29.12.2007, 08:17   #10
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию Re:

Цитата:
Сообщение от VORON
ПАСКАЛЬ- сила...! а не бейсик подобный язык.. времена в которые раньше спорили что сильней паскаль, бейсик или Ц++ - ушли в прошлое... язык программирования- стал просто языком общения с компом.. никоем образом не наклыдывающий ограничений на возможности того что можно накодить.. просто так уж повелось что БИЛ ГЕЙТС запатентовал почти все функции у БЕЙСИКА- поетому тока его контора и может его продвигать на рынок.. а они немогут или не хатят ориентировать етот язык на код низково уровня.. так уж повелось (благодаря майкрософту) что БЕЙСИК язык для скриптов.. паскаль изначально был аналогичен бейсику.. но развивался многосторонне.. и со временем компания БОРЛАНД превратила его в язык для всего чего угодно.. впрочем как и СИ++ изначально был языком низково уровня.. но превратился в аналог ДЕЛЬФИ.. в настоящее время любую задачу моджно накодить как на ДЕЛЬФИ так и на СИ++ разница лиш в синтаксисе... причем компания дельфи- стремиться разницу между языками- сократить к минимуму- применяя в них аналогичные конструкции и понятия... {} на СИ++ равно begin end; на дельфи...
:beer:

Добавлено спустя 5 минут 11 секунд:
Цитата:
Сообщение от asaa
дополнительно -> выполнить
cскрипты запускаются на вкладке "скрипты" (мдее ну и фраза :D ), путем установки галочки напротив имени используемого скрипта.
QaK вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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