Pikku pelit

Jaa meneillään olevat projektisi tai valmiit pelit muun yhteisön kanssa täällä.
Forum rules
Post Reply
DatsuniG
Advanced Member
Posts: 367
Joined: Fri Aug 15, 2008 9:57 pm

Re: Pikku pelit

Post by DatsuniG »

@jaahas: Onnistuin kutistamaan tuon kymmeneen riviin:

Code: Select all

Dim numbers(0)
Repeat
    key = GetKey()
    If key > 47 And key < 58 Then 
        numbers(active) = key - 48
        active = Not active
    EndIf 
    Text 2,2,numbers(0) + " + " + numbers(1) + " = " + (numbers(0) + numbers(1))
    DrawScreen
Forever
EDIT:

Hidas : /

Hengität nyt manuaalisesti.
Top
jaahas

Re: Pikku pelit

Post by jaahas »

Sly_Jack0 wrote:Ohhoh! Nyt ollaan sitten taas viisaampia. En ennen tiennyt, että asiat voi tehdä näinkin vaikeasti. ~1000 riviä?!?!?!
enkös sanonu et se on vaikeasti tehty :D :D :lol: :lol:
Top
legend
Advanced Member
Posts: 371
Joined: Wed Nov 18, 2009 8:06 pm

Re: Pikku pelit

Post by legend »

jaahas wrote:toimisko nyt?

Code: Select all

koodia 998 riviä laskimeen
Hienoa työtä =) Alat oppia ohjelmointia, mutta muista on olemassa muuttujat :lol: :lol:
DatsuniG wrote:@jaahas: Onnistuin kutistamaan tuon kymmeneen riviin:
Oli pakko kokeilla itsekin, sain sen 7 riviin.

Code: Select all

    Dim numero(1)
    For i=1 To i+1
        numero(i Mod 2) = Max(GetKey()-48,0)
        Text 10,10,numero(0)+ " + " + numero(1) +" = " + (numero(0) + numero(1))
        DrawScreen
        WaitKey
    Next i
Top
jaahas

Re: Pikku pelit

Post by jaahas »

pitää laittaa kahteen osaan tää :D :D
tää olis taas 1-20+1-20
4616 riviä yhteensä :D

Code: Select all

