Lineage 2 HTML manual - Страница 2

semiromid · 11.10.2011, 12:08

Подскажите .А где именно нужно писать HTML, в пакетхаке? И куда его потом забрасывать в клиент л2?
Просто хочу увидить связь HTML с делфи . Как оно будет работать не пойму .

J-Fobos · 11.10.2011, 21:09

Цитата:

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

Подскажите .А где именно нужно писать HTML, в пакетхаке? И куда его потом забрасывать в клиент л2?
Просто хочу увидить связь HTML с делфи . Как оно будет работать не пойму .

HTML это просто форматированный текст, его можно писать в любые переменные которые работают с текстом.
Забрасывать в л2 в виде диалога? Посмотрите структуру пакета открытия диалога, формируйте такой же пакет и отправляйте на клиент.

Pinko · 11.10.2011, 23:46

Цитата:

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

Подскажите .А где именно нужно писать HTML, в пакетхаке? И куда его потом забрасывать в клиент л2?
Просто хочу увидить связь HTML с делфи . Как оно будет работать не пойму .

HTML
зачем ет вам надо ?
легче ответить на вопрос.

Nickers · 12.10.2011, 09:07

Для админов полезно.

semiromid · 12.10.2011, 09:32

Цитата:

Сообщение от J-Fobos

это просто форматированный текст, его можно писать в любые переменные которые работают с текстом.
Забрасывать в л2 в виде диалога? Посмотрите структуру пакета открытия диалога, формируйте такой же пакет и отправляйте на клиент.

Цель, создать управление скриптом из HTML окна л2 .

Pinko · 12.10.2011, 10:16

Код:

//===========================================

   myname=' tttttttt '; //<<== пишем свой НИК

//=====скрипт для глухих===
//     ХБ
// перенаправляет сообщения на экран. 
// открыть управление соцдействие ДА
// Автор  mks . coderx.ru .
//===========================================
    HTML='<html><body><center>'+
 '<img src="L2UI_CH3.herotower_deco width=256 height=32>'+
 '<img src="L2UI.SquareWhite" width=260 height=1>'+
 '<font color="04fbfb">Cкрипт сообщения на экран</font><br>'+
 '<img src="L2UI.SquareWhite" width=260 height=1>'+
 '<img src="L2UI.Squarewidth" width=260 height=1>'+
 '<font color="04fbfb">системные сообщения</font><br>'+
 '<button value=" Trade " action="bypass Trade"    width=80 height=15  back="sek.cbui94"  fore="sek.cbui92">'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+
 '<button value=" Party " action="bypass Party"    width=80 height=15  back="sek.cbui94"  fore="sek.cbui92">'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+ 
 '<button value=" Clan " action="bypass  Clan"     width=80 height=15 back="sek.cbui94"  fore="sek.cbui92">'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+
 '<button value=" Alli " action="bypass  Alli"     width=80 height=15 back="sek.cbui94"  fore="sek.cbui92">'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+ 
 '<button value=" P M " action="bypass  PM"        width=80 height=15 back="sek.cbui94"  fore="sek.cbui92">'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+ 
 '<button value=" Hero " action="bypass  Hero"     width=80 height=15 back="sek.cbui94"  fore="sek.cbui92">'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+ 
 '<font color="LEVEL"> mks </font><br>'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+ 
 '<button value=" стоп" action="bypass stop"       width=80 height=15 back="sek.cbui94"  fore="sek.cbui92">'+
 '<img src="L2UI.SquareWhite" width=60 height=1>'+
 '<img src="L2UI.Squarewidth" width=60 height=4>'+ 
 '<font color="LEVEL">TAMBIK</font><br>'+
 '</center></body></html>';
//==========================================

        var
    Bypass:string; 
    autoText:Boolean;
    TextType:integer; 

//==========================================
//  ShowHTML(HTML);
Procedure ShowHTML( _html : string );
begin
  buf:=#$19;
  WriteD(5);
  WriteS(_HTML);
  SendToClientEx(myname);
   end;
//========================
procedure ActionUse; //2=PM, 3=Party, 4=Clan, 8=Trade, 9=Alli, 17=Hero
 begin
     Bypass:=ReadS(2);
     case Bypass of
 'Trade':begin  autoText:=true;TextType:=8; end;//Trade
 'Party':begin  autoText:=true;TextType:=3; end;//Party
 'Clan':begin   autoText:=true;TextType:=4; end;//Clan
 'Alli':begin   autoText:=true;TextType:=9; end;//Alli
 'PM':begin     autoText:=true;TextType:=0; end;//PM
 'Hero':begin   autoText:=true;TextType:=17;end;//Hero
 'stop':begin   autoText:=false;TextType:=0;end;
 end;
end;
//-----------------------------------------
procedure Init;
begin
TextType:=0;
autoText:=false;
end;
procedure Free;
begin

end;
//Tип: 0x4A (CreatureSay)
//Pазмер: 83+2
//Время прихода: 12:35:56:375
//0002 d  ObjectID: 268899150 (0x1007134E)
//0006 d  TextType: 15 (0x0000000F)
//000A s  CharName: MaFaca
//0018 s  Text: ВТТ ВАШ СЕПОР С СА, ПРЕДЛЫ ПМ
 //=========================
begin
//не обрабатываем пустые пакеты
  if pck='' then exit; 
 if FromClient and (pck[1]=#$34) and (ReadD(2)=06) then begin ShowHTML(HTML); pck:='';exit;end; 
 if FromClient and (pck[1]=#$23) then begin ActionUse; pck:='';exit;end; //
 if FromServer and autoText and (pck[1]=#$4A) and (ReadD(6)=TextType) then begin
      buf:=pck;
     WriteD(15,6);
     pck:=buf;
   end;