Почти бот!

[Ta[2]]

Всем привет.

Короче тема такая попался мне как то скрипт на отсоединение клиента от l2phx ...

var
NetPing: string;
LogOutOk: boolean;
begin
if (ConnectName='Ник перса') and FromServer then begin
case pck[1] of
#$D3: begin
if LogOutOk then begin
buf:=NetPing;
SendToServerEx('Ник перса');
end;
end;
end;
end;
//************************************************** **
if (ConnectName='Ник перса') and FromClient then begin
case pck[1] of
#$09: begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
pck:='';
buf:=#$7E;
SendToClientEx('Ник перса');
LogOutOk:=true;
end;
#$A8: begin
NetPing:=pck;
pck:='';
end;
end;
end;
end.

И начал я думать что же с ним сделать то можно ... и тут ...
Решил я проверить насколько он рабочий и что можно сделать.
Путё проб и ошибок выяснил вот что ... если везде где надо написать ник перса вписать только вашего чара то он вылетает где то через 30 секунд после того как придёт пакет на нетпинг ... но если в строке

var
NetPing: string;
LogOutOk: boolean;
begin
if (ConnectName='Ник перса') and FromServer then begin
case pck[1] of
#$D3: begin
if LogOutOk then begin
buf:=NetPing;
SendToServerEx('Ник другого чара из игры существующего');
end;
end;
end;
end;
//************************************************** **
if (ConnectName='Ник перса') and FromClient then begin
case pck[1] of
#$09: begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
pck:='';
buf:=#$7E;
SendToClientEx('Ник перса');
LogOutOk:=true;
end;
#$A8: begin
NetPing:=pck;
pck:='';
end;
end;
end;
end.

то чар остаётся в игре хз сколько времени ... возможно пока тот левый что вы вписали в игре находиться ... а может и хоть сколько.
Ну и посадил я своего на скупку ресов ... клиентом вышел l2phx работает. Чар сидит и покупает всё норм. Комп не грузит) ... получился типа out game бот ) .... щас попробую прицепить ещё 1 скрипт который на баффера посмотрим что выйдет ... если прокатит то будет out game baff бот ))))))))


P.S. А вообще родилась идея А если везде в скрипте прописать ник другого перса ... есть мысля что с твоим выходом выбросит и чара которого ты прописал. На осаде выкидывать клан лидера .... короче с выкидывание противника не прокатило ...

