[INNE] UltimateTibiaPatcher

http://gmclan.org/uploader/3899/bmcmc.png
MC do wszystkich wersji (preview też)

Rano mi się nudziło i postanowiłem, że stworzę sobie małe, ale uproszczające życie narzędzie.
Ten programik ładnie nam przerobi klienta w MC. Gwarantuję, że zadziała po każdym update Tibii.
Program usuwa Mutexa z klienta. Nie jest to w żaden sposób wykrywalne przez Cipsoft

Download: http://tibiabluebot.pl

@Tomix:
Jak możesz to wrzuć do oficjalnej listy ;)

Po co robić kolejny taki program, skoro istnieje NeoMC? Ale + za chęci leci :)

Ten jest lepszy, bo wystarczy go uruchomić raz.
Poza tym to polski program ;)

Ale NeoMC też uruchamiam raz, następnie sobie włączam Tbi tyle, ile potrzebuję i starcza mi na cały dzień ;)

Cytuj:

---

Perkun napisał

Po co robić kolejny taki program, skoro istnieje NeoMC? Ale + za chęci leci :)

---

NeoMC nie działa pod preview
Ja od siebie polecam XenoMC

Cytuj:

---

Bojda napisał

NeoMC nie działa pod preview
Ja od siebie polecam XenoMC

---

A to nie wiedziałem, nie grywam na OTS'ach :)

Cytuj:

---

Perkun napisał

A to nie wiedziałem, nie grywam na OTS'ach :)

---

grywasz pewnie swoim 30 lv na non pvp, rozumiemy:)

nie, moimi 180+ na pvp Berylii, Nerana jest tak dodatkowo, gdy u mnie wszystko zajęte

Moim zdaniem programik OK, napewno skorzystam

i jak opinie?
czyste ?:D

Czyste, spokojnie.
Ręczę życiem matki.

Kod może nie jego ale czysty na 90%

Cytuj:

---

LGTK napisał

Kod może nie jego ale czysty na 90%

---

tzn? Jakoś rozwiniesz?

Myślisz że nie jego kod? Przecież wyszukanie ciągu i zmiana chyba jest prostym zabiegiem - dlaczego by miał brać kod od kogoś?:) ps. jest jakieś api że taki wysyp botów?

@LGTK:

Kod:

---

unit main;

interface

uses
  Windows, ShellApi, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OutlookBtn, MPlayer;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    OutlookBtn1: TOutlookBtn;
    Label3: TLabel;
    Label4: TLabel;
    OpenDialog1: TOpenDialog;
    OutlookBtn2: TOutlookBtn;
    Memo1: TMemo;
    Label5: TLabel;
    Timer1: TTimer;
    MediaPlayer1: TMediaPlayer;
    procedure Label2Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure OutlookBtn1Click(Sender: TObject);
    procedure OutlookBtn2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function ReadBiggerFile: AnsiString;
var
i,j:integer;
  biggerfile: TFileStream;
  newfile: TFileStream;
  plik:ansistring;
begin
if form1.Label3.caption='Path' then exit;
  biggerfile := TFileStream.Create(form1.label3.caption, fmOpenReadWrite or fmShareDenyNone);
    newfile := TFileStream.Create(form1.label3.caption+'_mc.exe', fmCreate); //or fmShareDenyWrite);
  try
    SetLength(plik, biggerfile.Size);

    biggerfile.Read(plik[1], biggerfile.Size);

        i:=pos('tibiaplayermutex',LowerCase(plik));
if i>0 then
form1.Memo1.Lines.Add('Mutex found at: $'+inttohex(i,7));
if i=0 then ShowMessage('It''s MC or is not Tibia');
if i=0 then halt;
for j:=0 to 16 do
plik[i+j]:=#0;

        i:=pos('enter game',LowerCase(plik));
if i>0 then begin
form1.Memo1.Lines.Add('Enter Game Button found at: $'+inttohex(i,7));
plik[i]:='L';
plik[i+1]:='o';
plik[i+2]:='r';
plik[i+3]:='d';
plik[i+4]:='C';
plik[i+5]:='o';
plik[i+6]:='m';
plik[i+7]:='p';
plik[i+8]:='i';
plik[i+9]:='M';
plik[i+10]:='C';
plik[i+11]:=#0;
plik[i+12]:=#0;
end;
i:=pos('enter preview',LowerCase(plik));
if i>0 then begin
form1.Memo1.Lines.Add('Enter Preview Button found at: $'+inttohex(i,7));
plik[i]:='L';
plik[i+1]:='o';
plik[i+2]:='r';
plik[i+3]:='d';
plik[i+4]:='C';
plik[i+5]:='o';
plik[i+6]:='m';
plik[i+7]:='p';
plik[i+8]:='i';
plik[i+9]:='M';
plik[i+10]:='C';
plik[i+11]:=#0;
plik[i+12]:=#0;

end;
newfile.Write(plik[1], biggerfile.size);

form1.Memo1.Lines.Add('Patched!');
newfile.Free;
  finally biggerfile.Free;
  end;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
halt;
end;

procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(Handle,'open',pchar('http://tibiabluebot.pl'),nil,nil,SW_NORMAL);
end;

procedure TForm1.OutlookBtn1Click(Sender: TObject);
begin
if opendialog1.Execute then
Label3.Caption:=opendialog1.FileName;
end;

procedure TForm1.OutlookBtn2Click(Sender: TObject);
var i:integer;
begin
readbiggerfile;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label5.Font.color:=random($ffffff);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mediaplayer1.FileName:='funkyfanfare.mp3';
mediaplayer1.Open;
mediaplayer1.Play;

end;

end.

---

Teraz sobie zobacz kod XenoMC.