Code: Select all
SCREEN 600,600
Repeat
mina$=Input("Nimesi: ")
If KeyHit(cbkeyreturn)Then
ClearKeys
Goto Nimivalikko
EndIf
DrawScreen
Forever
Nimivalikko:
SCREEN 600,600
Repeat
tp$=Input("tyttö vai poika: ")
If KeyHit(cbkeyreturn)Then
ClearKeys
Goto koti
EndIf
DrawScreen
Forever
koti:
SCREEN 600,600
AddText "Olet kotona. Mitä teet?"
AddText "Voit painaa tekemisen vieressä olevaa numeroa"
AddText "1 Mene ulos"
AddText "2 Mene nukkumaan"
AddText "3 Mene jääkaapille"
AddText "4 Kävele ympäri kotia"
AddText "5 Lue"
AddText "6 Mene suihkuun"
AddText "7 Hae kännykkä"
Repeat
If KeyHit (cbkey1) Then Goto ulkona
If KeyHit (cbkey2) Then Goto nukkuma
If KeyHit (cbkey3) Then Goto jääkaappi
If KeyHit (cbkey4) Then Goto kävelysisä
If KeyHit (cbkey5) Then Goto luesisä
If KeyHit (cbkey6) Then Goto suihku
If KeyHit (cbkey7) Then Goto kännysisä
DrawScreen
Forever
ulkona:
SCREEN 600,600
AddText "Olet ulkona. Mitä teet?"
AddText "1 Mene kotiin"
AddText "2 Mene kauppaan"
AddText "3 Varasta"
AddText "4 Mene kylään"
AddText "5 Leiki"
Repeat
If KeyHit (cbkey1) Then Goto koti
If KeyHit (cbkey2) Then Goto kauppa
If KeyHit (cbkey3) Then Goto varasta
If KeyHit (cbkey4) Then Goto kylä
If KeyHit (cbkey5) Then Goto leiki
DrawScreen
Forever
nukkuma:
SCREEN 600,600
AddText "1 Nuku"
AddText "2 Mene pois"
Repeat
If KeyHit (cbkey1) Then Goto nuku
If KeyHit (cbkey2) Then Goto koti
DrawScreen
Forever
jääkaappi:
SCREEN 600,600
AddText "Mitä haluat tehdä?"
AddText "1 Syö jotain"
AddText "2 Mene pois"
Repeat
If KeyHit (cbkey1) Then Goto syöt
If KeyHit (cbkey2) Then Goto koti
DrawScreen
Forever
kävelysisä:
SCREEN 600,600
AddText "Pyörit ympyrää."
AddText "1 Lopeta"
Repeat
If KeyHit (cbkey1) Then Goto koti
DrawScreen
Forever
luesisä:
SCREEN 600,600
AddText "Mitä haluat lukea?"
AddText "1 Aku Ankkaa"
AddText "2 Hesaria"
AddText "3 Älä lue"
Repeat
If KeyHit (cbkey1) Then Goto luit
If KeyHit (cbkey2) Then Goto luit
If KeyHit (cbkey3) Then Goto koti
DrawScreen
Forever
suihku:
SCREEN 600,600
AddText "Kävit suihkussa"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto koti
DrawScreen
Forever
kännysisä:
SCREEN 600,600
AddText "1 Soita jollekkin"
AddText "2 Soita hätänumeroon"
AddText "3 Pelaa puhemilella"
AddText "4 Mene pois"
Repeat
If KeyHit (cbkey1) Then Goto soitto
If KeyHit (cbkey2) Then Goto soitto
If KeyHit (cbkey3) Then Goto soitto
If KeyHit (cbkey4) Then Goto koti
DrawScreen
Forever
kauppa:
SCREEN 600,600
AddText "Olet kaupassa. Mitä haluat tehdä?"
AddText "1 Osta jotain"
AddText "2 Varasta jotain"
AddText "3 Mene pois"
Repeat
If KeyHit (cbkey1) Then Goto ostaj
If KeyHit (cbkey2) Then Goto varasta
If KeyHit (cbkey3) Then Goto ulkona
DrawScreen
Forever
varasta:
SCREEN 600,600
AddText "Mitä varastat?"
AddText "1 Naapurin pyörä"
AddText "2 Varasta kaupasta"
AddText "3 Ryöstä pankki"
Repeat
If KeyHit (cbkey1) Then Goto pyörä
If KeyHit (cbkey2) Then Goto kauppav
If KeyHit (cbkey3) Then Goto pankkiv
DrawScreen
Forever
kylä:
SCREEN 600,600
AddText "Olet kylällä. Mitä teet?"
AddText "1 Juttele muiden kanssa"
AddText "2 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto juttele
If KeyHit (cbkey2) Then Goto ulkona
DrawScreen
Forever
leiki:
SCREEN 600,600
AddText "Mitä haluaisit leikkiä?"
AddText "1 Lopeta"
AddText "2 Hypi hyppynarulla"
AddText "3 Pallottele"
AddText "4 Juokse"
AddText "5 Leiki Pokémoneilla"
Repeat
If KeyHit (cbkey1) Then Goto ulkona
If KeyHit (cbkey2) Then Goto leik
If KeyHit (cbkey3) Then Goto leik
If KeyHit (cbkey4) Then Goto leik
If KeyHit (cbkey5) Then Goto leik
DrawScreen
Forever
nuku:
SCREEN 600,600
AddText "Nukuit"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto koti
DrawScreen
Forever
syöt:
SCREEN 600,600
AddText "1 Pizza"
AddText "2 Spagetti"
AddText "3 Leipä"
AddText "4 Juo mehua"
AddText "5 Juo maitoa"
AddText "6 Älä syö tai juo"
Repeat
If KeyHit (cbkey1) Then Goto syöty
If KeyHit (cbkey2) Then Goto syöty
If KeyHit (cbkey3) Then Goto syöty
If KeyHit (cbkey4) Then Goto juotu
If KeyHit (cbkey5) Then Goto juotu
If KeyHit (cbkey6) Then Goto koti
DrawScreen
Forever
syöty:
SCREEN 600,600
AddText "Söit"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto koti
DrawScreen
Forever
juotu:
SCREEN 600,600
AddText "Joit"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto koti
DrawScreen
Forever
luit:
SCREEN 600,600
AddText "Luit sen"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto koti
DrawScreen
Forever
soitto:
SCREEN 600,600
AddText "1 Palaa takaisin"
Repeat
If Rand(1,2) Then AddText "Ei vastannut"
If Rand(2,2) Then AddText "Hän ei tykännyt soitostasi"
If KeyHit (cbkey1) Then Goto koti
DrawScreen
Forever
leik:
SCREEN 600,600
AddText "Leikit sitä"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto ulkona
DrawScreen
Forever
ostaj:
SCREEN 600,600
AddText "Kauppa ei ole auki"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto ulkona
DrawScreen
Forever
kauppav:
SCREEN 600,600
AddText "Kauppa ei ole auki"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto ulkona
DrawScreen
Forever
pankkiv:
SCREEN 600,600
AddText "Ryöstit pankin. Sait 200 euroa"
AddText "1 Karkuun"
Repeat
If KeyHit (cbkey1) Then Goto ulkona
DrawScreen
Forever
pyörä:
SCREEN 600,600
AddText "Naapurilla ei ole pyörää"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto ulkona
DrawScreen
Forever
juttele:
SCREEN 600,600
AddText "Juttelit muiden kanssa"
AddText "1 Palaa takaisin"
Repeat
If KeyHit (cbkey1) Then Goto kylä
DrawScreen
Forever