[EverBot] Bot pod OriginalTibia i Tibianic - Oficjalny Temat

@BBsrv

trening pallkim na 2 monkach gdy jeden monk ma malo hp zmienia cel na drugiego monka a jak obaj maja malo to zeby przerywal atak

Cytuj:

---

Pumpkin napisał

@BBsrv

trening pallkim na 2 monkach gdy jeden monk ma malo hp zmienia cel na drugiego monka a jak obaj maja malo to zeby przerywal atak

---

to na pewno nie działa? w ogóle użyłeś tych funkcji czy tylko je stworzyłeś XD?

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;

BEGIN
monk;
end.


---

@Pumpkin ;

musisz dodac jedna bardzo wazna rzecz tzn
jesli ma cos na targecie / bije cos to wylacza cave bota bo wtedy chodzi i bije a to chujnia wielka ;s

lepiej zebys wbudowal opcje jak walenie z run i leczenie bo mi bot chodzi jak pojebany na tych skryptach cofa sie 3x na ten sam wpt jakies glupoty jak zamulony XD

Cytuj:

---

begin
if gethp>160 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end;

---

moze ktos tego skrypta tak zrobic zeby bil tylko wtedy kiedy jest cos zaznaczone ? naprzyklad cyc..
bo teraz wali a nic nie ma zaznaczone wysyla pakiety niepotrzebnie.. i laguje

Cytuj:

---

begin
Packet send: 11 00 84 FF FF 41 00 00 07 09 00 00 00 00 00 00 63 00 01
Packet send: 11 00 84 FF FF 40 00 00 07 09 00 00 00 00 00 00 63 00 01
Packet send: 11 00 84 FF FF 41 00 00 07 09 00 00 00 00 00 00 63 00 01
Packet send: 11 00 84 FF FF 40 00 00 07 09 00 00 00 00 00 00 63 00 01
Packet send: 11 00 84 FF FF 41 00 00 07 09 00 00 00 00 00 00 63 00 01

---

Cytuj:

---

begin
if gethp>160 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end;

if gethp<140 then say('exura vita');
end.

---

