Temat: [EverBot] Bot pod OriginalTibia i Tibianic - Oficjalny Temat

const
bl=$005C68B4;
bl_offset=156;
procedure stopattack;
var p: array [0..0] of byte; 
begin
p[0]:=$BF;
packet(p,1);
end;

procedure monk;
var i:integer;
begin
for i:=0 to 250 do begin
if (memreadstring(bl+(i*bl_offset))='Bonk') and (memreadinteger(bl+(i*bl_offset)+128)=100) then begin memwritestring(bl+(i*bl_offset),Monk',4); end;
if (memreadstring(bl+(i*bl_offset))='Monk') and (memreadinteger(bl+(i*bl_offset)+128)<50) then begin memwritestring(bl+(i*bl_offset),'Bonk',4);
stopattack;
end;
end;
end;

BEGIN
monk;
end.

var 
blank:integer;
begin
if getmana>1000 then begin
blank:=blank+1;
if blank < 20 then begin
say('czar');
end;
end;
end.

procedure dontkillme;
var i,adr,bl,bl_offset:integer;

begin
bl:=$005C68B4;
bl_offset:=156;

for i:=0 to 250 do
begin
adr:=bl+(i*bl_offset);
if memreadinteger(adr-4)=memreadinteger($5C684C) then continue;
if memreadinteger(adr+40)=playerz then
if (abs(memreadinteger(adr+32)-playerx)<7) and (abs(memreadinteger(adr+36)-playery)<7) then
if memreadinteger(adr+136)=1 then begin
//White lista
if memreadstring(adr)='Nick 1' then continue;
if memreadstring(adr)='Nick 2' then continue;
if memreadstring(adr)='Nick 3' then continue;
if memreadstring(adr)='Nick 4' then continue;
//Mozna dodawac potwory

//Koniec white listy
alarm; logout;
end;
end;
end; 

begin
if getmp>500 then say('adori vita vis');

dontkillme;
end.