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

Maskot · 04-02-2010 15:27

A sprawdz

Kod PHP:

MemWriteInteger(battlelist_start+pozycja*Distance_Between_Chars+distance_lightcolor,250,3);
MemWriteInteger(battlelist_start+pozycja*Distance_Between_Chars+distance_light,15,2);

A jak nie zadziala to sprawdz

Kod PHP:

//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*164)); //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;
//Battlelist - czytanie

NedO · 04-02-2010 16:05

@up Dzięki za to,ale jak wpisałem to zmieniło mi na 2 addony przy outficie ;p czyli zamiast światla ci wyszedł addon changer.Ale dzięki ;p

Albo mam źle zapisane światło.. 0.0 ale sam mi je tak podałeś parę postów up ;p

LGTK · 04-02-2010 17:04

użyj mojego unitu lh powinien działać tz wpisujesz Light(15,250) czy jakoś tak

NedO · 04-02-2010 21:51

@up

O co ci chodzi, wogle cie nie ogarniam.. Wyjasnij bardziej szczegolwo

Ar'buz · 04-02-2010 23:45

NedO napisał

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

@up

O co ci chodzi, wogle cie nie ogarniam.. Wyjasnij bardziej szczegolwo

Jeśli nie wiesz co napisał ten użytkownik wyżej, to szczegółowsze tłumaczenie brzmi mniej więcej tak:
"Naucz się Delphi".

LGTK · 05-02-2010 19:50

Po prostu chłopak nie myśli albo nie czyta wszystkiego :)

Qjaw1 · 08-02-2010 19:43

@LGTK Do czego jest ten skrypt? Runemaker?

Btw. Czy mógłby ktoś podać adresy do klienta Tibii 7.4? Dzieki z góry ;]

LGTK · 09-02-2010 16:21

To jest unit! gdzie masz najpotrzebniejsze funkcje i procedury do tibii od hooka, lh, dll inject, levelspy, do znajdowania itemu w bp szukania gracza na liście przesuwania itemów mówienia write/read string byte bytes integer itp

Kambel · 13-02-2010 10:01

Mam małe pytanie, otóż staram się nie spisywać całego kodu, tylko sam go pisać, a ten artykuł ma być tylko drobną pomocą więc:

Kod :

function ReadMemoryString(Address : Integer) : String;
var
IDProc, IDProcess : Cardinal;
Bufor : Array[1..255] of byte;
Number : LongWord;
I : Byte;
begin
GetWindowThreadProcessId(FindWindow('TibiaClient',nil), @IDProc);
IDProcess := OpenProcess(Process_all_access, false, IDProc);
Result := ''; 
ReadProcessMemory(IDProcess, Ptr(Address), @Bufor[1], 255, Number);
for I := 1 to 255 do
begin
if (Bufor[1] = 0) or (Bufor[1] = $0F) then  
break;
Result := Result + CHR(Bufor[i]);
end;
end;

Na czerwono zaznaczyłem części kodu, które mnie interesują. Co oznacza $0F, że jeżeli on zostanie wyciągnięty to następuje wyjście z pętli? Jeszcze interesuje mnie zaznaczony 1 fragment kodu, po co opróżniać rezultat, skoro on jeszcze jest "pusty"?

Ar'buz · 13-02-2010 11:48

Kambel napisał

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

Mam małe pytanie, otóż staram się nie spisywać całego kodu, tylko sam go pisać, a ten artykuł ma być tylko drobną pomocą więc:

Kod :

function ReadMemoryString(Address : Integer) : String;
var
IDProc, IDProcess : Cardinal;
Bufor : Array[1..255] of byte;
Number : LongWord;
I : Byte;
begin
GetWindowThreadProcessId(FindWindow('TibiaClient',nil), @IDProc);
IDProcess := OpenProcess(Process_all_access, false, IDProc);
Result := ''; 
ReadProcessMemory(IDProcess, Ptr(Address), @Bufor[1], 255, Number);
for I := 1 to 255 do
begin
if (Bufor[1] = 0) or (Bufor[1] = $0F) then  
break;
Result := Result + CHR(Bufor[i]);
end;
end;

Na czerwono zaznaczyłem części kodu, które mnie interesują. Co oznacza $0F, że jeżeli on zostanie wyciągnięty to następuje wyjście z pętli? Jeszcze interesuje mnie zaznaczony 1 fragment kodu, po co opróżniać rezultat, skoro on jeszcze jest "pusty"?

