to info1

   WindowCreate "Info1 "Info1 [Povratna informacija] 50 70 150 55 []

   if NOT (AND (:po1 = :pov1)(:vo1 = :vol1)) [StaticCreate "Info1 "TekstI1 [Napačno si izračunal površino in prostornino valja!] 5 5 140 25]
   if (:po1 = :pov1) [StaticCreate "Info1 "TekstI2 [Napačno si izračunal prostornino valja!] 5 5 140 15 StaticCreate "Info1 "TekstI3 [Izračun površine valja pa je bil pravilen!] 5 15 140 15]
   if (:vo1 = :vol1) [StaticCreate "Info1 "TekstI4 [Napačno si izračunal površino valja!] 5 5 140 15 StaticCreate "Info1 "TekstI5 [Izračun prostornine valja pa je bil pravilen!] 5 15 140 15]

   ButtonCreate "Info1 "GumbZapri [Zapri] 90 28 50 15 [WindowDelete "Info1]


end

to info2

   WindowCreate "Info2 "Info2 [Povratna informacija] 50 70 150 55 []

   if NOT (AND (:po2 = :pov2)(:vo2 = :vol2)) [StaticCreate "Info2 "TekstI1 [Napačno si izračunal površino in prostornino stožca!] 5 5 140 25]
   if (:po2 = :pov2) [StaticCreate "Info2 "TekstI2 [Napačno si izračunal prostornino stožca!] 5 5 140 15 StaticCreate "Info2 "TekstI3 [Izračun površine stožca pa je bil pravilen!] 5 15 140 15]
   if (:vo2 = :vol2) [StaticCreate "Info2 "TekstI4 [Napačno si izračunal površino stožca!] 5 5 140 15 StaticCreate "Info2 "TekstI5 [Izračun prostornine stožca pa je bil pravilen!] 5 15 140 15]

   ButtonCreate "Info2 "GumbZapri [Zapri] 90 28 50 15 [WindowDelete "Info2]


end

to info3

   WindowCreate "Info3 "Info3 [Povratna informacija] 50 70 150 55 []

   if NOT (AND (:po3 = :pov3)(:vo3 = :vol3)) [StaticCreate "Info3 "TekstI1 [Napačno si izračunal površino in prostornino krogle!] 5 5 140 25]
   if (:po3 = :pov3) [StaticCreate "Info3 "TekstI2 [Napačno si izračunal prostornino krogle!] 5 5 140 15 StaticCreate "Info3 "TekstI3 [Izračun površine krogle pa je bil pravilen!] 5 15 140 15]
   if (:vo3 = :vol3) [StaticCreate "Info3 "TekstI4 [Napačno si izračunal površino krogle!] 5 5 140 15 StaticCreate "Info3 "TekstI5 [Izračun prostornine krogle pa je bil pravilen!] 5 15 140 15]

   ButtonCreate "Info3 "GumbZapri [Zapri] 90 28 50 15 [WindowDelete "Info3]

end

to izhod
   WindowDelete "GlavnoOkno 
   CS
end

to izhod1
   WindowCreate "GlavnoOkno "Izhod1 [Izhod iz programa] 50 50 130 50 []
   StaticCreate "Izhod1 "TekstIzh [Ali želiš zapustiti program?] 5 5 100 10
   ButtonCreate "Izhod1 "GumbIzh1 "Da 5 20 55 10 [WindowDelete "Izhod1 Izhod]
   ButtonCreate "Izhod1 "GumbIzh2 "Ne 65 20 55 10 [WindowDelete "Izhod1]

end

to krogla
   make "pravilni3 0
   make "napacni3 0



   WindowDelete "main
   WindowCreate "Krogla "Krogla [Krogla] 20 20 200 125 []
   GroupBoxCreate "Krogla "Odg3 0 0 195 65
   StaticCreate "Krogla "TekstK1 [Izračunaj površino in prostornino krogle s podatki:] 5 5 180 10
   StaticCreate "Krogla "TekstK2 [r = ] 10 34 20 10
   StaticCreate "Krogla "TekstK3 :r3 20 34 20 10
   StaticCreate "Krogla "TekstK4 [cm] 30 34 20 10
   StaticCreate "Krogla "TekstK5 [P = ] 80 25 20 10
   ComboBoxCreate "Krogla "OdgP3 95 23 30 10
   StaticCreate "Krogla "TekstK6 [cm] 127 25 20 10
   StaticCreate "Krogla "TekstK7 [2] 137 22 20 10
   StaticCreate "Krogla "TekstK8 [V = ] 80 45 20 10
   StaticCreate "Krogla "TekstK9 [cm] 127 45 20 10
   StaticCreate "Krogla "TekstK10 [3] 137 42 20 10
   ComboBoxCreate "Krogla "OdgV3 95 43 30 10
   ButtonCreate "Krogla "GumbPomocP [Pomoč] 150 22 40 15 [pomocp3]
   ButtonCreate "Krogla "GumbPomocV [Pomoč] 150 42 40 15 [pomocv3]

   StaticCreate "Krogla "TockeP3 [Število pravilnih odgovorov:] 5 70 60 20
   ButtonCreate "Krogla "GumbP3 :pravilni3 20 90 20 20 []
   StaticCreate "Krogla "TockeN3 [Število napačnih odgovorov:] 70 70 60 20
   ButtonCreate "Krogla "GumbN3 :napacni3 85 90 20 20 []
   ButtonCreate "Krogla "GumbPreveri3 [Preveri] 135 67 60 15 [preveri3 naprej3]
   ButtonCreate "Krogla "GumbNazaj [Na prvo stran] 135 82 60 15 [CS WindowDelete "Krogla okrogla]
   ButtonCreate "Krogla "GumbIzhod [Izhod] 135 97 60 15 [Izhod1]

   make "Stevec3 2
   make "Odgovor3 1+random 2
   
end

to mesaj1
   make "r1 1+random 20
   make "v1 1+random 20

   StaticDelete "TekstV3 
   StaticDelete "TekstV4
   StaticDelete "TekstV6 
   StaticDelete "TekstV7
   ComboBoxDelete "OdgP1 
   ComboBoxDelete "OdgV1 

   StaticCreate "Valj "TekstV3 :r1 20 25 20 10
   StaticCreate "Valj "TekstV4 [cm] 30 25 20 10
   StaticCreate "Valj "TekstV6 :v1 20 45 20 10
   StaticCreate "Valj "TekstV7 [cm] 30 45 20 10
   ComboBoxCreate "Valj "OdgP1 95 23 30 10
   ComboBoxCreate "Valj "OdgV1 95 43 30 10


end

to mesaj2
   make "r2 1+random 20
   make "v2 1+random 20
   make "s2 (round(sqrt(:r2 * :r2 + :v2 * :v2)))

   StaticDelete "TekstS3 
   StaticDelete "TekstS4
   StaticDelete "TekstS6 
   StaticDelete "TekstS7
   StaticDelete "TekstS9 
   StaticDelete "TekstS10
   ComboBoxDelete "OdgP2 
   ComboBoxDelete "OdgV2 

   StaticCreate "Stozec "TekstS3 :r2 20 19 20 10
   StaticCreate "Stozec "TekstS4 [cm] 30 19 20 10
   StaticCreate "Stozec "TekstS6 :v2 20 34 20 10
   StaticCreate "Stozec "TekstS7 [cm] 30 34 20 10
   StaticCreate "Stozec "TekstS9 :s2 20 49 20 10
   StaticCreate "Stozec "TekstS10 [cm] 30 49 20 10
   ComboBoxCreate "Stozec "OdgP2 95 23 30 10
   ComboBoxCreate "Stozec "OdgV2 95 43 30 10

end

to mesaj3
   make "r3 1+random 20

   StaticDelete "TekstK3 
   StaticDelete "TekstK4
   ComboBoxDelete "OdgP3 
   ComboBoxDelete "OdgV3 

   
   StaticCreate "Krogla "TekstK3 :r3 20 34 20 10
   StaticCreate "Krogla "TekstK4 [cm] 30 34 20 10
   ComboBoxCreate "Krogla "OdgP3 95 23 30 10
   ComboBoxCreate "Krogla "OdgV3 95 43 30 10

end

to naprej1

   ifelse :Stevec1>10 [rezultati1][make "Odgovor1 (:Stevec1 + random 2) make "Stevec1 :Stevec1 +1 mesaj1]

end

to naprej2

   ifelse :Stevec2>10 [rezultati2][make "Odgovor2 (:Stevec2 + random 2) make "Stevec2 :Stevec2 +1 mesaj2]

end

to naprej3

   ifelse :Stevec3>10 [rezultati3][make "Odgovor3 (:Stevec3 + random 2) make "Stevec3 :Stevec3 +1 mesaj3]

end

to navodila
   WindowCreate "GlavnoOkno "Navodila "Navodila 10 10 350 170 []
   StaticCreate "Navodila "TextNav1 [Navodila za uporabo programa:] 5 5 210 10
   StaticCreate "Navodila "TextNav2 [- Klikni na gumb "Valj", "Stožec" oziroma "Krogla", da poženeš željeno igro.] 5 25 340 10
   StaticCreate "Navodila "TextNav3 [- Če želiš zapustiti igro klikni na gumb "Izhod" in svojo odločitev potrdi s klikom na gumb "Da".] 5 40 340 10
   StaticCreate "Navodila "TextNav4 [- Pri vsaki igri moraš z danimi podatki izračunati površino in prostornino izbranega telesa, rezultata zaokrožiti na celo število in ju vpisati v ustrezni okni. Da preveriš ali je odgovor pravilen, klikni na gumb "Preveri".] 5 55 340 30
   StaticCreate "Navodila "TextNav5 [- Če si želiš pri računanju pomagati z računalom, klikni na gumb "Pomoč".] 5 85 340 10
   StaticCreate "Navodila "TextNav6 [- Ob zaključku reševanja program sporoči tvojo uspešnost pri reševanju nalog.] 5 100 340 10
   StaticCreate "Navodila "TextNav7 [- Če želiš igrati novo igro, kilikni na gumb "Na prvo stran", sicer pa klikni na gumb "Izhod".] 5 115 340 10
   

   StaticCreate "Navodila "TextNav9 [Avtorica: Mojca Babič, 2004] 5 140 130 15
   ButtonCreate "Navodila "GumbNav1 "Nazaj 290 130 40 15 [WindowDelete "Navodila]



end

to okrogla
   CS HT
   WindowCreate "main "GlavnoOkno [Okrogla telesa] 20 20 250 90 []
   StaticCreate "GlavnoOkno "Tekst1 [Izberi si geometrijsko telo:] 5 5 100 10
   ButtonCreate "GlavnoOkno "Gumb1 [Valj] 10 20 70 20 [Valj]
   ButtonCreate "GlavnoOkno "Gumb2 [Stožec] 90 20 70 20 [Stozec]
   ButtonCreate "GlavnoOkno "Gumb3 [Krogla] 170 20 70 20 [Krogla]

   ButtonCreate "GlavnoOkno "GumbNavodila [Navodila] 10 60 60 15 [Navodila]
   ButtonCreate "GlavnoOkno "GumbIzhod [Izhod] 180 60 60 15 [Izhod1]
end

to pomocp1

   WindowCreate "PomP "PomP [Pomoč pri računanju površine valja] 235 20 150 125 []
   GroupBoxCreate "PomP "OdP 0 0 145 90
   StaticCreate "PomP "P1 [Izračunaj površino valja z danimi podatki tako, da jih vstaviš v formulo.] 5 5 130 35
   StaticCreate "PomP "P2 [P = ] 5 38 20 10
   ComboBoxCreate "PomP "OdP1 20 37 60 10
   ButtonCreate "PomP "GumbJeP [=] 85 38 10 10 [make "odp (ComboBoxGetText "OdP1) ButtonCreate "PomP "R1 round(run(:odp)) 100 36 40 15 [] ComboBoxDelete "OdgP1 ComboBoxCreate "Valj "OdgP1 95 23 30 10 ComboBoxAddString "OdgP1 round(run(:odp))]
   StaticCreate "PomP "P3 [Za konstanto pi lahko v izraz vpišeš kar besedo "pi".] 5 55 135 20
   StaticCreate "PomP "P4 [Za izračun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomP "Zbrisi1 "Zbriši 60 95 40 15 [ComboBoxDelete "OdP1 ComboBoxCreate "PomP "OdP1 20 37 60 10 ButtonDelete "R1]
   ButtonCreate "PomP "GumbZapriP "Zapri 105 95 40 15 [WindowDelete "PomP]


