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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Закрытая тема
 
Опции темы Опции просмотра
Старый 06.10.2008, 00:30   #1
Новичок
 
Регистрация: 05.10.2008
Сообщений: 2
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
qwexak пока неопределено
По умолчанию CharInfo $03 и заточка оружия

Код:
var
m:TMemo;
frm:TForm;
ench, wpnid, i: Integer;
Title, Name: String;

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

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

begin
if FromServer and (pck[1]=#$03) then
  begin
   i:=22;
   Name:=ReadS(i);
   Inc(i,20);
   wpnid:=ReadD(i);
   Inc(i,184);
   Title:=ReadS(i);
   Inc(i,27);
   ReadH(i); // тут чтото про кубики думаю проблема в этом
// writeH(_activeChar.getCubics().size());
//  for (int id : _activeChar.getCubics().keySet())
// writeH(id);
   Inc(i,20);
   ench:=ReadD(i);

//   if (wpnid = 7575) or (wpnid = 6368) or (wpnid = 7577) or (wpnid = 6594) then
   if (wpnid = 7577) or (wpnid = 6594) then
   begin
     m.Lines.Add('WeaponID: '+inttostr(wpnid)+' +'+inttostr(ench)+' '+Name+' ('+Title+')');
   end

  end;
end.
в логе
Код:
WeaponID: 6594 +1096744969 AShuN ()
WeaponID: 6594 +1488519179 Mrucialego (WTT DYN L FOR H)
WeaponID: 6594 +496041988 AmayaK (-==-)
WeaponID: 7577 +1542258697 GodLike (Rommel)


WeaponID: 7577 +8 Callergi (Nitro boy)
WeaponID: 7577 +8 SirLanka (Whisper)
WeaponID: 7577 +9 RikiMaRou (Shit HappenS)
WeaponID: 7577 +9 xSaIlArx (LF GOOD CLAN)
помогите если кто значет в чем проблема (Interlude)

Добавлено через 8 часов 57 минут
Код:
   i:=22;
   Name:=ReadS(i);
   Inc(i,20);
   wpnid:=ReadD(i);
   Inc(i,184);
   Title:=ReadS(i); //title
   Inc(i,49);
   ench:=ReadC(i);
нужно было ReadC использовать всем спасибо )

Последний раз редактировалось qwexak, 06.10.2008 в 00:30. Причина: Добавлено сообщение
qwexak вне форума  
Закрытая тема

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


Опции темы
Опции просмотра

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

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


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

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

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