Jak napisać własne macro do Tibii

Siemka, nie rozumiem co w sobie ma ta biblioteka packet.dll, jak ją ominąć, nie chce ściągać żadnych packet... ponieważ mogą być brudne ;p (do nowszych versji)
Co napisać żeby cokolwiek wysłac z bota do gry np żeby zrobił krok w prawo nie używając przy tym biblioteki packet.dll


narazie napisałem coś takiego:
procedure TForm1.Button5Click(Sender: TObject);
var
PacketBuffer: array [0..200] of byte;
ProcessID: Cardinal;
begin
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), @ProcessID);
PacketBuffer[0] := $01;
PacketBuffer[1] := $00;
PacketBuffer[2] := $66;
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);
end;

Ale postac nic nie robi, pakiety nie przychodza...
< SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);> do tego potrzebna jest chyba procedura, jak ją napisać i cokolwiek zrobić żeby pominąć te packet.dll???

Cytuj:

---

fets napisał

Siemka, nie rozumiem co w sobie ma ta biblioteka packet.dll, jak ją ominąć, nie chce ściągać żadnych packet... ponieważ mogą być brudne ;p (do nowszych versji)
Co napisać żeby cokolwiek wysłac z bota do gry np żeby zrobił krok w prawo nie używając przy tym biblioteki packet.dll


narazie napisałem coś takiego:
procedure TForm1.Button5Click(Sender: TObject);
var
PacketBuffer: array [0..200] of byte;
ProcessID: Cardinal;
begin
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), #ProcessID);
PacketBuffer[0] := $01;
PacketBuffer[1] := $00;
PacketBuffer[2] := $66;
SendPacket(ProcessID, #PacketBuffer, TRUE, FALSE);
end;

Ale postac nic nie robi, pakiety nie przychodza...
< SendPacket(ProcessID, #PacketBuffer, TRUE, FALSE);> do tego potrzebna jest chyba procedura, jak ją napisać i cokolwiek zrobić żeby pominąć te packet.dll???

---

packet.dll stał się popularny z prostego powodu. Ktoś zrobił coś co nie jest trywialne i dał to w postaci umożliwiającej korzystanie z tego. Jest to cały zestaw, który umożliwia wysyłanie pakietów przez połączenie z tibią z zewnętrznej aplikacji. Natomiast jeśli się nie mylę packet.dll został wydany wraz ze źródłem - możesz więc spróbować je odnaleźć( zacznij od tpforums ).

Aha, a jest jakaś comenda czy coś w tym stylu żeby udało się wysłać z bota do gry bez pomocy packet.dll żeby zrobił ten 1 mały kroczek ;p?? Czy musi być ten plik... bo raczej nie dowiemy się jak go napisać :P

a co jesli adresy się zmieniają po ponownym uruchomieniu gry? napisalem pewien chat na pewną grę, wyciągnołem z niej adresy programem CE, wszystko ładnie działa ale okazuje się ze adresy się zmieniają po restarcie gry. macie jakieś pomysły ?

Cytuj:

---

fets napisał

Aha, a jest jakaś comenda czy coś w tym stylu żeby udało się wysłać z bota do gry bez pomocy packet.dll żeby zrobił ten 1 mały kroczek ;p?? Czy musi być ten plik... bo raczej nie dowiemy się jak go napisać :P

---

Poszukałem i znalazłem źródło packet.dll dla tibii 8.22. Ale złe wieści: jest w asemblerze, wieć próby zrozumienia tego zwykle zakończą się niepowodzeniem. :P
http://www.tpforums.org/forum/showthread.php?t=16

@down: skompilować.

Cytuj:

---

lanky napisał

a co jesli adresy się zmieniają po ponownym uruchomieniu gry? napisalem pewien chat na pewną grę, wyciągnołem z niej adresy programem CE, wszystko ładnie działa ale okazuje się ze adresy się zmieniają po restarcie gry. macie jakieś pomysły ?

---

To znaczy, że są to struktury dynamiczne. A zatem gdzieś w innym miejscu w pamięci musi być wskaźnik na początek tej struktury. Odkrycie gdzie zwykle wymaga spędzenia pewnej ilości czasu na próbach i zgadywaniach, ewentualnie na analizie działania programu w debuggerze.
Jest to trudna umiejętność i polecam udać się na forum zajmujące się tą dziedziną.

o fajnie dzięki ;p co prawda nic z tego nie rozumiem.. :D a czy jest udostępniona przez niego versja pod 8.4?
BTW :
jak zapisac plik z asemblera na .dll ?:P

Doszedłem tylko d tego rozdziału gdzie po wszystkim bot pokazuje lvl, skille itp. Niestety, już na tym się zatrzymałem, bot nie pokazuje prawidłowych liczb :/ Dodam, że jeszcze nie pobierałem żadnego packet.dll a więc moje pytanie: Czy już na tym etapie musi być ten plik zastosowany?

Z każdym upem adresy sie zmieniaja, masz tu kilka do przetestowania ;

Cytuj:

---

Full hp
62BD28
Aktualne hp
62BD2C
Full mana
62BD0C
Aktualna mana
62BD10
Cap
62BD00
Exp
62BD24
MLVL
62BDBC
albo
62BD1C
(nie wiem które, ale jak szukałem adresów to obydwa wyświetlały poprawną wartość)
lvl
62BD20

---

Joozioom, dzięki. Wszystko działa :) Mógłbyś mi powiedzieć skąd ty to wziąłeś? ;o I jeszcze jedno, za co odpowiedzialny jest LevelPerc?

Odświeżam
Bardzo mi są potrzebne te inne adresy... Powiedzcie skąd wy je bierzecie?!

Cytuj:

---

Gniew_Mroku napisał

To znaczy, że są to struktury dynamiczne. A zatem gdzieś w innym miejscu w pamięci musi być wskaźnik na początek tej struktury. Odkrycie gdzie zwykle wymaga spędzenia pewnej ilości czasu na próbach i zgadywaniach, ewentualnie na analizie działania programu w debuggerze.
Jest to trudna umiejętność i polecam udać się na forum zajmujące się tą dziedziną.

---

Albo można też skorzystać z Cheat Enginge który bardzo łatwo pozwala nam znaleźć wskaźniki "Pointery" o których mowa ;)
Ogólnie to każdemu kto ma jakiekolwiek problemy z szukaniem adresów w pamięci polecam Cheat Engine