jak zamienic kolejnosc ja robie i niedziala ;(

Pytanie do osoby, która jest obeznana w temacie?

O co chodzi z tym klientem, że inne boty go nie widzą, pomieszali coś z pakietami?

Cytuj:

---

Kapi-Ziom napisał

Pytanie do osoby, która jest obeznana w temacie?

O co chodzi z tym klientem, że inne boty go nie widzą, pomieszali coś z pakietami?

---

zapewnie po prostu zmienili class z tibiaclient na jakąś swoją a raczej wszystkie boty wlasnie szukają po procesach o danej klasie

Mam problem z cave botem zacina mi uhy raz zostawiłem ek i fajnie przez noc mi expił wbiło mi z 87 na 94 to samo próbowałem z palem i assasin star ręcznie wrzucałem co 1h-2h chętnie bym prosił o skrypta który za mnie będzie zakładał na lewą lub prawą rękę ale do rzeczy i około 8 rano nie usłyszałem alarmu że spadło hp poniżej hp co bot leczy i padłem a jeszcze było 7 bp uh otwartych czym to może być spowodowane?i w sumie próbowałem na wiele sposobów ustawić żeby wchodził do góry po linie i na dół ale nie ma takiej opcji :(
begin
if gethp<900 then
usewith(2273,playerx,playery,playerz);

if gethp<500 then alarm;

if getmp>400 then say ('utani hur');
end.
Takich skrypcików używałem na ek i było super na pala zmniejszyłem tylko
begin
if gethp<500 then
usewith(2273,playerx,playery,playerz);

if gethp<350 then alarm;

if getmp>400 then say ('utani hur');
end.
gdzie dzięki alarmowi kilka razy się uleczyłem co jest przyczyna takiego błędu który jest kosztowny??

Cytuj:

---

4)3. Chyba nie da sie jeszcze sprawdzac itemcounta, wiec jedynie jesli da sie tworzyc blanki

---

A jeśli zamiast itemcounta wstawic zmienna i samemu przeliczyc blanki na początku?

Cytuj:

---

DobroSon napisał

A jeśli zamiast itemcounta wstawic zmienna i samemu przeliczyc blanki na początku?

---

w sensie coś w stylu ze wlaczasz ustawiasz np ze masz 20 blanków i tylko 20 razy ten czar rzuci?

spróbuj coś takiego

Kod:

---

var
blank:integer;
begin
if getmana>1000 then begin
blank:=blank+1;
if blank < 20 then begin
say('czar');
end;
end;
end.

---

nie wiem czy bedzie działać, ale spróbuj

Potrzebuje skryptu na logout kiedy gracz na ekrania.

Cytuj:

---

karol1977-221 napisał

Potrzebuje skryptu na logout kiedy gracz na ekrania.

---

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
//White lista
if memreadstring(adr)='Nick 1' then continue;
if memreadstring(adr)='Nick 2' then continue;
if memreadstring(adr)='Nick 3' then continue;
if memreadstring(adr)='Nick 4' then continue;
//Mozna dodawac potwory

//Koniec white listy
alarm; logout;
end;
end;
end;

begin
if getmp>500 then say('adori vita vis');

dontkillme;
end.

---

+white lista (NPC i monstery też alarmuje/loga, a więc jak stoisz przy jakimś NPC/monsterze to musisz go dodać do white listy)
+alarm
+czar

Ponawiam pytanie
Mam problem z cave botem zacina mi uhy raz zostawiłem ek i fajnie przez noc mi expił wbiło mi z 87 na 94 to samo próbowałem z palem i assasin star ręcznie wrzucałem co 1h-2h chętnie bym prosił o skrypta który za mnie będzie zakładał na lewą lub prawą rękę ale do rzeczy i około 8 rano nie usłyszałem alarmu że spadło hp poniżej hp co bot leczy i padłem a jeszcze było 7 bp uh otwartych czym to może być spowodowane?i w sumie próbowałem na wiele sposobów ustawić żeby wchodził do góry po linie i na dół ale nie ma takiej opcji :(
begin
if gethp<900 then
usewith(2273,playerx,playery,playerz);

if gethp<500 then alarm;

if getmp>400 then say ('utani hur');
end.
Takich skrypcików używałem na ek i było super na pala zmniejszyłem tylko
begin
if gethp<500 then
usewith(2273,playerx,playery,playerz);

if gethp<350 then alarm;

if getmp>400 then say ('utani hur');
end.
gdzie dzięki alarmowi kilka razy się uleczyłem co jest przyczyna takiego błędu który jest kosztowny??

Bot skanuje pierwsze 6 backpacków w poszukiwaniu itemów, temu

Cytuj:

---

BBsrv napisał

to na pewno nie działa? w ogóle użyłeś tych funkcji czy tylko je stworzyłeś XD?

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;

BEGIN
monk;
end.


---

@Pumpkin ;

---

ja w ogóle nie rozumiem tego kodu ani go nie analizowałem, ktoś napisał że to do skillowania na monku przerywa atak jak yellow hp no to wklejam i się nie kompilujee... Dodałem apostrof tam gdzie pojawial sie blad kompilacji ale teraz znów jakieś inne błędy
@BBsrv

Cytuj:

---

Pumpkin napisał

ale teraz znów jakieś inne błędy

---

no to może z łaski swojej powiedz jakie te błędy? czy ja wyglądam na jasnowidza? @Pumpkin ;

hm sekunda, bo si już kompiluj ale cos jest jeszcze nei tak, czy targeting ma byc wlaczony ?

No i wpisz tam Monk

No to atakuje, bije do yllow hp, zminia name na Bonk ale bot nie zmienia celu na monka z green hp tylko czeka az tamten bedzie green, a do tego si zcina bijąc cały czas i nie bije płynnie tylko z przerwami krótkimi

Skrypcik na zbieranie kasy z potworków bo cave nie zbiera

Witam mam mały problem...

A wiec tak mam windows 8 pobrałem tego bota i nie chce sie w ogole włączyć dodam że gram na ots tibianic.org ale to zapewne wiadome z gory bardzo dziekuje za pomoc. Pozdrawiam

Ten bot nie działa pod Tibianiciem, moze dlatego

A nie wiesz czy pod ten ots (TIBIANIC) jest jakis kolwiek bot dzialajacy na systemi WIN8?

Cytuj:

---

krzysiekk1 napisał

A nie wiesz czy pod ten ots (TIBIANIC) jest jakis kolwiek bot dzialajacy na systemi WIN8?

---

nie ma żadnego bota pod tibianica z tego co mi wiadomo, a tym bardziej pod win8

Cytuj:

---

BBsrv napisał

nie ma żadnego bota pod tibianica z tego co mi wiadomo, a tym bardziej pod win8

---

Jest(był?), ClassicBotter2 ale jego autor dodał do niego 'niespodziankę' także nie polecam ; d

Jest już wersja 2.0!
http://everbot.pl/showthread.php?tid=50

@up
Dokladnie, mialem pisać.

Ulepszony skrypt na skillowanie na monku (wersja 1.4)

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; cleartarget;
end;
end;
end;

BEGIN
monk;
end.

---

@LordCompi lub ktokolwiek.

Czy jest funkcja (lub jakaś inna możliwość) na ruch postaci?
Np.

Kod:

---

if gethp<245 then moves;

---

Coś takiego by mnie interesowało. Po prostu chce żeby moja postać chowała się do domku.

Danielu, pod jaką zmienną trzymasz hwnd? @LordCompi ;

@Dym ;
jak już będziesz wiedział jak trzyma hwnd to wtedy robisz sobie
if gethp<245 then begin
sendmessage(core.tibiaHwnd,WM_KEYDOWN,vk_up,0);
sendmessage(core.tibiaHwnd,WM_KEYUP,vk_up,0);
end;

vk_up = strzałka do góry
tu masz listę wszystkich keyi http://msdn.microsoft.com/en-us/library/ms927178.aspx
lub możesz sobie wziąć ze gdy player na ekranie czy cokolwiek innego

Trzeba wyslac pakiet move. Jest to podobna funkcja jak stopattack w powyzszym poscie, ale p[0] bedzie inne

@lord compi

masz problemy, albo ktokolwiek, że podczas gry z tibia classic control gdy bot robi anty-logout czyli klika CTRL+strzałka lewo, prawo. BOT ZACINA KLAWIATURE!? Wtedy jak klikam na ziemie czy na uhy żeby się leczyć pisze you see ultimate healing rune, you see dirt, itp itd. napierdalanie w ctril>alt>shift pomaga czasem i odcina klawiature, ale padłem przez to i chce wiedziec, czy da sie to ogarnac jakos?

Co do anty-logouta, to fajnie byłoby jakby była możliwość włączania i wyłączania tego, a nie expiąc sobie obracam się jak jakiś nienormalny (przez co zacinam się na sekundę).

Da radę żeby bot sam wkładam blank z otwartego plecaka do ręki i robił uha :x?

Cytuj:

---

Spiryt94 napisał

Da radę żeby bot sam wkładam blank z otwartego plecaka do ręki i robił uha :x?

---

Wystarczy ze masz blanki w bp

Cytuj:

---

Dym napisał

Co do anty-logouta, to fajnie byłoby jakby była możliwość włączania i wyłączania tego, a nie expiąc sobie obracam się jak jakiś nienormalny (przez co zacinam się na sekundę).

---

+1 tak samo jak te opcje jedzenia fooda w pierwszej zakladce antylogout powinno miec opcje wlaczenia/wylaczenia.

Nie wiem czy tylko ja mam taki problem ale hotkeye z przedmiotami (np autouhem albo autosd) trzeba nie nacisnac (bo bot nic nei zrobi) ale przytrzymac i dopiero ich uzywa. A do tego ze sporym opoznieniem

up: ok dzieki, jest tylko problem z looterem, za cholere nie chce zbierac, nie zaleznie czy mam zalaczone eat food, change gold etc. caly czas "there is not enough room"

moglby ktos mi polaczyc 3 skrypty ? chce zeby byl alarm jak pojawi sie gracz , z white lista,robienie run gdy x many i exura vita gdy malo hp,chce zeby te skrypty mi dzialaly ;p

daj te skrypty to ci połącze, nie chce mi się pół tematu przeszukiwać. Jak chcesz, żeby ci coś połączyć z czymś, to daj te cosie ;d

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
//White lista
if memreadstring(adr)='Nick 1' then continue;
if memreadstring(adr)='Nick 2' then continue;
if memreadstring(adr)='Nick 3' then continue;
if memreadstring(adr)='Nick 4' then continue;
//Mozna dodawac potwory

//Koniec white listy
alarm; logout;
end;
end;
end;

begin
if getmp>300 then say('adori gran flam');

dontkillme;
end.



begin
if gethp<200 then say('exura vita');
end.


chcialbym zebys polaczyl exura vita do tego skrypta bo tam juz jest alarm i rune maker

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
//White lista
if memreadstring(adr)='Nick 1' then continue;
if memreadstring(adr)='Nick 2' then continue;
if memreadstring(adr)='Nick 3' then continue;
if memreadstring(adr)='Nick 4' then continue;
//Mozna dodawac potwory

//Koniec white listy
alarm; logout;
end;
end;
end;

begin
if getmp>300 then say('adori gran flam');

dontkillme;
end;



begin
if gethp<200 then say('exura vita');
end.



spróbuj tak. Nie wiem nie znam sie, ale patrząc na kod widze ze chyba w ten sposób to idzie.. Troche pomyśleć trzeba i popatrzeć .

@up
nie dziala to ale juz sam sobie to ogarnalem :)


ty,powiecie czemu mi nie zbiera hajsu do bp ? wpisuje normalnie id i nie zbiera .. expie na tombach i nie chce mi sie recznie hajsu zbierac XD

Moglby ktos zamienic kolejnosc zeby pierw leczyl oraz przed waleniem z hmm zeby dopiero walil jak bd mial cos na targecie??

Cytuj:

---

begin
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end;

if gethp<110 then say('exura vita');
end.

---

begin
if gethp<110 then say('exura vita');
end;
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end.

Chyba będzie działać.. xD

Cytuj:

---

Super Predator napisał

begin
if gethp<110 then say('exura vita');
end;
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end.

Chyba będzie działać.. xD

---

nie dziala

da ktos skrypt na zakladanie life ringa ;)?