end

to pomocp2

   WindowCreate "PomP2 "PomP2 [Pomoč pri računanju površine stožca] 235 20 150 125 []
   GroupBoxCreate "PomP2 "OdP 0 0 145 90
   StaticCreate "PomP2 "P1 [Izračunaj površino stožca z danimi podatki tako, da jih vstaviš v formulo.] 5 5 130 35
   StaticCreate "PomP2 "P2 [P = ] 5 38 20 10
   ComboBoxCreate "PomP2 "OdP2 20 37 60 10
   ButtonCreate "PomP2 "GumbJeP [=] 85 38 10 10 [make "odp (ComboBoxGetText "OdP2) ButtonCreate "PomP2 "R2 round(run(:odp)) 100 36 40 15 [] ComboBoxDelete "OdgP2 ComboBoxCreate "Stozec "OdgP2 95 23 30 10 ComboBoxAddString "OdgP2 round(run(:odp))]
   StaticCreate "PomP2 "P3 [Za konstanto pi lahko v izraz vpišeš kar besedo "pi".] 5 55 135 20
   StaticCreate "PomP2 "P4 [Za izračun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomP2 "Zbrisi1 "Zbriši 60 95 40 15 [ComboBoxDelete "OdP2 ComboBoxCreate "PomP2 "OdP2 20 37 60 10 ButtonDelete "R2]
   ButtonCreate "PomP2 "GumbZapriP "Zapri 105 95 40 15 [WindowDelete "PomP2]


