Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[J-Fobos]

Напоминаю всем:

Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

[benqush]

сдравствуйте, вот нашол такой скрипт ,показывает в окне персов пол раса профа..

var
m:TMemo;
frm:TForm;
RaceID, SexID, ClassID, i: Integer;
Message, Name, Sex, Race, Class: String;

procedure Init;
begin
//ShowTab;
frm := TForm.Create(nil);
frm.Caption := 'Char Info!';
frm.BorderStyle := bsSizeable;
frm.Position := poScreenCenter;
frm.Width:=400;
frm.Height:=600;
m:=TMemo.Create(frm);
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
frm.Show;
end;

procedure Free;
begin
m.Free;
frm.Free;
//HideTab;
end;

begin
if FromServer and (pck[1]=#$03) then
  begin
   i:=22;
   Name:=ReadS(i);
   RaceID:=ReadD(i);
   SexID:=ReadD(i);
   ClassID:=ReadD(i);
   case RaceID of
    0:race:='Люди';
    1:race:='Светлые эльфы';
    2:race:='Темные эльфы';
    3:race:='Орки';
    4:race:='Гномы';
    end;
   case SexID of
    0:sex:='Мужской';
    1:sex:='Женский';
    end;
   case ClassID of
    0:class:='H_Fighter';
    1:class:='H_Warrior';
    2:class:='H_Gladiator';
    88:class:='H_Duelist';
    3:class:='H_Warlord';
    89:class:='H_Dreadnought';
    4:class:='H_Knight';
    5:class:='H_Paladin';
    90:class:='H_PhoenixKnight';
    6:class:='H_DarkAvenger';
    91:class:='H_HellKnight';
    7:class:='H_Rogue';
    8:class:='H_TreasureHunter';
    93:class:='H_Adventurer';
    9:class:='H_Hawkeye';
    92:class:='H_Sagittarius';
    10:class:='H_Mage';
    11:class:='H_Wizard';
    12:class:='H_Sorceror';
    94:class:='H_Archmage';
    13:class:='H_Necromancer';
    95:class:='H_Soultaker';
    14:class:='H_Warlock';
    96:class:='H_ArcanaLord';
    15:class:='H_Cleric';
    16:class:='H_Bishop';
    97:class:='H_Cardinal';
    17:class:='H_Prophet';
    98:class:='H_Hierophant';
    18:class:='E_Fighter';
    19:class:='E_Knight';
    20:class:='E_TempleKnight';
    99:class:='E_EvaTemplar';
    21:class:='E_SwordSinger';
    22:class:='E_Scout';
    23:class:='E_PlainsWalker';
    101:class:='E_WindRider';
    24:class:='E_SilverRanger';
    102:class:='E_MoonlightSentinel';
    25:class:='E_Mage';
    26:class:='E_Wizard';
    27:class:='E_SpellSinger';
    103:class:='E_MysticMuse';
    28:class:='E_ElementalSummoner';
    104:class:='E_ElementalMaster';
    29:class:='E_Oracle';
    30:class:='E_Elder';
    105:class:='E_EvaSaint';
    31:class:='DE_Fighter';
    32:class:='DE_PaulusKnight';
    33:class:='DE_ShillienKnight';
    106:class:='DE_ShillienTemplar';
    34:class:='DE_BladeDancer';
    107:class:='DE_SpectralDancer';
    35:class:='DE_Assassin';
    36:class:='DE_AbyssWalker';
    108:class:='DE_GhostHunter';
    37:class:='DE_PhantomRanger';
    109:class:='DE_GhostSentinel';
    38:class:='DE_Mage';
    39:class:='DE_DarkWizard';
    40:class:='DE_Spellhowler';
    110:class:='DE_StormScreamer';
    41:class:='DE_PhantomSummoner';
    111:class:='DE_SpectralMaster';
    42:class:='DE_ShillienOracle';
    43:class:='DE_ShillienElder';
    112:class:='DE_ShillienSaint';
    44:class:='O_Fighter';
    45:class:='O_Raider';
    46:class:='O_Destroyer';
    113:class:='O_Titan';
    47:class:='O_Monk';
    48:class:='O_Tyrant';
    114:class:='O_GrandKhauatari';
    49:class:='O_Mage';
    50:class:='O_Shaman';
    51:class:='O_Overlord';
    115:class:='O_Dominator';
    52:class:='O_Warcryer';
    116:class:='O_Doomcryer';
    53:class:='D_Fighter';
    54:class:='D_Scavenger';
    55:class:='D_BountyHunter';
    117:class:='D_FortuneSeeker';
    56:class:='D_Artisan';
    57:class:='D_Warsmith';
    118:class:='D_Maestro';
   end;
   Message:='Раса: '+race+', Пол: '+sex+', Класс: '+class+'.';
   m.Lines.Add(Name+': '+Message);
  end;
end.

возникло 2 вопроса, 1: можно ли сделать авто сохранение в файл и как
2: как сделать чтобы не повторялись ники..

[Nickers]

Хм авто сохранение эт нада в TstringList исходную инфу переписывать и там есть встроенное сохранение...
Вот в этой теме есть примеры(с сохранением)...

Как это понять "не повторялись"? Ты про сохранение? Тогда нужно добавлять TStringList массив

A:array[1..10] of TstringList;

туды все вводить (По счету 1й, 2й, 3й) Добавлять функцию проверки (Когда новый покакет делается проверка в цикле всего массива на переменную Name и при повторении прост выходит и не записывает...)

function NameRepeat(NameX:string) : boolean;
var
  i : integer;
begin
  for i:=1 to max do
    if A[i].Name=NameX then begin
      result:=True;
      exit;
    end;
  result:=false;
end;

Procedure Init;
begin
   f:=0;
end;

if FromServer and (pck[1]=#$03) and (not NameRepeat(Read( )) then
   begin
      inc(f);
      A[f].Name:=...

Как-то так исправьте если дурак))

