local name$ as string
local rndname$ as string
Start:
Input "What is your name? ", name$
If name$ = ""
Print "Please enter your name, or else you're a monkey"
wait key
CLS
GoTo Start
Endif
Print "Hello " + name$
Wait key
Print " "
rndname$ = PickRandomName()
input "do you like the name" + name$, answer$
if answer$ = "yes"
input "What is your favourite colour?", colour$
else
print "Tough!"
endif
print "I like the color " + color$
Wait key
end
`################################################
`############# NO CODE AFTER HERE ###############
`################################################
Function PickRandomName()
rndnmb = rnd(4)
Select rndnmb
Case 1:
return$ = "George"
EndCase
Case 2:
return$ = "Sydney"
EndCase
Case 3:
return$ = "Sam"
EndCase
Case 4:
return$ = "Molly"
EndCase
Case Default:
return$ = "Tilly"
EndCase
EndSelect
EndFunction return$
My boyfriend had to help me a little cause i got confused towards the end hence the bits commented out. I figured if more than just him helped me I may get somewhere - You all seem like a friendly enough bunch