end

to pomocp3

   WindowCreate "PomP3 "PomP3 [Pomoč pri računanju površine krogle] 235 20 150 125 []
   GroupBoxCreate "PomP3 "OdP 0 0 145 90
   StaticCreate "PomP3 "P1 [Izračunaj površino krogle z danimi podatki tako, da jih vstaviš v formulo.] 5 5 130 35
   StaticCreate "PomP3 "P2 [P = ] 5 38 20 10
   ComboBoxCreate "PomP3 "OdP3 20 37 60 10
   ButtonCreate "PomP3 "GumbJeP [=] 85 38 10 10 [make "odp (ComboBoxGetText "OdP3) ButtonCreate "PomP3 "R3 round(run(:odp)) 100 36 40 15 [] ComboBoxDelete "OdgP3 ComboBoxCreate "Krogla "OdgP3 95 23 30 10 ComboBoxAddString "OdgP3 round(run(:odp))]
   StaticCreate "PomP3 "P3 [Za konstanto pi lahko v izraz vpišeš kar besedo "pi".] 5 55 135 20
   StaticCreate "PomP3 "P4 [Za izračun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomP3 "Zbrisi1 "Zbriši 60 95 40 15 [ComboBoxDelete "OdP3 ComboBoxCreate "PomP3 "OdP3 20 37 60 10 ButtonDelete "R3]
   ButtonCreate "PomP3 "GumbZapriP "Zapri 105 95 40 15 [WindowDelete "PomP3]