Jeśli tak bardzo go polecasz to może byś opisał mi jak z niego korzystać? ;p

Cytuj:

---

Adam147852369 napisał

Jeśli tak bardzo go polecasz to może byś opisał mi jak z niego korzystać? ;p

---

Zachowujesz się jak typowy noob a nie newbie... google.pl i szukaj. Co po angielsku jest? To teraz powiem tak - zamiast strugac programiste lepiej sie angielskiego poucz, na zdrowie Ci wyjdzie

spoko temacik gz

Ok, ale jak teraz wyszukać adres nicku postaci? Chodzi o distance_name itp. Przecież nie mogę wyszukiwać swojego nicku itp -.- Muszę wpisywać cyfry :/

joooziom prosze napisz jak to robisz (cheat engine??)

Znaleźć adresy to najmniejszy problem... Cheat Engine jest tylko potrzebny.

Czy muszę zmienić plik Packet.dll jak robię bota na 8.4?

@up
Packet.dll musi być pod 8.4

ja korzystam z tsearch, program oferuje szukania zarówno po HEX, jak po konkretnym kodzie ASCII. (HEX to nie liczby tylko zakodowane chary). Mi do znajdywania podstawowych wartosci wystarcza. Wraz z nowa wersja zmienia sie tez packet.dll .

A gdzie znajdę czysty Packet.dll na 8.4? Szukałem trochę na necie ale nie znalazłem :/

@edit

Wygrzebałem packet.dll z jakiegoś innego bota xd
Może komuś się przyda: www, megaupload, com/?d=9POS5PLK

zaglądaj często w ten temat
http://www.tpforums.org/forum/showthread.php?t=2491
jest tam wlasnie najswiezszy packet.dll
:)

ja mam pytanie JAK szukać battle list start i end
jaka jest procedura szukania kodu odpowiadajacemu im
w cheat engine (lub innym pr)
i jak stwierdzic co dokladnie jest jej poczatkiem(ja szukam wpisujac szukanie nicku mojej zalogowaniej postaci ale nie wiem co uznac za poczatek i koniec battle list

Witam.

Może mi ktoś podać adres Player_ID do 8.41 ? : )

Proszę?

@edit
Czeka nagroda! : )

