скритп для HF, собственно хотел что бы при вводе в чат Elloe, вылетала HTMLка с кнопками, помогите решить поставленную задачу
Цитата:
// скрипт на телепор
// вводим в ALL чате Elloe
var
bypass: string;
objectID, actionID, status: integer;
const
HTML='<html><body><center>'+
'<img src="L2UI_CH3.herotower_deco width=256 height=32>'+
'<img src="L2UI.SquareWhite" width=260 height=1>'+
'<img src="L2UI.SquareBlank" width=260 height=4><br>'+
'<button value="Town" action="bypass -h Town" width=100 height=15 back="sek.cbui94" fore="sek.cbui92">'+
'<img src="L2UI.SquareWhite" width=260 height=1>'+
'<img src="L2UI.SquareBlank" width=260 height=4><br>'+
'</center></body></html>';
const
HTML_Town='<html><body><center>'+
'<img src="L2UI_CH3.herotower_deco" width=256 height=32>'+
'<font color="04fbfb">Town</font><br>'+
'<img src="L2UI.SquareWhite" width=260 height=1>'+
'<img src="L2UI.SquareBlank" width=260 height=4><br><td>'+
'<a action="_bbsteleport;teleport; 147450 27120 -2208 5000">Aden</a>'+
'<button value="Назад" action="bypass -h main" width=60 height=15 back="sek.cbui94" fore="sek.cbui92"><br>'+
'<img src="L2UI.SquareWhite" width=260 height=1>'+
'<img src="L2UI.SquareBlank" width=260 height=4><br>'+
'</center></body></html>';
Procedure ShowHTML( _html : string );
begin
buf:=#$0Ef;
WriteD(5);
WriteS(_HTML);
SendToClient;
end;
begin
if FromClient and (pck=#$49#$45#$00#$6C#$00#$6C#$00#$6F#$00#$65#$00# $00#$00#$00#$00#$00#$00) then
begin
ShowHTML(HTML);
end;
if FromClient and (pck[1]=#$21) then
begin
Bypass:=ReadS(2);
case Bypass of
'main' : ShowHTML(HTML);
'Town' : ShowHTML(HTML_Town);
end;
end;
end.
|