to dnaslednjin
  staticdelete "dstatus1
  staticdelete "dstatus2
  staticdelete "dstatus3
  staticdelete "dstatus4
  staticdelete "decimalka
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost 
  buttondelete "dnaslednji
  dodstotkiračun
end

to dnaslednjip
  staticdelete "dstatus
  staticdelete "decimalka
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost
  buttondelete "dnaslednji
  dodstotkiračun
end

to dniprav
  make "n (:n + 1)
  staticdelete "štn
  staticcreate "glavno "štn :n 115 105 100 15
  staticcreate "glavno "dstatus1 (:vtipkano) 40 130 15 10
  staticcreate "glavno "dstatus2 [- napačno!]  55 130 60 10
  staticcreate "glavno "dstatus3 [Pravilen rezultat je:] 35 140 70 10 
  staticcreate "glavno "dstatus4 (:rezultat) 100 140 15 10 
  buttondelete "dpreveri
  comboboxenable "vrednost "false
end

to dodstotki
  rešuj
  staticcreate "glavno "dnapis [V okence vtipkaj odstotke:] 25 40 100 15
  dodstotkiračun
end

to dodstotkiračun
  make "kk (1 + random 30) 
  staticcreate "glavno "decimalka (:kk / 100) 30 55 15 10
  staticcreate "glavno "enako [=] 45 55 5 10 
  comboboxcreate "glavno "vrednost 50 55 15 10 
  staticcreate "glavno "znak [%] 65 55 5 10 
  buttoncreate "glavno "dpreveri [Preveri!] 130 35 50 15 [dpreveri]
  make "rezultat :kk
end

to dprav
  make "p (:p + 1)
  staticdelete "štp
  staticcreate "glavno "štp :p 110 90 15 15 
  staticcreate "glavno "dstatus [Pravilno!] 40 130 60 20
  buttondelete "dpreveri
  comboboxenable "vrednost "false
end

to dpreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse :rezultat = :vtipkano [dprav] [dniprav]
  buttoncreate "glavno "dnaslednji [naslednji] 130 55 50 15 [drazlika]
end

to drazlika
  ifelse :rezultat = :vtipkano [dnaslednjip] [dnaslednjin] 
end

to imenovalec :y
  make "a 2
  make "b 4
  make "c 5
  make "d 10
  make "e 20
  make "f 25
  make "g 50
  make "x (:y + random 6)
  if :x = ascii "a [output :a]
  if :x = ascii "b [output :b]
  if :x = ascii "c [output :c]
  if :x = ascii "d [output :d]
  if :x = ascii "e [output :e]
  if :x = ascii "f [output :f]
  if :x = ascii "g [output :g]
end

to konstanta :z
  make "k (1 + random :z)
  ifelse (:k * :i) < 100 [output :k] [output konstanta :k]
end

to min :a1 :b1
  ifelse :a1<:b1 [op :a1] [op :b1]
end

to napotki
  windowdelete "okno
  windowcreate "W "navodila [Preverjanje znanja o odstotkih!] 5 30 210 200 []
  staticcreate "navodila "nnapis1 [Program je namenjen utrjevanju znanja o odstotkih.] 15 15 180 10 
  staticcreate "navodila "nnapis2 [Preverjanje pričneš s pritiskom na gumb Začni izbiraš pa lahko med petimi tipi nalog.] 15 30 180 20
  staticcreate "navodila "nnapis3 [Ob pritisku na gumb Preveri se bo izpisalo ali je rezultat pravilen ali ne, hkrati pa se bo tudi povečalo
				   število pravilnih /nepravilnih odgovorov.] 15 55 180 30
  staticcreate "navodila "nnapis4 [Pozor: v nalogah, kjer pretvarjaš odstotke v decimalna števila uporabljaj decimalno piko!] 15 95 180 20 
  buttoncreate "navodila "začetek [Prični s preverjanjem!] 110 155 80 25 [začetek]
end

