Wersja do druku
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ń ;)
NeoMC nie działa pod previewCytuj:
Perkun napisał
Ja od siebie polecam XenoMC
A to nie wiedziałem, nie grywam na OTS'ach :)Cytuj:
Bojda napisał
grywasz pewnie swoim 30 lv na non pvp, rozumiemy:)Cytuj:
Perkun napisał
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%
tzn? Jakoś rozwiniesz?Cytuj:
LGTK napisał
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:
Teraz sobie zobacz kod XenoMC.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.
Ok tym razem przyznaje zrobiłeś to inaczej. Brawo pomysłu.
Tylko pytanie :DCzego z palca pisałeś jak iteracyjnie to tylko jedna linijka kodu?Kod: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;
Rano było
Tam rano kod ma być ładny jak go publikujesz żeby wstydu nie było :D
Jakbyś to iteracyjnie zrobił?
Z resztą, ważne że działa
Z takim podejściem to ja Ci nie wróże kariery :DCytuj:
LordCompi napisał
Nie da się iteracji zrobić bez motania w tamtym miejscu, bo wartości po dwóch stronach nie następują po sobie.Cytuj:
Arakon Arke napisał
Mógłbym zwiększyć plik[i+j] ale co z przypisaniem?
Szybciej i wygodniej było walić z palucha
masz ten tekst gdzieś tam dajmy na to
i lecisz np.Kod:char t[] = {'L','o','r','d','c','o','m','p','i','\0','\0'};
Hehe i gówno napisałeś się tylko przez zaspanie/głupote :DKod:for(unsigned int x =0; x < sizeof(t); x++) plik[i+x] = t[x];
No i dobra, zobaczymy :p
Patcher działa od wersji 7.6 do najnowszej. W 7.5 trzeba zmieniać bajty albo użyć argumentu -gamemaster
Odkopuje bo narzędzie jest jak najbardziej sprawne i nie trzeba odpalac za kazdym razem tak jak XenoMC
mi strona http://tibiabluebot.pl/ nie dziala
bo teraz z tego co wiem jest http://bluebot.cba.pl/ ;d;dCytuj:
Taviik napisał
@temat
podlinkowałem w spisie ;)
@Tavlik Chyba masz cos z DNS
@Tomix Dzięki ;)
nie moge znalesc linka do pobrania na tym forum..
przy Tibii 10.52 zrobił się jakiś syf w procesach, którego niczym wyłączyć nie mogę..
http://screenshu.com/static/uploads/.../br/zl1muw.jpg
A MC nie działa