Własny bot

Wersja do druku

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

03-09-2006, 16:43
konto usunięte

Cytuj:

w8w8w8 napisał

naprawde to taki duzy blad ? mogl zostac .
a mnie sie poradnik podoba ale nie znam podstaw delphi ;(

http://4programmers.net/Delphi/Kompendium
Dobry poradnik :)
04-09-2006, 22:21
świrus

temat upadł :( a ja jeszcze pakiety chce :(
06-09-2006, 19:22
Klopuś

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
06-09-2006, 21:51
Shafter

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++ ??
07-09-2006, 06:21
konto usunięte

Cytuj:

Shafter napisał

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 ^.^
08-09-2006, 15:06
świrus

nieprzeniesiony bo niezostał skączony :(
08-09-2006, 16:48
konto usunięte

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

Ale poradnik bardzo przejzyscie napisany.
Moze komuś się uda
08-09-2006, 17:53
Uriziel

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
26-09-2006, 00:12
świrus

i dupa :( nima
ale i tak już mam to co trzeba ^^
28-11-2006, 21:01
bezele-squad

moze mi ktos re-hostnac plik mem.pas? z gory thx
13-12-2006, 22:37
konto usunięte

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
03-02-2007, 02:19
konto usunięte

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?
29-05-2007, 17:42
Snowak

Cytuj:

Zyllen Xovade napisał

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...
29-05-2007, 22:40
konto usunięte

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

Cytuj:

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:

Cytuj:

[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
30-05-2007, 19:57
smietek

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

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