|
|
Post by Wayne Rayner on Jul 28, 2009 22:13:37 GMT -5
' Watchoo Feeling
' version 0.02 (please tell me your thoughts on this application)
' I have added a scoring system (but it always adds a score)
' created by Wayne Rayner (wrayn3)
' set up program
resizetext (55,30)
' Declare Variables
dim Name$, Enter1$, Enter2$, Enter3$, Enter4$
dim answera$ = "Y", answerb$ = "N"
dim score = 0
' Main Loop
printr "Welcome to Watchoo Feeling"
printr "This is to test whether you are happy"
printr "Please input your name?"
input Name$
printr "Welcome to Watchoo Feeling:" Name$
printr "Are you ready to play"
cls
printr "Welcome to the start of the game"
printr "You are to answer the next question truthfully"
printr "Answer questions with a Y or N"
sleep (5000)
cls
print "Player Name "Name$: printr " Score = " score
printr "Question 1"
printr "Did you have fun today?"
input Enter2$
if Enter2$ <> answerb$ then score = score + 1: endif
printr "You answered " Enter2$
cls
print "Player Name "Name$: printr " Score = " score
printr "Question 2"
printr "Are you happy?"
input Enter3$
if Enter3$ <> answerb$ then score = score + 1: endif
printr "You answered " Enter3$
cls
printr "Player Name "Name$: printr " Score = " score
printr "Question 3"
printr "Do you love someone?"
input Enter4$
if Enter4$ <> answerb$ then score = score + 1: endif
printr "You answered " Enter4$
cls
printr "Your answers for the questions are as follows"
printr "Question 1 = " Enter2$
printr "Question 2 = " Enter3$
printr "Question 3 = " Enter4$
printr Name$" Your final score is " score
if score = 0 then printr "You are very sad"
elseif score = 1 then printr "You are sad"
elseif score = 2 then printr "You are happy"
elseif score = 3 then printr "You are very happy"
endif
sleep (5000)
printr "Thanks for playing this random test" Name$
printr "Created by Wayne Rayner (wrayn3)"
Here's my latest release of code for my program. When you answer y I want it to add a point and when you answer a n it doesn't do anything and then at the end it tells you if you are very sad, sad, happy, very happy. Can anyone help me.
I'm probably only missing something simple
Thanks in advance
Wayne Rayner
|
|
OW
Posts a bit
Posts: 100
|
Post by OW on Jul 28, 2009 22:29:11 GMT -5
Where is Enter1$ applied in the code?
' Watchoo Feeling
' version 0.02 (please tell me your thoughts on this application)
' I have added a scoring system (but it always adds a score)
' created by Wayne Rayner (wrayn3)
' set up program
resizetext (55,30)
' Declare Variables
dim Name$, Enter1$, Enter2$, Enter3$, Enter4$
dim answera$ = "Y", answerb$ = "N"
dim score = 0
' Main Loop
printr "Welcome to Watchoo Feeling"
printr "This is to test whether you are happy"
printr "Please input your name?"
input Name$
printr "Welcome to Watchoo Feeling:" Name$
printr "Are you ready to play"
cls
printr "Welcome to the start of the game"
printr "You are to answer the next question truthfully"
printr "Answer questions with a Y or N"
sleep (5000)
cls
print "Player Name "Name$: printr " Score = " score
printr "Question 1"
printr "Did you have fun today?"
input Enter2$
if Enter2$ = "y" then score = score + 1: endif
printr "You answered " Enter2$
cls
print "Player Name "Name$: printr " Score = " score
printr "Question 2"
printr "Are you happy?"
input Enter3$
if Enter3$ = "Y" then score = score + 1: endif
printr "You answered " Enter3$
cls
printr "Player Name "Name$: printr " Score = " score
printr "Question 3"
printr "Do you love someone?"
input Enter4$
if Enter4$ = "y" then score = score + 1: endif
printr "You answered " Enter4$
cls
printr "Your answers for the questions are as follows"
printr "Question 1 = " Enter2$
printr "Question 2 = " Enter3$
printr "Question 3 = " Enter4$
printr Name$" Your final score is " score
if score = 0 then printr "You are very sad"
elseif score = 1 then printr "You are sad"
elseif score = 2 then printr "You are happy"
elseif score = 3 then printr "You are very happy"
endif
sleep (5000)
printr "Thanks for playing this random test" Name$
printr "Created by Wayne Rayner (wrayn3)"
You mean like that?
|
|
|
|
Post by Wayne Rayner on Jul 28, 2009 23:11:29 GMT -5
Thanks for your help OW
|
|
OW
Posts a bit
Posts: 100
|
Post by OW on Jul 29, 2009 0:47:59 GMT -5
did It do what you wanted it to?
|
|
|
|
Post by Wayne Rayner on Jul 30, 2009 3:15:26 GMT -5
Yea it's even finnished check the demo programs watchoo feeling topic and you will see. The first release is finnished and if you have any ideas on how to improve it tell me I would like to know
|
|
