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

procedure logout;
var 
p: array [0..0] of byte;
begin
  p[0]:=$15;
  packet(p,1);

end;

begin
   if getmp>10 then logout;
end.

procedure packet(packetbuffer:array of byte; len:integer);
procedure say(s:string);
procedure alarm;
function gethp:integer;
function getmaxhp:integer;
function getmp:integer;
function getmaxmp:integer;
function getcap:integer;
function getlabel:string;
procedure setlabel(s:string);
function gettargetblpos:integer;
function gettargetid:integer;
procedure jump(i:integer);
playerx:integer;
playery:integer;
playerz:integer;
targetx:integer;
targety:integer;
targetz:integer;
procedure gettarpos;
procedure memreadinteger(adr:integer);
function LongToByte(ii,aa:integer):integer;
procedure usewith(itemid,x,y,z:integer);
procedure moveslot(f,t,id,c:integer);
function iskey(code:byte):boolean
procedure useitem(itemid:integer);
procedure wait(ms:integer);

{
Lovely runemaker v1.0
Add to Protector -> Refill left hand this ID: 2260
Left open all backpacks with blank runes
Profit!
}
const
spell='adura vita';
mana=100;
id=2273;

//DONT EDIT LINES BELOW
CONTAINER_BEGIN                 = $005CEDD8;

procedure letmefeelyourlove;
var adr,i,volume,amount:integer;
p: array [0..16] of byte;
begin

if getmp>=mana then begin
if memreadinteger($005CEDA0-4)=2260 then begin

say(spell);

wait(1000);

for i:=0 to 10 do
begin
  adr:=CONTAINER_BEGIN+(i*492);
volume:=memreadinteger(adr+48);
amount:=memreadinteger(adr+56);
if (volume=0) or (volume>40) or (amount>40) then continue;
if volume=amount then continue;

p[0]:=$79;
  p[1]:=$ff;
  p[2]:=$ff;
  p[3]:=6;
  p[4]:=0;
  p[5]:=0;
  p[6]:=longtobyte(id,1);
  p[7]:=longtobyte(id,2);
  p[8]:=0;
  p[9]:=$ff;
  p[10]:=$ff;
  p[11]:=i+64;
  p[12]:=0;
  p[13]:=0;
  p[14]:=1;

packet(p,15);
break;



end;
end;
end;


end;

//HERE YOU CAN EDIT
BEGIN
letmefeelyourlove(); //DONT REMOVE IT

END.

procedure playeronscreen;
const
blstart=$5C68B4;
playerid=$5C684C; //Classicus
var
adr,i:integer;

begin

for i:=0 to 250 do
    begin
adr:=bl_start+(i*156);
if memreadinteger(adr-4)=memreadinteger(player_id) then continue;
      if memreadinteger(adr+40)=playerz then
        if (abs(memreadinteger(adr+32)-playerx)<7) and (abs(memreadinteger(adr+36)-playery)<7)
           if memreadinteger(adr+136)=1 then
             alarm;
     end;
end;


begin
//twoj skrypt
playeronscreen();

end.

const
bl_start=$5C68B4;
player_id=$5C684C; 
procedure playeronscreen;
//Classicus
var
adr,i:integer;

begin

for i:=0 to 250 do
    begin
adr:=bl_start+(i*156);
if memreadinteger(adr-4)=memreadinteger(player_id) 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
             alarm;
     end;
end;


begin
//twoj skrypt
playeronscreen();

end.