Jak napisać własne macro do Tibii

Wersja do druku

Pokaż 50 post(ów) z tego tematu na jednej stronie

26-12-2007, 02:00
MeNi

Nie za bardzo rozumiem o co chodzi z pakietami. W jaki sposób to działa? jak "przekonwenterować" text który ma wypowiedzieć na te.. cyferki xd Od czego to zależy, używasz może do tego jakiegoś programu, albo czegoś? Bo chciałbym przykładowo zrobić opcję otwierania dopiero co zabitego potwora. Skąd mój bot ma wiedzieć czy właśnie otworzył właściwego deda, czy może otworzył jednak jakiś bag leżący na ziemi, albo po prostu próbuje otworzyć trawę xd Jednym słowem potrzebuje więcej informacji dotyczących wysyłania pakietów.

@edit
Chodzi mi o to, jak np. wstawić do wysyłanego pakietu który odpowiada za otwieranie przedmiotów z ziemi pozycje itemu do otwarcia? Gdy pakiet wygląda tak:

Kod:

0A 00 82 [64 7D] [B6 7D] [06] [25 0B] 01 01

w nawiasach są kolejno pos.x itemu do otwarcia, pos.y , pos.z i id itemu. Jak uzupełnić to danymi które ja podam?

btw. Jest jakiś (w miarę prosty mam nadzieje) sposób żeby zapobiec wysyłaniu pakietów przez tibie do servera? Chodzi mi tu o to żeby Tibia nie odpowiadała na ping (dało by to możliwość wylogowania się z gry nawet jeśli posiada się "miecze" (Battle Sign)

Z góry dzięki za pomoc,
Pozdrawiam, MeNi.

@down
A masz packet.dll ?
26-12-2007, 18:17
teiky

Yaboo, bot mi sie sypie przez, gdy próbuję wysłać text, wiesz dlaczego?

Cytuj:

procedure say(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;
26-12-2007, 19:14
MeNi

Jak masz tak i niedziała to wyślij jaki błąd wyskakuje, będzie łatwiej pomóc...

Kod:

(...) implementation (...) // tutaj inne funkcje, ReadMemInteger, MemReadString, etc... procedure SendPacket(ProcessID: Cardinal; Packet: Pointer; Encrypt: Boolean; SafeArray: Boolean); stdcall; external 'packet.dll'; procedure say(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; // Po kliknieciu w Button1 mówi tekst procedure TForm1.Button1Click(Sender: TObject); begin say('Plx Fri Itens'); end;

Musisz też sciągnąć packet.dll i wgrac do folderu z botem.
29-12-2007, 18:50
MeNi

Odświeżam trochę ten temat, przy okazji pytam: Co tu jest źle?

Kod:

procedure podnies(posx: String; posy: String; posz: String); var PacketBuffer: array [0..200] of byte; ProcessID: Cardinal; intposx, intposy, intposz : integer; begin intposx := strtoint(posx); intposy := strtoint(posy); intposz := strtoint(posz); GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcessID); //pobranie id procesu Tibii PacketBuffer[0] := $0F; PacketBuffer[1] := $00; PacketBuffer[2] := $78; PacketBuffer[6] := $B0; PacketBuffer[7] := $0D; PacketBuffer[8] := $01; PacketBuffer[9] := $FF; PacketBuffer[10] := $FF; PacketBuffer[11] := $40; PacketBuffer[12] := $00; PacketBuffer[13] := $01; PacketBuffer[14] := $01; CopyMemory(@PacketBuffer[3], @intposx, Length(posx)); CopyMemory(@PacketBuffer[4], @intposy, Length(posy)); CopyMemory(@PacketBuffer[5], @intposz, Length(posz)); SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID end;

Nie za bardzo rozumiem, więc zrobiłem to trochę na wyczucie: ta procedura miała (dobre słowo - "miała") podnosić baga z pozycji którą podam. Niestety, nie podnosi :( Jak to poprawinei zrobić?

Wzorowałem się na tym:

Kod:

CopyMemory(@PacketBuffer[8],1234,4);

z tąd:

http://www.xcreations.net/~tpforums/forum/showthread.php?t=1080
30-12-2007, 10:36
>Herakles<

bardzo ciekawy poradnik...już odpalam delphi i sprubuję zrobić BOta ;]
poradnik jest bardzo przydatny ,gdyż po zrobieniu własnoręcznie takiego BOTa będziemy mieć pewność 10%% że nie jest zainfekowany.

@edit

Cytuj:

Ale dane są zapisane w różny sposób, nick to string, hp integer itp. Żeby odczytać te dane trzeba napisać 2 różne funkcje.

Odczytanie tekstu (string)

w tym momencie się zgubiłem....jak napisać? gdzie napisać? jak to się robi?

@down

co to jest? i z czym to się je?
30-12-2007, 11:00
MeNi

@up Wszystkie funkcje, procedury wpisujemy po

Kod:

implementation
02-01-2008, 13:55
Kakashi Sensei

Hmm... ładny poradnik, to wogóle był mój pierwszy program jaki napisałem, więc poradnik jest tak prosty, że nawet ktoś nie znający się na programowaniu sobie poradzi.

to wstępna wersja:
http://foteka.pl/full/1969c281853445...6a1fa94a88.jpg

@2down
w google wpisujesz delphi 7 proffesional i klikasz w trzeci link
03-01-2008, 18:15
Mandarke

Przenosze

@Pluton
Fajnie, że naprawiłeś temat, myślałem, że tylko ja sie w takie coś bawie ; D
04-01-2008, 15:14
konto usunięte

wiem ze mozecie mne uznac za nooba ale skad moge wziasc ten Delphi?

pozdro

nieumiem tego pobrac... podpowiedzcie cos plx ^^...
04-01-2008, 22:07
TripleX

Cytuj:

Cyklopinka napisał

wiem ze mozecie mne uznac za nooba ale skad moge wziasc ten Delphi?

pozdro

megapliki./plik-298-delphi-7-personal.html

Naciskasz na "Pobierz plik" i ci się sciąga. Zaprawdę szatanistyczna sztuczka!

#Topic
Nigdy nie byłem dobry w programowaniu totez teraz dobrnąłem do ligthacka tylko. Jakoś jak sie loguje, naciskam Start to nie śiweci xd Ale będę jeszcze próbował. Oczywiście 10/10.
05-01-2008, 17:03
konto usunięte

Witam,
Bardzo dobry poradnik, ale zgubiłem się w punkcie z pakietami, jeśli dobrze zrozumiałem to Client przesyła pakiety do servera, a w pakietach są zawarte dane taki jak, poruszenie się w lewo/prawo/do góry/na dół, atakowanie potwora/playera itd. Tak? Jak ma nam pomóc biblioteka packets.dll??

http://images23.fotosik.pl/135/2f2db7e922faee8f.jpg
I czy to co zaznaczyłem to są te pakiety o które chodzi???

@ DOWN
Po zarejestrowaniu sie na borland.pl dostaniesz na maila authorisation key i serial...
05-01-2008, 17:56
Eloelopjencdwazero

Przy instalacji Delphi 7 Personal pojawia się prośba o serial number i authorization key. Serial już mam, skąd wziąć authorization key?
05-01-2008, 23:29
konto usunięte

Witam
Mam takie pytanko.
Nie raz na różnych fotkach widać jak niektórzy w pasku tytułowym klienta Tibii mają podane ile expa potrzebują na następny poziom.

Wie ktoś jak coś takiego zrobić?
06-01-2008, 10:39
konto usunięte

Lol?

BATTLELIST_START = $60EB30 + 4;
BATTLELIST_END = $6148F4;

Niewiem gdzie to wpisac, nie czaje tych STAŁYCH odpowie mi na to ktos? Z góry dzienx

A i jeszcze cos, jak ma mi odcztywac ile man itp do wskakuja liczb~58 tys. i tego tez nei czaje. HELP

Cytuj:

Eloelopjencdwazero napisał

Przy instalacji Delphi 7 Personal pojawia się prośba o serial number i authorization key. Serial już mam, skąd wziąć authorization key?

jego tez masz razem z mailem ;]
06-01-2008, 12:43
konto usunięte

