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

shakirek · 19-08-2008 11:04

Ponawiam prośbę o packiet dll pod tibie 8.22 ...

Ar'buz · 20-08-2008 18:44

Jako, że mam chwilę

Packet.dll pod 8.22
Rapidshare rehost

shakirek · 30-09-2008 21:09

Witam

Ma ktoś już adresy pod Tibie 8.30? No i oczywiście nowy packet.dll?

TheSnake · 04-10-2008 16:18

shakirek napisał

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

Witam

Ma ktoś już adresy pod Tibie 8.30? No i oczywiście nowy packet.dll?

Ponawiam prośbe (Oczywiście pod Tibie 8.31)

**paweł** · 04-10-2008 18:02

Packet.dll dla Tibii 8.31.
http://rapidshare.com/files/150883051/packet.dll

Tinekp · 08-10-2008 19:46

8.31 OD TINUSIA :)

Kod :

Exp = 0x62ACE4; 
GoTo_X = Exp + 80;
GoTo_Y = Exp + 76;
GoTo_Z = Exp + 72;

Id = Exp + 12;
HP = Exp + 8;
HP_Max = Exp + 4;

Level = Exp - 4;
MagicLevel = Exp - 8;
Level_Percent = Exp - 12;
MagicLevel_Percent = Exp - 16;

Mana = Exp - 20;
Mana_Max = Exp - 24;

Soul = Exp - 28;
Stamina = Exp - 32;
Cap = Exp - 36;

Fishing = Exp - 52;
Shielding = Exp - 56;
Distance = Exp - 60;
Axe = Exp - 64;
Sword = Exp - 68;
Club = Exp - 72;
Fist = Exp - 76;
Fishing_Percent = Exp - 80;
Shielding_Percent = Exp - 84;
Distance_Percent = Exp - 88;
Axe_Percent = Exp - 92;
Sword_Percent = Exp - 96;
Club_Percent = Exp - 100;
Fist_Percent = Exp - 104;
Flags = Exp - 108;
Max_Slots = 11;
Slot_Head = 0x633228; // 8.31
Slot_Neck = Slot_Head + 12;
Slot_Backpack = Slot_Head + 24;
Slot_Armor = Slot_Head + 36;
Slot_Right = Slot_Head + 48;
Slot_Left = Slot_Head + 60;
Slot_Legs = Slot_Head + 72;
Feet = Slot_Head + 84;
Slot_Ring = Slot_Head + 96;
Slot_Ammo = Slot_Head + 108;

Moze ktoś pisze w C++'sie to niech pisze domnie na PW to sie zgadamy.

BartekWxD · 09-10-2008 15:34

chce zrobic tego bota ale ten program delphin 7personal sciagnolem go che zainstalowac ale nie mam kodu cdkey pomocy!!Jak byscie mogli to wyslijcie mi na gg 171074 gotowy delphin 7 personal PS jak byscie zrobicli bota do tibi 8.31 lub nowszego (zeby za pomoca tego bota mozna bylo dodawac lvl,skille,itemy i kase,i jak by bylo mozliwe zeby nie wykrywal go cipsoft(nie dali bana)) to wyslijcie lub podajcie link do dowload :)

Dakin The Mastahh · 09-10-2008 18:39

Hah, daj linijke jak zrobić niewykrywalnego bota :]

konto usunięte · 12-10-2008 18:50

czy ktos z Was ma moze FreeProxy zakualizowane pod tibie 8.11? bo w necie chyba ze 2h szukalem i nic nie ma ;/

aha, od razu mowie ze mi nie robi zadnej roznicy jak ten freeproxy bedzie np na 7 dni itp. wazne zeby byl :)

PS:
z gory thx

konto usunięte · 14-10-2008 09:55

czy moze mi ktos w koncu odpowiedziec?

konto usunięte · 17-10-2008 21:09

Czy moze mi ktos powiedziec co sie stalo z gospodarzem tego tematu??? Czego zostalo usuniete jego konto????

konto usunięte · 26-10-2008 14:51

Witam!
Dawno się nie udzielałem na forum...

Jeżeli odgrzebuję - to przepraszam, ale nie chciałem spamować forum...

Tak więc. Znam się już troszkę na Delphim, nie jednego bota się robiło...
No ale przy próbie komplikacji czegoś takiego:

Kod :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
Exp = 0x62ACE4;
GoTo_X = Exp + 80;
GoTo_Y = Exp + 76;
GoTo_Z = Exp + 72;

Id = Exp + 12;
HP = Exp + 8;
HP_Max = Exp + 4;

Level = Exp - 4;
MagicLevel = Exp - 8;
Level_Percent = Exp - 12;
MagicLevel_Percent = Exp - 16;

Mana = Exp - 20;
Mana_Max = Exp - 24;

Soul = Exp - 28;
Stamina = Exp - 32;
Cap = Exp - 36;