end

to pomocv1
   WindowCreate "PomV "PomV [Pomoč pri računanju prostornine valja] 235 150 150 125 []
   GroupBoxCreate "PomV "OdV 0 0 145 90
   StaticCreate "PomV "V1 [Izračunaj prostornino valja z danimi podatki tako, da jih vstaviš v formulo.] 5 5 135 35
   StaticCreate "PomV "V2 [V = ] 5 38 20 10
   ComboBoxCreate "PomV "OdV1 20 37 60 10
   ButtonCreate "PomV "GumbJeV [=] 85 38 10 10 [make "odv (ComboBoxGetText "OdV1) ButtonCreate "PomV "R2 round(run(:odv)) 100 36 40 15 [] ComboBoxDelete "OdgV1 ComboBoxCreate "Valj "OdgV1 95 43 30 10 ComboBoxAddString "OdgV1 round(run(:odv))]
   StaticCreate "PomV "V3 [Za konstanto pi lahko v izraz vpišeš kar besedo "pi".] 5 55 135 20
   StaticCreate "PomV "V4 [Za izračun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomV "Zbrisi2 "Zbriši 60 95 40 15 [ComboBoxDelete "OdV1 ComboBoxCreate "PomV "OdV1 20 37 60 10 ButtonDelete "R2]
   ButtonCreate "PomV "GumbZapriV "Zapri 105 95 40 15 [WindowDelete "PomV]