alku:
CloseInput()
Repeat
txt = Input("eka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli
If txt = "2" Then Goto yli10
If txt = "3" Then Goto yli11
If txt = "4" Then Goto yli12
If txt = "5" Then Goto yli13
If txt = "6" Then Goto yli14
If txt = "7" Then Goto yli15
If txt = "8" Then Goto yli16
If txt = "9" Then Goto yli17
If txt = "10" Then Goto yli18
If txt = "11" Then Goto yli19
If txt = "12" Then Goto yli20
If txt = "13" Then Goto yli21
If txt = "14" Then Goto yli22
If txt = "15" Then Goto yli23
If txt = "16" Then Goto yli24
If txt = "17" Then Goto yli25
If txt = "18" Then Goto yli26
If txt = "19" Then Goto yli27
If txt = "20" Then Goto yli28
EndIf
DrawScreen
Forever
yli:
CloseInput()
Repeat
Text 100, 100, "1+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+1=2"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+2=3"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+3=4"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+4=5"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+5=6"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+6=7"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+7=8"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+8=9"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+9=10"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+10=11"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+11=12"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+12=13"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+13=14"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+14=15"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+15=16"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+16=17"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+17=18"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+18=19"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+19=20"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "1+20=21"
DrawScreen
Forever
yli10:
CloseInput()
Repeat
Text 100, 100, "2+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+1=3"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+2=4"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+3=5"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+4=6"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+5=7"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+6=8"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+7=9"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+8=10"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+9=11"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+10=12"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+11=13"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+12=14"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+13=15"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+14=16"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+15=17"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+16=18"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+17=19"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+18=20"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+19=21"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "2+20=22"
DrawScreen
Forever
yli11:
CloseInput()
Repeat
Text 100, 100, "3+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+1=4"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+2=5"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+3=6"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+4=7"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+5=8"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+6=9"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+7=10"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+8=11"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+9=12"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+10=13"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+11=14"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+12=15"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+13=16"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+14=17"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+15=18"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+16=19"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+17=20"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+18=21"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+19=22"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "3+20=23"
DrawScreen
Forever

yli12:
CloseInput()
Repeat
Text 100, 100, "4+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+1=5"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+2=6"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+3=7"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+4=8"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+5=9"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+6=10"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+7=11"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+8=12"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+9=13"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+10=14"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+11=15"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+12=16"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+13=17"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+14=18"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+15=19"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+16=20"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+17=21"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+18=22"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+19=23"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "4+20=24"
DrawScreen
Forever
yli13:
CloseInput()
Repeat
Text 100, 100, "5+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+1=6"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+2=7"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+3=8"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+4=9"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+510"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+6=11"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+7=12"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+8=13"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+9=14"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+10=15"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+11=16"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+12=17"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+13=18"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+14=19"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+15=20"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+16=21"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+17=22"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+18=23"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+19=24"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "5+20=25"
DrawScreen
Forever
yli14:
CloseInput()
Repeat
Text 100, 100, "6+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+1=7"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+2=8"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+3=9"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+4=10"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "+5=11"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+6=12"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+7=13"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+8=14"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+9=15"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+10=16"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+11=17"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+12=18"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+13=19"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+14=20"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+15=21"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+16=22"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+17=23"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+18=24"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+19=25"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "6+20=26"
DrawScreen
Forever
yli15:
CloseInput()
Repeat
Text 100, 100, "7+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+1=8"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+2=9"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+3=10"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+4=11"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+5=12"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+6=13"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+7=14"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+8=15"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+9=16"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+10=17"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+11=18"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+12=19"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+13=20"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+14=21"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+15=22"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+16=23"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+17=24"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+18=25"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+19=26"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "7+20=27"
DrawScreen
Forever
yli16:
CloseInput()
Repeat
Text 100, 100, "8+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+1=9"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+2=10"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+3=11"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+4=12"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+5=13"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+6=14"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+7=15"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+8=16"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+9=17"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+10=18"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+11=19"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+12=20"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+13=21"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+14=22"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+15=23"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+16=24"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+17=25"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+18=26"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+19=27"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "8+20=28"
DrawScreen
Forever
yli17:
CloseInput()
Repeat
Text 100, 100, "9+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+1=10"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+2=11"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+3=12"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+4=13"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+5=14"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+6=15"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+7=16"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+8=17"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+9=18"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+10=19"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+11=20"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+12=21"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+13=22"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+14=23"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+15=24"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+16=25"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+17=26"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+18=27"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+19=28"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "9+20=29"
DrawScreen
Forever




yli18:
CloseInput()
Repeat
Text 100, 100, "10+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+1=11"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+2=12"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+3=13"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+4=14"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+5=15"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+6=16"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+7=17"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+8=18"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+9=19"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+10=20"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+11=21"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+12=22"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+13=23"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+14=24"
DrawScreen
Forever
Last edited by mikeful on Wed Feb 03, 2010 11:25 pm, edited 1 time in total.
Reason: Vähän vähemmän hymiöitä ensi kerralla. Samalla voi miettiä lähetetyn koodin hyödyllisyyttä.
Top
jaahas

Re: Pikku pelit

Post by jaahas »

täs toinen osa

Code: Select all

yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+15=25"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+16=26"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+17=27"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+18=28"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+19=29"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "10+20=30"
DrawScreen
Forever
yli19:
CloseInput()
Repeat
Text 100, 100, "11+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+1=12"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+2=13"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+3=14"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+4=15"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+5=16"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+6=17"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+7=18"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+8=19"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+9=20"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+10=21"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+11=22"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+12=23"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+13=24"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+14=25"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+15=26"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+16=27"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+17=28"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+18=29"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+19=30"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "11+20=31"
DrawScreen
Forever
yli20:
CloseInput()
Repeat
Text 100, 100, "12+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+1=13"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+2=14"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+3=15"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+4=16"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+5=17"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+6=18"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+7=19"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+8=20"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+9=21"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+10=22"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+11=23"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+12=24"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+13=25"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+14=26"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+15=27"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+16=28"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+17=29"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+18=30"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+19=31"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "12+20=32"
DrawScreen
Forever

yli21:
CloseInput()
Repeat
Text 100, 100, "13+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+1=14"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+2=15"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+3=16"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+4=17"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+5=18"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+6=19"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+7=20"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+8=21"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+9=22"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+10=23"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+11=24"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+12=25"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+13=26"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+14=27"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+15=28"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+16=29"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+17=30"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+18=31"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+19=32"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "13+20=33"
DrawScreen
Forever
yli22:
CloseInput()
Repeat
Text 100, 100, "14+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+1=15"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+2=16"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+3=17"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+4=18"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+5=19"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+6=20"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+7=21"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+8=22"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+9=23"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+10=24"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+11=25"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+12=26"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+13=27"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+14=28"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+15=29"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+16=30"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+17=31"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+18=32"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+19=33"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "14+20=34"
DrawScreen
Forever
yli23:
CloseInput()
Repeat
Text 100, 100, "15+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+1=16"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+2=17"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+3=18"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+4=19"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+5=20"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+6=21"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+7=22"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+8=23"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+9=24"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+10=25"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+11=26"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+12=27"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+13=28"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+14=29"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+15=30"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+16=31"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+17=32"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+18=33"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+19=34"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "15+20=35"
DrawScreen
Forever
yli24:
CloseInput()
Repeat
Text 100, 100, "16+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+1=17"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+2=18"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+3=19"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+4=20"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+5=21"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+6=22"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+7=23"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+8=24"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+9=25"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+10=26"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+11=27"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+12=28"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+13=29"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+14=30"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+15=31"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+16=32"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+17=33"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+18=34"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+19=35"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "16+20=36"
DrawScreen
Forever
yli25:
CloseInput()
Repeat
Text 100, 100, "17+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+1=18"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+2=19"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+3=20"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+4=21"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+5=22"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+6=23"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+7=24"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+8=25"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+9=26"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+10=27"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+11=28"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+12=29"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+13=30"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+14=31"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "+15=32"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+16=33"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+17=34"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+18=35"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+19=36"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "17+20=37"
DrawScreen
Forever
yli26:
CloseInput()
Repeat
Text 100, 100, "18+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+1=19"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+2=20"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+3=21"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+4=22"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+5=23"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+6=24"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+7=25"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+8=26"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+9=27"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+10=28"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+11=29"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+12=30"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+13=31"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+14=32"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+15=33"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+16=34"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+17=35"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+18=36"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+19=37"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "18+20=38"
DrawScreen
Forever
yli27:
CloseInput()
Repeat
Text 100, 100, "19+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+1=20"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+2=21"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+3=22"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+4=23"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+5=24"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+6=25"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+7=26"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+8=27"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+9=28"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+10=29"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+11=30"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+12=31"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+13=32"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+14=33"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+15=34"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+16=35"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+17=36"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+18=37"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+19=38"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "19+20=39"
DrawScreen
Forever
yli28:
CloseInput()
Repeat
Text 100, 100, "20+"
txt = Input("toka:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto yli1
If txt = "2" Then Goto yli2
If txt = "3" Then Goto yli3
If txt = "4" Then Goto yli4
If txt = "5" Then Goto yli5
If txt = "6" Then Goto yli6
If txt = "7" Then Goto yli7
If txt = "8" Then Goto yli8
If txt = "9" Then Goto yli9
If txt = "10" Then Goto yli29
If txt = "11" Then Goto yli30
If txt = "12" Then Goto yli31
If txt = "13" Then Goto yli32
If txt = "14" Then Goto yli33
If txt = "15" Then Goto yli34
If txt = "16" Then Goto yli35
If txt = "17" Then Goto yli36
If txt = "18" Then Goto yli37
If txt = "19" Then Goto yli38
If txt = "20" Then Goto yli39
EndIf
DrawScreen
Forever
yli1:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+1=21"
DrawScreen
Forever
yli2:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+2=22"
DrawScreen
Forever
yli3:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+3=23"
DrawScreen
Forever
yli4:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+4=24"
DrawScreen
Forever
yli5:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+5=25"
DrawScreen
Forever
yli6:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+6=26"
DrawScreen
Forever
yli7:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+7=27"
DrawScreen
Forever
yli8:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+8=28"
DrawScreen
Forever
yli9:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+9=29"
DrawScreen
Forever
yli29:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+10=30"
DrawScreen
Forever
yli30:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+11=31"
DrawScreen
Forever
yli31:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+12=32"
DrawScreen
Forever
yli32:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+13=33"
DrawScreen
Forever
yli33:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+14=34"
DrawScreen
Forever
yli34:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+15=35"
DrawScreen
Forever
yli35:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+16=36"
DrawScreen
Forever
yli36:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+17=37"
DrawScreen
Forever
yli37:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+18=38"
DrawScreen
Forever
yli38:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+19=39"
DrawScreen
Forever
yli39:
CloseInput()
Repeat
txt = Input("takaisin 1:")
If KeyHit(cbkeyreturn) Then
If txt = "1" Then Goto alku
EndIf
Text 180, 130, "20+20=40"
DrawScreen
Forever
Top
jaahas

Re: Pikku pelit

Post by jaahas »

legend wrote:
jaahas wrote:toimisko nyt?

Code: Select all

koodia 998 riviä laskimeen
Hienoa työtä =) Alat oppia ohjelmointia, mutta muista on olemassa muuttujat :lol: :lol:
DatsuniG wrote:@jaahas: Onnistuin kutistamaan tuon kymmeneen riviin:
Oli pakko kokeilla itsekin, sain sen 7 riviin.

Code: Select all

    Dim numero(1)
    For i=1 To i+1
        numero(i Mod 2) = Max(GetKey()-48,0)
        Text 10,10,numero(0)+ " + " + numero(1) +" = " + (numero(0) + numero(1))
        DrawScreen
        WaitKey
    Next i
muutujat???????
Top
otto90x
Advanced Member
Posts: 349
Joined: Mon Aug 27, 2007 9:00 pm
Location: Lapinjärvi, Finland
Contact:
Contact otto90x

Re: Pikku pelit

Post by otto90x »

legend wrote:
DatsuniG wrote:@jaahas: Onnistuin kutistamaan tuon kymmeneen riviin:
Oli pakko kokeilla itsekin, sain sen 7 riviin.
Neljä riviä:

Code: Select all

While len(t$)<=2
    t$=Input(int(Mid(t$,1,1))+ " + " + int(Mid(t$,2,1)) +" = " + (Int(Mid(t$,1,1)) + int(Mid(t$,2,1)))+"                                         ")
    DrawScreen
Wend
Otto Martikainen a.k.a. MetalRain, otto90x, kAATOSade.
Runoblogi, vuodatusta ja sekoiluja.
Top
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:
Contact Viltzu

Re: Pikku pelit

Post by Viltzu »

jaahas wrote: muutujat???????
Ei helv... You are kidding me, right?
Lueppas huvikseksi MANUAALI läpi. Tästä löytyy kohta muuttujista (Jos et sattumoisin sitä löydä itse...)

Lue myös tämä http://www.coolbasic.com/cbmanual/basic_tuts/index.html
Kaikki löytyy myös kun avaat editorin ja oikealta painelet niitä isoja nappeja.
Top
jaahas

Re: Pikku pelit

Post by jaahas »

Viltzu wrote:
jaahas wrote: muutujat???????
Ei helv... You are kidding me, right?
Lueppas huvikseksi MANUAALI läpi. Tästä löytyy kohta muuttujista (Jos et sattumoisin sitä löydä itse...)

Lue myös tämä http://www.coolbasic.com/cbmanual/basic_tuts/index.html
Kaikki löytyy myös kun avaat editorin ja oikealta painelet niitä isoja nappeja.
ei niitä jaksa lukee...
Top
Warlock
Member
Posts: 79
Joined: Thu Jul 31, 2008 11:08 pm

Re: Pikku pelit

Post by Warlock »

Jos et jaksa lukee niitä, niin et kyllä varmasti jaksa ruveta ohjelmoimaankaan.
Image
Top
MrMonday
Advanced Member
Posts: 378
Joined: Fri Oct 10, 2008 2:35 pm

Re: Pikku pelit

Post by MrMonday »

jaahas wrote:muutujat???????
Warlock wrote:Jos et jaksa lukee niitä, niin et kyllä varmasti jaksa ruveta ohjelmoimaankaan.
Jeps, jos ei muuttujia jaksa opetella, niin saa unohtaa koko ohjelmoinnin..
oot kuin veljeni, kantapään kautta opetellut käyttään Photoshoppia, ihan vaan kun ei jaksanu lukea tutoja :lol:
että helpommalla pääsee kun suosiolla vaan pänttää manuaalia, sitä vartenhan se on väsätty mukaan että se luettaisiin..
Top
skorpioni-cb
Advanced Member
Posts: 364
Joined: Wed Dec 03, 2008 3:48 pm
Location: Turku

Re: Pikku pelit

Post by skorpioni-cb »

Code: Select all

 Dim numero(1):For i=1 To i+1:numero(i Mod 2) = Max(GetKey()-48,0):Text 10,10,numero(0)+ " + " + numero(1) +" = " + (numero(0) + numero(1)):DrawScreen:WaitKey:Next i
Onnistuin kutistamaan yhteen riviin :lol:
En tiedä, mitä tiedän, mutta tiedän ettei se ole mitään kaunista.

I know not what I know, but I do know that it's not beautiful.
Top
jesperx96
Active Member
Posts: 190
Joined: Sun Nov 23, 2008 9:35 am
Location: Lappajärvi

Re: Pikku pelit

Post by jesperx96 »

Älkää ruokkiko trollia, varsinkin kun hän käyttää itsekin txt-muuttujaa.
We see the lines in chalk
The warning signs in where we walk
In the shadows of the cities maze
To try and fight for better days
Top
JATothrim
Tech Developer
Tech Developer
Posts: 606
Joined: Tue Aug 28, 2007 6:46 pm
Location: Kuopio

Re: Pikku pelit

Post by JATothrim »

Kyseessä voisi olla taitava trolli. Koodi on 100% varmasti tuotettu jollain generaattorilla. Lisäksi trollikoodi(tm) on liian samanlaista ja toistuvaa. Ja ruokin trollia, tiedän. Ja tiedän miten se kituu, kun tämä jää viimeiseksi trollaukseksi tässä ketjussa.
-On selkeästi impulsiivinen koodaaja joka...
ohjelmoi C++:lla rekursiivisesti instantioidun templaten, jonka jokainen instantiaatio instantioi sekundäärisen singleton-template-luokan, jonka jokainen instanssi käynistää säikeen tulostakseen 'jea'.
Top
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:
Contact Viltzu

Re: Pikku pelit

Post by Viltzu »

Ruokin kyllä trollia nyt. EN KESTÄ.

Wow! Hienoa skorppari! Onnistuit pusertamaan legendan 7 rivisen koodin yhteen riviin käyttämällä : -merkkiä!
Oot mahtava! Haista toki pitkä...

Sekä jaahas rekkaa nyt prkl foorumeille! Ei kestä tuollasta sadan peräkkäisen viestin jonoa vain koska et voinut muokata viestiäsi.
Tai syynähän oli tuossa yhdessä kohdassa koodin pituus, ~4000 riviä, jonka monet tekivät alle 10 riviin. Lue se manuaali..
EDIT:

Hmm... I'm not happy. Offtopic ;/

Top
DatsuniG
Advanced Member
Posts: 367
Joined: Fri Aug 15, 2008 9:57 pm

Re: Pikku pelit

Post by DatsuniG »

Kuten JATothrim jo sanoi, tyyppi on trolli. Katsokaa koodin rakennetta ja miettikää voisiko tuon tehdä generaattorilla.

Ja nyt vaihdetaan aihetta. Eli tässä on kauan aikaa sitten tekemäni pikku peli, joka jäi ilman huomiota. Toivoisin parempaa vastaanottoa tällä kertaa. : )