to nsd :a2 :b2
  ifelse :a2=:b2 [op :a2] [op nsd abs :a2-:b2 min :a2 :b2]   
end

to odecimalne
  rešuj
  staticcreate "glavno "onapis1 [V okence vtipkaj decimalno] 20 40 100 10
  staticcreate "glavno "onapis2 [število:] 20 50 50 10
  odecimalneračun
end

to odecimalneračun
  make "oo (1 + random 30) 
  staticcreate "glavno "odstotek (:oo) 30 70 10 10
  staticcreate "glavno "znak [%] 40 70 5 10
  staticcreate "glavno "enako [=] 47 70 5 10
  comboboxcreate "glavno "vrednost 52 70 20 10
  buttoncreate "glavno "odpreveri [Preveri!] 130 35 50 15 [odpreveri] 
  make "rezultat (:oo / 100)
end

to odnaslednjin
  staticdelete "odstotek
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost 
  staticdelete "odstatus1
  staticdelete "odstatus2
  staticdelete "odstatus3
  staticdelete "odstatus4
  buttondelete "odnaslednji
  odecimalneračun
end

to odnaslednjip
  staticdelete "odstotek
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost
  staticdelete "odstatus
  buttondelete "odnaslednji
  odecimalneračun
end

to odniprav
  make "n (:n + 1)
  staticdelete "štn
  staticcreate "glavno "štn :n 115 105 100 15
  staticcreate "glavno "odstatus1 (:vtipkano) 40 130 15 10
  staticcreate "glavno "odstatus2 [- napačno!]  55 130 60 10
  staticcreate "glavno "odstatus3 [Pravilen rezultat je:] 35 140 70 10 
  staticcreate "glavno "odstatus4 (:rezultat) 100 140 15 10 
  buttondelete "odpreveri
  comboboxenable "vrednost "false
end

to odprav
  make "p (:p + 1)
  staticdelete "štp
  staticcreate "glavno "štp :p 110 90 15 15 
  staticcreate "glavno "odstatus [Pravilno!] 40 130 60 20
  buttondelete "odpreveri
  comboboxenable "vrednost "false
end

to odpreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse :rezultat = :vtipkano [odprav] [odniprav]
  buttoncreate "glavno "odnaslednji [naslednji] 130 55 50 15 [odrazlika]
end

to odrazlika
  ifelse :rezultat = :vtipkano [odnaslednjip] [odnaslednjin] 
end

to onaslednjin
  staticdelete "odstotek 
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost1 
  staticdelete "deljeno 
  comboboxdelete "vrednost2 
  staticdelete "status1
  staticdelete "status2
  staticdelete "status3
  staticdelete "status4
  staticdelete "status5
  staticdelete "status6
  staticdelete "deljeno1
  staticdelete "deljeno2
  buttondelete "onaslednji
  oulomkiračun
end

to onaslednjip
  staticdelete "odstotek 
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost1 
  staticdelete "deljeno 
  comboboxdelete "vrednost2 
  staticdelete "status
  buttondelete "onaslednji
  oulomkiračun
end

to oniprav
  make "n (:n + 1)
  staticdelete "štn
  staticcreate "glavno "štn :n 115 105 100 15
  staticcreate "glavno "status1 (:vtipkano1) 40 130 10 10
  staticcreate "glavno "deljeno1 [/] 50 130 5 10
  staticcreate "glavno "status2 (:vtipkano2) 55 130 15 10
  staticcreate "glavno "status3 [- napačno!]  67 130 60 10
  staticcreate "glavno "status4 [Pravilen rezultat je:] 35 140 70 10 
  staticcreate "glavno "status5 (:oštevec ) 100 140 10 10
  staticcreate "glavno "deljeno2 [/] 110 140 5 10
  staticcreate "glavno "status6 (:oimenovalec) 115 140 15 10  
  buttondelete "opreveri
  comboboxenable "vrednost1 "false
  comboboxenable "vrednost2 "false
end