end

to pomocv2
   WindowCreate "PomV2 "PomV2 [Pomoč pri računanju prostornine stožca] 235 150 150 125 []
   GroupBoxCreate "PomV2 "OdV 0 0 145 90
   StaticCreate "PomV2 "V1 [Izračunaj prostornino stožca z danimi podatki tako, da jih vstaviš v formulo.] 5 5 135 35
   StaticCreate "PomV2 "V2 [V = ] 5 38 20 10
   ComboBoxCreate "PomV2 "OdV2 20 37 60 10
   ButtonCreate "PomV2 "GumbJeV [=] 85 38 10 10 [make "odv (ComboBoxGetText "OdV2) ButtonCreate "PomV2 "R3 round(run(:odv)) 100 36 40 15 [] ComboBoxDelete "OdgV2 ComboBoxCreate "Stozec "OdgV2 95 43 30 10 ComboBoxAddString "OdgV2 round(run(:odv))]
   StaticCreate "PomV2 "V3 [Za konstanto pi lahko v izraz vpišeš kar besedo "pi".] 5 55 135 20
   StaticCreate "PomV2 "V4 [Za izračun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomV2 "Zbrisi2 "Zbriši 60 95 40 15 [ComboBoxDelete "OdV2 ComboBoxCreate "PomV2 "OdV2 20 37 60 10 ButtonDelete "R3]
   ButtonCreate "PomV2 "GumbZapriV "Zapri 105 95 40 15 [WindowDelete "PomV2]



end

to pomocv3
   WindowCreate "PomV3 "PomV3 [Pomoč pri računanju prostornine krogle] 235 150 150 125 []
   GroupBoxCreate "PomV3 "OdV 0 0 145 90
   StaticCreate "PomV3 "V1 [Izračunaj prostornino krogle z danimi podatki tako, da jih vstaviš v formulo.] 5 5 135 35
   StaticCreate "PomV3 "V2 [V = ] 5 38 20 10
   ComboBoxCreate "PomV3 "OdV3 20 37 60 10
   ButtonCreate "PomV3 "GumbJeV [=] 85 38 10 10 [make "odv (ComboBoxGetText "OdV3) ButtonCreate "PomV3 "R5 round(run(:odv)) 100 36 40 15 [] ComboBoxDelete "OdgV3 ComboBoxCreate "Krogla "OdgV3 95 43 30 10 ComboBoxAddString "OdgV3 round(run(:odv))]
   StaticCreate "PomV3 "V3 [Za konstanto pi lahko v izraz vpišeš kar besedo "pi".] 5 55 135 20
   StaticCreate "PomV3 "V4 [Za izračun izraza klikni na gumb "=".] 5 75 135 10

   ButtonCreate "PomV3 "Zbrisi2 "Zbriši 60 95 40 15 [ComboBoxDelete "OdV3 ComboBoxCreate "PomV3 "OdV3 20 37 60 10 ButtonDelete "R5]
   ButtonCreate "PomV3 "GumbZapriV "Zapri 105 95 40 15 [WindowDelete "PomV3]

