Reklama
Strona 3 z 5 PierwszaPierwsza 12345 OstatniaOstatnia
Pokazuje wyniki od 31 do 45 z 65

Temat: [Poradnik] Własny bot

  1. #31
    konto usunięte

    Domyślny

    Cytuj w8w8w8 napisał
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    naprawde to taki duzy blad ? mogl zostac .
    a mnie sie poradnik podoba ale nie znam podstaw delphi ;(
    http://4programmers.net/Delphi/Kompendium
    Dobry poradnik :)

  2. #32

    Data rejestracji
    2005
    Posty
    134
    Siła reputacji
    20

    Domyślny

    temat upadł :( a ja jeszcze pakiety chce :(

  3. #33
    Avatar Klopuś
    Data rejestracji
    2006
    Posty
    37
    Siła reputacji
    0

    Domyślny

    kozaczone artykulowanie.
    choc nigdy go nie zrobie, to jednak...
    BE COOL :)

    tak przy okazji to trzeba miec naprawde wiedzy bo znalezc i zrobic cos takiego

    GZ

  4. Reklama
  5. #34
    Avatar Shafter
    Data rejestracji
    2006
    Położenie
    (Zagłębie) Sosnowiec
    Posty
    112
    Siła reputacji
    20

    Domyślny

    Poradnik miodzio. CO on tu jeszcze robi ? Czemu jeszcze go nie przeniesiono do artkułów ; dd ? Mam pytanie: Czy da się takiego bota zrobić w C++ ??

  6. #35
    konto usunięte

    Domyślny

    Cytuj Shafter napisał
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    Poradnik miodzio. CO on tu jeszcze robi ? Czemu jeszcze go nie przeniesiono do artkułów ; dd ? Mam pytanie: Czy da się takiego bota zrobić w C++ ??

    Myślę... yhy

    Ja tam bota jeszcze (^.^) nie umiem zrobić (sam) ale kalkulator to juz spox ^.^

  7. #36

    Data rejestracji
    2005
    Posty
    134
    Siła reputacji
    20

    Domyślny

    nieprzeniesiony bo niezostał skączony :(

  8. Reklama
  9. #37
    konto usunięte

    Domyślny

    Próbowałem zrobić bota tym poradniczkiem ale coś mi nie wyszło =)

    Ale poradnik bardzo przejzyscie napisany.
    Moze komuś się uda

  10. #38
    Uriziel

    Domyślny

    Uff dostalem warna naszczescie palladini cofnąl
    ten art widzialem juz gdzies, na stronie yogaska (ble) coś tam widzialem, jak czytałem poczatek to kropka w kropke jak tam (wnosze po ogólnej tresci i screenach, gdyż skryyptów nie czytałem), ale dowodów nie mam, editnołem posta, ale chyba forum zmulilo że sie nie zmienił
    Nie mam dowodów, aczkolwiek sadze ze to JEST plagiat
    Ostatnio zmieniony przez Uriziel : 11-09-2006, 21:25

  11. #39

    Data rejestracji
    2005
    Posty
    134
    Siła reputacji
    20

    Domyślny

    i dupa :( nima
    ale i tak już mam to co trzeba ^^

  12. Reklama
  13. #40

    Data rejestracji
    2005
    Posty
    12
    Siła reputacji
    0

    Domyślny

    moze mi ktos re-hostnac plik mem.pas? z gory thx

  14. #41
    konto usunięte

    Domyślny pytanko

    a jak ingerować w pamięć procesu, bo nie mam pojęcia jak to można by było zrobić?? i jeszcze jedno może mógłby ktoś upnąć jeszcze raz plik Mem.pas, aha czy ten plik jest jeszcze aktulany dla tibii 7.9..???
    pzdr

  15. #42
    konto usunięte

    Domyślny

    sa tu jacys medrcy od c++? u mnie za chiny ludowe nie da sie zapisac nic do procesu tibii...
    poza tym mam pytanie: jak znajdowac wartosci ktore pozniej trzeba wpisac do pakietu? dane z pierwotnego pakietu trzeba potraktowac xtea?

  16. Reklama
  17. #43
    Snowak

    Domyślny

    Cytuj Zyllen Xovade napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    Ważne!!!
    PS. Jako że nie dysponuję już plikiem Mem.pas, zamiast tego używamy poniższej funkcji MemoryReadInt

    function MemoryReadInt(Address: Cardinal): Longword;
    var
    ProcId: Cardinal;
    tProc: THandle;
    NBR: Cardinal;
    value: Longword;
    begin
    GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), @ProcId);
    tProc:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcId);
    ReadProcessMemory(tProc, Ptr($605A04), @value, 4, NBR);
    CloseHandle(tProc);
    Result := Value;
    end;
    Zamień Ptr($605A04) na Address w wywołaniu funkcji ReadProcessMemory i będzie OK...

  18. #44
    konto usunięte

    Domyślny

    Jestem troche nieobyty z delphi więc jak ktoś by mógł mi wytłumaczyć co muszę zrobić by w pkt. 4 nie pojawiał mi się bład było by super xD

    unit Unit1;

    interface

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

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

    var
    Form1: TForm1;

    const
    BATTLELIST_START = $005F7994;
    BATTLELIST_END = $005FD460;
    PLAYER_X = $00602B08;
    PLAYER_Y = $00602B04;
    PLAYER_Z = $00602B00;
    PLAYER_LEVEL = $005F7920;
    PLAYER_EXP = $00605A04; // zmieniony - Tibia 7.9
    STATUS_TEXT = $0074F1D0;
    STATUS_TIMER = $0074F1CC;
    SPEED_USE = $0074DBD0;



    implementation

    function ExpToLevel(Level: Integer): Integer;
    begin
    Result := Round(50/3*Power(Level,3) - 100*Power(Level,2) + 850/3*Level - 200);
    end;

    function CalculateLeftExp: string;
    var
    Tibia: Cardinal;
    AExp, ALevel, ANextLevelExp, AExpLeft: Cardinal;begin
    {Obliczamy zawartość zmiennych}
    Tibia := FindWindow('TibiaClient',nil);
    AExp := MemoryReadInt(Tibia,PLAYER_EXP,Len,Rdd);
    ALevel := MemoryReadInt(Tibia,PLAYER_LEVEL,Len,Rdd);
    ANextLevelExp := ExpToLevel(ALevel+1);
    AExpLeft := ANextLevelExp-AExp;
    {Formatujemy wyjściowy ciąg tekstowy}
    Result := Format('Level: %d. Ilość exp.: %d. Pozostały exp. do levelu %d: %d.',[ALevel,AExp,ALevel+1,AExpLeft]);
    end;

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var
    Tibia: Cardinal;
    begin
    Tibia := FindWindow('TibiaClient',nil);
    SetWindowText(Tibia,PChar('Tibia <<Mój Bot>>'));
    end;


    procedure TForm1.Button2Click(Sender: TObject);
    begin
    ShowMessage(CalculateLeftExp);

    end;

    end.
    Mam tak zrobione i wyskakuje mi przy run błąd:

    [Error] Unit1.pas(55): Undeclared identifier: 'Power'
    [Error] Unit1.pas(55): Incompatible types: 'Integer' and 'Extended'
    [Error] Unit1.pas(64): Too many actual parameters
    [Error] Unit1.pas(64): Too many actual parameters
    [Error] Unit1.pas(65): Too many actual parameters
    [Error] Unit1.pas(65): Too many actual parameters
    [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

    ps. Nie zwyzywajcie mnie za mocno ;p

  19. #45
    Avatar smietek
    Data rejestracji
    2006
    Wiek
    32
    Posty
    207
    Siła reputacji
    20

    Domyślny

    Mam pytanie. Jak trzeba zrobić, żeby jak knikniemy na Zmień nazwę okna pojawiała się nazwa: Tibia Bot (ilość całego expa) ?

  20. Reklama
Reklama

Informacje o temacie

Użytkownicy przeglądający temat

Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)