@edit2
sam znalazlem. jak ktos potrzebuje pomocy to pisac.

Jak zamienić pakiet wygenerowany, np. w N Bot (np. 0C 00 FC 02 D7 0C 01 00 67 18 0E 17 B7 EF) tak, aby zapisać go w Delphi?

cześć...jestem początkującym programistom i chciałbym się spytać
czy byście mi przetłumaczyli ten poradnik jest troche trudny do zrozumienia. ;(

h t t p://chuligan.wordpress.com/about/

jak przetlumaczyc? Jest wszystko jasno wytłumaczone.
Może lepiej zajmij sie układaniem klocków ;)

Dalej proszę o odpowiedź na moje poprzednie pytanie ;)

w tym poradniku procedura say.
Dla kazdego hexa oddzielne miejsce w tablic PacketBuffer.
A tu masz jeszcze ang tutorial o tym
http://tpforums.org/forum/showthread...list+procedure
pozdro

Prosiłbym o pomoc w wyciągnięciu nicku.
Otóż mam taki kod, takie adresy i niestety nicku nie otrzymuje w wiadomości, tylko jakieś znaczki...

Oto kod:

Kod:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  PLAYER_ID = $631D90;
  Battlelist_start = $631DF0;
  Distance_name = $631D48;

implementation

{$R *.dfm}

function MemReadString(Address: Integer): String;
var
NB : LongWord;
Temp : ARRAY [1..255] OF Byte;
I : Byte;
IDProcess, proc_ID : Cardinal;
begin
GetWindowThreadProcessID(FindWindow('TibiaClient', nil), #proc_ID);
IDProcess := OpenProcess(PROCESS_ALL_ACCESS, false, proc_ID);
Result := '';
ReadProcessMemory(IDProcess, Ptr(Address), #Temp[1], 255, NB);
for I := 1 to 255 do
begin
if ((Temp[i] = 0) or (Temp[i] = $0F)) then
Break;
Result := Result + Chr(Temp[i]);
end;
end;

function ReadMemInteger(Address: Cardinal): Cardinal;      adress:value
var
ProcId: Cardinal;
tProc: THandle;
NBR: Cardinal;
value:integer;
begin
    GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), #ProcId);
    tProc:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcId);
    ReadProcessMemory(tProc, Ptr(Address), #value, 4, NBR);
    CloseHandle(tProc);
    Result:=value;
end;

function pozycja:integer;
var
i,id_battle,id:integer;
begin
id:=readmeminteger(Player_id);
for i:=1 to 149 do 
Begin
id_battle:=Readmeminteger(Battlelist_start + (i*160)-4); 
if id_battle=ID then
Begin
Result :=i;
exit;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(MemReadString(BattleList_Start+pozycja*160+Distance_name));
end;

end.

---

Czy powodem tego są błędne adresy stałych?
Proszę o pomoc!

sproboj zmienic linijke
showmessage(MemReadString(BattleList_Start+pozycja *160+Distance_name));
na
showmessage(MemReadString(BattleList_Start+pozycja *160));
ewentualnie
showmessage(MemReadString(BattleList_Start+pozycja *160+4));

przedewszystkim błąd jest w stałej Distance_name, jej założeniem była wartość dziesięetna (generalnie wszystkie distance sa od 0 do 160 bo potem jest juz kolejna osobe w battle liscie).
Z tego co widze podałeś poprostu wartość równą adresowi komórki która odczytałes za pomoca Tsearch. pozdro.

Poradnik, nie powiem, przydał się. Jest dosyć ładnie wyłożony z wyjątkiem punktu piątego. Jeśli chodzi o pakiety - nie kminie ich. Widzę przed sobą elegancki bocik z wieloma prywatnymi funkcjami, ale brak tu jednej rzeczy: poprawnej funkcji mówienia. Używam tej podanej, nie przerabiam(ze względu na brak znajomości pakietów). Chcę ujrzeć dowolny text, byleby był. Wersja klienta: 8.41, funkcja do mówienia:

Kod:

---

procedure say2(text:string);
var
PacketBuffer: array [0..200] of byte;
ProcessID: Cardinal;

begin
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), @ProcessID);