to oprav
  make "p (:p + 1)
  staticdelete "štp
  staticcreate "glavno "štp :p 110 90 15 15 
  staticcreate "glavno "status [Pravilno!] 40 130 60 20
  buttondelete "opreveri
  comboboxenable "vrednost1 "false
  comboboxenable "vrednost2 "false
end

to opreveri
  make "vtipkano1 first comboboxgettext "vrednost1
  make "vtipkano2 first comboboxgettext "vrednost2
  ifelse and :oštevec = :vtipkano1 :oimenovalec = :vtipkano2 [oprav] [oniprav]
  buttoncreate "glavno "onaslednji [naslednji] 130 55 50 15 [orazlika]
end

to orazlika
  ifelse and :oštevec = :vtipkano1 :oimenovalec = :vtipkano2 [onaslednjip] [onaslednjin]
end

to oulomki
  rešuj
  staticcreate "glavno "onapis1 [V prvo okence vtipkaj števec,] 20 40 110 10
  staticcreate "glavno "onapis2 [v drugo imenovalec:] 20 50 70 10 
  oulomkiračun
end

to oulomkiračun
  make "o (1 + random 99) 
  staticcreate "glavno "odstotek (:o) 30 70 10 10
  staticcreate "glavno "znak [%] 40 70 5 10
  staticcreate "glavno "enako [=] 47 70 5 10
  comboboxcreate "glavno "vrednost1 52 70 15 10
  staticcreate "glavno "deljeno [/] 70 70 5 10
  comboboxcreate "glavno "vrednost2 75 70 15 10
  buttoncreate "glavno "opreveri [Preveri!] 130 35 50 15 [opreveri] 
  make "onsd nsd :o 100 
  make "oštevec (:o / :onsd)
  make "oimenovalec (100 / :onsd)
end

to procenti
  make "p 0
  make "n 0
  windowcreate "W "glavno [POZDRAVLJEN/A!] 5 30 210 200 []
  staticcreate "glavno "pozdrav [Pozdravljen/a pri preverjanju znanja iz ODSTOTKOV!] 15 15 180 15
  staticcreate "glavno "uvod [Za začetek si lahko najprej prebereš navodila ali pa se kar loti reševanja!] 15 40 170 15
  buttoncreate "glavno "navodila [Navodila] 75 75 50 20 [napotki] 
  buttoncreate "glavno "začetek [Začni] 75 100 50 20 [začetek]
  buttoncreate "glavno "zapri [Zapri!]  130 140 50 30 [zapri]
end

to rešuj
  windowdelete "izbira
  windowcreate "W "glavno [Preverjanje...]  5 30 210 200 []
  buttoncreate "glavno "zamenjaj [Zamenjaj tip nalog!] 120 10 70 15 [začetek]  
  buttoncreate "glavno "gkončaj [Končaj!] 140 160 50 20 [zapri]
  staticcreate "glavno "pravilni [št. pravilnih zadetkov:] 30 90 80 15 
  staticcreate "glavno "štp (:p) 110 90 15 15 
  staticcreate "glavno "nepravilni [št. nepravilnih zadetkov:] 30 105 105 15
  staticcreate "glavno "štn (:n) 115 105 100 15
end

to slike
  rešuj
  staticcreate "glavno "snapis1 [V okence vtipkaj kolikšen del] 25 40 100 10
  staticcreate "glavno "snapis2 [lika je pobarvan:] 25 50 80 10
  riši
end

to snaslednjin
  cs
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "sstatus1
  staticdelete "sstatus2
  staticdelete "sstatus3
  staticdelete "sstatus4
  buttondelete "snaslednji
  riši
end

to snaslednjip
  cs
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "sstatus
  buttondelete "snaslednji
  riši
end

to sniprav
  make "n (:n + 1)
  staticdelete "štn
  staticcreate "glavno "štn :n 115 105 100 15
  staticcreate "glavno "sstatus1 (:vtipkano) 40 130 10 10
  staticcreate "glavno "sstatus2 [- napačno!]  50 130 60 10
  staticcreate "glavno "sstatus3 [Pravilen rezultat je:] 35 140 70 10 
  staticcreate "glavno "sstatus4 (:pobarvani / (:p1 * :p2) * 100) 100 140 15 10 
  buttondelete "spreveri
  comboboxenable "vrednost "false
  buttoncreate "glavno "snaslednji [naslednji] 130 55 50 15 [snaslednjin]