Зато с баффером всё ок.
[HTML]//исходник by mks | переработан boyan
//Доделан ElKornacio
//Prophet
// x- воин a- маг
// Небольшие настройки: В OsnovaName введите ник вашей основы, в PPName ник вашей ПП.
// Управление - запускаете скрипт. Для включения меню управления ПП введите в пати чат 's'(без кавычек).
// Откроецо Диалог с несколькими кнопками.
// Кнопка "МР офф" - ППшка пишет в чат: "Ребята MP мало! Баффацо временно не советую. MegoPP отключена на время респа МР!". После етого она садиЦо на землю и не принимает трейд.
// Кнопка "МР он" - ППшка пишет в чат: "МР было восстановленно! Можете продолжать баффаца." после етого встаёт и начинает принимать трейд, баффать ну короче исполнять свои основные функции
// Кнопка "Friend Fuff" - на случай если вы хотите баффнуть друга. Первый кто кинет ППшке трейд и даст 1 адену будет баффнут маг баффом. Можете сменить если надо на воина.
// Кнопка "Friend Buff off" - если вы включиле режим, а тут друг оказал вдруг.. и не друг и не враг.... А ГМ! То можно смело отключать етой кнопкой Friend Buff и подлецу придёцо плалить полную стоимость баффа.
// В принципе всё, со временем буду улучшать.
const //основные константы.
OsnovaName='ElKornacio'; //Имя основы
PPName='MegoPP'; //Имя ПП
BuffTime=2000; //Время между использованием 2 баффов(что бы не лагало).
shield='2F 10 04 00 00 00 00 00 00 00'; //shield
Mental_shield='2F 0B 04 00 00 00 00 00 00 00'; //mental shield
acumen='2F 3D 04 00 00 00 00 00 00 00'; //acumen
BlessHP='2F 15 04 00 00 00 00 00 00 00'; //blessHP
wind_walk='2F B4 04 00 00 00 00 00 00 00'; //ww
Magic_barier='2F 0C 04 00 00 00 00 00 00 00'; //magic barier
Concentration='2F 36 04 00 00 00 00 00 00 00'; //concert
Invigor='2F 08 04 00 00 00 00 00 00 00';
BlessMP='2F 18 04 00 00 00 00 00 00 00';
Regeneration='2F 14 04 00 00 00 00 00 00 00';
Might='2F 2C 04 00 00 00 00 00 00 00';
Focus='2F 35 04 00 00 00 00 00 00 00';
Haste='2F 3E 04 00 00 00 00 00 00 00';
Resist_fire='2F A7 04 00 00 00 00 00 00 00';
Guildance='2F D8 04 00 00 00 00 00 00 00';
Death_wisper='2F DA 04 00 00 00 00 00 00 00';
Bless_shield='2F DB 04 00 00 00 00 00 00 00';
HTML='<html><body><center>'+
'<img src="L2UI_CH3.herotower_deco width=256 height=32>'+
'<img src="L2UI.SquareWhite" width=280 height=1>'+
'<img src="L2UI.SquareBlank" width=260 height=4><br>'+
'<button value="МР офф" action="bypass -h MPoff" width=100 height=15 back="sek.cbui94" fore="sek.cbui92">'+
'<button value="МР он" action="bypass -h MPon" width=100 height=15 back="sek.cbui94" fore="sek.cbui92">'+
'<button value="Friend buff" action="bypass -h friend" width=100 height=15 back="sek.cbui94" fore="sek.cbui92">'+
'<button value="Friend buff off" action="bypass -h friendoff" 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>';
var
pck48:string;
buffcan: boolean;
ObjectID, ActionID, Status: Integer;
Bypass: String;
Target: string;
prof,x,a: integer;
friend: boolean;
timer1: TTimer;
MyMP: integer;
procedure Init;
begin
friend:=true;
buffcan:=true;
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=2000;
end;
procedure OnTimer(Sender: TObject);
begin
case x of
1: begin
buf:=hstr(shield);
sendtoserverEX(PPName);
x:=x+1;
end;
2: begin
buf:=hstr(Mental_shield);
sendtoserverEX(PPName);
x:=x+1;
end;
3: begin
delay(BuffTime);
buf:=hstr(blessHP);
sendtoserverEX(PPName);
x:=x+1;
end;
4: begin
buf:=hstr(wind_walk);
sendtoserverEX(PPName);
x:=x+1;
end;
5: begin
delay(BuffTime);
buf:=hstr(Magic_Barier);
sendtoserverEX(PPName);
x:=x+1;
end;
6: begin
buf:=hstr(Invigor);
sendtoserverEX(PPName);
x:=x+1;
end;
7: begin
delay(BuffTime);
buf:=hstr(BlessMP);
sendtoserverEX(PPName);
x:=x+1;
end;
8: begin
buf:=hstr(Regeneration);
sendtoserverEX(PPName);
x:=x+1;
end;
9: begin
delay(BuffTime);
buf:=hstr(Might);
sendtoserverEX(PPName);
x:=x+1;
end;
10: begin
buf:=hstr(Focus);
sendtoserverEX(PPName);
x:=x+1;
end;
11: begin
delay(BuffTime);
buf:=hstr(Haste);
sendtoserverEX(PPName);
x:=x+1;
end;
12: begin
buf:=hstr(Resist_fire);
sendtoserverEX(PPName);
x:=x+1;
end;
13: begin
delay(BuffTime);
buf:=hstr(Guildance);
sendtoserverEX(PPName);
x:=x+1;
end;
14: begin
buf:=hstr(Death_wisper);
sendtoserverEX(PPName);
x:=x+1;
end;
15: begin
delay(BuffTime);
buf:=hstr(Bless_shield);
sendtoserverEX(PPName);
x:=x+1;
end;
16: begin
friend:=false;
x:=0;
a:=0;
buf:=#$38;
WriteS('Вы получили бафф воина. Спасибо и удачи!');
WriteD(0);
SendToServerEX(PPName);
end;
end;
case a of
1: begin
buf:=hstr(acumen);
sendtoserverEx(PPName);
a:=a+1;
end;
2: begin
buf:=hstr(Resist_fire);
sendtoserverEX(PPName);
a:=a+1;
end;
3: begin
buf:=hstr(Regeneration);
sendtoserverEX(PPName);
a:=a+1;
end;
4: begin
delay(BuffTime);
buf:=hstr(BlessMP);
sendtoserverEX(PPName);
a:=a+1;
end;
5: begin
buf:=hstr(shield);
sendtoserverEX(PPName);
a:=a+1;
end;
6: begin
buf:=hstr(Mental_shield);
sendtoserverEX(PPName);
a:=a+1;
end;
7: begin
delay(BuffTime);
buf:=hstr(blessHP);
sendtoserverEX(PPName);
a:=a+1;
end;
8: begin
buf:=hstr(wind_walk);
sendtoserverEX(PPName);
a:=a+1;
end;
9: begin
delay(BuffTime);
buf:=hstr(Magic_Barier);
sendtoserverEX(PPName);
a:=a+1;
end;
10: begin
delay(BuffTime);
buf:=hstr(Bless_shield);
sendtoserverEX(PPName);
a:=a+1;
end;
11: begin
delay(BuffTime);
buf:=hstr(Concentration);
sendtoserverEX(PPName);
a:=a+1;
end;
12: begin
friend:=false;
x:=0;
a:=0;
buf:=#$38;
WriteS('Вы получили бафф мага. Спасибо и удачи!');
WriteD(0);
SendToServerEX(PPName);
end;
end;
end;
Procedure ShowHTML( _html : string );
begin
buf:=#$0F;
WriteD(5);
WriteS(_HTML);
SendToClientEX(OsnovaName);
end;
procedure MPoff;
begin
buf:=#$38;
WriteS('Ребята MP мало! Баффацо временно не советую. MegoPP отключена на время респа МР!');
WriteD(0);
SendToServerEX(PPName);
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToClientEX(PPName);
buffcan:=false;
end;
procedure MPon;
begin
buf:=#$38;
WriteS('МР было восстановленно! Можете продолжать баффаца.');
WriteD(0);
SendToServerEX(PPName);
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToServerEX(PPName);
buffcan:=true;
end;
procedure Free;
begin
timer1.Free;
end;
///////////////////////////////////////////////////////////////////

