backdrop off
Print "Welcome to Hospital Tycoon..."
Wait 5000
cls
Rem this version of the code doesnt have all the menu stuff since all the other menu stuff only did one thing... new game..
Print "Menu"
Print " "
Print "New Game (N)"
Print "Quit! (T)"
Input "Command: ",cm$
If cm$ = "t" then end
If cm$ = "n" then Gosub Newgame
Newgame:
cls
Input "Hospital name: ",hname$
Input "Country: ",c$
input "Ammount of rooms: ",ar#
cls
Print "Hiring staff."
Wait 1000
Cls
Print "Hiring staff.."
Wait 1000
Cls
Print "Hiring staff..."
wait 2000
Cls
Input "What is your name?: ",name$
cls
Print "That clerifies that"
Print name$, "has the right to open a hostspital"
Print "signed, some person downtown"
Wait 5000
cls
Wait 1000
Print "Patient Arriving!"
make object cube 1,10
position object 1,0,0,15
Wait 3000
Input "What room do you want to throw him into: ",room#
Print "Right away dr.!"
wait 2000
hide object 1
cls
Print "You earned 20 dollars!"
wait 4000
cls
Input "Do you want to go inside? : ",inside$
Print "Remember To Press the Uparrow button to go inside! it doesnt work... yet?"
wait 3000
cls
make object cube 2,10
position object 2,0,0,15
Print "Another Patient arriving, this man has been shot!"
Input "what room do you want to put him in?",room2#
hide object 2
cls
Print "buy the patch for 59$$ to get the full version!"
Wait 10000
Return
sorry.. coulnt resist... still a few bugs, but i tried to get it as close as it can get..
Lcf - Lucifer, Ruler OF All Darkness...
