15.08.2009 - 23.06.2013
"Wasteland is harsh"
December 23, 2024, 04:18:15 am
Welcome,
Guest
Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
fodev.net
|
Other
|
Archives
|
FOnline:2238 Forum
|
Fan Art
|
ENCLAVE SOLDIER PUZZLE FAN GAME
Pages: [
1
]
Author
Topic: ENCLAVE SOLDIER PUZZLE FAN GAME (Read 2419 times)
racoon
ENCLAVE SOLDIER PUZZLE FAN GAME
«
on:
February 16, 2013, 05:48:42 pm »
https://www.box.com/s/zx5k706wmq1etjw5yxvp
written in delphi7, file is clear no worries.
Logged
https://i.imgur.com/TV1vK1m.png
Do not click here.
Ganado
Moderator
Dishonest Abe
Re: ENCLAVE SOLDIER PUZZLE FAN GAME
«
Reply #1 on:
February 17, 2013, 01:11:18 am »
Not that I am worried about a virus, but mind explaining what it is?
Logged
Error while opening cfg file: spawnnpc.cfg
Shit! Damn admins! Always ruining my fun! I guess I'll talk to them. WITH MY FISTS!!!! No seriously, I will write them a nice email or make a thread on the forums or something. Thanks!
racoon
Re: ENCLAVE SOLDIER PUZZLE FAN GAME
«
Reply #2 on:
February 18, 2013, 12:05:25 am »
Quote from: Dishonest Abe on February 17, 2013, 01:11:18 am
Not that I am worried about a virus, but mind explaining what it is?
virus, keylogger and cp too.
i think that every basic anti virus would detect virus written in delphi
one of few simple games i made some time ago for refreshing delphi7, would show code but it would be solution how to solve game and achievements.
200 lines of code
Logged
https://i.imgur.com/TV1vK1m.png
Do not click here.
Ganado
Moderator
Dishonest Abe
Re: ENCLAVE SOLDIER PUZZLE FAN GAME
«
Reply #3 on:
February 18, 2013, 01:20:22 pm »
I just said I wasn't worried about viruses, just wanted to know what it was.
Logged
Error while opening cfg file: spawnnpc.cfg
Shit! Damn admins! Always ruining my fun! I guess I'll talk to them. WITH MY FISTS!!!! No seriously, I will write them a nice email or make a thread on the forums or something. Thanks!
JovankaB
Guest
Re: ENCLAVE SOLDIER PUZZLE FAN GAME
«
Reply #4 on:
February 18, 2013, 01:33:57 pm »
I don't run exes from random people I don't trust. Thanks anyway
Maybe you can post screeshots
Logged
racoon
Re: ENCLAVE SOLDIER PUZZLE FAN GAME
«
Reply #5 on:
February 18, 2013, 02:17:24 pm »
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:
«
Last Edit: February 18, 2013, 04:38:00 pm by racoon
»
Logged
https://i.imgur.com/TV1vK1m.png
Do not click here.
Pages: [
1
]
fodev.net
|
Other
|
Archives
|
FOnline:2238 Forum
|
Fan Art
|
ENCLAVE SOLDIER PUZZLE FAN GAME