end

to sprav
  make "p (:p + 1)
  staticdelete "štp
  staticcreate "glavno "štp :p 110 90 15 15 
  staticcreate "glavno "sstatus [Pravilno!] 40 130 60 20
  buttondelete "spreveri
  comboboxenable "vrednost "false
  buttoncreate "glavno "snaslednji [naslednji] 130 55 50 15 [snaslednjip]
end

to spreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse ((:pobarvani / (:p1 * :p2)) * 100) = :vtipkano [sprav] [sniprav]
end

to unaslednjin
  staticdelete "uštevec
  staticdelete "deljeno
  staticdelete "uimenovalec
  staticdelete "enako
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "ustatus1
  staticdelete "ustatus2
  staticdelete "ustatus3
  staticdelete "ustatus4
  buttondelete "unaslednji
  uodstotkiračun
end

to unaslednjip
  staticdelete "uštevec
  staticdelete "deljeno
  staticdelete "uimenovalec
  staticdelete "enako
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "ustatus
  buttondelete "unaslednji
  uodstotkiračun
end

to uniprav
  make "n (:n + 1)
  staticdelete "štn
  staticcreate "glavno "štn :n 115 105 100 15
  staticcreate "glavno "ustatus1 (:vtipkano) 40 130 10 10
  staticcreate "glavno "ustatus2 [- napačno!]  50 130 60 10
  staticcreate "glavno "ustatus3 [Pravilen rezultat je:] 35 140 70 10 
  staticcreate "glavno "ustatus4 (:rezultat) 100 140 15 10 
  buttondelete "upreveri
  comboboxenable "vrednost "false
end

to uodstotki
  rešuj
  staticcreate "glavno "unapis [V okence vtipkaj odstotke:] 25 40 100 15 
  uodstotkiračun
end

to uodstotkiračun
  make "i (imenovalec 97)
  make "š (števec 49)
  make "k (konstanta 49)
  staticcreate "glavno "uštevec (:s * :k) 30 55 10 10
  staticcreate "glavno "deljeno [/] 40 55 5 10
  staticcreate "glavno "uimenovalec (:i * :k) 45 55 10 10 
  staticcreate "glavno "enako [=] 55 55 5 10
  comboboxcreate "glavno "vrednost 60 55 15 10 
  staticcreate "glavno "znak [%] 75 55 10 10
  buttoncreate "glavno "upreveri [Preveri!] 130 35 50 15 [upreveri]
  make "rezultat (:s / :i) * 100
end

to uprav
  make "p (:p + 1)
  staticdelete "štp
  staticcreate "glavno "štp :p 110 90 15 15 
  staticcreate "glavno "ustatus [Pravilno!] 40 130 60 20
  buttondelete "upreveri
  comboboxenable "vrednost "false
end

to upreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse :rezultat = :vtipkano [uprav] [uniprav]
  buttoncreate "glavno "unaslednji [naslednji] 130 55 50 15 [urazlika]
end

to urazlika
  ifelse :rezultat = :vtipkano [unaslednjip] [unaslednjin] 
end

to zapri
  cs
  windowdelete "glavno
  print "
  print "
  print "Končal/a\ si!\
  home
end

