[EverBot] Bot pod OriginalTibia i Tibianic - Oficjalny Temat

Bardzo błagam o skrypt, że przestaje bić monka jak jest yellow, a jak green zowu zaczyna, kurde bardzo ważna sprawa.

deleted

Cytuj:

---

H5N1 napisał

Bardzo błagam o skrypt, że przestaje bić monka jak jest yellow, a jak green zowu zaczyna, kurde bardzo ważna sprawa.

---

Pisze z palucha:

Kod:

---

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;

---

Sprawdz czy działa

wklejam do bota ten skrypt na logout i jak daje enable to wyskakuje error (25:1) unexpected end of file :/

@up Ogarnij skladnie pascala. Pewnie sama procedure wkleiłes, poza tym, wbudowałem funkcje logout()

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
alarm; logout;
end;
end;
end;
dontkillme();
END.

Na co to? Logout jak ktoś się pojawi?

Cytuj:

---

zpujb napisał

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
alarm; logout;
end;
end;
end;
dontkillme();
END.

---

niby tak tylko coś mam źle bo nie działa xd

Kod:

---

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
alarm; logout;
end;
end;
end;
//VVVVV
BEGIN
//^^^^
dontkillme();
END.

---

dziękuję bardzo :)

A daloby rade, zeby leczyl sie eksura od 200 do 300 hp, a jak mniej to exura gran/vita?

I uzywania manafluida gdy mana ponizej 300

Cytuj:

---

zbajgii napisał

A daloby rade, zeby leczyl sie eksura od 200 do 300 hp, a jak mniej to exura gran/vita?

I uzywania manafluida gdy mana ponizej 300

---

kod:

Cytuj:

---

if (gethp<300) and (gethp>200) then say('exura');
if gethp<201 then say('exura vita');
if getmp<300 then usewith(2006,playerx,playery,playerz);

---

Cytuj:

---

LordCompi napisał

Kod:

---

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
alarm; logout;
end;
end;
end;
//VVVVV
BEGIN
//^^^^
dontkillme();
END.

---

---

możesz mi połączyć ten skrypt z rune makerem?

begin

if getmp>120 then say('adori gran flam');
end.

Posiada ktoś skrypt na auto uh gdy hp spada ponizej 40%?

Cytuj:

---

Arcash napisał

możesz mi połączyć ten skrypt z rune makerem?

---

Kod PHP:

---

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 alarm; logout; end; end; end; //VVVVV BEGIN //^^^^ dontkillme(); if getmp>120 then say('adori gran flam'); END.

---

@Arcash ;