Bot Do Zagan Square Ots

[borewicz]

Wiem, że mogę dostać bana prosząc o Bota do tego oto OTS'a...

 

Proszę tylko o to żeby ktoś podał jakąś nazwę lub ewentualnie wstawił gdzieś bota i przesłał mi link :P

 

Chodzi mi o bota, który przynajmniej ruszy się po 15 minutach, gdyż mam już dość skillowania

Mógł by też mieć funkcję auto puszczania skilla. tzn. taki że wpisujesz ile many na czar i puszcza go gdy ją masz ale to w ostateczności :P

 

WIEM, ŻE O DUŻO PROSZĘ Ale może znajdzie się dobroczyńca

 

Dodaje moje gg dla wstydzących się napisać w poście :P

xxx

[jackraymund]

niedawno napisałem bota który ma funkcje ruszania, palenia many i jedzenia fooda jeżeli chcesz go przetestowac to odpisz jeżeli nie to napisz pod jaka wersje ma ten ots

[borewicz]

Ten ots ma swojego własnego klienta dlatego ciężko znaleźć do niego bota... http://www.zsquare.eu/

to jest tibia 7.6 ale z modyfikowana ;O

Możesz dać to spr. bota... od razu daj skana :P

 

A i jeszcze jedno...

Nie chodzi mi o to żeby sam chodził tylko poruszał się za pomocą CTRL w różne strony po 15 minutach...

[jackraymund]

@up

tak bot rusza się ctrl +up ctrl +down jest tylko funkcja jedzenia fooda jest tylko pod hotkeya, tzn ze klika f12

ale palenie many i ruszanie dziala

[igorekpl]

Napisalem takiego prostego bota specjalnie dla ciebie...

Ma w sobie:

-Leczenie,

-Spalanie Many,

-Anti-Afk.

 

Download:

http://www.megaupload.com/?d=5FPCYU6I

Skan:

VirusTotal

Jesli chcesz zebym cos dodal to pisz tutaj lub na PW

 

Pozdrawiam

[jackraymund]

@up

na jakiej zasadzi masz zrobione autoleczenie? mógł byś podac source?

[igorekpl]

@up

na jakiej zasadzi masz zrobione autoleczenie? mógł byś podac source?

Delphi:

Funkcja pobierajaca Inty z Pamieci procesu:

function ReadMemInteger(Address: Cardinal): Cardinal;       //Read adress:value
var
ProcId: Cardinal;
tProc: THandle;
NBR: Cardinal;
value:integer;
begin
   GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcId);
   tProc:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcId);
   ReadProcessMemory(tProc, Ptr(Address), @value, 4, NBR);
   CloseHandle(tProc);
   Result:=value;
end;

Pobieranie Ilosci Aktualnej i maksymalnej zycia:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Zycie:=ReadMeminteger($004A1240);
Zyciemax:=ReadMeminteger($004A123C);
end;

Jesli HP mniejsze niz liczba w Edicie then ulecz:

procedure TForm1.Timer2Timer(Sender: TObject);
var
I: Integer;
begin
if IntToStr(Zycie)<=Edit2.Text then
begin
   for I := 1 to Length(Edit1.Text) do
     SendMessage(FindWindow('TibiaClient',nil), WM_CHAR, Word(Edit1.Text[i]), 0);
     PostMessage(FindWindow('TibiaClient',nil), WM_KEYUP, VK_RETURN, 0);
     end;
end;

[borewicz]

No chopie wielkie dzięki O TO MI WŁAŚNIE CHODZIŁO :DDD

 

Dziękuję wam obu, że się zaangażowaliście

 

Ps. stawia się gdzieś tu piwko czy plusika ? :P

[igorekpl]

Ja poprosze tyskie

Jesli bedziesz czegos potrzebowal pisz na GG bo ja tu nie za czesto zaglądam :P

Jack sorry ale nie wiedzialem ze nie mozna podawac gg...

Podaj mi swoj nick na GG lub na PW pod ktorym grasz na OTSie.