Cytuj:

Vivynus napisał

BATTLELIST_START = $60EB30 + 4;
BATTLELIST_END = $6148F4;

Niewiem gdzie to wpisac, nie czaje tych STAŁYCH odpowie mi na to ktos? Z góry dzienx

A i jeszcze cos, jak ma mi odcztywac ile man itp do wskakuja liczb~58 tys. i tego tez nei czaje. HELP

jego tez masz razem z mailem ;]

Stałe masz zdeklarowane pod slowem const, liczyby takie ci wyskakuja poniewaz nie odpaliles tibi...

@Edit

Hej, skad mamy wiedziec ktore liczby w pakietach sa odpowiedzialne za polozenie, ktore za slowa, ktore za name itp?? Mogli byscie dac jakis 'kurs' uzupelniania pakietow etc. ?
06-01-2008, 12:59
Kakashi Sensei

Cytuj:

Vivynus napisał

A i jeszcze cos, jak ma mi odcztywac ile man itp do wskakuja liczb~58 tys. i tego tez nei czaje. Help

1. Musisz mieć włączoną postać, aby program działał właściwie
2. Upewnij się, że kody, które wpisałeś są do odpowiedniej wersji Tibi (te które podał YabooMaster są do 8.0, a te na 8.1 ktos podał na poprzedniej stronie)
06-01-2008, 13:24
konto usunięte

