Zwei kleine Games für zwischendurch

[MaBuSE]

Zitat von Sharky:

Hai ihr,

ich glaube aber nicht das wir die Opensource-Sparte mit den "Highscores" von den Spielen "zumüllen müssen"

OK, dann hier die Anleitung zum Spiel als Open Source

100 Kästchen mit 2 Mausklicks:

1. In das leere Form1 des Cheat Programms klicken
2. In das Fenster "Game1" Wechseln

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  Timer1.Enabled := False;
  for i := 1 to 100 do
  begin
    Caption := intToStr(i);
    keybd_event(VK_SPACE, 0, 0, 0);
    keybd_event(VK_TAB, 0, 0, 0);
  end;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
  // Einfach ein mal auf das leere form1 klicken und zu Game1 wechseln.
  Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Wirde Timer1 manuel zugewiesen, hier nur als Doku
  Timer1.Enabled := False;
  Interval := 2500;
  OnTimer := Timer1Timer;
end;