Jump to content

Recommended Posts

Posted

// Îòêðûòèå/çàêðûòèå ëþáûõ äâåðåé, âîðîò è ò.ä. À òàêæå ïðîõîä â äàëüíåéùåì ÷åðåç îòêðòóþ äâåðü äàëüøå.

// Ðàáîòàåò íà âñåõ ñåðâåðàõ, íî ïðîéòè ÷åðåç îòêðûòóþ äâåðü ìîæíî íà ñåðâåðå, ãäå íåò ãåîäàòû (java).

// ×òîáû èñïîëüçîâàòü ñêðèïò, âûäåëèòå íóæíóþ âàì äâåðü ÷åðåç Shift + ëåâàÿ êíîïêà ìûøè

// Àâòîð: Furious

// Âåðñèÿ: 0.2

 

var

Bypass: String;

ObjectID, ActionID, Status: Integer;

 

const

HTML='<html><body><center><img src="L2UI_CH3.herotower_deco"'+

' width=256 height=32><font color="LEVEL">Ìåíþ óïðàâëåíèÿ âî'+

'ðîòàìè è äâåðÿìè</font><br><font color="LEVEL">Àâòîð: Furio'+

'us</font><img src="L2UI.SquareWhite" width=260 height=1><im'+

'g src="L2UI.SquareBlank" width=260 height=4><br1><td><butto'+

'n value="Îòêðûòü" action="bypass -h open" width=70 height=1'+

'5 back="sek.cbui94" fore="sek.cbui92"></td><br><td><button '+

'value="Çàêðûòü" action="bypass -h close" width=70 height=15'+

' back="sek.cbui94" fore="sek.cbui92"></td><br></tr><img src'+

'="L2UI.SquareWhite" width=260 height=1><img src="L2UI.Squar'+

'eBlank" width=260 height=4><br1></center></body></html>';

 

procedure ShowHTML;

  begin

    buf:=#$0F;

    WriteD(5);

    WriteS(HTML);

    SendToClient;

  end;

 

procedure DoorAction;

  begin

    buf:=#$4D;

    WriteD(ObjectID);

    WriteD(Status);

    WriteD(0);

    WriteD(1);

    WriteD(0);

    SendToClient;

  end;

 

 

begin

  if FromClient and (pck[1]=#$04) then

    begin

      ActionID:=ReadC(18);

      if ActionID=1 then

        begin

          ObjectID:=ReadD(2);

          ShowHTML;

        end;

    end;

  if FromClient and (pck[1]=#$21) then

    begin

      Bypass:=ReadS(2);

      case Bypass of

      'open':Status:=0 and DoorAction;

      'close':Status:=1 and DoorAction;

      end;

    end;

end.

 

 

 

 

 

 

 

 

 

lipon ego etsi ton exo mesa sto phx mou kai mou doulevei mia xara... sou ipa kai me ti version to dokimazo.. kai prepei na to dokimasis se server pou na pianei to phx...

Posted

ok an 8es stilemou minima me to url tou server na mpo na dokimaso an ginete na anigo tis portes kai na sou po an ston sigekrimeno piani...

Posted

Polli kalo file thank you! Polli prototipo, makari na doulebei! Tha to dokimaso kai tha sou pw!

ean piani to phx eki pou ta dokimazis 8a piani sigoura...

 

[move]Hide this post: Apo 99 sta 50 mias kai to phx den piani se tosous polous server!!Dokimasmeno se l2PHX 3.1.8 C6 IL[/move]

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...