Podobne tematy

  1. [Anti-Bot] legerian.net [Własny klient] Real map
    Przez Seyaelo w dziale Tematy serwerów
    Odpowiedzi: 33
    Ostatni post: 11-08-2014, 14:20
  2. [Własny klient][Zapowiedz I] Eternal Kingdoms - Powrót!
    Przez Transerion w dziale Tematy serwerów
    Odpowiedzi: 15
    Ostatni post: 08-06-2012, 13:33
  3. [8.0(własny)]Dragon Ball Power OTS
    Przez DragonBallPower w dziale Tematy serwerów
    Odpowiedzi: 44
    Ostatni post: 26-06-2011, 19:20
  4. [Własny Klient] Czy podoba Ci się ten pomysł?
    Przez konto usunięte w dziale Open Tibia Server
    Odpowiedzi: 10
    Ostatni post: 28-04-2010, 17:29
  5. [Własny Klient]Co myślisz o tym pomyśle?
    Przez Maciek Niepokonany w dziale Open Tibia Server
    Odpowiedzi: 2
    Ostatni post: 27-04-2010, 23:04

Zakładki

Zakładki

Zasady postowania

  • Nie możesz pisać nowych tematów
  • Nie możesz pisać postów
  • Nie możesz używać załączników
  • Nie możesz edytować swoich postów
  •