Cytuj:

Kakashi Sensei napisał

2. Upewnij się, że kody, które wpisałeś są do odpowiedniej wersji Tibi (te które podał YabooMaster są do 8.0, a te na 8.1 ktos podał na poprzedniej stronie)

LOLs, czyli, nic z tego nie czaje :p. A te Battle? HELP Jestem mało kapujący :p
06-01-2008, 14:05
MeNi

Kod:

const // Player PLAYER_HP_MAX = $613B68; PLAYER_HP = $613B6C; PLAYER_MANA = $613B50; PLAYER_MANA_MAX = $613B4C; PLAYER_STAMINA = $613B48; PLAYER_CAP = $613B40; PLAYER_EXP = $613B64; PLAYER_LEVEL = $613B60; PLAYER_MAGIC_LEVEL= $613B5C; PLAYER_LEVEL_PERC= $613B58; PLAYER_MAGIC_PERC= $613B54; PLAYER_FIST= $613B18; PLAYER_CLUB = $613B1C; PLAYER_SWORD = $613B20; PLAYER_AXE = $613B24; PLAYER_DISTANCE = $613B28; PLAYER_SHIELDING = $613B2C; PLAYER_FISHING = $613B30; PLAYER_FIST_PERC = $613AFC; PLAYER_CLUB_PERC = $613B00; PLAYER_SWORD_PERC= $613B04; PLAYER_AXE_PERC= $613B08; PLAYER_DISTANCE_PERC= $613B0C; PLAYER_SHIELDING_PERC =$613B10; PLAYER_FISHING_PERC= $613B14; PLAYER_SOUL = $613B48; PLAYER_ID = $613B70; PLAYER_X = $61E9C8; PLAYER_Y = $61E9C4; PLAYER_Z = $61E9C0; PLAYER_GOTO_X = $613BB4; PLAYER_GOTO_Y = $613BB0; PLAYER_GOTO_Z = $613BAC; PLAYER_SLOT_HEAD= $61C058; PLAYER_SLOT_NECKLACE= $61C06C; PLAYER_SLOT_CONTAINER= $61C070; PLAYER_SLOT_ARMOR= $61C07C; PLAYER_SLOT_RIGHT= $61C078; PLAYER_SLOT_LEFT= $61C094; PLAYER_SLOT_LEGS= $61C0A0; PLAYER_SLOT_FEET= $61C0AC; PLAYER_SLOT_RING = $61C0B8; PLAYER_SLOT_AMMO = $61C0C4; PLAYER_SLOT_RIGHT_COUNT= $61C08C; PLAYER_SLOT_LEFT_COUNT= $61C098; PLAYER_SLOT_AMMO_COUNT= $61C0C8; CURSOR = $76C328; {0 normal, 7 using (fish, rune)} MAP_POINTER = $6234D8; VIPLIST_BEGIN = $611890; VIPLIST_END = $612128; STATUS_TEXT_TIMER= $76D924; STATUS_TEXT = $76D928; LAST_MESSAGE = $76DB78; BATTLELIST_START = $613BD0 + 4; BATTLELIST_END = $619990; CONTAINER_BEGIN = $61C0D0; CONTAINER_END = $61DF90; LEVELSPY_NOP = $4C4FC0; LEVELSPY_ABOVE = $4C4FBC; LEVELSPY_BELOW = $4C4FC4; NAMESPY_NOP = $4DF469; NAMESPY_NOP2 = $4DF473; SEE_ID = $76C370; SEE_COUNT= $76C374; SEE_Z = $76C308; CLICK_ID = $76C370; CONNECTION= $76c2c8; {<0=not connected, 5=character just chosen, 6=login packet sent to gameserver, 8=connected to gameserver> } TARGET_ID = $613B3C; //Player_pass = NIE BEDZIE HACKOWNIA =( //Player_acc = NIE BEDZIE HACKOWNIA =( Adr_bp_Open = $61C0D0; Adr_Bp = $61C0D0+60; Dist_Bp = $1EC; Dist_Item = 12; //Distance Distance_ID= -4; Distance_Type = -1; Distance_Name= -0; Distance_X = 32; Distance_Y = 36; Distance_Z = 40; Distance_HorizScreenOffset = 44; Distance_VertScreenOffset = 48; Distance_Chameleon = 60; Distance_Chameleon2 = 92; Distance_IsWalking = 72; Distance_Direction = 76; Distance_Outfit = 92; Distance_OutfitHead = 96; Distance_OutfitBody = 100; Distance_OutfitLegs = 104; Distance_OutfitFeet = 108; Distance_OutfitAddon = 112; Distance_LightColor1 = 121; Distance_LightColor2 = 122; Distance_LightPattern = 123; Distance_BlackSquare = 128; Distance_HP = 132; Distance_WalkSpeed = 136; Distance_IsVisible = 140; Distance_Skull = 144; Distance_Party = 148;

