[EverBot] Bot pod OriginalTibia i Tibianic - Oficjalny Temat

[H5N1]

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

[Wojtczak]

deleted

[Lord OPPremium]

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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:

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

[zpujb]

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

[Lord OPPremium]

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

[zpujb]

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.

[H5N1]

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

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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.

[zpujb]

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

[Lord OPPremium]

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.

[zpujb]

dziękuję bardzo :)

[zbajgii]

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

[Lord OPPremium]

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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:

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);

[Arcash]

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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.

[Ywawrk Saj]

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

[BBsrv]

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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

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 ;