begin
if FromClient and (ConnectName=OsnovaName) and (pck=#$38#$73#$00#$00#$00#$03#$00#$00#$00) then
begin
ShowHTML(HTML);
end;

if FromClient and (ConnectName=OsnovaName) and (pck[1]=#$21) then
begin
Bypass:=ReadS(2);
case Bypass of
'MPoff' : MPoff;
'MPon' : MPon;
'friend' : friend:=true;
'friendoff' : friend:=false;
end;
end;
if buffcan then
begin
if FromServer and buffcan and (ConnectName=PPName) and (pck[1]=#$5E) and (x=0) and (a=0) then //Проверка на бафф. Если ПП уже кого то баффает то она отменит трейд.
begin
Target:=#$04+pck[2]+pck[3]+pck[4]+pck[5];
buf:=hstr('44 01 00 00 00');
sendtoserverex(PPName); //Если кинули трейд то принимаем
end;
if fromclient and (pck[1]=#$44) then
begin
pck:=''; {Тут какой то пакет из за которого, бывало клиент сбрасывал трейд. Поетому убиваем его.}
sendtoserverex(PPName);
end;
if fromserver and (pck[1]=#$21) and (ConnectName=PPName) then
begin
if friend then
begin
if pck[14]+pck[15]+pck[16]=#$01#$00#$00 then {Если ПП во фриенд режиме и в трейд положили 1 адену то..}
begin
buf:=hstr('17 01 00 00 00');//Принимаем трейд
prof:=2;
end;
end;
if pck[14]+pck[15]+pck[16]=#$F0#$49#$02 then {Если положили 150к то...}
begin
buf:=hstr('17 01 00 00 00');//Принимаем трейд и устанавливаем бафф в режим воина.
prof:=1;
end;
if pck[14]+pck[15]+pck[16]=#$F1#$49#$02 then {Если положили 150,001к то...}
begin
buf:=hstr('17 01 00 00 00');//Принимаем и устанавливаем бафф в режим мага
prof:=2;
end;
if prof=0 then buf:=hstr('17 00 00 00 00');//Если положили что то другое отменяем
sendtoserverex(PPName);
end;

if FromServer and (pck[1]+pck[2]=#$22#$01) then
begin
buf:=target;
sendtoserverex(PPName);
if prof=2 then
begin
a:=1;
prof:=0;
end;
if prof=1 then
begin
x:=1;
prof:=0;
end;
end;
end;
end.[/HTML]