[EverBot] Bot pod OriginalTibia i Tibianic - Oficjalny Temat

Super Predator · 01-05-2014 14:29

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

vlammen · 01-05-2014 14:30

Super Predator napisał

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

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

karol1977-221 · 01-05-2014 14:36

da ktos skrypt na zakladanie life ringa ;)?

BBsrv · 01-05-2014 14:50

Super Predator napisał

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

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

vlammen · 01-05-2014 14:52

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 :(

BBsrv · 01-05-2014 14:53

vlammen napisał

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

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

vlammen · 01-05-2014 14:57

niestety dupa dalej spamuje nawet jak czysto na screenie

BBsrv · 01-05-2014 15:03

@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

aque · 01-05-2014 17:47

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 :(

aque · 02-05-2014 16:18

da rade zapisac waitponty ?

Pumpkin · 02-05-2014 17:03

Wie ktoś jak zrobić jednoczesne odpalenie skryptu na paru MC (albo w drużynie graczy?)
Chodzi o combo UE z wykorzystaniem multiklienta. Najlepiej jeśli za pomocą wiadomości tekstowej wyslanej na default albo innym kanale skrypt reagował by na tę wiadomość i odpalał UE.

@BBsrv

BBsrv · 02-05-2014 17:18

Pumpkin napisał

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

Wie ktoś jak zrobić jednoczesne odpalenie skryptu na paru MC (albo w drużynie graczy?)
Chodzi o combo UE z wykorzystaniem multiklienta. Najlepiej jeśli za pomocą wiadomości tekstowej wyslanej na default albo innym kanale skrypt reagował by na tę wiadomość i odpalał UE.

@BBsrv

jasne że się da, znajdź pointera od last message, pobierz last message, jeśli jest równa twojego tekstu wykonaj say(ue)
to tak w skrócie ^^

Pumpkin · 02-05-2014 18:48

BBsrv napisał

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

jasne że się da, znajdź pointera od last message, pobierz last message, jeśli jest równa twojego tekstu wykonaj say(ue)
to tak w skrócie ^^

czyli jak? ;p
bo we wbudowanych funkcjach nie ma takiej która zwraca ostatnią wiadomość

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

BBsrv · 02-05-2014 18:59

jak masz adres do last message, to memreadstring(adr) o ile w ogóle dodał do bota, bo na liście nie widzę, może tylko zapomniał wpisać na listę, trza poczekać na @LordCompi ;

anyway z tego co widze, to last message będzie chyba

$0071DE30 lub $0071DFF0

ale nie mam czasu teraz dokładnie szukać.

ofc mogę się mylić, dopiero się uczę =d

nazil1 · 03-05-2014 12:15

Część,

Mam problem, bot przestał "znajdować" klienta Tibii. Jak daję refresh nic się nie pokazuje, nie wyszukuje po nazwie, bo jak mam odpaloną stronkę ze słowem "Tibia" to także tego nie widzi.
System win 7, próbowałem otwierać ze zgodnością w innych systemach, ściągałem poprzednią wersję bota, robiłem reinstalkę i nic nie działa.

Wszystko było dobrze przez kilka dni i nagle po uruchomieniu kompa nie chce mi "odnaleźć" Tibii. Cały program wydaję się wczytywać normalnie.

http://imgur.com/z3s4gUg
Z góry dzięki za odpowiedź

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