А переписывать скрипт этот мне лично влом))

[саша242]

подскажите когда распаковую программу пишит :введите пароль для зашифрованного файла ... вопрос какой пароль?)

//J-Fobos: угадайте с 1-го раза

//nlobp: коммент к архиву прочитать никак?

[B0o0M]

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


29.12.2010 17:18:05 Библиотека C:\Documents and Settings\Влад\Рабочий стол\пх\inject.dll успешно загружена
29.12.2010 17:18:05 Стартует L2ph v3.5.33.166
29.12.2010 17:18:05 На 7788 зарегистрирован локальный сервер
29.12.2010 17:18:10 Надёжно пропатчен новый клиент l2.bin (1668)


Версия хлапы v3.5.33.166
Вот сервер http://only-game.kiev.ua/
Тестовый АК лог : raz123
пароль : raz123

[NLObP]

B0o0M, уважаемый, вы перепутали название программы! В следущий раз называйте её правильно.

[Nickers]

А еще перепутал тему
Click!

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

[Dark Maxim]

Я решил занятся созданию сайтов на PHP. В книжке которую я читаю скрипты пишутся на я зыке С. Вопрос: можно ли писать скрипты на Turbo Pascal 7.0 ? Ведь я его нормально знаю, и не хочу ломать голову над новым я зыком. Да и не как не пойму как компилировать С файлы в скрипты.

Добавлено через 6 минут
Если можно то покажите как написать на Паскале скрипт который отправит браузеру на экран слово МАМА

[Nickers]

CoderX :: Forums > Lineage II > L2PacketHack

Click

[Никитка990]

здрасте, ребят кто может помочь сделать визуально из А грейда S к примеру в моём случае это перчатки ну вот читайте
помогите сделать ID вещи через DWord в данном случае МЖ перчи вот от них обжект ID "6B F7 5F 13" или уже переведённые через DWord "325056363" сделать так чтобы грейд у них был не "А" a "S" отсылать пакеты надо к клиенту