PacketBuffer[0] := Byte(Length(text) + 4);
PacketBuffer[1] := $00;
PacketBuffer[2] := $96;
PacketBuffer[3] := $01;
PacketBuffer[4] := Byte(Length(text));
PacketBuffer[5] := $00;
CopyMemory(@PacketBuffer[6], @text[1], Length(text));
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);
end;

---

Oczywiście są małpki zamiast hashy.

Czy wartości podane się zmieniają? Czy robi różnicę testowanie na kliencie ze zmienionym ip, a rl(tibia/ots).

Jak naprawić to gówno? Żeby pokazało chociaż "napis" w grze. Będę do usranej śmierci wdzięczny ;D

Leatsis.

Za dużo kombinowania moim zdaniem :P lepiej zassać jakies TA, Ng czy zakupić blackd ;> ale ja juz nie boce ;< 70 ek deleted

Witam all !

Da rade zrobić macro na 7.4 tibie czy nie :) ??

Nergal:
Oczywiście, że się da. Można tym sposobem zrobić macro pod prawie każdy game, tylko musisz mieć odpowiednie adresy i trochę rozumu.


Zna ktoś rozwiązanie na mój problem? Jeszcze raz: czy pakiety do say'a są inne w rożnych wersjach klienta??

Lea~

Cytuj:

---

Mosso Jassen napisał

Nergal:
Oczywiście, że się da. Można tym sposobem zrobić macro pod prawie każdy game, tylko musisz mieć odpowiednie adresy i trochę rozumu.


Zna ktoś rozwiązanie na mój problem? Jeszcze raz: czy pakiety do say'a są inne w rożnych wersjach klienta??

Lea~

---

Pakiety są takie same, lecz adresy są inne.

Cytuj:

---

Kambel napisał

Pakiety są takie same, lecz adresy są inne.

---

jakie adresy w procedurze say nie ma adresów a jedynie wartości pakietów. Masz najnowszego packet.dll ? On niedawno się zmienil i nie korzysta z 4 parametrów, tylko z 2, mozesz w assemblerze sprobować zrobic packet.dll na te twoje 4 wartosci, ja po prostu zmienilem procedure. Tu masz moj przyklad:

begin
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), @ProcessID); //pobranie id procesu Tibii

PacketBuffer[0] := Byte(Length(text) + 4); //tu okreslana jest dlugosc pakietu bez 0 i 1
PacketBuffer[1] := $00;
PacketBuffer[2] := $96;
PacketBuffer[3] := $01;
PacketBuffer[4] := Byte(Length(text));
PacketBuffer[5] := $00;
CopyMemory(@PacketBuffer[6], @text[1], Length(text));
SendPacket(ProcessID, @PacketBuffer); // tu program wysyla pakiet do programu z proces id = ProcessID
end;

jak widzisz send packet sie znacznie zmienil.
a w tej chwili wyglada ona u m nie tak:
procedure SendPacket(ProcessID: Cardinal; Packet: Pointer); stdcall; external 'packet.dll';
jak widzisz troche się zmienilo. Packet.dll od Tibi bodajze 8.21 + zostal tak napisany ze należy w ten sposób z niego korzystać.

Mi coś nie działa chciałem zrobić bota tylko na spell caster exura vita
zmieniłem wartości adresów pod 7.6 pokazuje mi ile mam many i teraz wpisuje do Tedit exura vita potem do spinedit np 6000 , klikam na button 4 i nic mam więcej albo mniej many to nic się nie dzieje

packed.dll mam z MPA bota z 7.6 nie wiem czy to dobrze ale caly skrypt mam dobrze bo pobrałem go z tego tematu i tylko zamieniłem wartości

mam pytaniejak wlaczyc tibie auto pod MC mam otwarta tibie , pozniej tibia auto i daje w tibvi auto inject to MC jakos tak i pisze costam ze succesful i wlaczam mc i nie dziala ;/
help

Chciałbym zrobic bota do auto logowania...
jakie adresy sa do pol account name i password? czy to na pakietach sie robi?

Prosze o pomoc,
dzieki.

siemq, nikt nie poda Ci adresów login name i password bo potem dzieci by to zobaczyly i probowaly robic pro keyloggery xD. Moge Ci powiedzieć jedynie co Ci się przyda adres connection status. Bodajze 0 to off 1 to character list a 8 to logged user. Jak gdzies wygrzebie adres pod najnowsza Tibie to zaktualizuje posta.

Czemu gdy włączam bota to wywala mnie z gry? (wylogowuje)

