Obroschayte not focus on my translation, I'm not very good at English.
I do not know whether you are using a program l2phx.
I will give you some of my scripts
Scripts:
1- cheat_add ( draws lyuboyu thing with knowledge AION to you in a bag )
2 - NOinviz ( makes the invisible visible target )
3 - thief ( steals something from the auction click "refresh" )
To get started you will need the l2phx 3.5.33.164
download my portal >>>
download Official portal of the program >>>
(pass - coderx.ru)cheat_add
Code:
var
SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;
DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;
CharID:array[1..4] of integer;
TargetID:integer;
var
msgName:string;
item:String;
max:String;
startc:String;
startn:String;
str: string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='www.on-cheat.3dn.ru';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
if FromClient and (ReadC(1)=$C9{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('SK-NS',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('- Skript "on-cheat_add"',[TargetID]));
end;
end;
begin
if pck='' then exit;
if (FromClient) and (readc($1)=$B9) then
begin
str := reads(5);
Delete(str,5,length(str)-4);
if str = '/add' then
begin
buf := hstr('18 54 D7 19 00 01 00 B5 6B 04 00');
str := reads(15);
Delete(str,12,length(str)-11);
buf:= buf + hstr(str);
buf:= buf + hstr('24 00 A3 F9 16 00 00 00 16 00 00 4C 30');
str := reads(39);
Delete(str,12,length(str)-11);
buf:= buf + hstr(str);
buf:= buf + hstr('00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
sendtoclient;
pck :='';
end;
end;
end;
end.
Code:
var
ll:Integer;
njax:Integer;
procedure Init;
begin
njax:=0;
end;
procedure Log(msg:String); //Вызывается при включении скрипта
begin
buf:=HStr('17 50 D4 19 00 00 00 00 00 00 00');
WriteS(msg);
SendToClient;
end;
procedure Free;
begin
end;
begin
if fromserver and (pck[1]=#$63) then
begin
if(pck[8]<>#$00) then
begin
pck[8]:=#$00;
end;
end;
if fromserver and (pck[1]=#$1F) then
begin
ll := Pos(HStr('44 00 01'), pck);
if(ll=0) then
begin
ll:=Pos(HStr('44 00 02'),pck);
if(ll<>0) then Log('[SK-NS]> INVIZ '+ReadS(44));
end;
if (pck[ll+2]<>#$00)and (ll > 100)then
begin
pck[ll+2]:=#$00;
end;
end;
end.
thief
Code:
var
Id:integer;
begin
if FromServer and (pck[1]=#$B1) then
begin
Id:=readD(14);
buf:=hstr('EE 57 8D B1 C2 00 00');
writed(Id);
if (pck<>hstr('B1 54 4E 01 00 00 00 00 00 00')) and (pck<>hstr('B1 54 4E 00 00 00 00 00 00 00 00 00 00')) then
begin
sendtoserver;
end;
end;
end.
INFO
my skype - neos.on-cheat
my ICQ - 582781847
forgot
- cheat_add
activated: write in the chat /add (Item) (how) | in to hex example: /add E0 22 16 0B E8 03 00 00
If the commune but I need to demonstrate the
so - the same help with setup. Obroschaytes to skype
