[move]Hide this post: Apo 99 sta 5 mias kai to phx den piani se tosous polous server!![/move]
Dokimasmeno se l2PHX 3.1.8 C6 IL
mpenoume sto l2phx kai pame na kanoume new Script px me name open the doors, patame ok...
kanoume adigrafi ton kodika pou einai pio kato kai epikolisi mesa sto l2phx.. meta kanoume save..
afou tsekaroume to koutaki apo to open the doors ean to onomasete etsi pame se mia porta kai patame to
Shift kai diplo klik pano stin porta opou mas vgazi ena para8iro.. se emena den egrafe tpt para mono 2 koutakia..
patiste to ena apo ta dio 8a einai to Open kai to alo to close..
// Îòêðûòèå/çàêðûòèå ëþáûõ äâåðåé, âîðîò è ò.ä. À òàêæå ïðîõîä â äàëüíåéùåì ÷åðåç îòêðòóþ äâåðü äàëüøå.
// Ðàáîòàåò íà âñåõ ñåðâåðàõ, íî ïðîéòè ÷åðåç îòêðûòóþ äâåðü ìîæíî íà ñåðâåðå, ãäå íåò ãåîäàòû (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.
http://imagehosting.gr/show.php/594724_maxcheaters.jpg.html
[move]Ean exei xanagini To idio /delete....
epsaksa ligo ala den vrika tpt Isos na exei kialo paromio ala telos padon :P
[/move]