Other > Fan Art

ENCLAVE SOLDIER PUZZLE FAN GAME

<< < (2/2)

racoon:
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:

Navigation

[0] Message Index

[*] Previous page