I made a game.

It's still a work in progress.

Declare sub mainscreen
Declare sub screen1
Declare sub screen2
declare sub death1
declare sub quit
declare sub screen3
declare sub death2
declare sub death3
declare sub screen4
declare sub screen5
declare sub screen6
declare sub longdeath
declare sub screen7
declare sub longdeath2
mainscreen
sub mainscreen
dim mainscreenchoice as integer
Print "Do you wish to start your adventure" ;
Input " 1.Y/N.2" ; mainscreenchoice
if mainscreenchoice = 1 then
screen1
elseif mainscreenchoice = 2 then
print " Why would you open this game if you weren't going to play" ;
else
print "It's either Y or N, and having it on anything else dosen't unlock any easter eggs."
end if
sleep
end sub

sub screen1
cls
dim screen1choice1 as integer
Print " You stand before the foot of a tree. To your left, is an apple."
Print " To your feet, is a trap door."
Print "1. Eat the apple 2. Continue down the hole
Print "3. Walk away"
Input "1,2,3" ; screen1choice1

if screen1choice1 = 2 then
screen2
elseif screen1choice1 = 1 then
death1
elseif screen1choice1 = 3 then
quit

end if

sleep

end sub



sub Death1
cls
Print " You eat the apple, but find out it's poisoned. You are dead."
dim Restart as integer
Input "Try again? 2 for yes." ; Restart
if Restart = 2 then
screen1
end if
sleep
end sub

sub quit
cls
dim restart
Input "Try again? 2 for yes." ; restart


sleep
end sub

sub screen2
cls
Print "You go down a hallway. It is dimly lit with candles. On the wall,"
Print "is a spear."
dim screen2choice as integer
Input "1.Take Spear. 2.Ignore and continue" ; screenchoice2
if screenchoice2 = 1 then
screen3
elseif screenchoice2 = 2 then
death2


else
Print "Invalid option"

endif


sleep

end sub
' I HAVE TO BE ENTIRELY THOROUGH UGH

sub screen3
cls
Print "Spear in hand, you see two orcs ahead. They don't look friendly."
dim choice233 as integer
Input "1.Sneak up and attack. 2. Full frontal attack" ; choice233
if choice233 = 2 then
screen4
elseif choice233 = 1 then
death3
end if
sleep
end sub

sub death2
cls
Print "You encounter orcs ahead and cannot fight them withought a spear."
dim Restart as integer
Input "2 for Restart" ; Restart
if restart = 2 then
screen1
endif
sleep
end sub

' Gettin' the Hang of it ;O

sub death3
cls
Print "You sneak up on the orcs and throw your spear into one's back."
Print " The other takes notice of this and charges after you."
Print "You try to wrestle your spear out of the orc's back, but it's stuck."
Print "The other orc clubs you on the head."
dim Restart as integer
Input "2 for Restart" ; Restart
if restart = 2 then
screen1
end if
sleep
end sub

sub screen4
cls
Print "You charge up to the orcs and slash one of their face's in."
Print "The other is stunned and he is dispatched as well."
dim choice as integer
input "1. Search Orcs 2. Continue" ; choice
if choice = 1 then
screen5
elseif choice = 2 then
screen5
end if


sleep
end sub

sub screen5
cls
Print "You continue along the path, with nothing in hand when you come"
Print "accross a large hallway. Inside, there is a shiny marble statue"
Print "Of a Knight in his uniform."
Print "You slowly walk towards it, the surrounding chamber being made of"
Print "marbe, as the floor, making the room as white as the moon."
dim ffs as integer
input "Press 1 to continue." ; ffs
if ffs = 1 then
screen6
end if

sleep
end sub

sub screen6
Print "On the bottom of the statue, is an engraving."
Print "It reads, Is the apple Poisonous?"
dim choice
input "Is it? 1.Y, 2.N" ; choice
if choice = 1 then
longdeath
elseif choice = 2 then
screen7
end if

sleep
end sub

sub screen7
cls
sleep
end sub

sub longdeath
cls
Print "The statue begins to emit a weird glow. You look up and everything"
Print "goes black. Suddenly, you're in an unknown place. Standing on black"
Print "water, with a black moon. All outlines appear to be white, though."
Print "A figure walks up to you."
dim cont
input "Press 1." ; cont
if cont = 1 then
longdeath2
end if
sleep
end sub

sub longdeath2
cls
Print "He says, 'You're suspicious aren't you?'
Print " 'Well for that, you'll have to die.'"

Print "He lunges his sword into you, but not before he injects you with a"
Print "Fluid. The fluid appears to make time slow down almost indfeintely"
Print "But you can't move. You try to move your arms for 100 years it seems"
Print "And you finally can, but only a short distance. It appears you can"
Print "Think and feel incredibly fast, but can't do anything."
Print "He kills you in a flash, but to you, it feels eternal."
dim res
input "Restart 1.Y" ; res
if res = 1 then
screen1
end if
sleep
end sub

Well is there any way around this ending? I'd like to live thanks...

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."
618 GOTO 617
sleep
end sub

Haha. Nice.