Nie wiem po co jest to "0F", chociaż fakt - takiego znaku nie zobaczysz normalnie na ekranie.
Swoją drogą rezultat nie jest pusty. Delphi nie zeruje zmiennych, jeśli nie są one globalne.

Ja natomiast zamieniłbym powyższy fragment kodu na:

Kod :

function ReadMemoryString(Address : Integer) : String;
var
  IDProc, IDProcess : Cardinal;
  Bufor : Array[1..255] of byte;
  Number : LongWord;
begin
  GetWindowThreadProcessId(FindWindow('TibiaClient',nil), @IDProc);
  IDProcess := OpenProcess(Process_all_access, false, IDProc);
  ReadProcessMemory(IDProcess, Ptr(Address), @Bufor[1], 255, Number);
  result:=pchar(@bufor);
end;

Kambel · 13-02-2010 12:18

Dzięki za odpowiedź, mam jeszcze jedno pytanie, otóż:
Jak moge "wymusić" pojawienie się tego białego komunikatu, tylko że z własną treścią. Bo tibia wyswietla takie komunikaty np. You are Full, Sorry Not Possible. Zmiana treści jest prosta, tylko problem tkwi w kontrolowanym wyświetleniu napisu.

#edit1

mam jeszcze pytanie, czy trenowanie many "od-do" będzie wykrywalne przez ten cały system? Może niezbyt precyzyjnie się wyraziłem, ale tu jest kod:

Kod :

var
  Mniejsza : integer;
  Wieksza : integer;
  Wynik : integer;
begin
  Wieksza := StrToInt(Edit6.Text);
  Mniejsza := StrToInt(Edit5.Text);
  Wynik := wieksza - mniejsza;
  Randomize;
  if Player_Mana >= Random(Wynik) + Mniejsza then
  Say(Edit4.Text);
end;

LGTK · 13-02-2010 17:38

Po coś dałem ten unit było chociaż sprawdzić co tam jest
a jest tam coś takiego

Kod :

Procedure WhiteText(Text:String);
begin
  WriteMemStr(Status_Text,Text);
  WriteMemByte(Status_Time,50);
end;

To chodzi bardziej o pakiety a nie to czy dokładnie co x wysyłasz pakiet

@Edit
te up a nie lepiej

Kod :

var
 mana: integer;
begin
mana:= np. 100?
  if Player_Mana >= mana then
  Say(Edit4.Text);
end;

Kambel · 14-02-2010 14:49

LGTK napisał

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

Po coś dałem ten unit było chociaż sprawdzić co tam jest
a jest tam coś takiego

Kod :

Procedure WhiteText(Text:String);
begin
  WriteMemStr(Status_Text,Text);
  WriteMemByte(Status_Time,50);
end;

To chodzi bardziej o pakiety a nie to czy dokładnie co x wysyłasz pakiet

@Edit
te up a nie lepiej

Kod :

var
 mana: integer;
begin
mana:= np. 100?
  if Player_Mana >= mana then
  Say(Edit4.Text);
end;

No chyba jest różnica między Twoim kodem a moim, no nie?
Mój kod jest jak najbardziej prawidłowy : )

LGTK · 14-02-2010 19:01

ja nie rozumiem poco odejmujesz te dwie wartości

Gniew_Mroku · 15-02-2010 01:10

Kambel:
Cały czas nie wiadomo na jakiej zasadzie działa system wykrywania botów. Dlatego nawet jeśli uzyskasz jakąś odpowiedź nie traktuj jej jako pewnej.

I jeszcze wnioski na temat Twojego kodu:

Randomize jest procedurą, którą wystarczy wywołać raz. W tym miejscu wygląda dziwnie.

Dla Twojej własnej wygody polecam zrobić sobie funkcję losującą liczbę z danego przedziału. Unikniesz dodawania i odejmowania w miejscach gdzie nie powinno tego być.

I ostatnia rada, choć nie koniecznie trafna - nie znam całego kodu. Natomiast wygląda na to, że jest to jakaś procedura, która wywołuje się co jakiś czas (zgaduję, że timer albo po otrzymaniu pakietu z ilością many). Zauważ, że przy każdym wywołaniu po raz kolejny losujesz nową ilość many potrzebnej by rzucić zaklęcie - tym samym zwiększasz prawdopodobieństwo, że zostanie rzucone wcześniej. Random(Wynik) powinieneś zapisywać w momencie rzucenia zaklęcia (nie zapomnij zainicjować przy uruchomieniu programu) faktycznie działało tak jak to prawdopodobnie planowałeś.

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

Narzędzia tematu

Oceń ten temat

7.4

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