Cytuj:

---

Super Predator napisał

begin
if gethp<110 then say('exura vita');
end;
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end.

Chyba będzie działać.. xD

---

źle

Kod:

---

BEGIN
if gethp<110 then say('exura vita');
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end;
END.

---

@vlammen ;

ale pierw spróbuj ten,

Kod:

---


BEGIN
if gethp<110 then say('exura vita');
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
cleartarget;
end;
END.

---

@karol1977-221 ;
Zakładanie itemów jeszcze nie jest chyba możliwe

Kod:

---

BEGIN
if gethp<110 then say('exura vita');
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end;
END.

---

BBsrv
;

dzieki a moglbys jeszcze go tak przerobic zeby bil z hmm tylko jak cos jest na screenie albo ma draga na celowniku? targecie? zaznaczonego? bo spamuje jak glupi caly czas tego hmma nawet jak pusto na screenie a pakiety i lagi leca :(

Cytuj:

---

vlammen napisał

Kod:

---

BEGIN
if gethp<110 then say('exura vita');
if gethp>110 then begin
gettarpos;
usewith(2311,targetx,targety,targetz);
end;
END.

---

@vlammen ;

dzieki a moglbys jeszcze go tak przerobic zeby bil z hmm tylko jak cos jest na screenie albo ma draga na celowniku? targecie? zaznaczonego? bo spamuje jak glupi caly czas tego hmma nawet jak pusto na screenie a pakiety i lagi leca :(

---

@vlammen ;
Sprawdź ten drugi, który edytowałem w poście, powinno działać tak jak chcesz

niestety dupa dalej spamuje nawet jak czysto na screenie

@LordCompi ;
zrób,
procedure istargeting:boolen;


co by zwracała czy atakujesz coś czy nie (czy masz zaznaczone)

ułatwiłoby to życie ludziom =d

powie mi ktos czemu jak ustawiam zeby zbieral gp to nie zbiera ?

Expie recznie na tombach i otwieram i nic nie zbiera,probowalem z 1 bp i nic nie zbiera :(

da rade zapisac waitponty ?