Okay this is 138 lines long but it is my first program i ever did with DarkBASIC Pro so here it is.
Rem Project: The Mansion
Rem Created: 7/05/2005 1:14:11 PM
Rem ***** Main Source File *****
cls:ink rgb(255,255,0),0:set text to bold:set text size 100:center text 320,190,"Ideal":set text size 20:center text 321,260,"Entertainment Studios":wait 2500
rem your choice of either the readme or the game
title:
cls:set text to normal:set text size 12:ink rgb(255,0,0),0
print "Do you want to read the readme "
print "or start to play!"
print ""
print "Note: If you want to get back to this menu page "
print "just type in 'menu'"
center text 590,450,"Copyright(c)"
input choice1$:if choice1$ = "readme" then goto readme:if choice1$ = "play" then goto game
rem the basic game program
game:
cls:ink rgb(255,255,255),0:set text to bold:set text size 100:center text 320,190,"The Will":wait 2500
cls
set text size 20
set text to normal
ink rgb(255,0,0),0
print "It was a dark Night and the wind was howling"
wait key
print "The rain started to drop first but then came down heavily"
print "You are trying to find your Great Aunt Ruth's cottage as "
print "She has died and left everything to you."
print "Although you did not know your aunt very well you are her "
print "only living relitave."
wait key
rem loading the image
cls:load image "untitled.bmp",1:paste image 1,220,170:ink rgb (255,255,255),0:wait key
cls:ink rgb(255,0,0),0
print "You may either go down the road or face the woods ":input choice$
if choice$ = "woods" then print "You brave the woods"
if choice$ = "road" then print "you walk down the road"
if choice$ = "menu" then goto title
if choice$ = "woods" then goto woods
if choice$ = "road" then goto road
rem brave the woods
woods:
print "you enter the woods. its very dark!":goto section1
rem the way of the road
road:
print "As you continue to walk you come across a dead rat"
print "Do you examine it or continue on your way?"
input choice3$:if choice3$ = "examine" then goto section2:if choice3$ = "continue" then goto section3:if choice3$ = "menu" then goto title
rem section one
section1:
print "After walking for some time you slip fall down and break your neck"
print " Bad Luck!!"
wait key:ink rgb(255,255,255),0
set text to bold:set text size 100:center text 320,190,"The End":wait key:goto done
rem section two
section2:
cls
print "the dead rat's smell kills you!! "
ink rgb(255,255,255),0:set text to bold:set text size 100:center text 320,190,"The End":wait key:goto done
rem finish or continue
done:
cls
set text size 12
set text to normal
print "Do you want to play again?"
input choice2$
if choice2$ = "yes" then goto game
if choice2$ = "no" then goto bye
if choice2$ = "menu" then goto title
rem exiting the game
bye:
end
rem the readme
readme:
cls
print "In this game of Death you must choose between "
print "two possible endings. "
print "Here are a list of commands used in this game: "
print ""
print "Enter,Pass,Menu,Yes,No,Examine,Continue,Woods,Road,Readme,Play."
print "Have Fun!!"
center text 590,450,"Copyright(c)"
wait key
cls
goto title
rem section3
section3:
cls
print "You decide to keep on going insted of looking at dead"
print "rats. Soon you come across a cottage."
print "Do you enter or pass on by."
input choice4$
if choice4$ = "enter" then goto ruth
if choice4$ = "pass" then goto death
if choice4$ = "menu" then goto title
rem ruth
ruth:
cls
print "You enter the cottage and inside you find a lawyer."
print "He gives you the will and you live happily ever after."
wait key
cls
ink rgb(255,255,255),0
set text to bold
set text size 100
cls
center text 320,190,"The End"
wait key
goto done
rem death
death:
cls
print "After walking for some time you trip over and fall in a bramble "
print "bush you try to get out but it tears your skin. You panic and "
print "wriggle so much you get skinned alive!!"
wait key
cls
ink rgb(255,255,255),0
set text to bold
set text size 100
cls
center text 320,190,"The End"
wait key
goto done
There was Evermore music in the backround but i took it out.
You will need the image here is the download.
Enjoy!
You Don't know the power of the Dark Side!!
Oh but I do!!