Keskustelu: Koodit: Numeronarvauspeli (KieliX)

10 tulosta "KieliX-numeronarvauspeli
"
20 tulosta "Arvattava luku on väliltä 1-10000.
Arvaa 0 poistuaksesi ohjelmasta.

"


100 #arvattava=?summa(?satluku(0),1)
101 jos #arvattava=1 niin mene 100
102 jos #arvattava=10000 niin mene 100
110 #arvattu=""
120 #arvauksia=0
130 #min=1
140 #max=10000



200 tulosta "Arvaa luku ("
201 tulosta ?alkuosa(?jonona(#min),".")
202 tulosta "-"
203 tulosta ?alkuosa(?jonona(#max),".")
204 tulosta "): "

210 lue #arvattu
220 #arvattu=?numerona(#arvattu)
230 mene 1000




1000 jos #arvattu=0 niin mene 9999
1001 jos #arvattu<=#min niin mene 1300
1002 jos #arvattu>=#max niin mene 1300
1003 jos #arvattu<#arvattava niin mene 1100
1004 jos #arvattu>#arvattava niin mene 1200
1005 jos #arvattu=#arvattava niin mene 2000
1006 mene 9999


1100 #min=#arvattu
1110 tulosta "Liian pieni!

"
1120 #arvauksia=?summa(#arvauksia,1)
1130 mene 200

1200 #max=#arvattu
1210 tulosta "Liian iso!

"
1220 #arvauksia=?summa(#arvauksia,1)
1230 mene 200

1300 tulosta "Pälli.

"
1310 mene 200



2000 tulosta "
:D-\-< O           I           !
:D-|-<    I     E     N     !
:D-/-<       K           !

"
2100 #arvauksia=?summa(#arvauksia,1)
2110 tulosta "Arvattava luku oli "
2111 tulosta ?alkuosa(?jonona(#arvattava),".")
2112 tulosta ".
"
2113 tulosta ?alkuosa(?jonona(#arvauksia),".")
2114 tulosta ". arvauksella oikein - "

2201 jos #arvauksia=1 niin mene 2300
2202 jos #arvauksia<5 niin mene 2310
2203 jos #arvauksia<10 niin mene 2320
2204 jos #arvauksia<15 niin mene 2330
2205 jos #arvauksia<20 niin mene 2340
2206 mene 2350


2300 tulosta "HOLE-IN-ONE!"
2301 mene 2400
2310 tulosta "hyvähyvähyvä!"
2311 mene 2400
2320 tulosta "hieno suoritus!"
2321 mene 2400
2330 tulosta "ok."
2331 mene 2400
2340 tulosta "vielä saisi treenata.."
3241 mene 2400
2350 tulosta "AHAHAHA LOL!"

2400 tulosta "

Uusi kierros - arvaa luku väliltä 1-10000, 0 = poistu ohjelmasta.

"
2401 mene 100



9999 pysähdy