to okno windowcreate "main "okno [ANGLEŠKI GLAGOLI] 100 30 220 120[ ht setup] end to setup buttoncreate "okno "konec "IZHOD 145 70 60 15[izhod] buttoncreate "okno "igra "NALOGE 15 70 60 15[naloge] buttoncreate "okno "navod "NAVODILA 80 70 60 15[navodila] Staticcreate "okno "legenda1 [NEPRAVILNI ANGLEŠKI GLAGOLI] 15 10 230 50 Staticcreate "okno "uvod1 [Vaje iz poznavanja nepravilnih glagolov.] 15 35 190 25 end to izhod windowdelete "okno home st end to navodila windowdelete "okno windowcreate "main "okno1 [NAVODILA] 100 20 200 250[] Staticcreate "okno1 "navod1 [Ta programček je namenjen za utrjevanje znanja o nepravilnih angleških glagolih. ] 10 10 180 40 Staticcreate "okno1 "navod2 [Ko zaženeš programček s pritiskom na gumb NALOGE, se ti odpre novo okno. S pritiskom na gumb "Začni!", se ti pojavi nedoločnik nekega nepravilnega angleškega glagola.] 10 40 180 50 Staticcreate "okno1 "navod3 [V prvo prazno okence moraš vpisati obliko past simple podanega glagola. Na koncu klikni gumb "Preveri!", da preveriš, če je tvoj odogovor pravilen. ] 10 75 180 40 Staticcreate "okno1 "navod4 [V drugo prazno okence moraš vpisati poodani obliko past participle podanega glagola. Na koncu klikni gumb "Preveri!", da preveriš, če je tvoj odogovor pravilen.] 10 100 180 40 Staticcreate "okno1 "navod5 [V tretje prazno okence pa moraš vpisati še slovenski prevod podanega glagola. Na koncu klikni gumb "Preveri!", da preveriš, če je tvoj odogovor pravilen.] 10 125 180 40 Staticcreate "okno1 "navod6 [Če želiš preveriti svoje znanje za nov angleški nepravilni glagol, moraš klikniti na gumb NASLEDNJI PRIMER in računalnik ti poda nov glagol.] 10 150 180 40 Staticcreate "okno1 "navod7 [Želim ti obilo uspeha in kar največ pravilnih rešitev!] 10 190 180 20 buttoncreate "okno1 "konec1 "ZAPRI 120 210 70 15[izhod1] end to izhod1 windowdelete "okno1 okno end to izhod2 windowdelete "okno2 home st end make "prav 0 make "neprav 0 to naloge windowdelete "okno windowcreate "main "okno2 [POZNAVANJE ANGLEŠKIH NEPRAVILNIH GLAGOLOV] 10 10 450 200[] Staticcreate "okno2 "napisi [NAPIŠI PRAVILNE ODGOVORE:] 100 5 200 15 Staticcreate "okno2 "infinitive [Infinitive:] 15 25 100 20 buttoncreate "okno2 "glagol "Začni! 120 20 50 15 [start] Staticcreate "okno2 "simple [Past simple:] 15 45 100 20 Staticcreate "okno2 "participle [Past participle:] 15 70 100 20 Staticcreate "okno2 "prevod [Prevod:] 15 95 100 20 ComboboxCreate "okno2 "vnos1 120 45 50 15 ComboboxCreate "okno2 "vnos2 120 70 50 15 ComboboxCreate "okno2 "vnos3 120 95 50 15 Buttoncreate "okno2 "prev1 "Preveri! 180 45 50 15 [preveri1] Buttoncreate "okno2 "prev2 "Preveri! 180 70 50 15 [preveri2] Buttoncreate "okno2 "prev3 "Preveri! 180 95 50 15 [preveri3] Staticcreate "okno2 "pravilni [PRAVILNI ODGOVORI] 15 130 100 10 Staticcreate "okno2 "prav :prav 115 130 20 10 Staticcreate "okno2 "nepravilni [NEPRAVILNI ODGOVORI] 15 140 100 10 Staticcreate "okno2 "neprav :neprav 115 140 20 10 buttoncreate "okno2 "naslednji [NASLEDNJI PRIMER] 250 130 80 20 [naloge] buttoncreate "okno2 "konec [KONEC] 350 160 60 20 [izhod2] end to preveri1 make "simple comboboxgettext "vnos1 ifelse equalp :simple :napis1 [pravilno1] [narobe1] end to preveri2 make "participle comboboxgettext "vnos2 ifelse equalp :participle :napis2 [pravilno2] [narobe2] end to preveri3 make "prevod comboboxgettext "vnos3 ifelse equalp :prevod :napis3 [pravilno3] [narobe3] end to pravilno1 make "prav (:prav +1) Staticupdate "prav :prav comboboxenable "vnos1 "False ButtonDelete "prev1 StaticCreate "okno2 "besedilo [Pravilno! Preveri še past participle!] 250 40 150 10 End to narobe1 sound [1400 100] sound [1200 100] sound [1000 200] make "neprav (:neprav +1) Staticupdate "neprav :neprav comboboxenable "vnos1 "False ButtonDelete "prev1 StaticCreate "okno2 "besedilo [Nepravilno! Pravilen rezultat je ] 250 40 110 10 StaticCreate "okno2 "besedilo1 (:napis1) 355 40 50 10 StaticCreate "okno2 "besedilo2 [Preveri še past participle!] 250 50 100 20 end to pravilno2 make "prav (:prav +1) Staticupdate "prav :prav comboboxenable "vnos2 "False ButtonDelete "prev2 StaticCreate "okno2 "besedilo11 [Pravilno! Preveri še prevod!] 250 65 150 10 End to narobe2 sound [1400 100] sound [1200 100] sound [1000 200] make "neprav (:neprav +1) Staticupdate "neprav :neprav comboboxenable "vnos2 "False ButtonDelete "prev2 StaticCreate "okno2 "besedilo11 [Nepravilno! Pravilen rezultat je ] 250 65 110 10 StaticCreate "okno2 "besedilo12 (:napis2) 355 65 50 10 StaticCreate "okno2 "besedilo13 [Preveri še prevod!] 250 75 100 20 end to pravilno3 make "prav (:prav +1) Staticupdate "prav :prav comboboxenable "vnos3 "False ButtonDelete "prev3 StaticCreate "okno2 "besedilo21 [Pravilno! Pritisni NASLEDNJI PRIMER za nadaljevanje!] 250 90 200 10 End to narobe3 sound [1400 100] sound [1200 100] sound [1000 200] make "neprav (:neprav +1) Staticupdate "neprav :neprav comboboxenable "vnos3 "False ButtonDelete "prev3 StaticCreate "okno2 "besedilo21 [Nepravilno! Pravilen rezultat je ] 250 90 110 10 StaticCreate "okno2 "besedilo22 (:napis3) 355 90 50 10 StaticCreate "okno2 "besedilo23 [Pritisni NASLEDNJI PRIMER za nadaljevanje!] 250 100 150 20 end to start make "izbor (random count :glagoli)+1 make "napis item :izbor :glagoli make "napis1 item :izbor :simpli make "napis2 item :izbor :participli make "napis3 item :izbor :prevodi buttondelete "glagol buttoncreate "okno2 "glagol :napis 120 20 50 15 [] end Make "izbor 0 Make "glagoli {[BE]~ [BEAT]~ [BECOME]~ [BEGIN]~ [BEND]~ [BET]~ [BITE]~ [BLOW]~ [BREAK]~ [BRING]~ [BUILD]~ [BUY]~ [CATCH]~ [CHOOSE]~ [COME]~ [COST]~ [CREEP]~ [CUT]~ [DEAL]~ [DIG]~ [DO]~ [DRAW]~ [DRINK]~ [DRIVE]~ [EAT]~ [FALL]~ [FEED]~ [FEEL]~ [FIGHT]~ [FIND]~ [FLY]~ [FORBID]~ [FORGET]~ [FORGIVE]~ [FREEZE]~ [GET]~ [GIVE]~ [GO]~ [GROW]~ [HANG]~ [HAVE]~ [HEAR]~ [HIDE]~ [HIT]~ [HOLD]~ [HURT]~ [KEEP]~ [KNEEL]~ [KNOW]~ [LAY]~ [LEAD]~ [LEAVE]~ [LEND]~ [LET]~ [LIE]~ [LIGHT]~ [LOSE]~ [MAKE]~ [MEAN]~ [MEET]~ [PAY]~ [PUT]~ [READ]~ [RIDE]~ [RING]~ [RISE]~ [RUN]~ [SAY]~ [SEE]~ [SEEK]~ [SELL]~ [SEND]~ [SET]~ [SHAKE]~ [SHINE]~ [SHOOT]~ [SHOW]~ [SHRINK]~ [SHUT]~ [SING]~ [SINK]~ [SIT]~ [SLEEP]~ [SLIDE]~ [SPEAK]~ [SPEND]~ [SPIT]~ [SPLIT]~ [SPREAD]~ [SPRING]~ [STAND]~ [STEAL]~ [STICK]~ [STING]~ [STINK]~ [STRINK]~ [SWEAR]~ [SWEEP]~ [SWIM]~ [SWING]~ [TAKE]~ [TEACH]~ [TEAR]~ [TELL]~ [THINK]~ [THROW]~ [UNDERSTAND]~ [WAKE]~ [WEAR]~ [WEEP]~ [WIN]~ [WRITE]} Make "izbor1 0 Make "simpli {[WAS]~ [BEAT]~ [BECAME]~ [BEGAN]~ [BENT]~ [BET]~ [BIT]~ [BLEW]~ [BROKE]~ [BROUGHT]~ [BUILT]~ [BOUGHT]~ [CAUGHT]~ [CHOSE]~ [CAME]~ [COST]~ [CREPT]~ [CUT]~ [DEALT]~ [DUG]~ [DID]~ [DREW]~ [DRANK]~ [DROVE]~ [ATE]~ [FELL]~ [FED]~ [FELT]~ [FOUGHT]~ [FOUND]~ [FLEW]~ [FORBADE]~ [FORGOT]~ [FORGAVE]~ [FROZE]~ [GOT]~ [GAVE]~ [WENT]~ [GREW]~ [HUNG]~ [HAD]~ [HEARD]~ [HID]~ [HIT]~ [HELD]~ [HURT]~ [KEPT]~ [KNELT]~ [KNEW]~ [LAID]~ [LED]~ [LEFT]~ [LENT]~ [LET]~ [LAY]~ [LIT]~ [LOST]~ [MADE]~ [MEANT]~ [MET]~ [PAID]~ [PUT]~ [READ]~ [RODE]~ [RANG]~ [ROSE]~ [RAN]~ [SAID]~ [SAW]~ [SOUGHT]~ [SOLD]~ [SENT]~ [SET]~ [SHOOK]~ [SHONE]~ [SHOT]~ [SHOWED]~ [SHRANK]~ [SHUT]~ [SANG]~ [SANK]~ [SAT]~ [SLEPT]~ [SLID]~ [SPOKE]~ [SPENT]~ [SPAT]~ [SPLIT]~ [SPREAD]~ [SPRANG]~ [STOOD]~ [STOLE]~ [STUCK]~ [STUNG]~ [STANK]~ [STRUCK]~ [SWORE]~ [SWEPT]~ [SWAM]~ [SWUNG]~ [TOOK]~ [TAUGHT]~ [TORE]~ [TOLD]~ [THOUGHT]~ [THREW]~ [UNDERSTOOD]~ [WOKE]~ [WORE]~ [WEPT]~ [WON]~ [WROTE]} Make "izbor2 0 Make "participli {[BEEN]~ [BEATEN]~ [BECOME]~ [BEGUN]~ [BENT]~ [BET]~ [BITTEN]~ [BLOWN]~ [BROKEN]~ [BROUGHT]~ [BUILT]~ [BOUGHT]~ [CAUGHT]~ [CHOSEN]~ [COME]~ [COST]~ [CREPT]~ [CUT]~ [DEALT]~ [DUG]~ [DONE]~ [DRAWN]~ [DRUNK]~ [DRIVEN]~ [EATEN]~ [FALLEN]~ [FED]~ [FELT]~ [FOUGHT]~ [FOUND]~ [FLOWN]~ [FORBIDDEN]~ [FORGOTTEN]~ [FORGIVEN]~ [FROZEN]~ [GOT]~ [GIVEN]~ [GONE]~ [GROWN]~ [HUNG]~ [HAD]~ [HEARD]~ [HIDDEN]~ [HIT]~ [HELD]~ [HURT]~ [KEPT]~ [KNELT]~ [KNOWN]~ [LAID]~ [LED]~ [LEFT]~ [LENT]~ [LET]~ [LAIN]~ [LIT]~ [LOST]~ [MADE]~ [MEANT]~ [MET]~ [PAID]~ [PUT]~ [READ]~ [RIDDEN]~ [RUNG]~ [RISEN]~ [RUN]~ [SAID]~ [SEEN]~ [SOUGHT]~ [SOLD]~ [SENT]~ [SET]~ [SHAKEN]~ [SHONE]~ [SHOT]~ [SHOWN]~ [SHRUNK]~ [SHUT]~ [SUNG]~ [SUNK]~ [SAT]~ [SLEPT]~ [SLID]~ [SPOKEN]~ [SPENT]~ [SPAT]~ [SPLIT]~ [SPREAD]~ [SPRUNG]~ [STOOD]~ [STOLEN]~ [STUCK]~ [STUNG]~ [STUNK]~ [STRUCK]~ [SWORN]~ [SwEPT]~ [SWUM]~ [SWUNG]~ [TAKEN]~ [TAUGHT]~ [TORN]~ [TOLD]~ [THOUGHT]~ [THROWN]~ [UNDERSTOOD]~ [WOKEN]~ [WORN]~ [WEPT]~ [WON]~ [WRITTEN]} Make "izbor3 0 Make "prevodi {[BITI]~ [TEPSTI]~ [POSTATI]~ [ZAČETI]~ [UPOGNITI]~ [STAVITI]~ [UGRIZNITI]~ [PIHATI]~ [ZLOMITI]~ [PRINESTI]~ [GRADITI]~ [KUPITI]~ [UJETI]~ [IZBRATI]~ [PRITI]~ [STATI]~ [PLAZITI]~ [REZATI]~ [DELITI]~ [KOPATI]~ [STORITI]~ [RISATI]~ [PITI]~ [VOZITI]~ [JESTI]~ [PASTI]~ [HRANITI]~ [ČUTITI]~ [BORITI]~ [NAJTI]~ [LETETI]~ [PREPOVEDATI]~ [POZABITI]~ [ODPUSTITI]~ [ZMRZNITI]~ [DOBITI]~ [DATI]~ [ITI]~ [RASTI]~ [VISETI]~ [IMETI]~ [SLIŠATI]~ [SKRITI]~ [UDARITI]~ [DRŽATI]~ [RANITI]~ [OHRANITI]~ [KLEČATI]~ [VEDETI]~ [POLOŽITI]~ [VODITI]~ [ZAPUSTITI]~ [POSODITI]~ [PUSTITI]~ [LEŽATI]~ [PRIŽGATI]~ [IZGUBITI]~ [NAREDITI]~ [POMENITI]~ [SREČATI]~ [PLAČATI]~ [POLOŽITI]~ [BRATI]~ [JAHATI]~ [ZVONITI]~ [VSTATI]~ [TEČI]~ [REČI]~ [VIDETI]~ [ISKATI]~ [PRODATI]~ [POSLATI]~ [POSTAVITI]~ [TRESTI]~ [SIJATI]~ [STRELJATI]~ [POKAZATI]~ [SKRČITI]~ [ZAPRETI]~ [PETI]~ [POTOPITI]~ [SEDETI]~ [SPATI]~ [DRSETI]~ [GOVORITI]~ [PORABITI]~ [PLJUVATI]~ [CEPITI]~ [RAZPROSTRETI]~ [SKRČITI]~ [STATI]~ [KRASTI]~ [NALEPITI]~ [PIČITI]~ [SMRDETI]~ [UDARITI]~ [PRISEČI]~ [POMETATI]~ [PLAVATI]~ [NIHATI]~ [VZETI]~ [UČITI]~ [RAZTRGATI]~ [POVEDATI]~ [MISLITI]~ [VREČI]~ [RAZUMETI]~ [PREBUDITI]~ [NOSITI]~ [JOKATI]~ [ZMAGATI]~ [PISATI]} okno