Code: Select all

        FrameLimit 50

        Global gPoints, gComboMeter, gBlockWidth, gBlockID, gMouseX, gMouseY, gUpdateScreen As integer
        gBlockWidth = 20
        Dim BLOCKS(ScreenWidth()/gBlockWidth - 1,ScreenHeight()/gBlockWidth - 1,1) As integer
        Dim Colors(5,2) As Byte

        Colors(1,0) = 255
        Colors(2,0) = 255
        Colors(3,0) = 255
        Colors(4,0) = 0
        Colors(5,0) = 168
       
        Colors(1,1) = 0
        Colors(2,1) = 172
        Colors(3,1) = 255
        Colors(4,1) = 164
        Colors(5,1) = 16
       
        Colors(1,2) = 0
        Colors(2,2) = 0
        Colors(3,2) = 0
        Colors(4,2) = 255
        Colors(5,2) = 224

        Type TEXTS
            Field x#
            Field y#
            Field Value
            Field cTimer
        EndType
       
        Type PAR               
            Field X#           
            Field Y#           
            Field r
            Field g
            Field b
            Field Angle         
            Field Speed#       
            Field Gravity#     
            Field CurGravity#   
            Field Ver#         
        EndType                 

        GenerateBlocks()

        cTimer = Timer()
        Repeat
            SetWindow "Points: "+gPoints+"  -  Time left: "+Max(0,(15 - (Timer() - cTimer)/1000))
            If Timer() - cTimer < 15000 Then
                If MouseHit(1) Then
                    gMouseX = MouseX()
                    gMouseY = MouseY()
                    CheckBlocks(MouseX() / gBlockwidth,MouseY() / gBlockWidth,1)
                    ClearSelectedBlocks()
                EndIf
                UpdateBlockPosition()
                DrawBlocks()
                UpdateParticles()
                UpdateTexts()
            Else
                Color cbwhite
                Text (ScreenWidth() - TextWidth("You scored "+gPoints+" points!")) / 2, (ScreenHeight() - TextHeight("You scored "+gPoints+" points!")) / 2, "You scored "+gPoints+" points!"
                Text 2,2,"Press R for a new game"
                Text 2,18,"Press Q or ESC to quit"
            EndIf
           
            If KeyHit(cbKeyR) Then
                For uusi.PAR = Each PAR
                    Delete uusi
                Next uusi
                GenerateBlocks()
                gPoints = 0
                gComboMeter = 0
                cTimer = Timer()
            EndIf
           
            If KeyHit(cbkeyQ) Then End
            DrawScreen
        Forever

        Function GenerateBlocks()
            InitBlocks()
            For a = 0 To ScreenHeight()/gBlockWidth - 1
                For i = 0 To ScreenWidth()/gBlockWidth - 1
                    BLOCKS(i,a,0) = Rand(1,5)
                Next i
            Next a
        EndFunction

        Function InitBlocks()
            For a = 0 To ScreenHeight()/gBlockWidth - 1
                For i = 0 To ScreenWidth()/gBlockWidth - 1
                    BLOCKS(i,a,1) = 0
                Next i
            Next a
        EndFunction

        Function CheckBlocks(x#,y#,firstblock = 0)
            x = RoundDown(x)
            y = RoundDown(y)
            If FirstBlock = True Then
                gCombometer = 0
                gBlockID = BLOCKS(int(x),int(y),0)
            EndIf
            If BLOCKS(int(x),int(y),0) = gBlockID And BLOCKS(int(x),int(y),1) = 0 Then
                BLOCKS(int(x),int(y),1) = 1
                gComboMeter + 1
                CheckBlocks(LimitX(x - 1),LimitY(y))
                CheckBlocks(LimitX(x + 1),LimitY(y))
                CheckBlocks(LimitX(x),LimitY(y - 1))
                CheckBlocks(LimitX(x),LimitY(y + 1))
            EndIf
        EndFunction

        Function ClearSelectedBlocks()
            If gComboMeter > 2 Then
                uusi.TEXTS = New(TEXTS)
                uusi\x = gMouseX - 20
                uusi\y = gMouseY - 20
                uusi\value = gComboMeter ^ 2 * 100
                uusi\cTimer = Timer()
                For a = 0 To ScreenHeight()/gBlockWidth - 1
                    For i = 0 To ScreenWidth()/gBlockWidth - 1
                        If BLOCKS(i,a,1) = 1 Then
                            CreateParticle(i,a,i * gBlockWidth,a * gBlockWidth,Rand(359),1.2,0.12,0)
                            BLOCKS(i,a,0) = 0
                        EndIf
                    Next i
                Next a   
                gPoints = gPoints + gComboMeter ^ 2 * 100
            EndIf
        InitBlocks()
        EndFunction

        Function DrawBlocks()
            For a = 0 To ScreenHeight()/gBlockWidth - 1
                For i = 0 To ScreenWidth()/gBlockWidth - 1
                    Color COLORS(BLOCKS(i,a,0),0),COLORS(BLOCKS(i,a,0),1),COLORS(BLOCKS(i,a,0),2)
                    Box i * gBlockWidth,a * gBlockWidth,gBlockWidth,gBlockWidth
                    Color cbblack
                    Box i * gBlockWidth,a * gBlockWidth,gBlockWidth,gBlockWidth,0
                Next i
            Next a
        EndFunction

        Function UpdateBlockPosition()
            For a = ScreenHeight()/gBlockWidth - 2 To 0 Step -1
                For i = ScreenWidth()/gBlockWidth - 1 To 0 Step -1
                    If BLOCKS(i,a + 1,0) = 0 Then BLOCKS(i,a + 1,0) = BLOCKS(i,a,0) : BLOCKS(i,a,0) = 0
                    If a = 0 And BLOCKS(i,a,0) = 0 Then BLOCKS(i,0,0) = Rand(1,5)
                Next i
            Next a
        EndFunction

        Function LimitX(x)
            Return Max(Min(ScreenWidth()/gBlockWidth - 1,x),0)
        EndFunction

        Function LimitY(y)
            Return Max(Min(ScreenHeight()/gBlockWidth - 1,y),0)
        EndFunction
       
        Function UpdateTexts()
            For uusi.TEXTS = Each Texts
                If Timer() -uusi\cTimer > 1500 Then Delete uusi
                uusi\y = uusi\y - 0.5
                Color 255 - (Timer() - uusi\cTimer) / 12,255 - (Timer() - uusi\cTimer) / 12,255 - (Timer() - uusi\cTimer) / 12
                Text uusi\x,uusi\y,uusi\Value
            Next uusi
        EndFunction
       
        Function CreateParticle(i,a,x#,y#,angle,speed#,gravity#,ver#)
            uusi.PAR = New(Par)
            uusi\x = x
            uusi\y = y
            uusi\r = COLORS(BLOCKS(i,a,0),0)
            uusi\g = COLORS(BLOCKS(i,a,0),1)
            uusi\b = COLORS(BLOCKS(i,a,0),2)
            uusi\Angle = Angle
            uusi\Speed = Speed
            uusi\Gravity = Gravity
            uusi\CurGravity = ver * Rnd(0.1,0.9)
        EndFunction
       
        Function UpdateParticles()
            For uusi.PAR = Each PAR
                uusi\CurGravity = uusi\CurGravity + 1
                uusi\x = uusi\x + Cos(uusi\Angle) * uusi\Speed
                uusi\y = (uusi\y + uusi\gravity * uusi\CurGravity) - Sin(uusi\Angle) * uusi\Speed
                Color uusi\r,uusi\g,uusi\b
                box uusi\x, uusi\y, gBlockWidth, gBlockWidth
                Color cbblack
                Box uusi\x, uusi\y, gBlockWidth, gBlockWidth,0
                If uusi\x< 0 Or uusi\x>ScreenWidth() Or uusi\y<0 Or uusi\y>ScreenHeight() Then Delete uusi
            Next uusi
        EndFunction
EDIT:

Lopeta tuo pelleily sitten vieraana ja rekisteröidy. Ehkä sitten joku ottaa sinut vakavasti.

Last edited by DatsuniG on Fri Feb 05, 2010 5:35 pm, edited 1 time in total.
Hengität nyt manuaalisesti.
Top
jaahas

Re: Pikku pelit

Post by jaahas »

ekaks mikä on trolli?
ja tokaks kuka on trolli?

(huomio olen aloittelija en tiiä näistä jututista paljoa joten älkää haukkuko)
Top
Nassi_Setä
Advanced Member
Posts: 281
Joined: Sat Jun 28, 2008 5:19 pm
Location: Hämeessä miä

Re: Pikku pelit

Post by Nassi_Setä »

@jaahas ->klick<-
En väitä että olisit trolli, mutta kannattaa rekiteröityä foorumeille, lukea oppitunnit ja tehdä harjoitustehtäviä, niin siitä se lähtee :)

@DatsuniG, tuo pelisi on tosi koukuttava. Oma ennätys: 52900 pojoa.
\../(-_-)\../ <---klick MyBrute Image
Jotain evilii on tekeillä....
Top
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:
Contact Viltzu

Re: Pikku pelit

Post by Viltzu »

@DatsuniG: Koukuttava peli, muutaman yrityksen jälkeen...
156100 pistettä. Yrittää saa parempaakin.
156100 pistettä. Yrittää saa parempaakin.
156100.PNG (11.56 KiB) Viewed 9636 times
Kyseessä oli tosin näpyttely sekä todella hyvä tuuri.
Top
jaahas

Re: Pikku pelit

Post by jaahas »

Nassi_Setä wrote:@jaahas ->klick<-
En väitä että olisit trolli, mutta kannattaa rekiteröityä foorumeille, lukea oppitunnit ja tehdä harjoitustehtäviä, niin siitä se lähtee :)

@DatsuniG, tuo pelisi on tosi koukuttava. Oma ennätys: 52900 pojoa.
no nyt tajusin ja muuten en oo trolli kaikille tiedoks
Top
Post Reply

Return to “Projektit”