HOW TO PLAY :
Download the bundle one for this. It's the first link :
http://fbide.freebasic.net/index.php?menuID=56Open FBIdle and paste the game code into it
Press F5
Declare sub mainscreen
Declare sub screen1
Declare sub LB
Declare sub LD
Declare sub OD
Declare sub OB
Declare sub LR
Declare sub SB
Declare sub SL
Declare sub SD
Declare sub suicide
Declare sub R2
Declare Sub looktable
Declare sub lookphone
Declare Sub lookmirror
Declare sub gokitchen
Declare sub usephone
Declare sub looknote
Declare sub kitchen2
Declare sub Mirror
Declare sub FG
Declare sub FGF
Declare sub SK
Declare sub Fridge2
Declare sub SearchRoom2
Declare sub FUCKYOU
mainscreen
sub mainscreen
dim c
Print "Before you start. Know this."
Print "Action (Object)
Print " Ex. Instead of go inside house"
Print " it would be, Go house"
Print " Look at (object) becomes Look (Object)"
Print "Most actions, all the words are capitalized in the first letter."
Print "If say, Go Kitchen dosen't work, then try go Kitchen or Go kitchen."
Print "Sometimes I may forget the caps."
Print "Do you wish to begin" ;
Input "1.Y 2.N" ; c
if c = 1 then
screen1
elseif c = Y then
screen1
elseif c = 2 then
Print "Then exit"
mainscreen
sleep
else
Print "Either start or quit."
mainscreen
sleep
endif
sleep
end sub
' From now on, it's the same shit, but with different words for the
' "players". Yea, it's that. I NEED TO LEARNZ MORE SO I CAN MAKE RPGS.
' So it'd have to have stats which affect attacks which change overtime
' So their varibles would have to be stored and so would the code
' That said what each point would increase what by and mosters would have
' To be created that used their own attack and popped up using a random
' Number generator or something. And then there's what items they have and
' ARRRGGHHHHHH
sub screen1
cls
print "You are in a room. On the ground beside you, is a box. There is
print "a door accross the way from you."
dim f as string
Input "What do you do" ; f
if f = "Look Box" then
LB
elseif f = "Look Door" then
LD
elseif f = "Open Box" then
OB
elseif f = "Open Door" then
OD
elseif f = "Look Room" then
LR
else
Print "That command does not exist."
sleep
screen1
endif
sleep
end sub
sub LB
cls
print "The box appears normal. It's brown, and looks like it can be
print "opened easily."
dim m as string
input "Now what" ; m
if m = "Look Door" then
LD
elseif m = "Open Box" then
OB
elseif m = "Open Door" then
OD
elseif m = "Look Room" then
LR
else
Print "That command does not exist."
end if
sleep
LB
sleep
end sub
sub LD
cls
Print "This is a door at the opposite end of the room."
Print "It's brown, and looks fairly new."
dim m as string
input "Now what" ; m
if m = "Open Box" then
OB
elseif m = "Open Door" then
OD
elseif m = "Look Box" then
OB
elseif m = "Look Room" then
LR
else
print "That command does not exist."
sleep
LD
end if
sleep
end sub
sub OB
cls
print "You open the box. Inside it a gun. There's nothing else."
dim x as string
input "Now what will you shoot" ; x
if x = "Shoot Door" then
SD
elseif x = "Shoot Yourself" then
Suicide
elseif x = "Shoot Box" then
SB
elseif x = "Shoot Lamp" then
SL
else
Print "That command does not exist."
OB
sleep
end if
sleep
end sub
sub OD
cls
Print "You walk up to the door, only to find that it's locked."
Print "Of course."
dim g as string
input "Now what" ; g
if g = "Open Box" then
OB
elseif g = "Look Box" then
LB
elseif g = "Look Door" then
LD
elseif g = "Look Room" then
LR
else
Print "That command does not exist."
sleep
OD
end if
sleep
end sub
sub LR
cls
Print "The room around you is mostly empty. There's a box, a door"
Print "and a small, dim light hanging overhead. The walls are white."
dim x as string
input "Now what" ; x
if x = "Open Box" then
OB
elseif x = "Open Door" then
OD
elseif x = "Look Box" then
OB
elseif x = "Look Door" then
LD
else
print "That command does not exist."
LR
sleep
end if
sleep
end sub
' This. Is. Too. Fucking. Thorough. But. I HAVE TO FUCKING DO IT.
'Note, when I use a verb in the input instead of Now what, then the
'next commands must start with that verb."
Sub SB
cls
Print "You shoot the box, it leaves a hole."
dim s as string
input "Now what will you shoot" ; s
if s = "Shoot yourself" then
suicide
elseif s = "Shoot door" then
SD
elseif s = "Shoot lamp" then
SL
else
Print "That command does not exist."
SB
sleep
end if
sleep
end sub
Sub Suicide
cls
Print "You cannot stand being in this room another second so you"
Print "shoot yourself in the head."
dim t
input "You're dead. Try again" ; t
if t = Y then
screen1
elseif t = Yes then
screen1
else
Print "That command does not exist."
Suicide
sleep
end if
sleep
end sub
' WHY DOSEN't ELSE WORK WHEN I WANT IT TO!!?!??!?!?
' These 'notes are for people who open it up in FBIDLE and read through.
' If anyone that actually knows a lot about it, teach me and don't
'laugh.
Sub SL
cls
Print "You shoot the lamp. Suddenly, everything goes dark as you"
Print "trip over the box. When you trip, you set off the gun, which"
Print "instantly kills you."
dim x as string
Input "You are dead. Try again" ; x
if x = "y" then
mainscreen
else
mainscreen
sleep
end if
sleep
end sub
Sub SD
cls
Print "You shoot the door. Somehow, this causes it to open."
Print "You walk through it, entering another room."
Dim x as string
Input "Continue by pressing any key." , x
if x = x then
R2
else
R2
sleep
end if
sleep
end sub
Sub R2
cls
Print "You enter the second room. It's oposite from the other. There"
Print "are many chandiliers hanging above, and the room is almost"
Print "entirely white. There are mirrors on the floor, and a table"
Print "in the room. On it, is a note, and a phone. To the left"
Print "is a kitchen."
Print "Moving directions will now be called Go (Room)"
Print "Activating things will now be Use (Thing)"
Dim Choice as string
Input "What now" ; Choice
if choice = "Look Table" then
looktable
elseif choice = "Look Phone" then
lookphone
elseif choice = "Look Mirror" then
lookmirror
elseif choice = "Go Kitchen" then
gokitchen
elseif choice = "Shoot Yourself" then
Suicide
elseif choice = "Use Phone" then
usephone
elseif choice = "Look Note" then
looknote
else
Print "That choice does not exist."
R2
sleep
end if
sleep
end sub
'Holy Citizens United Negating Technology For Life And People's Safety
'that's hard. You know. C.U.N.T.F.L.A.P.S
sub looktable
cls
Print "The table is brown. It's a coffee table. No coffee, though."
dim f as string
Input "Now what" ; f
if f = "Look Phone" then
lookphone
elseif f = "Look Mirror" then
lookmirror
elseif f = "Go Kitchen" then
gokitchen
elseif f ="Shoot Yourself" then
Suicide
elseif f = "Use Phone" then
usephone
elseif f = "Look Note" then
looknote
else
Print "That choice does not exist."
looktable
sleep
end if
sleep
end sub
sub lookphone
cls
Print "The phone is from 10 years ago. It's black. Upon further"
Print "Inspection, it appears all the phone can do is send pictures."
Print "You wonder why it can only do that."
Dim back as string
Input "Now what" ; back
if back = "Look Table" then
looktable
elseif back = "Look Mirror" then
lookmirror
elseif back = "Go Kitchen" then
gokitchen
elseif back = "Shoot yourself" then
Suicide
elseif back = "Use Phone" then
usephone
elseif back = "Look Note" then
looknote
else
Print "That choice does not exist."
lookphone
sleep
end if
sleep
end sub
'I just realized. Since I have no variable for what happens after they
' Learn a certain thing. I'd have to create a whole new set of sub-commands
' for things that happen after a point has been reached.
' JOY.
sub lookmirror
cls
Print "You look at the mirror. Nothing special."
dim b as string
Input "What now" ; b
if b = "Look Phone" then
lookphone
elseif b = "Look Table" then
looktable
elseif b = "Go Kitchen" then
gokitchen
elseif b = "Shoot Yourself" then
Suicide
elseif b = "Use Phone" then
usephone
elseif b = "Look Note" then
looknote
else
Print "That choice does not exist."
lookmirror
sleep
end if
sleep
end sub
sub gokitchen
cls
Print "You walk into the kitchen, but find nothing in the fridge."
Print "You walk out."
dim ffs as string
Input "What now" ; ffs
if ffs = "Look Mirror" then
lookmirror
elseif ffs = "Look Phone" then
lookphone
elseif ffs = "Look Table" then
looktable
elseif ffs = "Shoot Yourself" then
suicide
elseif ffs = "Use Phone" then
usephone
elseif ffs = "Look Note" then
looknote
else
Print "That choice does not exist."
gokitchen
sleep
end if
sleep
end sub
' I AM GOING INSANE.
' HOW DO PEOPLE LIKE LORD BRITISH CODE THESE THINGS? AND THEY'RE USING WAY
' MORE COMPLEX THINGS
sub usephone
cls
Print "You try to use the phone, but all you can do it send pictures."
dim choice as string
Input "What now" ; choice
if choice = "Look Mirror" then
lookmirror
elseif choice = "Look Phone" then
lookphone
elseif choice = "Look Table" then
looktable
elseif choice = "Shoot Yourself" then
suicide
elseif choice = "Look Note" then
looknote
else
Print "That command does not exist."
usephone
sleep
end if
sleep
end sub
sub looknote
cls
Print "You walk up to the note and look at it. It says"
Print "'To escape this room, you must cut off a finger, take a"
Print "picture of it, and send it to the one contact. Afterwards"
Print "you will be instructed on how to escape.'"
Print "It seems you should either break the glass of the mirror, or go into the kitchen."
Dim N as string
Input "Now what shall you do" ; N
if N = "Go Kitchen" then
kitchen2
elseif N = "Break Mirror" then
Mirror
elseif N = "Break Glass" then
Mirror
else
Print "I'm afraid I can't let you do that."
looknote
sleep
end if
sleep
end sub
sub Mirror
cls
Print "You break the mirror, and grab a shard of glass."
Print "You cut off one of your fingers and it causes intense pain."
Print "However, it gets infected and keeps bleeding, and you die."
Dim D as string
Input "Restart" ; D
if D = "A" then
screen1
else
screen1
end if
sleep
end sub
sub kitchen2
cls
Print "You enter the kitchen."
dim h as string
Input "Search what" ; h
If h = "Search Fridge" then
FGF
elseif h = "Search Refridgerator" then
FGF
elseif h = "Search Cabinet" then
FG
elseif h = "Search Cabinets" then
FG
elseif h = "Search Kitchen" then
SK
elseif h = "Search Room" then
SK
else
Print "You find nothing."
sleep
kitchen2
end if
sleep
end sub
sub FG
Print "You go through the cabinet and find something that can clean a wound."
dim FFFFF as string
Input "Continue searching" , FFFFF
if FFFFF = "Search Refridgerator" then
Fridge2
elseif FFFFF = "Search Fridge" then
Fridge2
elseif FFFFF = "Search Room" then
SearchRoom2
elseif FFFFF = "Search Kitchen" then
SearchRoom2
else
Print "I'm afraid I can't let you do that."
FG
sleep
end if
sleep
end sub
Sub FGF
cls
Print "You open the fridge, but find nothing but a severed head."
Dim Choice as string
if Choice = "Search Cabinet" then
FG
elseif Choice = "Search Cabinets" then
FG
elseif Choice = "Search Room" then
SK
elseif Choice = "Search Kitchen" then
SK
else
FGF
sleep
end if
sleep
end sub
' I HATE HAVING TO DO THIS FOR EVERY. FUCKING. PATH. THERE. IS.
Sub SK
cls
Print "You search the kitchen and find a knife, but with nothing"
Print "to clean the wound with, you put it back."
Dim F as string
Input "Continue Searching" , F
If F = "Search Cabinet" then
FG
elseif F = "Search Cabinets" then
FG
elseif F = "Search Fridge" then
Fridge2
' HAHHAHAHAHAHA
else
Print "I'm afriad I can't let you do that."
sleep
end if
sleep
end sub
Sub Fridge2
cls
Print "You open the fridge, but find nothing."
Dim CHO as string
Input "Continue Searching" , CHO
If CHO = "Search Room" then
SearchRoom2
elseif CHO ="Search Kitchen" then
SearchRoom2
else
Print "I'm afraid I can't let you do that."
Fridge2
sleep
end if
sleep
end sub
Sub SearchRoom2
cls
Print "You search the room and die."
Print "I'M NOT. FUCKING. DOING. THIS. ANY. MORE.
Dim gf as string
Input "Press anykey to continue" , gf
if gf = "X" then
FUCKYOU
else
FUCKYOU
end if
sleep
end sub
' Branching paths withought including something to check if they've already
' been to the place they need to be is a bitch to write.
Sub FUCKYOU
cls
617 Print "FUCK YOU FOR PLAYING THIS, BITCH. I LOVE DOANNE. "
618 GOTO 617
sleep
end sub
