Castle of SuperDoom
My current project is the Castle of SuperDoom for Brutus2D. Any suggestions for monsters, races, classes, treasure, etc are appreciated.
' Castle of SuperDoom
' a text game of DOOM in a CASTLE
' by Shawn Hartnell
' About Castle of SuperDoom
' ------------------------------------------------------------------
' Castle of SuperDoom is modeled after a text game I used to have on
' my Tandy 1000 when I was a kid. The Tandy 1000 doesn't run anymore
' and I haven't played the game in YEARS. I don't even remember the
' name, so I could be inventing a game I think I remember. :) However
' if you know this game, please let me know what it is.
' I originally began this game in FreeBASIC, but since everyone is
' using Brutus2D, I converted what I had to B2D.
' NOTE : Still converting.
'******************************************************************
' Initialization
'******************************************************************
' Set up everything the game is going to need.
' Variables
Dim answer ' holds player's input
Dim level ' the level of the castle the player is on
Dim x ' the west-east location of the player
Dim y ' the north-south location of the player
Dim hp ' the player's hit points
Dim mp ' the player's magic points
Dim race ' the player's race
Dim prof ' the player's class (profession)
Dim name ' the player's name
Dim castle(5,10,10) ' the castle is 5 10x10 levels
Dim gameOver ' is the game over?
Dim doLoop ' flag to control looping
' Objects
console.Initialize
' Misc
' Since the game will feature random numbers, now is a good time to
' seed the random number generator.
randomize
' Character Generation
'------------------------------------------------------------------
' The original game featured a character generation system that was
' too detailed for the type of game it was. However, it is my pleasure
' to recreate it.
' Not all of the races/classes have been implemented. For now, only
' Human/Figher have been.
' Get the player's name.
doLoop = false
do while not doLoop
console.Clear
console.WriteLine "What is your name, brave adventurer?"
console.WriteLine
name = console.ReadLine
' check to make sure make sure the name is acceptable
console.WriteLine
' is the name over 8 characters?
if len(name) > 8 then
console.WriteLine "The name is too long. Please enter another."
' is the name less than 4 characters?
elseif len(name) < 4 then
console.WriteLine "The name is too short. Please try again."
' if the name is neither too short nor too long, then it must
' be acceptable
else
console.WriteLine "Welcome, brave " & name
doLoop = true ' name is acceptable, move on
end if
system.Pause 2000
loop
' Player chooses class
doLoop = false
do while not doLoop
console.Clear
console.WriteLine "What is your honorable race?"
console.WriteLine
console.WriteLine " 1.) Human"
console.WriteLine " 2.) Elf (not chooseable)"
console.WriteLine " 3.) Dwarf (not chooseable)"
console.WriteLine
answer = console.ReadLine
console.WriteLine
if answer = "1" then
console.WriteLine "Ah, those inventive humans."
hp = 100
doLoop = true
elseif answer = "2" then
console.WriteLine "The spritely elves have not arrived. Pick a human."
elseif answer = "3" then
console.WriteLine "The swarthy dwarves are not programmed yet. Pick a human."
else
console.WriteLine "Please choose a race."
end if
system.Pause 2000
loop
' player chooses profession
doLoop = false
do while not doLoop
console.Clear
console.WriteLine "What is your profession?"
console.WriteLine
console.WriteLine " 1.) Fighter"
console.WriteLine " 2.) Wizard (not chooseable)"
console.WriteLine " 3.) Thief (not chooseable)"
console.WriteLine
answer = console.ReadLine
console.WriteLine
if answer = "1" then
console.WriteLine "The sturdy fighter is a good choice."
hp = 100
doLoop = true
elseif answer = "2" then
console.WriteLine "Thoughtful wizards are not available"
elseif answer = "3" then
console.WriteLine "Shifty thieves cannot be chosen."
else
console.WriteLine "Please choose a profession."
end if
system.Pause 2000
loop
'******************************************************************
' Game Loop
'******************************************************************
' Not there yet.
'******************************************************************
' Termination
'******************************************************************
console.Terminate
