[Poradnik] Jak napisać własne macro do Tibii

Szczeepan · 02-06-2008 21:10

wystarczy ze raz sformułujecie pytanie :P Najwyrazniej nikt nie potrafi na nie odpowiedziec, polecam forum: tpforums.org/forum Jest to specjalne forum tylko i wylącznie dla twórców programów do Tibii ;p

konto usunięte · 06-06-2008 20:33

elo mam problem z tym :

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;[/CODE]

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;

zawsze jak to wklejam do unitu to mi blad wyskakuje moze mi to ktos wyjasnic?

MeNi · 06-06-2008 21:21

Inferno93 napisał

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

elo mam problem z tym :

(...)
GetWindowThreadProcessID(FindWindow('TibiaClient'‚ nil)‚ #proc_ID);
(...)
ReadProcessMemory(IDProcess‚ Ptr(Address)‚ #Temp[1]‚ 255‚ NB);

(...)

GetWindowThreadProcessId(FindWindow('TibiaClient'‚ Nil)‚ #ProcId);
(...)
ReadProcessMemory(tProc‚ Ptr(Address)‚ #value‚ 4‚ NBR);

zamień # na 'małpy' (Shift + 2)

konto usunięte · 07-06-2008 07:37

Mam pytanie dlaczego nie moge zalozyc tutaj konta? tpforums.org/forum

konto usunięte · 07-06-2008 18:15

MeNi napisał

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

zamień # na 'małpy' (Shift + 2)

nadal nie dziala przy przecinkach blad wyskakuje a jak przecinek usune to przy wyrazie poprzedzadzajacym przecinek ;/

moze mi ktos pomoc?

konto usunięte · 08-06-2008 09:02

Moze mi ktos odpowiedziec na pytanie?? Ewentualnie jak ktos posiada juz konto prosil bym aby uzyczyl mi konta ;)

luki z obsidii · 08-06-2008 17:48

Yaboo umialbys napisac bota na wlasny klient ots ktory tylko zbiera kase? reszte amm w tibia auto
prosze napisz na gg 3663338 moge zaplacic ale jakas symboliczna kwote

konto usunięte · 19-06-2008 09:29

Mam pytanie dotyczące tego programu freeproxy. Na tibii 8.1 łączy mi się normalnie jednak gdy chcę się połączyć z ots'em stojącym na wersji 7.6 wywala mi błąd:

Cannot connect to the server.
Error: Disconnect from server.

Wie ktoś o co chodzi?

Akyer · 19-06-2008 10:17

a ja mam pytanie odnośnie pakietow.Mam pelna wersje BlackD i jak skanuje to niewiem jakie cyferki do pakietu wpisac.Dziekuje

//czekam na odpowiedz juz 3 tydzien ... ;/
//czy pod update z adresami zmieniaja sie rownierz pakiety?

Szczeepan · 04-07-2008 17:20

pakiety, watpie, adresy napewno
ma ktos spis nowych adresów?
edit:
sam sobie odpowiedzialem
http://tpforums.org/forum/showthread.php?t=1844 ;p przyda sie pewnie i wam.

Teran · 06-07-2008 19:52

Mi tam teraz po zmianie adresów nie działa Trenowanie mlvl'a... Mógłby ktoś napisać kod cały na 8.2?

shakirek · 07-07-2008 15:18

mógłby ktoś podać adresy pod tibie 8.2 ?
Z góry dzięki.

Damlox · 07-07-2008 15:56

Kod :

PLAYER_STATUS                            0x00621BF8 //'Poisoned = 1, Burning = 2, Energized = 4, Drunk = 8, MagicShield = 16, Paralyzed = 32, Hasted = 64, Battle = 128, Drowning = 256, Frozen = 512, Dazzled = 1024, Cursed = 2048, None = 0 (Thanks to Farsa)
PLAYER_FIST_PERC                         0x00621BFC
PLAYER_CLUB_PERC                         0x00621C00
PLAYER_SWORD_PERC                        0x00621C04
PLAYER_AXE_PERC                          0x00621C08
PLAYER_DISTANCE_PERC                     0x00621C0C
PLAYER_SHIELDING_PERC                    0x00621C10
PLAYER_FISHING_PERC                      0x00621C14
PLAYER_FIST                              0x00621C18
PLAYER_CLUB                              0x00621C1C
PLAYER_SWORD                             0x00621C20
PLAYER_AXE                               0x00621C24
PLAYER_DISTANCE                          0x00621C28
PLAYER_SHIELDING                         0x00621C2C
PLAYER_FISHING                           0x00621C30
PLAYER_MOUSEOVER_ID                      0x00621C34
PLAYER_FOLLOW_ID                         0x00621C38
PLAYER_ATTACK_ID                         0x00621C3C
PLAYER_CAP                               0x00621C40
PLAYER_STAMINA                           0x00621C44
PLAYER_SOULPOINT                         0x00621C48
PLAYER_MANA_MAX                          0x00621C4C
PLAYER_MANA                              0x00621C50
PLAYER_MAGIC_LEVEL_PERC                  0x00621C54
PLAYER_LEVEL_PERC                        0x00621C58
PLAYER_MAGIC_LEVEL                       0x00621C5C
PLAYER_LEVEL                             0x00621C60
PLAYER_EXPERIENCE                        0x00621C64
PLAYER_HEALTH_MAX                        0x00621C68
PLAYER_HEALTH                            0x00621C6C
PLAYER_ID                                0x00621C70
PLAYER_GOTOZ                             0x00621CAC
PLAYER_GOTOY                             0x00621CB0
PLAYER_GOTOX                             0x00621CB4
BATTLELIST_BEGIN                         0x00621CD0
BATTLELIST_END                           0x00627A90

PLAYER_HEAD_SLOT                         0x0062A190
PLAYER_NECK_SLOT                         0x0062A19C
PLAYER_CONTAINER_SLOT                    0x0062A1A8
PLAYER_BODY_SLOT                         0x0062A1B4
PLAYER_LEFT_HAND_SLOT                    0x0062A1C0
PLAYER_LEFT_HAND_COUNT                   0x0062A1C4
PLAYER_RIGHT_HAND_SLOT                   0x0062A1CC
PLAYER_RIGHT_HAND_COUNT                  0x0062A1D0
PLAYER_LEGS_SLOT                         0x0062A1D8
PLAYER_FEET_SLOT                         0x0062A1E4
PLAYER_RING_SLOT                         0x0062A1F0
PLAYER_ARROW_SLOT                        0x0062A1FC
PLAYER_ARROW_COUNT                       0x0062A200
CONTAINER_BEGIN                          0x0062A208
CONTAINER_END                            0x0062C0C8

Adresy umieszczone dzięki uprzejmości Stiju.

Ar'buz · 07-07-2008 16:08

#Akyer:
Pakiety się nie zmieniają. Opcjonalnie powstają nowe, odpowiedzialne (np. w tym update): za kupienie przedmoitu u NPC.
Swoją drogą pakiety należy rozpracować samemu. WIelokrotnie powtarzaj jakąś czynność i patrz, które fragmety pakietu ulegają zmianie. Za co odpowiadają? - sam musisz do tego dojść.

Adresy oczywiście się zmieniają - widać to w poście powyżej.

konto usunięte · 09-07-2008 18:21

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

Wiem że tu nigdy nie wchodzi już, ale jeżeli ktoś by weszedł to niech mi powie skąd mam wziąść te cyferki na tibie 8.2. Poradziłem sobie ze wszystkim innym yeah. :d

Temat: [Poradnik] Jak napisać własne macro do Tibii

Narzędzia tematu

Oceń ten temat

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

Jak napisać powieść w 30 minut

[Inne] Jak napisać bota?

Jak napisać temat, aby otrzymać jak najszybciej pomoc?

[Poradnik] <Jak napisac scrypt do Blackd>

Zakładki

Zakładki

Zasady postowania