To są Poprawne (8.1 i przerobione na Delphi) Adresy i Distance'y. Zamiast tych z poradnika wklej te.

@ Xedyn:

Cytuj:

Witam,
Bardzo dobry poradnik, ale zgubiłem się w punkcie z pakietami, jeśli dobrze zrozumiałem to Client przesyła pakiety do servera, a w pakietach są zawarte dane taki jak, poruszenie się w lewo/prawo/do góry/na dół, atakowanie potwora/playera itd. Tak? Jak ma nam pomóc biblioteka packets.dll??

Tak, to jest właśnie przykładowy pakiet, teraz musisz go uzupełnić odpowiednimi danymi (np. pozycja itemu który chcesz podnieść, id itemu), i do tego właśnie potrzebujesz packet.dll . i na przykład pakiet na podnoszenie itemów wygląda tak:

Kod:

procedure podnies(posx, posy, posz: integer; ID,count,bp:integer); var PacketBuffer: array [0..200] of byte; ProcessID: Cardinal; item: TItemBP; begin GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcessID); //pobranie id procesu Tibii item.bp := bp; item.slot := 7; PacketBuffer[0] := $0F; PacketBuffer[1] := $00; PacketBuffer[2] := $78; CopyMemory(@PacketBuffer[3],@posx,2); CopyMemory(@PacketBuffer[5],@posy,2); PacketBuffer[7] := posz; CopyMemory(@PacketBuffer[8],@ID, 2); PacketBuffer[10] := $07; PacketBuffer[11] := $FF; PacketBuffer[12] := $FF; PacketBuffer[13] := $39+item.bp; PacketBuffer[14] := $00; PacketBuffer[15] := item.slot; PacketBuffer[16] := count; SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID end;

I teraz aby podnieść jakiś item muszisz zrobić przykładowo jakiś button, i do niego dać

Kod:

podnies(posx, posy, posz,ID,count,bp);

Gdzie posx, posy, posz : pozycja itemu.
Gdzie id - id.
Gdzie count to liczba itemów do podniesienia.
Gdzie bp to numer bp(pierwszy otwarty to 1, drugi to 2, etc.).

Mam nadzieje, że pomogłem, chodź sam się tego dopiero zaczynam uczyć =)

btw, dobre forum =)

http://tpforums.org/forum/

@Next Edit:

Cytuj:

Hej, skad mamy wiedziec ktore liczby w pakietach sa odpowiedzialne za polozenie, ktore za slowa, ktore za name itp?? Mogli byscie dac jakis 'kurs' uzupelniania pakietow etc. ?

Jak już mówiłem, zarejestruj się na tym forum, i tam masz taki topic:

http://tpforums.org/forum/showthread.php?t=1134

Tylko że wszystko niby ładnie i pięknie, ale trzeba to przerobić na Delphi, bo tamto jest w VB.
Jak będziesz miał kłopoty, napisz tutaj, postaram się pomóc. =o
06-01-2008, 15:37
konto usunięte

MeNi... Z tamtąd prawie nic nie rozumiem... ;s
06-01-2008, 15:41
MeNi

Moge ci podać pakiety które ja mam (przerobiłem z tamtych), ale od razu mówię, że ja się tego dopiero uczę, i nie jestem pewien czy to jest dobrze =s
06-01-2008, 15:43
konto usunięte

Cytuj:

Xedyn napisał

MeNi... Z tamtąd prawie nic nie rozumiem... ;s

Kto to rozumie...
@topic
Mozecie dokladniej opisac o co chodzi z tm BATTLELIST jak to wklejam do tch stalych ( o ile dobrze to wklejam) to sie koloruje na reda i ze chyba blad i jeszcze ten prblem co zamiast m lvl, many itp. to mi sie lizby ~5 ts. pokazuja HELP
Sorrka a bledy ale klawiatura sie pieprzy...moglem jej nie rozkreac _._
06-01-2008, 15:51
konto usunięte

:P MeNi... Ale co mi da to, że ty mi dasz gotowca? To tak jakbyś napisał bota, podał mi source, ja bym skompilowal i sie cieszyl... Chce sam cos zrobic, tylko nie moge znalezc opisu po polsku co i jak z tymi pakietami...
06-01-2008, 16:05
MeNi

Kod:

procedure podnies(posx, posy, posz: integer; ID,count,bp:integer); var PacketBuffer: array [0..200] of byte; ProcessID: Cardinal; item: TItemBP; begin GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcessID); //pobranie id procesu Tibii item.bp := bp; item.slot := 7; PacketBuffer[0] := $0F; PacketBuffer[1] := $00; PacketBuffer[2] := $78; CopyMemory(@PacketBuffer[3],@posx,2); CopyMemory(@PacketBuffer[5],@posy,2); PacketBuffer[7] := posz; CopyMemory(@PacketBuffer[8],@ID, 2); PacketBuffer[10] := $07; PacketBuffer[11] := $FF; PacketBuffer[12] := $FF; PacketBuffer[13] := $39+item.bp; PacketBuffer[14] := $00; PacketBuffer[15] := item.slot; PacketBuffer[16] := count; SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID end;

gdy przykładowo taki pakiet wygląda tak:

Kod:

0F 00 78 [60 81] [4E 80] [07] [B0 0D] 01 FF FF [40] 00 [01] [01]

w nawiasach kolejno:
pos_x,
pos_y,
pos_z,
item_id,
39+numer_bp,
miejsce w bp na które przenieść item,
liczba itemów (np. 2 meaty, 3gp)

więc jeśli chcesz uzupełnić ten pakiet swoimi danymi to używasz

Kod:

CopyMemory(@PacketBuffer[3],@posx,2);

czerwony = "miejsce" w pakiecie
zielony = czym chcesz uzupełnić (np. posx)
niebieski = długość danych (np. 01 0A ma długość 2)

Rozumiesz?

Zobacz już gotową procedurę którą ci podałem na górze postu, tak to powinno być uzupełnione.
06-01-2008, 16:28
konto usunięte

Może ktoś mi podać address nicku postaci ?
albo jak mogę sam go uzyskać w cheat engine
(oczywiście chodzi mi o tibię 8.10)
06-01-2008, 17:28
konto usunięte

Szczerze mówiąc to to co Ty napisałeś rozumiem, ale ciekawi mnie jeszcze skąd mam wiedieć które cyferki mam pozamieniac ^^?

@ Vivynus
Te stałe od battle listy wklejasz pod slowem 'const', jesli bierzesz te stale z poradnika to bedzie ci wywalalo dziwne liczby, na poprzedniej stronie chyba MeNi podał adresy pod 8.10... Wklej je zamiast tych z poradnika i bedzie smigalo...

@ MeNi
Bede sie męczył może nawet do kolejnego update'a ale zrobie mojego bota... Może nawet lepszego niz Yaboobot (joke)....
06-01-2008, 17:37
konto usunięte

Kv**a odpowiedzcie :|
06-01-2008, 18:12
MeNi

@Xedyn

Można metodą prób i błędów, czyli np. podnosić item z różnych miejsc i patrząc co się zmienia, można też przejrzeć ten artykuł z TPrograming który ci podałem i przerobić tamte procedury, tyle tylko, że tak jest to trochę inaczej napisane, przykład procedury przenoszącej item na ziemi, np. ciągnięcie lootbaga:

VB:

Kod:

PacketBuffer(0) = &HF PacketBuffer(1) = &H0 PacketBuffer(2) = &H78 PacketBuffer(3) = LongToByte(FromX, 1) PacketBuffer(4) = LongToByte(FromX, 2) PacketBuffer(5) = LongToByte(FromY, 1) PacketBuffer(6) = LongToByte(FromY, 2) PacketBuffer(7) = FromZ PacketBuffer(8) = LongToByte(ItemID, 1) PacketBuffer(9) = LongToByte(ItemID, 2) PacketBuffer(10) = &H3 PacketBuffer(11) = LongToByte(ToX, 1) PacketBuffer(12) = LongToByte(ToX, 2) PacketBuffer(13) = LongToByte(ToY, 1) PacketBuffer(14) = LongToByte(ToY, 2) PacketBuffer(15) = ToZ PacketBuffer(16) = &H0 PacketBuffer(17) = &H1

Delphi:

Kod:

PacketBuffer[0] := $0F; PacketBuffer[1] := $00; PacketBuffer[2] := $78; CopyMemory(@PacketBuffer[3],@fromx, 2); CopyMemory(@PacketBuffer[5],@fromy, 2); PacketBuffer[7] := fromz; CopyMemory(@PacketBuffer[8],@id, 2); PacketBuffer[10] := $03; CopyMemory(@PacketBuffer[11],@tox, 2); CopyMemory(@PacketBuffer[13],@toy, 2); PacketBuffer[15] := toz; PacketBuffer[16] := $00; PacketBuffer[17] := $01;

Jak widzisz, trzeba to trochę przerobić.
Np.

Kod:

PacketBuffer(3) = LongToByte(FromX, 1) PacketBuffer(4) = LongToByte(FromX, 2)

na

Kod:

CopyMemory(@PacketBuffer[3],@fromx, 2);

Mam nadzieje, że pomogłem =)
06-01-2008, 18:45
konto usunięte

a może mi ktoś podać adress zmiany nicku ?
albo jak go uzyskac w cheat engine
06-01-2008, 19:50
konto usunięte

