Jak napisać własne macro do Tibii

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

---

@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

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

@up

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

Cytuj:

---

NedO napisał

@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".

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

@LGTK Do czego jest ten skrypt? Runemaker?

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

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

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"?

Cytuj:

---

Kambel napisał

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;

---

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;

---

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;

---

Cytuj:

---

LGTK napisał

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 : )

ja nie rozumiem poco odejmujesz te dwie wartości

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ś.