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

    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 begin
if (abs(memreadinteger(adr+32)-playerx)<7) and (abs(memreadinteger(adr+36)-playery)<7) then begin
if memreadinteger(adr+136)=1 then begin
//White lista
if memreadstring(adr)='XX' then continue;
if memreadstring(adr)='XXX' then continue;
if memreadstring(adr)='Talesia' then continue;
if memreadstring(adr)='Nick 4' then continue;
//Mozna dodawac potwory

//Koniec white listy
alarm; logout;
end; end; end;
end;
end;
         
begin
if getmp>500 then say ('adura vita');
  dontkillme(); 

end.