Fishing = Exp - 52;
Shielding = Exp - 56;
Distance = Exp - 60;
Axe = Exp - 64;
Sword = Exp - 68;
Club = Exp - 72;
Fist = Exp - 76;
Fishing_Percent = Exp - 80;
Shielding_Percent = Exp - 84;
Distance_Percent = Exp - 88;
Axe_Percent = Exp - 92;
Sword_Percent = Exp - 96;
Club_Percent = Exp - 100;
Fist_Percent = Exp - 104;
Flags = Exp - 108;
Max_Slots = 11;
Slot_Head = 0x633228; // 8.31
Slot_Neck = Slot_Head + 12;
Slot_Backpack = Slot_Head + 24;
Slot_Armor = Slot_Head + 36;
Slot_Right = Slot_Head + 48;
Slot_Left = Slot_Head + 60;
Slot_Legs = Slot_Head + 72;
Feet = Slot_Head + 84;
Slot_Ring = Slot_Head + 96;
Slot_Ammo = Slot_Head + 108;

implementation

{$R *.dfm}

end.

Wyskakuje mi błąd przy linijce:

Kod :

Exp = 0x62ACE4; // [Error] Unit1.pas(21): ':' expected but identifier 'x62ACE4' found

oraz :

Kod :

Slot_Head = 0x633228; // 8.31 // [Error] Unit1.pas(58): ';' expected but identifier 'x633228' found

Macie może jakieś rady?
Dodam że próbowałem sam wyszukać adres EXP i tego Slotu głowy, ale nie mogłem znaleźć... Czekam na odpowiedź... Fajnie by było jak by jeszcze ktoś napisał na gg że odpowiedział bo czasami mogę zapomnieć adresik, albo mieć formata, albo inne przyczyny...

Kod :

GG:8680037

Ar'buz · 26-10-2008 15:48

Sprawa jest prosta. Korzystasz z oznaczeń, które wykorzystuje język C++.

Jak to wygląda?
C++:
Exp = 0x62ACE4;

Delphi:
Exp = 62ACE4;

PS. Nic nie szkodzi, że wątek został odświerzony. Wszystkie opisane w nim formuły są nadal aktualne i jeśli tylko ktoś miałby chcęć napisać na ich podstawie bota - zrobi to bez problemu ;)

konto usunięte · 26-10-2008 16:05

No to się cieszę że nie dostanę warna...

Zauważyłem że wystarczy zamiana "x" na "0" i jest ok... Przed chwilą kombinowałem i udało mi się w końcu...

Z racji że nikt nie lubi mieć bałaganu w kodzie - postanowiłem udostępnić tutaj - nigdzie indziej nie dawałem - komponent do Czytania/Wpisywania wartości Integerowskich i Stringów do procesu znając jego uchywyt (handle)...

Adres:

Kod :

hxxp://blade95.yoyo.pl/pliki/TMemOption.rar
zamist "xx" wpiszcie "tt"

Opis procedur i funkcji:

Kod :

1. Czytanie wartości
  a) String
    function MemoryReadString(Handle:hWND;Adres:Cardinal):String;
  b) Integer
    function MemoryReadInteger(Handle:hWND;Adres:Cardinal):Integer;
2. Wpisywanie wartości
  a) String
    procedure MemoryWriteString(Handle:hWND;Adres:Cardinal;Bufer:String);
  b)Integer
    procedure MemoryWriteInteger(Handle:hWND;Adres:Cardinal;Bufer:Integer);

Co tu dużo o tych procedurach/funkcjach mówić... Dam jeszcze przykładzik użycia:

Kod :

procedure TForm1.Button1Click(Sender: TObject);
var
  Hand:hWND; //tutaj przechowywany będzie uchwyt do procesu
  TMP:Variant; //tutaj będą przechowywane dane tymczasowe
const
  Addr=$0000000; //tutaj dowolny adres komórki z której chcemy "wyciągnąć" jakieś dane
  Addr2=$0000000; //tutaj dowolny adres komórki której chcemy przypisać jakąś wartość
begin
  Hand := FindWindow('TibiaClient',nil);

  ShowMessage(MemOption1.MemoryReadString(Hand,Addr));
  ShowMessage(IntToStr(MemOption1.MemoryReadInteger(Hand,Addr)));

  TMP := InputBox('Tekst do wpisania','MemOption1','lol');
  MemOption1.MemoryWriteString(Hand,Addr2,TMP);

  TMP := InputBox('Liczba do wpisania','MemOption1','1010');
  MemOption1.MemoryWriteInteger(Hand,Addr2,TMP);
end;

Myślę że tutaj też nie ma zbytnio co objaśniać...
Mam nadzieję że komponent co niektórym ułatwi życie i oszczędzi klawisze... ;-)

Zabrania się rozprzestrzeniania komponentu na inne witryny bez zgody autora.

xarmario · 28-10-2008 19:57

Witam.

Mam małe pytanie. Jak powinna wyglądać procedura odpowiedzialna za zjadanie pożywienia z bp?

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

Narzędzia tematu

Oceń ten temat

pomocy!!

problem

Gospodarz

Jedzenie

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