Kv**a odpowiedzcie :|
Wersja do druku
Kv**a odpowiedzcie :|
@Xedyn
Można metodą prób i błędów, czyli np. podnosić item z różnych miejsc i patrząc co się zmienia, można też przejrzeć ten artykuł z TPrograming który ci podałem i przerobić tamte procedury, tyle tylko, że tak jest to trochę inaczej napisane, przykład procedury przenoszącej item na ziemi, np. ciągnięcie lootbaga:
VB:
Delphi:Kod:PacketBuffer(0) = &HF
PacketBuffer(1) = &H0
PacketBuffer(2) = &H78
PacketBuffer(3) = LongToByte(FromX, 1)
PacketBuffer(4) = LongToByte(FromX, 2)
PacketBuffer(5) = LongToByte(FromY, 1)
PacketBuffer(6) = LongToByte(FromY, 2)
PacketBuffer(7) = FromZ
PacketBuffer(8) = LongToByte(ItemID, 1)
PacketBuffer(9) = LongToByte(ItemID, 2)
PacketBuffer(10) = &H3
PacketBuffer(11) = LongToByte(ToX, 1)
PacketBuffer(12) = LongToByte(ToX, 2)
PacketBuffer(13) = LongToByte(ToY, 1)
PacketBuffer(14) = LongToByte(ToY, 2)
PacketBuffer(15) = ToZ
PacketBuffer(16) = &H0
PacketBuffer(17) = &H1
Jak widzisz, trzeba to trochę przerobić.Kod:PacketBuffer[0] := $0F;
PacketBuffer[1] := $00;
PacketBuffer[2] := $78;
CopyMemory(@PacketBuffer[3],@fromx, 2);
CopyMemory(@PacketBuffer[5],@fromy, 2);
PacketBuffer[7] := fromz;
CopyMemory(@PacketBuffer[8],@id, 2);
PacketBuffer[10] := $03;
CopyMemory(@PacketBuffer[11],@tox, 2);
CopyMemory(@PacketBuffer[13],@toy, 2);
PacketBuffer[15] := toz;
PacketBuffer[16] := $00;
PacketBuffer[17] := $01;
Np.
naKod:PacketBuffer(3) = LongToByte(FromX, 1)
PacketBuffer(4) = LongToByte(FromX, 2)
Mam nadzieje, że pomogłem =)Kod:CopyMemory(@PacketBuffer[3],@fromx, 2);
a może mi ktoś podać adress zmiany nicku ?
albo jak go uzyskac w cheat engine
no właśnie _._ ...mozna powiedzie e jestem malo inteligenty, ale nie wiem gdie wpisa to co BATTLE LISt do jakich stalych?! gdzie to jest jak to wklejam to i próbuje skomplisowac y cstam zrobi to sie podswietla to na zerwono _._Cytuj:
Czupax napisał
Czytam i już czasem nie mogę ;)
A Yaboo tak ładnie to opisał...
1. Nick nie ma stałęgo adresu: musicie go sami znaleźć szukając po Battle liście...
2. Gdzie wpisać adres Battle_list? Do stałych - tam gdzie wszystko.
Przeczytajcie uważnie kurs...
Konkretnie miejsce dla stałych znajduje się po:
i wygląda tak:Kod:var
Form1: TForm1;
Więcej będę pomagał (i Yaboo też), jak powstanie osobny dział, o który prosiliśmy w tym temacie:Kod:var
Form1: TForm1;
const
stała1=coś;
stała2=coś;
(...)
http://forum.tibia.org.pl/showthread.php?t=240375
Tylko teraz niech ktoś kto ma "Power" coś z tym zrobi, Bo jeśli temat będzie gdzieś w archiwum to nici ze specjalnego działu =/ Wszyscy spamujemy Arch'owi na priv ;p <joke>
Była by możliwość, aby ktoś mi zrobił skormne macro do Tibii na moje własne zamówienie.
Tzn. To co mi osobiście jest potrzebne.
Może mi ktoś powiedzieć co źle robię (jasno wytłumaczyć xD)
h t t p://img168.imageshack.us/my.php?image=delphimb9.png
@up
nie dodałeś ReadMemInteger i string, a 'pozycja' dałeś w złym miejscu...
Czytaj dokładnie... -.-
Address - wartości w kliencie Tibii mają swoje miejsca(czyt. Adresy). Adresy te wyglądają np tak "60EAC0" (w tym miejscu zapisany jest level twojej postaci).
No i ja juz tu siedze _._ o co łapie. Czy ja jestem az taki ulomny? Nie czaje w ogóle o czym tu sie jedzie, gdzie co znalesc, nie mógl by ktos napisac jeszcze raz tego JASNIEj, wiem ze Yooboo sie staral ale ja nic nie czaje :|
SKAD WZIASC TEN ADRESS!?
#edit
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), #ProcId); to mi sie jakos na czerwono swieci a czemu jasna cholera _._
#down
Dzienx, po troszku i to zrobie :p. Zagladaj Tu Ar`buz bede miec bankowo jeszcze pytanka xP
@up:
Adresu, sam z ziebie tak łatwo nie znajdziesz. Do tego potrzeba programu do możliwości łażenia po mamięci procesu.
Dla tego lepiej korzystać z gotowych adresów, które zostały podane gdzieś w tym temacie.
Edit:
Pomysł permanentnej zamiany znaku "małpa" na "#" jest tutaj cokolwiek problematyczny.
Funkcja:
powinna wyglądać tak:Kod:GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), #ProcId);
Kod:GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), małpaProcId);
Ok, mam kolejne pytanko ( narazie idzie...z...) Juz mi nie wyskakuja liczby ~58tys.+ jest ok, lvl, mana.. wszystko super, ale jak zrobic obok tego, TEXT, zeby bylo wiadome co to jest. Czekam na odpowiedz :)
@edit
say(edit1.Text); to mi sie rbi czerwone :| i..
timer2.Enabled := true; to jeszcze :|
Ja osobiscie urzywam TP(turbo pascal). Powiem Ci ze teraz po twoim artykule wiecej osob zacznie sie interesowac programowaniem :)
Dobra robota :D
ma ktoś kod do lighthacka na Tibię 8.1?
proszę zamienić wszystkie 'at' w tekście na (małpa) z góry thx
/edit
Ja mam mniej więcej tak:Cytuj:
Vivynus napisał
level 0(nr)
mana 0(mp)
hit points 0(hp)
Ustawiasz po prostu label (etykietę) bez funkcji o takiej nawie tuż obok, a nazwy labeli funkcyjnych zamień na 0 (chyba łatwiej wyjaśnic się nie da)
Cyba o to ci chodziło :-P
Dzienx, Kakashi Sensei, ktos mi odpowie na pytanie jakie jeszcze zadalem?
say(edit1.Text); to mi sie robi czerwone :| i..
timer2.Enabled := true; to jeszcze :|
@edit
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID Prosze o szybko odpowiedz.