[EverBot] Bot pod OriginalTibia i Tibianic - Oficjalny Temat

H5N1 · 23-04-2014 01:23

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

Wojtczak · 23-04-2014 15:04

deleted

Lord OPPremium · 23-04-2014 16:49

H5N1 napisał

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:

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

zpujb · 23-04-2014 17:02

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

Lord OPPremium · 23-04-2014 17:09

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

zpujb · 23-04-2014 17:56

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 · 23-04-2014 17:58

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

zpujb napisał

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 · 23-04-2014 17:59

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

Lord OPPremium · 23-04-2014 19:26

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.

zpujb · 23-04-2014 19:28

dziękuję bardzo :)

zbajgii · 23-04-2014 20:01

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 · 23-04-2014 20:04

zbajgii napisał

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 · 25-04-2014 13:08

LordCompi napisał

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

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.

Ywawrk Saj · 25-04-2014 14:36

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

BBsrv · 25-04-2014 15:21

Arcash napisał

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

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 ;

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

Narzędzia tematu

Oceń ten temat

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

[Neutral Bot] Oficjalny temat

[RED BOT PRO] Oficjalny temat

[Blue Bot] Oficjalny temat - Niedługo Dice Script

[Ax Bot] Oficjalny temat

Zakładki

Zakładki

Zasady postowania