Скрипт не полностью мой, дорабатывал чужие идеи, добавлял свои, в основном все копирайте сохранил
delphi Код:
//исходник 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.
28.08.2008, 16:44
Бот баффер
Древовидный вид