Cytuj:

Czupax napisał

a może mi ktoś podać adress zmiany nicku ?
albo jak go uzyskac w cheat engine

no właśnie _._ ...mozna powiedzie e jestem malo inteligenty, ale nie wiem gdie wpisa to co BATTLE LISt do jakich stalych?! gdzie to jest jak to wklejam to i próbuje skomplisowac y cstam zrobi to sie podswietla to na zerwono _._
06-01-2008, 20:46
Ar'buz

Czytam i już czasem nie mogę ;)
A Yaboo tak ładnie to opisał...

1. Nick nie ma stałęgo adresu: musicie go sami znaleźć szukając po Battle liście...

2. Gdzie wpisać adres Battle_list? Do stałych - tam gdzie wszystko.
Przeczytajcie uważnie kurs...
Konkretnie miejsce dla stałych znajduje się po:

Kod:

var Form1: TForm1;

i wygląda tak:

Kod:

var Form1: TForm1; const stała1=coś; stała2=coś; (...)

Więcej będę pomagał (i Yaboo też), jak powstanie osobny dział, o który prosiliśmy w tym temacie:
http://forum.tibia.org.pl/showthread.php?t=240375
06-01-2008, 21:38
MeNi

Tylko teraz niech ktoś kto ma "Power" coś z tym zrobi, Bo jeśli temat będzie gdzieś w archiwum to nici ze specjalnego działu =/ Wszyscy spamujemy Arch'owi na priv ;p <joke>
06-01-2008, 21:42
konto usunięte

Była by możliwość, aby ktoś mi zrobił skormne macro do Tibii na moje własne zamówienie.

Tzn. To co mi osobiście jest potrzebne.
07-01-2008, 15:49
konto usunięte

Może mi ktoś powiedzieć co źle robię (jasno wytłumaczyć xD)
h t t p://img168.imageshack.us/my.php?image=delphimb9.png
07-01-2008, 20:50
MeNi

@up

nie dodałeś ReadMemInteger i string, a 'pozycja' dałeś w złym miejscu...

Czytaj dokładnie... -.-
08-01-2008, 17:54
konto usunięte

No nie...

Address - wartości w kliencie Tibii mają swoje miejsca(czyt. Adresy). Adresy te wyglądają np tak "60EAC0" (w tym miejscu zapisany jest level twojej postaci).

No i ja juz tu siedze _._ o co łapie. Czy ja jestem az taki ulomny? Nie czaje w ogóle o czym tu sie jedzie, gdzie co znalesc, nie mógl by ktos napisac jeszcze raz tego JASNIEj, wiem ze Yooboo sie staral ale ja nic nie czaje :|
SKAD WZIASC TEN ADRESS!?