to začetek
  cs
  windowdelete "glavno
  windowdelete "napotki
  windowdelete "navodila
  windowcreate "W "izbira [Prični z reševanjem!] 30 30 210 200 []
  staticcreate "izbira "izberi [Izberi si tip nalog:]  20 20 100 15
  buttoncreate "izbira "vprocente1 [Pretvarjanje ulomkov v odstotke] 30 45 150 15 [uodstotki]
  buttoncreate "izbira "vprocente2 [Pretvarjanje decimalnih števil v odstotke] 30 60 150 15 [dodstotki]
  buttoncreate "izbira "izprocentov1 [Pretvarjanje odstotkov v ulomke] 30 75 150 15 [oulomki]
  buttoncreate "izbira "izprocentov2 [Pretvarjanje odstotkov v decimalna števila] 30 90 150 15 [odecimalne]
  buttoncreate "izbira "vprocente3 [Kolikšen del je pobarvan?] 30 105 150 15 [slike]
  buttoncreate "izbira "mešano [Mešane naloge] 30 120 150 15 [mešano]
  buttoncreate "izbira "zkonec [Končaj] 140 155 50 25 [zapri]
end

to števec :w
  make "s (1 + random :w)
  ifelse :i > :s [output :s] [output števec :w]
end

to kvadratek
  repeat 4 [fd 15 rt 90]
  pu
  rt 90 fd 15 lt 90
  pd
end

to mreža
    repeat :p2 [vrstica]
end

to riši
  make "p1 (2 + random 7)
  make "p2 (2 + random 7)
  make "pobarvani (1 + random ((:p1 * :p2) - 1))
  ifelse (:pobarvani / (:p1 * :p2) * 100) = round (:pobarvani / (:p1 * :p2) * 100) [slika] [riši]
end

to slika
  pd
  mreža
  pu ht
  home 
  rt 90 fd 8 lt 90 fd 8 rt 90
  make "štej1 0
  setfc [255 0 0]
  repeat :p2 [repeat :p1 [make "štej1 (:štej1 + 1)
		          ifelse :štej1 < (:pobarvani + 1) [fill fd 15] [fd 15]]					  
              back (:p1 * 15)
	      lt 90 fd 15 rt 90
	     ] 
  comboboxcreate "glavno "vrednost 60 70 15 10 
  staticcreate "glavno "znak [%] 75 70 5 10 
  buttoncreate "glavno "spreveri [Preveri] 130 35 50 15 [spreveri]
end

to vrstica
  repeat :p1 [kvadratek]
  pu 
  fd 15 lt 90 fd (:p1 * 15) rt 90
  pd
end

to muodstotki
  rešuj
  staticcreate "glavno "unapis [V okence vtipkaj odstotke:] 25 40 100 15 
  muodstotkiračun
end

to muodstotkiračun
  make "i (imenovalec 97)
  make "š (števec 49)
  make "k (konstanta 49)
  staticcreate "glavno "uštevec (:s * :k) 30 55 10 10
  staticcreate "glavno "deljeno [/] 40 55 5 10
  staticcreate "glavno "uimenovalec (:i * :k) 45 55 10 10 
  staticcreate "glavno "enako [=] 55 55 5 10
  comboboxcreate "glavno "vrednost 60 55 15 10 
  staticcreate "glavno "znak [%] 75 55 10 10
  buttoncreate "glavno "upreveri [Preveri!] 130 35 50 15 [mupreveri]
  make "rezultat (:s / :i) * 100
end

to mupreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse :rezultat = :vtipkano [uprav] [uniprav]
  buttoncreate "glavno "unaslednji [naslednji] 130 55 50 15 [murazlika]
end

to murazlika
  ifelse :rezultat = :vtipkano [munaslednjip] [munaslednjin] 
end

to munaslednjin
  staticdelete "uštevec
  staticdelete "deljeno
  staticdelete "uimenovalec
  staticdelete "enako
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "ustatus1
  staticdelete "ustatus2
  staticdelete "ustatus3
  staticdelete "ustatus4
  buttondelete "unaslednji
  mešano
end

to munaslednjip
  staticdelete "uštevec
  staticdelete "deljeno
  staticdelete "uimenovalec
  staticdelete "enako
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "ustatus
  buttondelete "unaslednji
  mešano
end

to mdodstotki
  rešuj
  staticcreate "glavno "dnapis [V okence vtipkaj odstotke:] 25 40 100 15
  mdodstotkiračun
