CountDown

Community Forums/Showcase/CountDown

Newbie31 (Posted 2012) [#1]

Hello, Lately I've been watching a show called countdown, so I tried to make my own version, Its not very neat or compact....... but it works alright. Enjoy. ;Mouse Position Global m_posx#=MouseX() Global m_posy#=MouseY() Global timergo = 0 Global a = 0 Global b = 0 Global c = 0 Global d = 0 Global e = 0 Global f = 0 Global g = 0 Global h = 0 Global i = 0 Global j = 0 Global k = 0 Global l = 0 Global m = 0 Global n = 0 Global o = 0 Global p = 0 Global q = 0 Global r = 0 Global s = 0 Global t = 0 Global u = 0 Global v = 0 Global w = 0 Global x = 0 Global y = 0 Global z = 0 Global timer,count=1000,seconds=30 ; Set a graphics mode Graphics 1024,768,16,2 SetBuffer BackBuffer() GameEnd = MilliSecs + (60 * 1000) ;Create Data Array Dim consonant$(22) consonant$(0) = "." consonant$(1) = "A" consonant$(2) = "B" consonant$(3) = "C" consonant$(4) = "D" consonant$(5) = "F" consonant$(6) = "G" consonant$(7) = "H" consonant$(8) = "J" consonant$(9) = "K" consonant$(10) = "L" consonant$(11) = "M" consonant$(12) = "N" consonant$(13) = "P" consonant$(14) = "Q" consonant$(15) = "R" consonant$(16) = "S" consonant$(17) = "T" consonant$(18) = "V" consonant$(19) = "W" consonant$(20) = "X" consonant$(21) = "Y" consonant$(22) = "Z" Dim vowel$(5) vowel$(0) = "." vowel$(1) = "A" vowel$(2) = "E" vowel$(3) = "I" vowel$(4) = "O" vowel$(5) = "U" ;Load Global Fonts fntArial=LoadFont("Arial",85,False,False,False) fntArial2=LoadFont("Arial",40,False,False,False) fntArial3=LoadFont("Arial",20,False,False,False) fntArial4=LoadFont("Arial",120,False,False,False) fntArial5=LoadFont("Arial",65,False,False,False) CreateTimer_() While Not KeyHit(1) Cls ; clear the screen Rect 50,50,90,90,0 ;letter$ Box 1 Rect 150,50,90,90,0 ;letter$ Box 2 Rect 250,50,90,90,0 ;letter$ Box 3 Rect 350,50,90,90,0 ;letter$ Box 4 Rect 450,50,90,90,0 ;letter$ Box 5 Rect 550,50,90,90,0 ;letter$ Box 6 Rect 650,50,90,90,0 ;letter$ Box 7 Rect 750,50,90,90,0 ;letter$ Box 8 Rect 850,50,90,90,0 ;letter$ Box 9 Rect 50,180,50,50,0 ;letter$ Vowel Button 1 Rect 150,180,50,50,0 ;letter$ Vowel Button 2 Rect 250,180,50,50,0 ;letter$ Vowel Button 3 Rect 350,180,50,50,0 ;letter$ Vowel Button 4 Rect 450,180,50,50,0 ;letter$ Vowel Button 5 Rect 550,180,50,50,0 ;letter$ Vowel Button 6 Rect 650,180,50,50,0 ;letter$ Vowel Button 7 Rect 750,180,50,50,0 ;letter$ Vowel Button 8 Rect 850,180,50,50,0 ;letter$ Vowel Button 9 Rect 50,250,50,50,0 ;letter$ Consonant Button 1 Rect 150,250,50,50,0 ;letter$ Consonant Button 2 Rect 250,250,50,50,0 ;letter$ Consonant Button 3 Rect 350,250,50,50,0 ;letter$ Consonant Button 4 Rect 450,250,50,50,0 ;letter$ Consonant Button 5 Rect 550,250,50,50,0 ;letter$ Consonant Button 6 Rect 650,250,50,50,0 ;letter$ Consonant Button 7 Rect 750,250,50,50,0 ;letter$ Consonant Button 8 Rect 850,250,50,50,0 ;letter$ Consonant Button 9 Rect 50,350,900,75,0 ;Random Button Rect 50,450,300,75,0 ;Start Button Rect 50,530,300,75,0 ;Reset Button Rect 450,450,300,200,0 ;timer ;Onscreen Text SetFont fntarial Color 0,0,255 If MouseDown(1) = 1 If MouseX() > 50 And MouseX() < 100 And MouseY() > 180 And MouseY() < 230 a=Rand(1,5) letter1$ = vowel$(a) ElseIf MouseX() > 50 And MouseX() < 100 And MouseY() > 250 And MouseY() < 300 b=Rand(1,22) letter1$ = consonant$(b) EndIf If MouseX() > 150 And MouseX() < 200 And MouseY() > 180 And MouseY() < 230 c=Rand(1,5) letter2$ = vowel$(c) ElseIf MouseX() > 150 And MouseX() < 200 And MouseY() > 250 And MouseY() < 300 d=Rand(1,22) letter2$ = consonant$(d) EndIf If MouseX() > 250 And MouseX() < 300 And MouseY() > 180 And MouseY() < 230 e=Rand(1,5) letter3$ = vowel$(e) ElseIf MouseX() > 250 And MouseX() < 300 And MouseY() > 250 And MouseY() < 300 f=Rand(1,22) letter3$ = consonant$(f) EndIf If MouseX() > 350 And MouseX() < 400 And MouseY() > 180 And MouseY() < 230 g=Rand(1,5) letter4$ = vowel$(g) ElseIf MouseX() > 350 And MouseX() < 400 And MouseY() > 250 And MouseY() < 300 h=Rand(1,22) letter4$ = consonant$(h) EndIf If MouseX() > 450 And MouseX() < 500 And MouseY() > 180 And MouseY() < 230 i=Rand(1,5) letter5$ = vowel$(i) ElseIf MouseX() > 450 And MouseX() < 500 And MouseY() > 250 And MouseY() < 300 j=Rand(1,22) letter5$ = consonant$(j) EndIf If MouseX() > 550 And MouseX() < 600 And MouseY() > 180 And MouseY() < 230 k=Rand(1,5) letter6$ = vowel$(k) ElseIf MouseX() > 550 And MouseX() < 600 And MouseY() > 250 And MouseY() < 300 l=Rand(1,5) letter6$ = consonant$(l) EndIf If MouseX() > 650 And MouseX() < 700 And MouseY() > 180 And MouseY() < 230 m=Rand(1,5) letter7$ = vowel$(m) ElseIf MouseX() > 650 And MouseX() < 700 And MouseY() > 250 And MouseY() < 300 n=Rand(1,22) letter7$ = consonant$(n) EndIf If MouseX() > 750 And MouseX() < 800 And MouseY() > 180 And MouseY() < 230 o=Rand(1,5) letter8$ = vowel$(o) ElseIf MouseX() > 750 And MouseX() < 800 And MouseY() > 250 And MouseY() < 300 p=Rand(1,22) letter8$ = consonant$(p) EndIf If MouseX() > 850 And MouseX() < 900 And MouseY() > 180 And MouseY() < 230 q=Rand(1,5) letter9$ = vowel$(q) ElseIf MouseX() > 850 And MouseX() < 900 And MouseY() > 250 And MouseY() < 300 r=Rand(1,22) letter9$ = consonant$(r) EndIf If MouseX() > 50 And MouseX() < 950 And MouseY() > 350 And MouseY() < 425 cse1=Rand(1,2) cse2=Rand(1,2) cse3=Rand(1,2) cse4=Rand(1,2) cse5=Rand(1,2) cse6=Rand(1,2) cse7=Rand(1,2) cse8=Rand(1,2) cse9=Rand(1,2) a=Rand(1,5) b=Rand(1,22) c=Rand(1,5) d=Rand(1,22) e=Rand(1,5) f=Rand(1,22) g=Rand(1,5) h=Rand(1,22) i=Rand(1,5) j=Rand(1,22) k=Rand(1,5) l=Rand(1,22) m=Rand(1,5) n=Rand(1,22) o=Rand(1,5) p=Rand(1,22) q=Rand(1,5) r=Rand(1,22) EndIf EndIf If MouseDown(1) If MouseX() > 50 And MouseX() < 350 And MouseY() > 450 And MouseY() < 525 timergo = 1 EndIf EndIf If MouseDown(1) If MouseX() > 50 And MouseX() < 350 And MouseY() > 530 And MouseY() < 605 timergo = 0 seconds = 30 cse1 = 0 cse2 = 0 cse3 = 0 cse4 = 0 cse5 = 0 cse6 = 0 cse7 = 0 cse8 = 0 cse9 = 0 letter1$ = vowel$(0) letter2$ = vowel$(0) letter3$ = vowel$(0) letter4$ = vowel$(0) letter5$ = vowel$(0) letter6$ = vowel$(0) letter7$ = vowel$(0) letter8$ = vowel$(0) letter9$ = vowel$(0) EndIf EndIf If cse1 = 1 letter1$ = vowel$(a) ElseIf cse1 = 2 letter1$ =consonant$(b) EndIf If cse2 = 1 letter2$ = vowel$(c) ElseIf cse2 = 2 letter2$ =consonant$(d) EndIf If cse3 = 1 letter3$ = vowel$(e) ElseIf cse3 = 2 letter3$ =consonant$(f) EndIf If cse4 = 1 letter4$ = vowel$(g) ElseIf cse4 = 2 letter4$ =consonant$(h) EndIf If cse5 = 1 letter5$ = vowel$(i) ElseIf cse5 = 2 letter5$ =consonant$(j) EndIf If cse6 = 1 letter6$ = vowel$(k) ElseIf cse6 = 2 letter6$ =consonant$(l) EndIf If cse7 = 1 letter7$ = vowel$(m) ElseIf cse7 = 2 letter7$ =consonant$(n) EndIf If cse8 = 1 letter8$ = vowel$(o) ElseIf cse8 = 2 letter8$ =consonant$(p) EndIf If cse8 = 1 letter9$ = vowel$(q) ElseIf cse8 = 2 letter9$ =consonant$(r) EndIf Text 55,60,letter1$ ;Letter 1 Text 155,60,letter2$ ;letter$ 2 Text 255,60,letter3$ ;letter$ 3 Text 355,60,letter4$ ;letter$ 4 Text 455,60,letter5$ ;letter$ 5 Text 555,60,letter6$ ;letter$ 6 Text 655,60,letter7$ ;letter$ 7 Text 755,60,letter8$ ;letter$ 8 Text 855,60,letter9$ ;letter$ 9 SetFont fntarial2 Text 60,185,"V" ;letter$ 1 Text 160,185,"V" ;letter$ 2 Text 260,185,"V" ;letter$ 3 Text 360,185,"V" ;letter$ 4 Text 460,185,"V" ;letter$ 5 Text 560,185,"V" ;letter$ 6 Text 660,185,"V" ;letter$ 7 Text 760,185,"V" ;letter$ 8 Text 860,185,"V" ;letter$ 9 Text 60,255,"C" ;letter$ 1 Text 160,255,"C" ;letter$ 2 Text 260,255,"C" ;letter$ 3 Text 360,255,"C" ;letter$ 4 Text 460,255,"C" ;letter$ 5 Text 560,255,"C" ;letter$ 6 Text 660,255,"C" ;letter$ 7 Text 760,255,"C" ;letter$ 8 Text 860,255,"C" ;letter$ 9 Text 430,370,"Random" ;letter$ ALL Text 130,470,"START" ;letter$ ALL Text 130,540,"RESET" ;letter$ ALL If seconds >0 SetFont fntarial4 Text 530,490,"" + seconds ElseIf seconds < 1 SetFont fntarial5 Text 430,550,"Times Up: EndIf Flip ; flip the image into view and clear the back buffer If timergo = 1 UpdateTimer_() EndIf Wend Function CreateTimer_() timer=MilliSecs() End Function Function UpdateTimer_() If MilliSecs() > timer+count seconds=seconds-1 timer=MilliSecs() EndIf End Function