[EverBot] Bot pod OriginalTibia i Tibianic - Oficjalny Temat

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 ?

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

Cytuj:

---

Pumpkin napisał

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 ^^

Cytuj:

---

BBsrv napisał

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ść

Cytuj:

---

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

---

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

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ź