end

to preveri1
   make "po1 (first ComboBoxGetText "OdgP1)
   make "vo1 (first ComboBoxGetText "OdgV1)

   make "pov1 round(2 * pi * :r1 * :r1 + 2 * pi * :r1 * :v1)
   make "vol1 round(pi * :r1 * :r1 *:v1)

   ifelse (AND (:po1 = :pov1) (:vo1 = :vol1)) [make "pravilni1 :pravilni1 +1 ButtonDelete "GumbP1 ButtonCreate "Valj "GumbP1 :pravilni1 20 90 20 20 []][make "napacni1 :napacni1 +1 ButtonDelete "GumbN1 ButtonCreate "Valj "GumbN1 :napacni1 85 90 20 20 [] info1]

end

to preveri2
   make "po2 (first ComboBoxGetText "OdgP2)
   make "vo2 (first ComboBoxGetText "OdgV2)

   make "pov2 round(pi * :r2 * :r2 + pi * :r2 * :s2)
   make "vol2 round(pi * :r2 * :r2 * :v2 / 3)

   ifelse (AND (:po2 = :pov2) (:vo2 = :vol2)) [make "pravilni2 :pravilni2 +1 ButtonDelete "GumbP2 ButtonCreate "Stozec "GumbP2 :pravilni2 20 90 20 20 []][make "napacni2 :napacni2 +1 ButtonDelete "GumbN2 ButtonCreate "Stozec "GumbN2 :napacni2 85 90 20 20 [] info2]

end

to preveri3
   make "po3 (first ComboBoxGetText "OdgP3)
   make "vo3 (first ComboBoxGetText "OdgV3)

   make "pov3 round(4 * pi * :r3 * :r3)
   make "vol3 round(4 * pi * :r3 * :r3 * :r3 / 3)

   ifelse (AND (:po3 = :pov3) (:vo3 = :vol3)) [make "pravilni3 :pravilni3 +1 ButtonDelete "GumbP3 ButtonCreate "Krogla "GumbP3 :pravilni3 20 90 20 20 []][make "napacni3 :napacni3 +1 ButtonDelete "GumbN3 ButtonCreate "Krogla "GumbN3 :napacni3 85 90 20 20 [] info3]

end

