source code:
unit SOLDIER;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Image1: TImage;
Image2: TImage;
Edit1: TEdit;
Button5: TButton;
Button6: TButton;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Button7: TButton;
Image3: TImage;
Timer1: TTimer;
Label15: TLabel;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Memo1: TMemo;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
i, ach1, ach2, ach3, ach4, ach5, ach6, pantsoff, opened, final, began:integer;
{$R *.dfm}
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
began:=1;
i:=40;
pantsoff:=0;
opened:=0;
timer1.Enabled:=true;
image6.Visible:=true;
image1.Visible:=true;
groupbox1.Visible:=false;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if (edit1.text = 'kill yourself') and (began =1) then
begin
image1.visible:=false;
image2.Visible:=true;
label7.caption:='Giving up is never the answer. Or it is?';
ach1:=1;
button6.Visible:=true;
end;
if (edit1.text = 'shit') and (began=0) then
begin
label10.Caption:='You shit before the game began!';
image3.Visible:=true;
ach2:=1;
button6.Visible:=true;
end;
if (edit1.Text = 'shit') and (image8.Visible = false) and (image1.Visible = true) and (began = 1) then
begin
label5.caption:='Sometimes even 0 effort is rewarded.';
image3.visible:=true;
ach4:=1;
button6.Visible:=true;
end;
if (edit1.Text = 'take off pants') and (began = 1) then
begin
image4.visible:=true;
image1.Visible:=false;
pantsoff:=1;
end;
if (edit1.Text = 'shit') and (pantsoff=1) and (opened=0) and (began = 1) then
begin
label3.caption:='Its not your fault, toilet was invisible';
image5.visible:=true;
image3.Visible:=false;
ach5:=1;
button6.Visible:=true;
end;
if (edit1.Text = 'pull the door') and (began = 1) then
begin
image6.Visible:=false;
image7.visible:=true;
image9.Visible:=true;
opened:=1;
end;
if (edit1.text = 'sit on toilet') and (opened=1) and (began = 1) then
begin
image8.visible:=true;
image1.Visible:=false;
image9.Visible:=false;
end;
if (edit1.text = 'shit') and (image8.visible =true) and (began = 1) then
begin
Label8.caption:='Pants. They get you every time';
ach6:=1;
button6.visible:=true;
end;
if (edit1.Text = 'sit on toilet') and (pantsoff=1) and (opened=1) and (began = 1) then
begin
image10.Visible:=true;
image8.Visible:=false;
image4.visible:=false;
image9.visible:=false;
end;
if (edit1.Text = 'shit') and (image10.visible= true) and (began = 1) then
begin
button6.Visible:=true;
image11.visible:=true;
final:=1;
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
image6.Visible:=false;
image7.Visible:=false;
image8.Visible:=false;
image9.Visible:=false;
image10.Visible:=false;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
groupbox2.Visible:=true;
if (ach1=1) and (ach2=1) and (ach3=1) and (ach4=1) and (ach5=1) and (ach6=1) and (final=1) then
begin
label14.caption:='Good job. How is it to be shit king?';
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
timer1.Enabled:=false;
groupbox2.Visible:=true;
image1.Visible:=false;
image2.Visible:=false;
image3.visible:=false;
image4.visible:=false;
image5.visible:=false;
image6.visible:=false;
image7.visible:=false;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
began:=0;
groupbox2.visible:=false;
groupbox1.Visible:=true;
button6.Visible:=false;
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
image6.Visible:=false;
image7.Visible:=false;
image8.Visible:=false;
image9.Visible:=false;
image10.Visible:=false;
image11.visible:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage('The author of this masterpiece is sir racoon, the king of programming, and superior graphics designer');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label15.caption:=inttostr(i);
i:=i-1;
if i=-1 then
begin
timer1.enabled:=false;
image3.visible:=true;
label12.caption:='If you only had a little more time... and a higher IQ..';
ach3:=3;
button6.Visible:=true;
image1.visible:=false;
image4.Visible:=false;
image8.Visible:=false;
image10.Visible:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
began:=0;
ach1:=0;
ach2:=0;
ach3:=0;
ach4:=0;
ach5:=0;
ach6:=0;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
close;
end;
end.
project files: (no exe)
https://www.box.com/s/urrd29nm6ixegcukvbpn
compile it by yourslef. game take's much megabytes because of implemented music.
EDIT: song used : "lost scrotum"
ss:
(http://gyazo.com/bba9299a6526c17e889ec788fd094eb8.png?1361201777)
(http://gyazo.com/ec65328dd4b4cfebf04f2b5f6e2b5ac0.png?1361201803)
(http://gyazo.com/8fd02c38d35e4aff878fd77049a1bb1a.png?1361201824)