- OTS Soft - Forum o Open Tibia Server. http://www.otssoft.pun.pl/index.php - Teksty http://www.otssoft.pun.pl/viewforum.php?id=17 - Crackowanie TIBIABOT NG do Tibii 8.22 BEZ KEYLOGGERÓW LINKI ZE STRON http://www.otssoft.pun.pl/viewtopic.php?id=774 |
Pening - 2008-08-23 06:05:06 |
Witam. Postanowiłem napisać ten poradnik ze względu na co raz częstsze pojawianie się tematów z keyloggerami na wielu forach. Mój poradnik pokaże Ci jak rzeczywiście i bezpiecznie scrackować Tibiabot NG. Oczywiście chciałbym przypomnieć, że nie jest to legalne w świetle prawa Tibijskiego, ale ułatwia w dużym stopniu grę. W tym poradniku NIE znajdziecie żadnych linków do rapidshare lub speedyshare - wszystko co musisz ściągnąć to programy ze stron ich producenta! Ten poradnik można znaleźć na kilku stronach. Kod:Name: "Dr.Thril" Addr1: "Team" Addr2: "ZWT" Key1: E28A6B5A382BF8325755138D544FC3B4 Key2: 07430FCA6C8D7EE0C4BBAA9BBEEFEC67 Chksm: D5 Zatwierdzamy ok i mamy odblokowane funkcje. Kod:Const SafeList = ['Player1', 'Player2'] GMSafe = 0 PlayerSafe = 0 ////////// Self.Healing ////////// Minimum_Health = 364 Healing_Spell = 'exura gran' Mana_Needed = 40 Use_Spell = 0 Use_Rune = 1 ////////////////////////////////// Function GMDetected: boolean; begin Result := False; UpdateWorld; for x := 0 to Creatures.Count - 1 do begin if Creatures.Creature[x].GM then Result := True; end; end; Function PlayerOnScreen : boolean; begin Result := False; if Creatures.Count > 1 then begin for x := 0 to Creatures.Count - 1 do begin Skip := False; if Terminated then Break; if Creatures.Creature[x].Name = Self.Name then Continue; if Creatures.Creature[x].NPC then Continue; if Creatures.Creature[x].Visible then begin for y := Low(SafeList) to High(SafeList) do begin if AnsiLowerCase(Creatures.Creature[x].Name) = AnsiLowerCase(SafeList[y]) then Skip := True; end; if Skip then Continue; Result := True; end; end; end; end; while not Terminated do begin UpdateWorld; if GMSafe and GMDetected then begin Sleep(100); Continue; end; if PlayerSafe and PlayerOnScreen then begin Sleep(100); Continue; end; if (Self.Health < Minimum_Health) then begin if ((Self.Mana > Mana_Needed) and Use_Spell) then Self.Say(Healing_Spell); else Case Use_Rune of 1: Self.Containers.UseItemWithSelf(266); ///normal 2: Self.Containers.UseItemWithSelf(236); ///strong 3: Self.Containers.UseItemWithSelf(239); ///great 4: Self.Containers.UseItemWithSelf(7643); ///ultimate end; Sleep(1000); end; Sleep(100); end; I zapisujemy. Use_Rune = tu wpisujemy numer potionu. 1 to potion zwykły, 2 to strong, 3 to great i 4 to ultimate. Minimum_Health = tu wpisujemy na ile hp bot ma użyć potiona. Use_Spell = 0 powinno tak zostać, bo nie chcemy sie leczyć spellem. Kod:Const SafeList = ['Player1', 'Player2'] GMSafe = 0 PlayerSafe = 0 ////////// Mana Restore ////////// Minimum_Mana = 300 Use_Item = 1 ////////////////////////////////// Function GMDetected: boolean; begin Result := False; UpdateWorld; for x := 0 to Creatures.Count - 1 do begin if Creatures.Creature[x].GM then Result := True; end; end; Function PlayerOnScreen : boolean; begin Result := False; if Creatures.Count > 1 then begin for x := 0 to Creatures.Count - 1 do begin Skip := False; if Terminated then Break; if Creatures.Creature[x].Name = Self.Name then Continue; if Creatures.Creature[x].NPC then Continue; if Creatures.Creature[x].Visible then begin for y := Low(SafeList) to High(SafeList) do begin if AnsiLowerCase(Creatures.Creature[x].Name) = AnsiLowerCase(SafeList[y]) then Skip := True; end; if Skip then Continue; Result := True; end; end; end; end; while not terminated do begin UpdateWorld; if GMSafe and GMDetected then begin Sleep(100); Continue; end; if PlayerSafe and PlayerOnScreen then begin Sleep(100); Continue; end; if (Self.Mana <= Minimum_Mana) then begin Case Use_Item of 1: Self.Containers.UseItemWithSelf(268); ///normal 2: Self.Containers.UseItemWithSelf(237); ///strong 3: Self.Containers.UseItemWithSelf(238); ///great end; Sleep(1000); end; Sleep(100); end; Use_Rune = tu wpisujemy numer potionu. 1 to potion zwykły, 2 to strong, 3 to great. Minimum_Mana = tu wpisujemy na ile ma nam używać potiona. |
pawelek06 - 2009-10-06 22:03:16 |
przyda sie napewno dzieki |
wusw - 2013-03-28 11:05:28 |
Przyda się i to na milion procent. Wielkie dzięki, poradnik jest świetny! |
fkje - 2013-04-07 17:07:57 |
Poradnik pierwsza klasa, jest w sam raz dla mnie. Dzieki wielkie |