end

to mdodstotkiračun
  make "kk (1 + random 30) 
  staticcreate "glavno "decimalka (:kk / 100) 30 55 15 10
  staticcreate "glavno "enako [=] 45 55 5 10 
  comboboxcreate "glavno "vrednost 50 55 15 10 
  staticcreate "glavno "znak [%] 65 55 5 10 
  buttoncreate "glavno "dpreveri [Preveri!] 130 35 50 15 [mdpreveri]
  make "rezultat :kk
end


to mdpreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse :rezultat = :vtipkano [dprav] [dniprav]
  buttoncreate "glavno "dnaslednji [naslednji] 130 55 50 15 [mdrazlika]
end

to mdrazlika
  ifelse :rezultat = :vtipkano [mdnaslednjip] [mdnaslednjin] 
end

to mdnaslednjin
  staticdelete "dstatus1
  staticdelete "dstatus2
  staticdelete "dstatus3
  staticdelete "dstatus4
  staticdelete "decimalka
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost 
  buttondelete "dnaslednji
  mešano
end

to mdnaslednjip
  staticdelete "dstatus
  staticdelete "decimalka
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost
  buttondelete "dnaslednji
  mešano
end

to moulomki
  rešuj
  staticcreate "glavno "onapis1 [V prvo okence vtipkaj števec,] 20 40 110 10
  staticcreate "glavno "onapis2 [v drugo imenovalec:] 20 50 70 10 
  moulomkiračun
end

to moulomkiračun
  make "o (1 + random 99) 
  staticcreate "glavno "odstotek (:o) 30 70 10 10
  staticcreate "glavno "znak [%] 40 70 5 10
  staticcreate "glavno "enako [=] 47 70 5 10
  comboboxcreate "glavno "vrednost1 52 70 15 10
  staticcreate "glavno "deljeno [/] 70 70 5 10
  comboboxcreate "glavno "vrednost2 75 70 15 10
  buttoncreate "glavno "opreveri [Preveri!] 130 35 50 15 [mopreveri] 
  make "onsd nsd :o 100 
  make "oštevec (:o / :onsd)
  make "oimenovalec (100 / :onsd)
end

to mopreveri
  make "vtipkano1 first comboboxgettext "vrednost1
  make "vtipkano2 first comboboxgettext "vrednost2
  ifelse and :oštevec = :vtipkano1 :oimenovalec = :vtipkano2 [oprav] [oniprav]
  buttoncreate "glavno "onaslednji [naslednji] 130 55 50 15 [morazlika]
end

to morazlika
  ifelse and :oštevec = :vtipkano1 :oimenovalec = :vtipkano2 [monaslednjip] [monaslednjin]
end

to monaslednjin
  staticdelete "odstotek 
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost1 
  staticdelete "deljeno 
  comboboxdelete "vrednost2 
  staticdelete "status1
  staticdelete "status2
  staticdelete "status3
  staticdelete "status4
  staticdelete "status5
  staticdelete "status6
  staticdelete "deljeno1
  staticdelete "deljeno2
  buttondelete "onaslednji
  mešano
end

to monaslednjip
  staticdelete "odstotek 
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost1 
  staticdelete "deljeno 
  comboboxdelete "vrednost2 
  staticdelete "status
  buttondelete "onaslednji
  mešano
end

to modecimalne
  rešuj
  staticcreate "glavno "onapis1 [V okence vtipkaj decimalno] 20 40 100 10
  staticcreate "glavno "onapis2 [število:] 20 50 50 10
  modecimalneračun
end

to modecimalneračun
  make "oo (1 + random 30) 
  staticcreate "glavno "odstotek (:oo) 30 70 10 10
  staticcreate "glavno "znak [%] 40 70 5 10
  staticcreate "glavno "enako [=] 47 70 5 10
  comboboxcreate "glavno "vrednost 52 70 20 10
  buttoncreate "glavno "odpreveri [Preveri!] 130 35 50 15 [modpreveri] 
  make "rezultat (:oo / 100)