błąd w proxy
got UNEXPECTED ERROR IN ID 1 (Subscript out of range) when client sent a packet . Description: Subscript out of range



Mam packet.dll z Mpa bota 7.6

Teraz bot wysyła jakąś procedurę ale gdy ją wyśle Tibia zacina się i trzeba dać exit jak patrzyłem na proxy to na początku wysyłał tą procedure a za nią z 15 linijek cyferek ????????????
POMOCY!

Jak odczytac adressy:

Cytuj:

---

Player_ID =
BATTLELIST_START =
BATTLELIST_END =
Distance_ID=
Distance_Type =
Distance_Name=
Distance_X =
Distance_Y =
Distance_Z =
Distance_HorizScreenOffset =
Distance_VertScreenOffset =
Distance_Chameleon =
Distance_Chameleon2 =
Distance_IsWalking =
Distance_Direction =
Distance_Outfit =
Distance_OutfitHead =
Distance_OutfitBody =
Distance_OutfitLegs =
Distance_OutfitFeet =
Distance_OutfitAddon =
Distance_LightColor1 =
Distance_LightColor2 =
Distance_LightPattern =
Distance_BlackSquare =
Distance_HP =
Distance_WalkSpeed =
Distance_IsVisible =
Distance_Skull =
Distance_Party =

---

Wiem że adressy w następnych wersjach tibi się zmieniają i czy tak samo jest z pakietami?
Oraz znacie jakieś inne poradniki ewentualnie fora?

Adresy 8.53

Kod:

---

public static uint Exp = 0x635F04; // 8.53     
public static uint GoToX = Exp + 80;       
public static uint GoToY = Exp + 76;       
public static uint GoToZ = Exp + 72;         
public static uint Id = Exp + 12;       
public static uint HP = Exp + 8;       
public static uint HPMax = Exp + 4;       
public static uint Level = Exp - 4;       
public static uint MagicLevel = Exp - 8;       
public static uint LevelPercent = Exp - 12;       
public static uint MagicLevelPercent = Exp - 16;       
public static uint Mana = Exp - 20;       
public static uint ManaMax = Exp - 24;         
public static uint Soul = Exp - 28;       
public static uint Stamina = Exp - 32;       
public static uint Cap = Exp - 36;         
public static uint Fishing = Exp - 52;       
public static uint Shielding = Exp - 56;       
public static uint Distance = Exp - 60;       
public static uint Axe = Exp - 64;       
public static uint Sword = Exp - 68;       
public static uint Club = Exp - 72;       
public static uint Fist = Exp - 76;

---

masz packet dll z Tibi 7.6 a Tibia jaka? Musisz miec packet.dll do odpowiedniej wersji Tibi, co do adresów najlepiej uzależnić wszystkie od 1 zmiennej i co update zmieniać tylko 1 wartość znaleziona (najprosciej znaleść exp). Strona o programowaniu w Tibii to http://tpforums.org/forum/index.php która juz pare razy podawałem.

Proszę o packet.dll pod tibie 7.6
Ten załączony do MPA bot wadliwie działa

wxw.dll-files.com/dllindex/dll-files.shtml?packet

Z tej strony można pobrać starą wersję:

#UP
nie trybi ten packet.dll

BARDZO PROSZĘ

O podanie mi takiej funkcji, że jak ktoś się pojawi na battle liście, to żeby wywalało mi KOMUNIKAT, nie dźwięk! + white list

Próbowałem pisać bota, ale przy kompilacji co chwilę mi wywala, że coś się nie zgadza -.- nie potrafie i tyle -.-'

Siema. Mam takie małe problemy:

1.Gdy naciskam na Start, ktore jest do spellsay to wychodzi mi bug gry. Wiem z innych postów ktore byly wcześniej, ze moze to być spowodowane nieaktualnym packet.dll Chce bota uzyć do klienta 8.54 a nigdzie nie moge znaleść poprawnego. Mógłby ktoś napisać strone jak zna do packet.dll do Tibi?(zwykle packety tez niedzialaja :/).
2. Jak wyciągnąć battlelist poczatek i koniec? Próbowalem szykac w cheatengine po nickach, ale szukało mi ID a nie to co jest w batle. Patrzylem równiez z potworami ale to samo. Mógłby ktoś pomoć?

Dzięki z góry