to brisi buttondelete "rezp buttondelete "rezn make "rezpnum 0 make "reznnum 0 buttoncreate "tabela1 "rezp :rezpnum 120 210 30 20[] buttoncreate "tabela1 "rezn :reznnum 35 210 30 20[] end to koncaj windowdelete "tabela home st end to koncaj1 windowdelete "tabela1 tabela end to koncaj2 windowdelete "tabela2 tabela end to koncaj3 windowdelete "tabela3 tabela end to koncaj4 windowdelete "tabela4 tabela end to napaka if :snd="on [ sound [1600 200] sound [1550 100] sound [1450 100] sound [1350 100] sound [1250 100] sound [1200 100] sound [1100 100]] staticdelete "odg staticdelete "prev Staticcreate "tabela1 "odg [Napaka! Pravilna rešitev ] 25 260 100 40 preveri make "reznnum :reznnum+1 buttondelete "rezn buttoncreate "tabela1 "rezn :reznnum 35 210 30 20[] if :reznnum=5 [opozorilo brisi] end to navodila windowdelete "tabela1 windowcreate "main "tabela2 [NAVODILA] 100 20 220 200[] Staticcreate "tabela2 "navod1 [Ta igra je namenjena ponavljanju in utrjevanju ~ enačb. ] 10 20 180 10 Staticcreate "tabela2 "navod4 [Igra poteka tako, da za dano enačbo, ki se izpiše na vrhu okna, med možnimi rešitvami izbereš pravo. ] 10 50 180 20 Staticcreate "tabela2 "navod6 [Če storiš pet napak, boš moral igro začeti znova.]10 85 180 10 buttoncreate "tabela2 "konec1 "ZAPRI 80 110 40 15 [koncaj2] Staticcreate "tabela2 "avtor [Avtorica: Tina Cotič] 10 140 170 10 Staticcreate "tabela2 "datum [Datum izdelave: 13. januar 2004] 10 150 180 15 end to opozorilo windowcreate "main "tabela3 [OPOZORILO!!] 100 130 100 130[] Staticcreate "tabela3 "opoz1 [V tem trenutku si napravil že peto napako ~ zato bo program prekinjen in potrebno bo začeti znova!! Pred začetkom si osveži svoje znanje!] 10 10 80 60 buttoncreate "tabela3 "konec2 "ZAPRI 30 90 40 15[koncaj2] end to pravilno if :snd="on [ sound [1000 200] sound [1100 100] sound [1200 100] sound [1250 100] sound [1350 100] sound [1450 100] sound [1550 100] sound [1600 200]] make "rezpnum :rezpnum+1 buttondelete "rezp buttoncreate "tabela1 "rezp :rezpnum 120 210 30 20 [] staticdelete "odg Staticcreate "tabela1 "odg [Odgovor je pravilen!] 20 260 180 40 end to pregled cs if :lik=1 [if :izbor=1 [pravilno] if :izbor=2 [pravilno] if :izbor=3 [pravilno] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=2 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [pravilno] if :izbor=5 [pravilno] if :izbor=6 [pravilno] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=3 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [pravilno] if :izbor=8 [pravilno] if :izbor=9 [pravilno] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=4 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [pravilno] if :izbor=11 [pravilno] if :izbor=12 [pravilno] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=5 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [pravilno] if :izbor=14 [pravilno] if :izbor=15 [pravilno] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=6 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [pravilno] if :izbor=17 [pravilno] if :izbor=18 [pravilno] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=7 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [pravilno] if :izbor=20 [pravilno] if :izbor=21 [pravilno] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=8 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [pravilno] if :izbor=23 [pravilno] if :izbor=24 [pravilno] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=9 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [pravilno] if :izbor=26 [pravilno] if :izbor=27 [pravilno] if :izbor=28 [napaka] if :izbor=29 [napaka] if :izbor=30 [napaka]] if :lik=10 [if :izbor=1 [napaka] if :izbor=2 [napaka] if :izbor=3 [napaka] if :izbor=4 [napaka] if :izbor=5 [napaka] if :izbor=6 [napaka] if :izbor=7 [napaka] if :izbor=8 [napaka] if :izbor=9 [napaka] if :izbor=10 [napaka] if :izbor=11 [napaka] if :izbor=12 [napaka] if :izbor=13 [napaka] if :izbor=14 [napaka] if :izbor=15 [napaka] if :izbor=16 [napaka] if :izbor=17 [napaka] if :izbor=18 [napaka] if :izbor=19 [napaka] if :izbor=20 [napaka] if :izbor=21 [napaka] if :izbor=22 [napaka] if :izbor=23 [napaka] if :izbor=24 [napaka] if :izbor=25 [napaka] if :izbor=26 [napaka] if :izbor=27 [napaka] if :izbor=28 [pravilno]if :izbor=29 [pravilno] if :izbor=30 [pravilno]] start end to enacbe windowdelete "tabela windowcreate "main "tabela1 [Igra - ENAČBE] 0 0 380 320[] Staticcreate "tabela1 "neki [IZBERI PRAVILEN REZULTAT DANE ENAČBE:] 50 5 350 15 buttoncreate "tabela1 "izjava "Pritisni\ za\ začetek\ igre 2 25 370 30 [start] buttoncreate "tabela1 "resitev1 "2 35 70 60 20 [make "lik 1 pregled] buttoncreate "tabela1 "resitev2 "50 100 70 60 20 [make "lik 2 pregled] buttoncreate "tabela1 "resitev3 "140 165 70 60 20 [make "lik 3 pregled] buttoncreate "tabela1 "resitev4 "0 230 70 60 20 [make "lik 4 pregled] buttoncreate "tabela1 "resitev5 "67 295 70 60 20 [make "lik 5 pregled] buttoncreate "tabela1 "resitev6 "30 35 100 60 20 [make "lik 6 pregled] buttoncreate "tabela1 "resitev7 "32 100 100 60 20 [make "lik 7 pregled] buttoncreate "tabela1 "resitev8 "24 165 100 60 20 [make "lik 8 pregled] buttoncreate "tabela1 "resitev9 "13 230 100 60 20 [make "lik 9 pregled] buttoncreate "tabela1 "resitev10 "4 295 100 60 20 [make "lik 10 pregled] Staticcreate "tabela1 "prev [] 40 240 180 20 Staticcreate "tabela1 "legenda18 [Število napak: ] 25 200 100 15 Staticcreate "tabela1 "legenda19 [Število pravilnih rešitev: ] 110 200 100 15 buttoncreate "tabela1 "zvok "izključi\ zvok 220 220 60 20 [zvoka] Staticcreate "tabela1 "odg [] 20 260 180 40 buttoncreate "tabela1 "navodila "navodila 220 250 60 20 [navodila] buttoncreate "tabela1 "nova-igra "nova\ igra 290 220 60 20 [start brisi] buttoncreate "tabela1 "konec "konec 290 250 60 20 [koncaj3] make "rezpnum 0 make "reznnum 0 buttoncreate "tabela1 "rezp :rezpnum 120 210 30 20[] buttoncreate "tabela1 "rezn :reznnum 35 210 30 20[] end to preveri if :izbor=1 [Staticcreate "tabela1 "prev [x = 2] 120 260 80 40] if :izbor=2 [Staticcreate "tabela1 "prev [x = 2] 120 260 80 40] if :izbor=3 [Staticcreate "tabela1 "prev [x = 2] 120 260 80 40] if :izbor=4 [Staticcreate "tabela1 "prev [x = 50] 120 260 80 40] if :izbor=5 [Staticcreate "tabela1 "prev [x = 50] 120 260 80 40] if :izbor=6 [Staticcreate "tabela1 "prev [x = 50] 120 260 80 40] if :izbor=7 [Staticcreate "tabela1 "prev [x = 140] 120 260 80 40] if :izbor=8 [Staticcreate "tabela1 "prev [x = 140] 120 260 80 40] if :izbor=9 [Staticcreate "tabela1 "prev [x = 140] 120 260 80 40] if :izbor=10 [Staticcreate "tabela1 "prev [x = 0] 120 260 80 40] if :izbor=11 [Staticcreate "tabela1 "prev [x = 0] 120 260 80 40] if :izbor=12 [Staticcreate "tabela1 "prev [x = 0] 120 260 80 40] if :izbor=13 [Staticcreate "tabela1 "prev [x = 67] 120 260 80 40] if :izbor=14 [Staticcreate "tabela1 "prev [x = 67] 120 260 80 40] if :izbor=15 [Staticcreate "tabela1 "prev [x = 67] 120 260 80 40] if :izbor=16 [Staticcreate "tabela1 "prev [x = 30] 120 260 80 40] if :izbor=17 [Staticcreate "tabela1 "prev [x = 30] 120 260 80 40] if :izbor=18 [Staticcreate "tabela1 "prev [x = 30] 120 260 80 40] if :izbor=19 [Staticcreate "tabela1 "prev [x = 32] 120 260 80 40] if :izbor=20 [Staticcreate "tabela1 "prev [x = 32] 120 260 80 40] if :izbor=21 [Staticcreate "tabela1 "prev [x = 32] 120 260 80 40] if :izbor=22 [Staticcreate "tabela1 "prev [x = 24] 120 260 100 40] if :izbor=23 [Staticcreate "tabela1 "prev [x = 24] 120 260 80 40] if :izbor=24 [Staticcreate "tabela1 "prev [x = 24] 120 260 80 40] if :izbor=25 [Staticcreate "tabela1 "prev [x = 13] 120 260 80 40] if :izbor=26 [Staticcreate "tabela1 "prev [x = 13] 120 260 80 40] if :izbor=27 [Staticcreate "tabela1 "prev [x = 13] 120 260 80 40] if :izbor=28 [Staticcreate "tabela1 "prev [x = 4] 120 260 80 40] if :izbor=29 [Staticcreate "tabela1 "prev [x = 4] 120 260 80 40] if :izbor=30 [Staticcreate "tabela1 "prev [x = 4] 120 260 80 40] end to rezultat if :izbor=1 [make "rez 2] if :izbor=2 [make "rez 2] if :izbor=3 [make "rez 2] if :izbor=4 [make "rez 50] if :izbor=5 [make "rez 50] if :izbor=6 [make "rez 50] if :izbor=7 [make "rez 140] if :izbor=8 [make "rez 140] if :izbor=9 [make "rez 140] if :izbor=10 [make "rez 0] if :izbor=11 [make "rez 0] if :izbor=12 [make "rez 0] if :izbor=13 [make "rez 67] if :izbor=14 [make "rez 67] if :izbor=15 [make "rez 67] if :izbor=16 [make "rez 30] if :izbor=17 [make "rez 30] if :izbor=18 [make "rez 30] if :izbor=19 [make "rez 32] if :izbor=20 [make "rez 32] if :izbor=21 [make "rez 32] if :izbor=22 [make "rez 24] if :izbor=23 [make "rez 24] if :izbor=24 [make "rez 24] if :izbor=25 [make "rez 13] if :izbor=26 [make "rez 13] if :izbor=27 [make "rez 13] if :izbor=28 [make "rez 4] if :izbor=29 [make "rez 4] if :izbor=30 [make "rez 4] end to setup buttoncreate "tabela "konec "KONEC 200 95 40 15[koncaj] buttoncreate "tabela "navod "NAVODILA 140 95 40 15[navodila] buttoncreate "tabela "igrica "IGRA 80 95 40 15[enacbe] Staticcreate "tabela "legenda1 [Test - ENAČBE] 20 10 150 20 Staticcreate "tabela "uvod1 [S tole igrico boš utrdil-a znanje v reševanju enačb!] 50 35 150 25 end to start make "izbor (random count :izjave)+1 make "napis item :izbor :izjave buttondelete "izjava buttoncreate "tabela1 "izjava :napis 2 25 370 30 [] end to tabela windowcreate "main "tabela [ENAČBE] 10 10 330 150 [ ht setup] end TO zamena :s IF Emptyp :s [OP [] ] IF "× = First :s [ OP FPUT "* Zamena BF :s ] IF ": = First :s [ OP FPUT "/ Zamena BF :s ] OP FPUT First :s Zamena BF :s END to zvoka ifelse :snd="on [make "snd "off buttondelete "zvok buttoncreate "tabela1 "zvok "vključi\ zvok 220 220 60 20 [zvoka]] [make "snd "on buttondelete "zvok buttoncreate "tabela1 "zvok "izključi\ zvok 220 220 60 20 [zvoka]] end Make "izbor 10 Make "izjave {[x * 9 = 7 + 11] [x + 10 = 36 : 3] [6 * x + x = 14] [x - 19 = 31] [( 34 + 25 + 41 ) * x = 22 * 100 + 28 * 100] [42 * x * 18 = 37800] [6 * x + 9 * x + 5 * x = ( 15 + 5 ) * (97 - 27 ) * ( 1001 - 999 )] [x : ( 95 - 81 ) = 109 - 33 * 3] [560 : x = 4] [6 - x = x + 6] [7 * x = 0] [11 + x = 11 - x] [67 * x = 4489] [( 87 + 15 + 32 ) * 3 = x * 6] [3 * x + x = 134 * 2] [x : 15 = 2] [x - 6 = 3 * 8] [15 * 28 + x = 450] [x + 48 = 80] [x - 8 = 6 * 4] [32 = 1024 : x] [49 = x + 25] [x * 22 = 528] [(32 + 33 ) * x = 1560] [x * 21 = 273] [8 = x - 5] [3 * x + x = 52] [6 + x = 10] [5 = 20 : x] [3 * x = x + 8]} Make "lik 10 Make "rez 60 Make "reznnum 2 Make "rezpnum 0 Make "snd "on Make "x [1380/23] tabela