end

to modpreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse :rezultat = :vtipkano [odprav] [odniprav]
  buttoncreate "glavno "odnaslednji [naslednji] 130 55 50 15 [modrazlika]
end

to modrazlika
  ifelse :rezultat = :vtipkano [modnaslednjip] [modnaslednjin] 
end

to modnaslednjin
  staticdelete "odstotek
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost 
  staticdelete "odstatus1
  staticdelete "odstatus2
  staticdelete "odstatus3
  staticdelete "odstatus4
  buttondelete "odnaslednji
  mešano
end

to modnaslednjip
  staticdelete "odstotek
  staticdelete "znak
  staticdelete "enako
  comboboxdelete "vrednost
  staticdelete "odstatus
  buttondelete "odnaslednji
  mešano
end

to mslike
  rešuj
  staticcreate "glavno "snapis1 [V okence vtipkaj kolikšen del] 25 40 100 10
  staticcreate "glavno "snapis2 [lika je pobarvan:] 25 50 80 10
  mriši
end

to mriši
  make "p1 (2 + random 7)
  make "p2 (2 + random 7)
  make "pobarvani (1 + random ((:p1 * :p2) - 1))
  ifelse (:pobarvani / (:p1 * :p2) * 100) = round (:pobarvani / (:p1 * :p2) * 100) [mslika] [mriši]
end

to mslika
  pd
  mreža
  pu ht
  home 
  rt 90 fd 8 lt 90 fd 8 rt 90
  make "štej1 0
  setfc [255 0 0]
  repeat :p2 [repeat :p1 [make "štej1 (:štej1 + 1)
				  ifelse :štej1 < (:pobarvani + 1) [fill fd 15] [fd 15]]					  
            back (:p1 * 15)
		lt 90 fd 15 rt 90
		] 
  comboboxcreate "glavno "vrednost 60 70 15 10 
  staticcreate "glavno "znak [%] 75 70 5 10 
  buttoncreate "glavno "spreveri [Preveri] 130 35 50 15 [mspreveri]
end

to msnaslednjin
  cs
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "sstatus1
  staticdelete "sstatus2
  staticdelete "sstatus3
  staticdelete "sstatus4
  buttondelete "snaslednji
  mešano
end

to msnaslednjip
  cs
  comboboxdelete "vrednost 
  staticdelete "znak
  staticdelete "sstatus
  buttondelete "snaslednji
  mešano
end

to msniprav
  make "n (:n + 1)
  staticdelete "štn
  staticcreate "glavno "štn :n 115 105 100 15
  staticcreate "glavno "sstatus1 (:vtipkano) 40 130 10 10
  staticcreate "glavno "sstatus2 [- napačno!]  50 130 60 10
  staticcreate "glavno "sstatus3 [Pravilen rezultat je:] 35 140 70 10 
  staticcreate "glavno "sstatus4 (:pobarvani / (:p1 * :p2) * 100) 100 140 15 10 
  buttondelete "spreveri
  comboboxenable "vrednost "false
  buttoncreate "glavno "snaslednji [naslednji] 130 55 50 15 [msnaslednjin]
end

to msprav
  make "p (:p + 1)
  staticdelete "štp
  staticcreate "glavno "štp :p 110 90 15 15 
  staticcreate "glavno "sstatus [Pravilno!] 40 130 60 20
  buttondelete "spreveri
  comboboxenable "vrednost "false
  buttoncreate "glavno "snaslednji [naslednji] 130 55 50 15 [msnaslednjip]
end

to mspreveri
  make "vtipkano first comboboxgettext "vrednost
  ifelse ((:pobarvani / (:p1 * :p2)) * 100) = :vtipkano [msprav] [msniprav]
end

to mešano
  make "tip (1 + random 5)
  if :tip = 1 [muodstotki]
  if :tip = 2 [mdodstotki]
  if :tip = 3 [moulomki]
  if :tip = 4 [modecimalne]
  if :tip = 5 [mslike]
end


procenti