#edit
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), #ProcId); to mi sie jakos na czerwono swieci a czemu jasna cholera _._
#down
Dzienx, po troszku i to zrobie :p. Zagladaj Tu Ar`buz bede miec bankowo jeszcze pytanka xP
08-01-2008, 18:03
Ar'buz

@up:
Adresu, sam z ziebie tak łatwo nie znajdziesz. Do tego potrzeba programu do możliwości łażenia po mamięci procesu.
Dla tego lepiej korzystać z gotowych adresów, które zostały podane gdzieś w tym temacie.

Edit:
Pomysł permanentnej zamiany znaku "małpa" na "#" jest tutaj cokolwiek problematyczny.
Funkcja:

Kod:

GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), #ProcId);

powinna wyglądać tak:

Kod:

GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), małpaProcId);
08-01-2008, 18:28
konto usunięte

Ok, mam kolejne pytanko ( narazie idzie...z...) Juz mi nie wyskakuja liczby ~58tys.+ jest ok, lvl, mana.. wszystko super, ale jak zrobic obok tego, TEXT, zeby bylo wiadome co to jest. Czekam na odpowiedz :)

@edit
say(edit1.Text); to mi sie rbi czerwone :| i..
timer2.Enabled := true; to jeszcze :|
08-01-2008, 18:40
Mercedresu

Ja osobiscie urzywam TP(turbo pascal). Powiem Ci ze teraz po twoim artykule wiecej osob zacznie sie interesowac programowaniem :)
Dobra robota :D
08-01-2008, 18:41
Kakashi Sensei

ma ktoś kod do lighthacka na Tibię 8.1?
proszę zamienić wszystkie 'at' w tekście na (małpa) z góry thx

/edit

Cytuj:

Vivynus napisał

Ok, mam kolejne pytanko ( narazie idzie...z...) Juz mi nie wyskakuja liczby ~58tys.+ jest ok, lvl, mana.. wszystko super, ale jak zrobic obok tego, TEXT, zeby bylo wiadome co to jest. Czekam na odpowiedz :)

Ja mam mniej więcej tak:

level 0(nr)
mana 0(mp)
hit points 0(hp)

Ustawiasz po prostu label (etykietę) bez funkcji o takiej nawie tuż obok, a nazwy labeli funkcyjnych zamień na 0 (chyba łatwiej wyjaśnic się nie da)

Cyba o to ci chodziło :-P
08-01-2008, 19:03
konto usunięte

Dzienx, Kakashi Sensei, ktos mi odpowie na pytanie jakie jeszcze zadalem?

say(edit1.Text); to mi sie robi czerwone :| i..
timer2.Enabled := true; to jeszcze :|

@edit
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID Prosze o szybko odpowiedz.
08-01-2008, 19:26
MeNi

Kod:

SendPacket(ProcessID, (TU WSTAW MAŁPĘ)PacketBuffer, TRUE, FALSE);

tak powinno wyglądać to ostatnie. Jak już ktoś mówił, trzeba pozamieniać '#' na "małpę". Pisałem już o tym adminom, powiedzieli że to tymczasowe i że i tak nas łagodnie potraktowali wprowadzając to (Bóg wie co by było jak by nas potratowali mniej łagodnie =o). Drugą sprawą jest to, że adresy które są w artykule są błędne (stare). Ja podałem chyba 2 strony temu dobre adresy. Jak zmienisz to co powiedziałem, Wszystko powinno śmigać.

Pozdrawiam, MeNi.
08-01-2008, 19:41
konto usunięte

Cytuj:

MeNi napisał

Kod:

SendPacket(ProcessID, (TU WSTAW MAŁPĘ)PacketBuffer, TRUE, FALSE);

tak powinno wyglądać to ostatnie. Jak już ktoś mówił, trzeba pozamieniać '#' na "małpę". Pisałem już o tym adminom, powiedzieli że to tymczasowe i że i tak nas łagodnie potraktowali wprowadzając to (Bóg wie co by było jak by nas potratowali mniej łagodnie =o). Drugą sprawą jest to, że adresy które są w artykule są błędne (stare). Ja podałem chyba 2 strony temu dobre adresy. Jak zmienisz to co powiedziałem, Wszystko powinno śmigać.

Pozdrawiam, MeNi.

I tak mi nie hodzi pozmienialem 'ap' na @, ale i tak nic sie nie dzieje. Przesle to co mam moze kts mi pmoze, WIEM ZE NAMIESZALEM ( NAPEWNO):|:

unit BOT;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Timer1: TTimer;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Button5: TButton;
SpinEdit1: TSpinEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const
//adresy wartosci postaci
Player_ClubPerc = $613B00;
Player_SwordPerc = $613B04;
Player_AxePerc = $613B08;
Player_DistnacePerc = $613B0C;
Player_ShieldingPerc = $613B10;
Player_FishingPerc = $613B14;
Player_Fist = $613B18;
Player_Club = $613B1C;
Player_Sword = $613B20;
Player_Axe = $613B24;
Player_Distance = $613B28;
Player_Shielding = $613B2C;
Player_Fishing = $613B30;
Player_Cap = $613B40;
Player_Stamina = $613B48;
Player_Soul = $613B48;
Player_ManaMax = $613B4C;
Player_Mana = $613B50;
Player_MagicLevelPerc = $613B54;
Player_LevelPerc = $613B58;
Player_MagicLevel = $613B5C;
Player_Level = $613B60;
Player_Experience = $613B64;
Player_HpMax = $613B68;
Player_Hp = $613B6C;
Player_ID = $613B70;
//koniec - adresy wartosci postaci
const
BATTLELIST_START = $60EB30 + 4;
BATTLELIST_END = $6148F4;
const
Distance_ID= -4;
Distance_Type = -1;
Distance_Name= -0;
Distance_X = 32;
Distance_Y = 36;
Distance_Z = 40;
Distance_HorizScreenOffset = 44;
Distance_VertScreenOffset = 48;
Distance_Chameleon = 60;
Distance_Chameleon2 = 92;
Distance_IsWalking = 72;
Distance_Direction = 76;
Distance_Outfit = 92;
Distance_OutfitHead = 96;
Distance_OutfitBody = 100;
Distance_OutfitLegs = 104;
Distance_OutfitFeet = 108;
Distance_OutfitAddon = 112;
Distance_LightColor1 = 121;
Distance_LightColor2 = 122;
Distance_LightPattern = 123;
Distance_BlackSquare = 128;
Distance_HP = 132;
Distance_WalkSpeed = 136;
Distance_IsVisible = 140;
Distance_Skull = 144;
Distance_Party = 148;
const
DISTANCE_LIGHT = $74;
DISTANCE_LIGHTCOLOR = $78;

implementation

{$R *.dfm}

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

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, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID
end;
// Funkcje czytające

function ReadMemInteger(Address: Cardinal): Cardinal; //Read 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 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;
// Koniec - Funkcje czytające
//BattleList - Czytanie
function pozycja:integer;
var
i,id_battle,id:integer;
begin
id:=readmeminteger(Player_id); //odczytanie naszego id z adresu
for i:=1 to 149 do //przeszukanie wszystkich pozycji na battle list (minimalna 1 maxymanlna 149
Begin
id_battle:=Readmeminteger(Battlelist_start + (i*160)-4); //czytanie id z pozycji
if id_battle=ID then //jezeli id z battle list zgadza sie z id z adresu
Begin
Result :=i; //wtedy wynikiem funkcji jest nasza pozycja na battle
exit;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

end;

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

procedure TForm1.Button5Click(Sender: TObject);
begin
If (Button4.Caption = 'Start') then
begin
Button4.Caption := 'Stop';
end
Else
if (Button4.Caption = 'Stop') then
begin
Button4.Caption := 'Start';
end;
end;

end.

HELP HELP HELP HELP HELP HELP
08-01-2008, 19:52
MeNi

Przeszukaj cały kod, i pozmieniaj każdy # na małpę.
08-01-2008, 20:16
konto usunięte

LOLs, juz to dawno pozmienialem ale i tak jest cos zle.

Mam problem przy light:
MemWriteInteger(battlelist_start+pozycja*160+dista nce_lightcolor,250,3);
MemWriteInteger(battlelist_start+pozycja*160+dista nce_light,15,2);
Prosze o fast odpowiedz
08-01-2008, 21:45
konto usunięte

Tez mam problem : debuger 'steka' na widok wiekszosci przecinkow oddzielajacych parametry, lub w deklaracjach zmiennych. Nie steka np. w deklarowaniu uses. Co z tym zrobic? Mam jako taka wiedze o pascalu, ale na ile to rozumiem (do samego delphi zasiadlem wczoraj :D ) to powinno byc dobrze. Czekam na odpowiedz.
14-01-2008, 21:09
Akyer

prosze o rehosta kodu zrodlowego w celu dokladniejszego zrozumienia biblioteczki ; )
16-01-2008, 15:45
konto usunięte

GetWindowThreadProcessId(FindWindow('TibiaClient', nil) #ProcId);

Ehm.. co ja tu żle robie? próbowałem zmieniać na małpe (@) itp ale nic to nie daje :/ Może ktoś mi pomóc?

Pozdro
16-01-2008, 16:17
konto usunięte

bardzo chcialbm zrobic macro, które posiada 1 opcje: Zmiana Outfitu. Tle ze jakos tego poradnika mi sie nei udaje. Móglby ktos mi powiedziec jak sie to trzeba zrbic? O ile ktos tu jeszze zaglada...
17-01-2008, 00:05
Zizevolo

Cytuj:

Killavus napisał

;ddddd.

No bo tak. Delphi nie kompiluje się pod Linuksem, jest wolne i zabugowane. Sądze, że C++ to lepszy język.

Pozdrawiam,
Killavus.

pod linuksa jest klient nie jest juz rozwijany ale mozna by bylo zrobic to samo co pod winda przy odrobinie wiedzy. sadzisz ze c++ lepszy i masz racje po czesci jest lepszy do przetwarzanai grafiki itp rzeczy, do innych zastosowan jak programy laboratoryjne czytajace i przetwarzajace duze porcji danych delphi wydaje sie lepsze.
Odsylam na 4programmers.net tam przez kilkaset postow swego czasu toczyla sie dyskusja nad wyzszoscia i roznicami.

Btw co do poradnika wywal tego timera i zrob osobny watek dziala szybciej zre mniej pamieci ladniej wyglada, nie zamula

nie chce mi sie przegladac calego ale gratulacje do zrobienia bota samo expiacego jeszcze troche ale latqwo mozna z tego zrobic bota co bedzie podnosil rzeczy z potworkow
17-01-2008, 14:39
konto usunięte

pomozcie mi napisac skrypt który po wlaczeniu BOTA sprawdza czy istnieje proces lub okno. jezeli istnieje [proces lub okno]program sie nie wylacza jezeli nie ma [okna lub procesu] program sie zamyka

[[delphi]]

chodzi mi o to aby bot nie wlaczyl sie gdy tibia nie jest wyłączona i pojawil sie komunikat "Run Tibia First"

jezeli tibia bedzie wlaczona i zechcemy wlaczyc bota , bot uruchomi sie!

begin
if CheckProcess('Tibia.exe') then // tu wyskakuje blad
begin
<-----------co tu ma byc?
end
else
begin
showmessage('Run tibia first');
close;
end;
end;

niewiem jak to ma byc pomozcie napisac

Pokaż 50 post(ów) z tego tematu na jednej stronie