to rezultati1
   make "prav1 :pravilni1
   make "tocke1 round(:prav1 / 10)*100
   WindowDelete "Valj
   WindowCreate "RezValj "RezultatiValj "Rezultati 20 20 140 70 []
   StaticCreate "RezultatiValj "TekstR1 [Rezultati reševanja:] 5 5 100 10
   StaticCreate "RezultatiValj "TekstR2 [Dosegel si ] 5 20 100 10
   StaticCreate "RezultatiValj "TekstR3 :tocke1 50 20 100 10
   StaticCreate "RezultatiValj "TekstR4 [%.] 60 20 100 10

   ButtonCreate "RezultatiValj "GumbRez1 [Na prvo stran] 15 35 50 15 [WindowDelete "RezValj okrogla]
   ButtonCreate "RezultatiValj "GumbIzhod2 [Izhod] 75 35 50 15 [Izhod1]

end

to rezultati2
   make "prav2 :pravilni2
   make "tocke2 round(:prav2 / 10)*100
   WindowDelete "Stozec
   WindowCreate "RezStozec "RezultatiStozec "Rezultati 20 20 140 70 []
   StaticCreate "RezultatiStozec "TekstR5 [Rezultati reševanja:] 5 5 100 10
   StaticCreate "RezultatiStozec "TekstR6 [Dosegel si ] 5 20 100 10
   StaticCreate "RezultatiStozec "TekstR7 :tocke2 50 20 100 10
   StaticCreate "RezultatiStozec "TekstR8 [%.] 60 20 100 10

   ButtonCreate "RezultatiStozec "GumbRez2 [Na prvo stran] 15 35 50 15 [WindowDelete "RezStozec okrogla]
   ButtonCreate "RezultatiStozec "GumbIzhod3 [Izhod] 75 35 50 15 [Izhod1]

end

to rezultati3
   make "prav3 :pravilni3
   make "tocke3 round(:prav3 / 10)*100
   WindowDelete "Krogla
   WindowCreate "RezKrogla "RezultatiKrogla "Rezultati 20 20 140 70 []
   StaticCreate "RezultatiKrogla "TekstR9 [Rezultati reševanja:] 5 5 100 10
   StaticCreate "RezultatiKrogla "TekstR10 [Dosegel si ] 5 20 100 10
   StaticCreate "RezultatiKrogla "TekstR11 :tocke3 50 20 100 10
   StaticCreate "RezultatiKrogla "TekstR12 [%.] 60 20 100 10

   ButtonCreate "RezultatiKrogla "GumbRez3 [Na prvo stran] 15 35 50 15 [WindowDelete "RezKrogla okrogla]
   ButtonCreate "RezultatiKrogla "GumbIzhod4 [Izhod] 75 35 50 15 [Izhod1]

end

to stozec
   make "pravilni2 0
   make "napacni2 0

   make "r2 1+random 20
   make "v2 1+random 20
   make "s2 (round(sqrt(:r2 * :r2 + :v2 * :v2)))

   WindowDelete "main
   WindowCreate "Stozec "Stozec [Stozec] 20 20 200 125 []
   GroupBoxCreate "Stozec "Odg2 0 0 195 65
   StaticCreate "Stozec "TekstS1 [Izračunaj površino in prostornino stožca s podatki:] 5 5 180 10
   StaticCreate "Stozec "TekstS2 [r = ] 10 19 20 10
   StaticCreate "Stozec "TekstS3 :r2 20 19 20 10
   StaticCreate "Stozec "TekstS4 [cm] 30 19 20 10
   StaticCreate "Stozec "TekstS5 [v = ] 10 34 20 10
   StaticCreate "Stozec "TekstS6 :v2 20 34 20 10
   StaticCreate "Stozec "TekstS7 [cm] 30 34 20 10
   StaticCreate "Stozec "TekstS8 [s = ] 10 49 20 10
   StaticCreate "Stozec "TekstS9 :s2 20 49 20 10
   StaticCreate "Stozec "TekstS10 [cm] 30 49 20 10
   StaticCreate "Stozec "TekstS11 [P = ] 80 25 20 10
   ComboBoxCreate "Stozec "OdgP2 95 23 30 10
   StaticCreate "Stozec "TekstS12 [cm] 127 25 20 10
   StaticCreate "Stozec "TekstS13 [2] 137 22 20 10
   StaticCreate "Stozec "TekstS14 [V = ] 80 45 20 10
   StaticCreate "Stozec "TekstS15 [cm] 127 45 20 10
   StaticCreate "Stozec "TekstS16 [3] 137 42 20 10
   ComboBoxCreate "Stozec "OdgV2 95 43 30 10
   ButtonCreate "Stozec "GumbPomocP [Pomoč] 150 22 40 15 [pomocp2]
   ButtonCreate "Stozec "GumbPomocV [Pomoč] 150 42 40 15 [pomocv2]

   StaticCreate "Stozec "TockeP2 [Število pravilnih odgovorov:] 5 70 60 20
   ButtonCreate "Stozec "GumbP2 :pravilni2 20 90 20 20 []
   StaticCreate "Stozec "TockeN2 [Število napačnih odgovorov:] 70 70 60 20
   ButtonCreate "Stozec "GumbN2 :napacni2 85 90 20 20 []
   ButtonCreate "Stozec "GumbPreveri2 [Preveri] 135 67 60 15 [preveri2 naprej2]
   ButtonCreate "Stozec "GumbNazaj [Na prvo stran] 135 82 60 15 [CS WindowDelete "Stozec okrogla]
   ButtonCreate "Stozec "GumbIzhod [Izhod] 135 97 60 15 [Izhod1]

   make "Stevec2 2
   make "Odgovor2 1+random 2
   
end

to valj
   make "pravilni1 0
   make "napacni1 0

   WindowDelete "main
   WindowCreate "Valj "Valj [Valj] 20 20 200 125 []
   GroupBoxCreate "Valj "Odg1 0 0 195 65
   StaticCreate "Valj "TekstV1 [Izračunaj površino in prostornino valja s podatki:] 5 5 180 10
   StaticCreate "Valj "TekstV2 [r = ] 10 25 20 10
   StaticCreate "Valj "TekstV3 :r1 20 25 20 10
   StaticCreate "Valj "TekstV4 [cm] 30 25 20 10
   StaticCreate "Valj "TekstV5 [v = ] 10 45 20 10
   StaticCreate "Valj "TekstV6 :v1 20 45 20 10
   StaticCreate "Valj "TekstV7 [cm] 30 45 20 10
   StaticCreate "Valj "TekstV8 [P = ] 80 25 20 10
   ComboBoxCreate "Valj "OdgP1 95 23 30 10
   StaticCreate "Valj "TekstV9 [cm] 127 25 20 10
   StaticCreate "Valj "TekstV10 [2] 137 22 20 10
   StaticCreate "Valj "TekstV11 [V = ] 80 45 20 10
   StaticCreate "Valj "TekstV12 [cm] 127 45 20 10
   StaticCreate "Valj "TekstV13 [3] 137 42 20 10
   ComboBoxCreate "Valj "OdgV1 95 43 30 10
   ButtonCreate "Valj "GumbPomocP [Pomoč] 150 22 40 15 [pomocp1]
   ButtonCreate "Valj "GumbPomocV [Pomoč] 150 42 40 15 [pomocv1]


   StaticCreate "Valj "TockeP1 [Število pravilnih odgovorov:] 5 70 60 20
   ButtonCreate "Valj "GumbP1 :pravilni1 20 90 20 20 []
   StaticCreate "Valj "TockeN1 [Število napačnih odgovorov:] 70 70 60 20
   ButtonCreate "Valj "GumbN1 :napacni1 85 90 20 20 []
   ButtonCreate "Valj "GumbPreveri1 [Preveri] 135 67 60 15 [preveri1 naprej1]
   ButtonCreate "Valj "GumbNazaj [Na prvo stran] 135 82 60 15 [CS WindowDelete "Valj okrogla]
   ButtonCreate "Valj "GumbIzhod [Izhod] 135 97 60 15 [Izhod1]

   make "Stevec1 2
   make "Odgovor1 1+random 2
   
end

Make "a 3
Make "b 4
Make "c 13
Make "napacni1 0
Make "napacni2 1
Make "napacni3 3
Make "odgovor1 2
Make "odgovor2 2
Make "odgovor3 5
Make "odp [4*pi*14*14]
Make "odv [4*8*pi/3]
Make "p1 2
Make "po1 5
Make "po2 7
Make "po3 12
Make "pov1 1885
Make "pov2 220
Make "pov3 50
Make "prav1 0
Make "prav2 1
Make "prav3 2
Make "pravilni1 0
Make "pravilni2 0
Make "pravilni3 1
Make "r 1
Make "r1 9
Make "r2 12
Make "r3 18
Make "s2 18
Make "stevec1 2
Make "stevec2 3
Make "stevec3 6
Make "tocke1 0
Make "tocke2 10
Make "tocke3 20
Make "v1 4
Make "v2 13
Make "vo1 6283
Make "vo2 209
Make "vo3 34
Make "vol1 6283
Make "vol2 209
Make "vol3 34

okrogla