Game engine

print "Welkcom bij Maffia Killer."
print
print "Vul je naam in om te beginnen:"
input "> ", naam$

print
print "Welcom ",naam$
print "Druk op een toets om door te gaan."

wait key

menu:
cls
print "Menu"
print
print "1) Spelen"
print "2) Informatie"
print "3) Credits"
print "4) Afsluiten"
input ">",menu$

if menu$="1" then goto spel
if menu$="2" then goto info
if menu$="3" then goto credits
if menu$="4" then goto einde

spel:
cls
lives = 3
health = 100
money = 100

huis:
print "Welkom in je huis, vanuit hier kun je alles regelen."
print
print "Wat wil je doen?"
print
print "1) Naar de stad"
print "2) Bellen"
print "3) Statistieken bekijken"
input "> ",keuze$

if keuze$="1" then goto rome
if keuze$="2" then goto bellen
if keuze$="3" then goto statistieken

wait key

rome:
cls
print "Welkom in de stad."
print "Je bent nu in: Rome."
print
print "Kies waar je naartoe wilt:"
print
print "1) Naar de bioscoop"
print "2) Naar de casino"
print "3) Naar het ziekenhuis"
print "4) Naar de bar"
print "5) Naar het hotel"
print "6) Naar het park"
print "7) Naar het trein station"
print "8) Naar het vliegveld"
print "9) Terug naar huis"
input ">",keuze$

if keuze$="1" then goto biosRome
if keuze$="2" then goto casinoRome
if keuze$="3" then goto ziekenhuisRome
if keuze$="4" then goto barRome
if keuze$="5" then goto hotelRome
if keuze$="6" then goto parkRome
if keuze$="7" then goto treinRome
if keuze$="8" then goto vliegRome
if keuze$="9" then goto huis

wait key

biosRome:
cls


wait key

casinoRome:
cls


wait key

ziekenhuisRome:
cls


wait key

barRome:
cls


wait key

hotelRome:
cls


wait key

parkRome:
cls


wait key

treinRome:
cls


wait key

vliegRome:
cls


wait key

bellen:
cls
print "Telefoon"
print
print "Hier kun je bellen naar iemand, kies hieronder naar wie je wilt bellen:"
print
print "1) Drugsdealer (Amsterdam/Nederland)"
print "2) Wapenhandelaar (Brussel/Belgie)"
print "3) Vriend (Rome/Italie)"
print "4) Red Light District (Amsterdam/Nederland)"
print "5) President (Washinton/VS)"
print "6) Ga terug naar huis"
input ">",nummer$

if nummer$="1" then goto drugBel
if nummer$="2" then goto wapenBel
if nummer$="3" then goto vriendBel
if nummer$="4" then goto redBel
if nummer$="5" then goto presBel
if nummer$="6" then goto huis



wait key

statistieken:
cls
print "Statstieken:"
print
print "Hier kun je al je statistieken zien: "
print
print "Levens: ",lives$
print "Gezondheid: ",health$
print "Geld: ",money$
print
print "Druk op een toets om terug te gaan."

wait key
goto huis

info:
cls
print "Informatie:"
print
print "Maffia Killer is een Text Based RPG game."
print "Krijg het gevoel terug van de games van vroeger in dit spel."
print "Zorg dat je de rijkste en machtigste maffia bende krijgt!"
print "Speel het spel zoals jij wil!"
print
print "Verhaal:"
print
print "Het is 1995 en je bent in Italie."
print "Het gaat slecht met je maffia familie,"
print "jij moet zorgen dat je weer de machtigste maffia"
print "familie krijgt van de wereld!"
print "Door de dood van je opa ging het heel slecht met de familiet."
print "Het enige dat je hebt overgehouden is een handje vol geld en een wapen."
print "Kun jij weer de machtigste familie worden?"
print
print "Door de vele mogelijkheden in dit spel heeft het spel telkens een ander einde."
print "Omdat dit spel zoveel mogelijkheden heeft kun je heel lang door blijven spelen!"
print
print "Besturing:"
print
print "Bij een opdracht staan er soms cijfers voor (1), 2), 3), etc.)"
print "type dan het cijfer in van je gewenste optie."
print "Soms moet je een woord intypen voordat je iets kan doen,"
print "type dan gewoon het woord over en het gebeurd."
print
print "Algemene info:"
print
print "Versie: 1.0.0"
print "Copyright: TripleSoft 2012 | All rights reserved"
print
print "Druk op een toets om terug naar het menu te gaan."

wait key
goto menu

credits:
cls
print "Credits:"
print
print "Programming: Daniel Lichthart"
print "Idea: Daniel Lichthart"
print
print "Maffia Killer is a game of TripleSoft Inc."
print "(c)TripleSoft 2012 | All rights reserved"
print
print "Druk op een toets om terug naar het menu te gaan."

wait key
goto menu

einde:
cls
print "Bedankt voot het spelen van Maffia Killer."
print
print "Druk op een toets om af te sluiten."

wait key
end