QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on February 05, 2022, 08:47:14 pm

Title: 4 Letter Word Invaders Game
Post by: SierraKen on February 05, 2022, 08:47:14 pm

Test your typing skills by typing a random 4 letter word that falls as you type. There are 500 4-letter words that it chooses from. Get 40 right before losing all your lives wins. It's possible the same word is used more than once. Others may have made this game in the past, I'm pretty sure I saw it back in the 90's somewhere. But I thought I would give it a try myself. Each word you type right makes the next one go faster. No need to press the Enter key, it uses INKEY$. I've played a couple times and can only get to 39. Good luck!

Code: QB64: [Select]

1. '4 Letter Word Invaders Game
2. 'By SierraKen on Feb. 5, 2022
3. '
4. 'Test your typing skills by typing each word that falls. No need press the Enter key.
5. 'The more you get right, the faster it goes. 40 points wins. Good Luck!
6.  
7. Dim a$(600)
8. For t = 1 To 500
9.     Read a$(t)
10. Next t
11. Screen _NewImage(800, 600, 32)
12. Color _RGB32(255, 255, 255)
13. Randomize Timer
14. start:
15. score = 0
16. speed = .5
17. lives = 5
18. score$ = Str$(score)
19. lives$ = Str$(lives)
20. s$ = "Score: " + score$ + " Lives: " + lives$
21. _Title s$
22.  
23. Do
24.     x = Rnd * 750
25.     y = 5
26.     tt = Int(Rnd * 500) + 1
27.     word$ = a$(tt)
28.     c = 1
29.     Do
30.         y = y + 10
31.         If y > 500 Then
32.             Sound 250, 1
33.             Sound 150, 1
34.             lives = lives - 1
35.             score$ = Str$(score)
36.             lives$ = Str$(lives)
37.             s$ = "Score: " + score$ + " Lives: " + lives$
38.             _Title s$
39.             If lives = 0 Then
40.                 Print "    Y o u  L o s e !"
41.                 Print: Print
42.                 Input "Again (Y/N)"; ag$
43.                 If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
44.                 End
45.             End If
46.             GoTo more:
47.         End If
48.         _PrintString (x, y), word$
49.         Locate 25, 1
50.         Print "->";
51.         w$ = InKey$
52.         If w$ = Chr$(27) Then End
53.         Locate 25, 3 + c: Print w$
54.         If w$ <> "" Then
55.             If w$ = Mid$(word$, c, 1) Then
56.                 c = c + 1
57.                 If c > 4 Then
58.                     Sound 850, .5
59.                     speed = speed - .0125
60.                     score = score + 1
61.                     score$ = Str$(score)
62.                     lives$ = Str$(lives)
63.                     s$ = "Score: " + score$ + " Lives: " + lives$
64.                     _Title s$
65.                     If score = 40 Then
66.                         Print "    Y O U   W I N ! ! ! ! ! ! !"
67.                         Print: Print
68.                         Input "Again (Y/N)"; ag$
69.                         If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
70.                         End
71.                     End If
72.                     _Display
73.                     Cls
74.                     GoTo more:
75.                 End If
76.             Else
77.                 c = 1
78.             End If
79.         End If
80.         _Delay speed
81.         _Display
82.         Cls
83.     Loop
84.     more:
85. Loop
86.  
87. Data able,acid,aged,also,area,army,away,baby,back,ball
88. Data band,bank,base,bath,bear,beat,been,beer,bell,belt
89. Data best,bill,bird,blow,blue,boat,body,bomb,bond,bone
90. Data book,boom,born,boss,both,bowl,bulk,burn,bush,busy
91. Data call,calm,came,camp,card,care,case,cash,cast,cell
92. Data chat,chip,city,club,coal,coat,code,cold,come,cook
93. Data cool,cope,copy,core,cost,crew,crop,dark,data,date
94. Data dawn,days,dead,deal,dean,dear,debt,deep,deny,desk
95. Data dial,dock,diet,disc,disk,does,done,door,dose,down
96. Data draw,drew,drop,drug,dual,duke,dust,duty,each,earn
97. Data ease,east,easy,edge,else,even,ever,evil,exit,face
98. Data fact,fail,fair,fall,farm,fast,fate,fear,feed,feel
99. Data feet,fell,felt,file,fill,film,find,fine,fire,firm
100. Data fish,five,flat,flow,food,foot,ford,form,fort,four
101. Data free,from,fuel,full,fund,gain,game,gate,gave,gear
102. Data gene,gift,girl,give,glad,goal,goes,gold,Golf,gone
103. Data good,gray,grew,grey,grow,gulf,hair,half,hall,hand
104. Data hang,hard,harm,hate,have,head,hear,heat,held,hell
105. Data help,here,hero,high,hill,hire,hold,hole,holy,home
106. Data hope,host,hour,huge,hung,hunt,hurt,idea,inch,into
107. Data iron,item,jack,jane,jean,john,join,jump,jury,just
108. Data keen,keep,kent,kept,kick,kill,kind,king,knee,knew
109. Data know,lack,lady,laid,lake,land,lane,last,late,lead
110. Data left,less,life,lift,like,line,link,list,live,load
111. Data loan,lock,logo,long,look,lord,lose,loss,lost,love
112. Data luck,made,mail,main,make,male,many,mark,mass,matt
113. Data meal,mean,meat,meet,menu,mere,mike,mile,milk,mill
114. Data mind,mine,miss,mode,mood,moon,more,most,move,much
115. Data must,name,navy,near,neck,need,news,next,nice,nick
116. Data nine,none,nose,note,okay,once,only,onto,open,oral
117. Data over,pace,pack,page,paid,pain,pair,palm,park,part
118. Data pass,past,path,peak,pick,pink,pipe,plan,play,plot
119. Data plug,plus,poll,pool,poor,port,post,pull,pure,push
120. Data race,rail,rain,rank,rare,rate,read,real,rear,rely
121. Data rent,rest,rice,rich,ride,ring,rise,risk,road,rock
122. Data role,roll,roof,room,root,rose,rule,rush,ruth,safe
123. Data said,sake,sale,salt,same,sand,save,seat,seed,seek
124. Data seem,seen,self,sell,send,sent,sept,ship,shop,shot
125. Data show,shut,sick,side,sign,site,size,skin,slip,slow
126. Data snow,soft,soil,sold,sole,some,song,soon,sort,soul
127. Data spot,star,stay,step,stop,such,suit,sure,take,tale
128. Data talk,tall,tank,tape,task,team,tech,tell,tend,term
129. Data test,text,than,that,them,then,they,thin,this,thus
130. Data till,time,tiny,told,toll,tone,tony,took,tool,tour
131. Data town,tree,trip,true,tune,turn,twin,type,unit,upon
132. Data used,user,vary,vast,very,vice,view,vote,wage,wait
133. Data wake,walk,wall,want,ward,warm,wash,wave,ways,weak
134. Data wear,week,well,went,were,west,what,when,whom,wide
135. Data wife,wild,will,wind,wine,wing,wire,wise,wish,with
136. Data wood,word,wore,work,yard,yeah,year,your,zero,zone
137.  

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 05, 2022, 09:10:39 pm

And like most of my apps, I already have an update. I forgot to draw a line for land. When the words hit the land you lose a life.

Code: QB64: [Select]

1. '4 Letter Word Invaders Game
2. 'By SierraKen on Feb. 5, 2022
3. '
4. 'Test your typing skills by typing each word that falls. No need press the Enter key.
5. 'The more you get right, the faster it goes. 40 points wins. Good Luck!
6.  
7. Dim a$(600)
8. For t = 1 To 500
9.     Read a$(t)
10. Next t
11. Screen _NewImage(800, 600, 32)
12. Color _RGB32(255, 255, 255)
13. Randomize Timer
14. start:
15. score = 0
16. speed = .5
17. lives = 5
18. score$ = Str$(score)
19. lives$ = Str$(lives)
20. s$ = "Score: " + score$ + " Lives: " + lives$
21. _Title s$
22.  
23. Do
24.     x = Rnd * 750
25.     y = 5
26.     tt = Int(Rnd * 500) + 1
27.     word$ = a$(tt)
28.     c = 1
29.     Do
30.         Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
31.         y = y + 10
32.         If y > 500 Then
33.             Sound 250, 1
34.             Sound 150, 1
35.             lives = lives - 1
36.             score$ = Str$(score)
37.             lives$ = Str$(lives)
38.             s$ = "Score: " + score$ + " Lives: " + lives$
39.             _Title s$
40.             If lives = 0 Then
41.                 Print "    Y o u  L o s e !"
42.                 Print: Print
43.                 Input "Again (Y/N)"; ag$
44.                 If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
45.                 End
46.             End If
47.             GoTo more:
48.         End If
49.         _PrintString (x, y), word$
50.         Locate 25, 1
51.         Print "->";
52.         w$ = InKey$
53.         If w$ = Chr$(27) Then End
54.         Locate 25, 3 + c: Print w$
55.         If w$ <> "" Then
56.             If w$ = Mid$(word$, c, 1) Then
57.                 c = c + 1
58.                 If c > 4 Then
59.                     Sound 850, .5
60.                     speed = speed - .0125
61.                     score = score + 1
62.                     score$ = Str$(score)
63.                     lives$ = Str$(lives)
64.                     s$ = "Score: " + score$ + " Lives: " + lives$
65.                     _Title s$
66.                     If score = 40 Then
67.                         Print "    Y O U   W I N ! ! ! ! ! ! !"
68.                         Print: Print
69.                         Input "Again (Y/N)"; ag$
70.                         If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
71.                         End
72.                     End If
73.                     _Display
74.                     Cls
75.                     GoTo more:
76.                 End If
77.             Else
78.                 c = 1
79.             End If
80.         End If
81.         _Delay speed
82.         _Display
83.         Cls
84.     Loop
85.     more:
86. Loop
87.  
88. Data able,acid,aged,also,area,army,away,baby,back,ball
89. Data band,bank,base,bath,bear,beat,been,beer,bell,belt
90. Data best,bill,bird,blow,blue,boat,body,bomb,bond,bone
91. Data book,boom,born,boss,both,bowl,bulk,burn,bush,busy
92. Data call,calm,came,camp,card,care,case,cash,cast,cell
93. Data chat,chip,city,club,coal,coat,code,cold,come,cook
94. Data cool,cope,copy,core,cost,crew,crop,dark,data,date
95. Data dawn,days,dead,deal,dean,dear,debt,deep,deny,desk
96. Data dial,dock,diet,disc,disk,does,done,door,dose,down
97. Data draw,drew,drop,drug,dual,duke,dust,duty,each,earn
98. Data ease,east,easy,edge,else,even,ever,evil,exit,face
99. Data fact,fail,fair,fall,farm,fast,fate,fear,feed,feel
100. Data feet,fell,felt,file,fill,film,find,fine,fire,firm
101. Data fish,five,flat,flow,food,foot,ford,form,fort,four
102. Data free,from,fuel,full,fund,gain,game,gate,gave,gear
103. Data gene,gift,girl,give,glad,goal,goes,gold,Golf,gone
104. Data good,gray,grew,grey,grow,gulf,hair,half,hall,hand
105. Data hang,hard,harm,hate,have,head,hear,heat,held,hell
106. Data help,here,hero,high,hill,hire,hold,hole,holy,home
107. Data hope,host,hour,huge,hung,hunt,hurt,idea,inch,into
108. Data iron,item,jack,jane,jean,john,join,jump,jury,just
109. Data keen,keep,kent,kept,kick,kill,kind,king,knee,knew
110. Data know,lack,lady,laid,lake,land,lane,last,late,lead
111. Data left,less,life,lift,like,line,link,list,live,load
112. Data loan,lock,logo,long,look,lord,lose,loss,lost,love
113. Data luck,made,mail,main,make,male,many,mark,mass,matt
114. Data meal,mean,meat,meet,menu,mere,mike,mile,milk,mill
115. Data mind,mine,miss,mode,mood,moon,more,most,move,much
116. Data must,name,navy,near,neck,need,news,next,nice,nick
117. Data nine,none,nose,note,okay,once,only,onto,open,oral
118. Data over,pace,pack,page,paid,pain,pair,palm,park,part
119. Data pass,past,path,peak,pick,pink,pipe,plan,play,plot
120. Data plug,plus,poll,pool,poor,port,post,pull,pure,push
121. Data race,rail,rain,rank,rare,rate,read,real,rear,rely
122. Data rent,rest,rice,rich,ride,ring,rise,risk,road,rock
123. Data role,roll,roof,room,root,rose,rule,rush,ruth,safe
124. Data said,sake,sale,salt,same,sand,save,seat,seed,seek
125. Data seem,seen,self,sell,send,sent,sept,ship,shop,shot
126. Data show,shut,sick,side,sign,site,size,skin,slip,slow
127. Data snow,soft,soil,sold,sole,some,song,soon,sort,soul
128. Data spot,star,stay,step,stop,such,suit,sure,take,tale
129. Data talk,tall,tank,tape,task,team,tech,tell,tend,term
130. Data test,text,than,that,them,then,they,thin,this,thus
131. Data till,time,tiny,told,toll,tone,tony,took,tool,tour
132. Data town,tree,trip,true,tune,turn,twin,type,unit,upon
133. Data used,user,vary,vast,very,vice,view,vote,wage,wait
134. Data wake,walk,wall,want,ward,warm,wash,wave,ways,weak
135. Data wear,week,well,went,were,west,what,when,whom,wide
136. Data wife,wild,will,wind,wine,wing,wire,wise,wish,with
137. Data wood,word,wore,work,yard,yeah,year,your,zero,zone
138.  

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 05, 2022, 11:14:28 pm

I added some fading sky and ground colors. Here is a picture and the update:

Code: QB64: [Select]

1. '4 Letter Word Invaders Game
2. 'By SierraKen on Feb. 5, 2022
3. '
4. 'Test your typing skills by typing each word that falls. No need press the Enter key.
5. 'The more you get right, the faster it goes. 40 points wins. Good Luck!
6.  
7. Dim a$(600)
8. For t = 1 To 500
9.     Read a$(t)
10. Next t
11. Screen _NewImage(800, 600, 32)
12. Color _RGB32(255, 255, 255)
13. Randomize Timer
14. start:
15. score = 0
16. speed = .5
17. lives = 5
18. score$ = Str$(score)
19. lives$ = Str$(lives)
20. s$ = "Score: " + score$ + " Lives: " + lives$
21. _Title s$
22.  
23. Do
24.     x = Rnd * 750
25.     y = 5
26.     tt = Int(Rnd * 500) + 1
27.     word$ = a$(tt)
28.     c = 1
29.     Do
30.         Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
31.         For skyy = 0 To 500
32.             col = Int(skyy / 2)
33.             Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
34.         Next skyy
35.         For groundy = 502 To 600
36.             g = g + 2
37.             colg = Int(g / 2)
38.             Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
39.         Next groundy
40.         g = 0
41.         y = y + 10
42.         If y > 500 Then
43.             Sound 250, 1
44.             Sound 150, 1
45.             lives = lives - 1
46.             score$ = Str$(score)
47.             lives$ = Str$(lives)
48.             s$ = "Score: " + score$ + " Lives: " + lives$
49.             _Title s$
50.             If lives = 0 Then
51.                 Print "    Y o u  L o s e !"
52.                 Print: Print
53.                 Input "Again (Y/N)"; ag$
54.                 If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
55.                 End
56.             End If
57.             GoTo more:
58.         End If
59.         _PrintString (x, y), word$
60.         Locate 25, 1
61.         Print "->";
62.         w$ = InKey$
63.         If w$ = Chr$(27) Then End
64.         Locate 25, 3 + c: Print w$
65.         If w$ <> "" Then
66.             If w$ = Mid$(word$, c, 1) Then
67.                 c = c + 1
68.                 If c > 4 Then
69.                     Sound 850, .5
70.                     speed = speed - .0125
71.                     score = score + 1
72.                     score$ = Str$(score)
73.                     lives$ = Str$(lives)
74.                     s$ = "Score: " + score$ + " Lives: " + lives$
75.                     _Title s$
76.                     If score = 40 Then
77.                         Print "    Y O U   W I N ! ! ! ! ! ! !"
78.                         Print: Print
79.                         Input "Again (Y/N)"; ag$
80.                         If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
81.                         End
82.                     End If
83.                     _Display
84.                     Cls
85.                     GoTo more:
86.                 End If
87.             Else
88.                 c = 1
89.             End If
90.         End If
91.         _Delay speed
92.         _Display
93.         Cls
94.     Loop
95.     more:
96. Loop
97.  
98. Data able,acid,aged,also,area,army,away,baby,back,ball
99. Data band,bank,base,bath,bear,beat,been,beer,bell,belt
100. Data best,bill,bird,blow,blue,boat,body,bomb,bond,bone
101. Data book,boom,born,boss,both,bowl,bulk,burn,bush,busy
102. Data call,calm,came,camp,card,care,case,cash,cast,cell
103. Data chat,chip,city,club,coal,coat,code,cold,come,cook
104. Data cool,cope,copy,core,cost,crew,crop,dark,data,date
105. Data dawn,days,dead,deal,dean,dear,debt,deep,deny,desk
106. Data dial,dock,diet,disc,disk,does,done,door,dose,down
107. Data draw,drew,drop,drug,dual,duke,dust,duty,each,earn
108. Data ease,east,easy,edge,else,even,ever,evil,exit,face
109. Data fact,fail,fair,fall,farm,fast,fate,fear,feed,feel
110. Data feet,fell,felt,file,fill,film,find,fine,fire,firm
111. Data fish,five,flat,flow,food,foot,ford,form,fort,four
112. Data free,from,fuel,full,fund,gain,game,gate,gave,gear
113. Data gene,gift,girl,give,glad,goal,goes,gold,Golf,gone
114. Data good,gray,grew,grey,grow,gulf,hair,half,hall,hand
115. Data hang,hard,harm,hate,have,head,hear,heat,held,hell
116. Data help,here,hero,high,hill,hire,hold,hole,holy,home
117. Data hope,host,hour,huge,hung,hunt,hurt,idea,inch,into
118. Data iron,item,jack,jane,jean,john,join,jump,jury,just
119. Data keen,keep,kent,kept,kick,kill,kind,king,knee,knew
120. Data know,lack,lady,laid,lake,land,lane,last,late,lead
121. Data left,less,life,lift,like,line,link,list,live,load
122. Data loan,lock,logo,long,look,lord,lose,loss,lost,love
123. Data luck,made,mail,main,make,male,many,mark,mass,matt
124. Data meal,mean,meat,meet,menu,mere,mike,mile,milk,mill
125. Data mind,mine,miss,mode,mood,moon,more,most,move,much
126. Data must,name,navy,near,neck,need,news,next,nice,nick
127. Data nine,none,nose,note,okay,once,only,onto,open,oral
128. Data over,pace,pack,page,paid,pain,pair,palm,park,part
129. Data pass,past,path,peak,pick,pink,pipe,plan,play,plot
130. Data plug,plus,poll,pool,poor,port,post,pull,pure,push
131. Data race,rail,rain,rank,rare,rate,read,real,rear,rely
132. Data rent,rest,rice,rich,ride,ring,rise,risk,road,rock
133. Data role,roll,roof,room,root,rose,rule,rush,ruth,safe
134. Data said,sake,sale,salt,same,sand,save,seat,seed,seek
135. Data seem,seen,self,sell,send,sent,sept,ship,shop,shot
136. Data show,shut,sick,side,sign,site,size,skin,slip,slow
137. Data snow,soft,soil,sold,sole,some,song,soon,sort,soul
138. Data spot,star,stay,step,stop,such,suit,sure,take,tale
139. Data talk,tall,tank,tape,task,team,tech,tell,tend,term
140. Data test,text,than,that,them,then,they,thin,this,thus
141. Data till,time,tiny,told,toll,tone,tony,took,tool,tour
142. Data town,tree,trip,true,tune,turn,twin,type,unit,upon
143. Data used,user,vary,vast,very,vice,view,vote,wage,wait
144. Data wake,walk,wall,want,ward,warm,wash,wave,ways,weak
145. Data wear,week,well,went,were,west,what,when,whom,wide
146. Data wife,wild,will,wind,wine,wing,wire,wise,wish,with
147. Data wood,word,wore,work,yard,yeah,year,your,zero,zone
148.  

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 05, 2022, 11:55:08 pm

I decided to make it winnable, for me at least. So I can just barely win it now with 40 points. I also changed a couple words in the DATA lines. And I added some LOCATE commands to the ending text and changed "You Lose" to "GAME OVER".

Code: QB64: [Select]

1. '4 Letter Word Invaders Game
2. 'By SierraKen on Feb. 5, 2022
3. '
4. 'Test your typing skills by typing each word that falls. No need press the Enter key.
5. 'The more you get right, the faster it goes. 40 points wins. Good Luck!
6.  
7. Dim a$(600)
8. For t = 1 To 500
9.     Read a$(t)
10. Next t
11. Screen _NewImage(800, 600, 32)
12. Color _RGB32(255, 255, 255)
13. Randomize Timer
14. start:
15. score = 0
16. speed = .5
17. lives = 5
18. score$ = Str$(score)
19. lives$ = Str$(lives)
20. s$ = "Score: " + score$ + " Lives: " + lives$
21. _Title s$
22.  
23. Do
24.     x = Rnd * 750
25.     y = 5
26.     tt = Int(Rnd * 500) + 1
27.     word$ = a$(tt)
28.     c = 1
29.     Do
30.         Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
31.         For skyy = 0 To 500
32.             col = Int(skyy / 2)
33.             Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
34.         Next skyy
35.         For groundy = 502 To 600
36.             g = g + 2
37.             colg = Int(g / 2)
38.             Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
39.         Next groundy
40.         g = 0
41.         y = y + 10
42.         If y > 500 Then
43.             Sound 250, 1
44.             Sound 150, 1
45.             lives = lives - 1
46.             score$ = Str$(score)
47.             lives$ = Str$(lives)
48.             s$ = "Score: " + score$ + " Lives: " + lives$
49.             _Title s$
50.             If lives = 0 Then
51.                 Locate 15, 15
52.                 Print "G A M E   O V E R"
53.                 Locate 17, 15
54.                 Input "Again (Y/N)"; ag$
55.                 If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
56.                 End
57.             End If
58.             GoTo more:
59.         End If
60.         _PrintString (x, y), word$
61.         Locate 25, 1
62.         Print "->";
63.         w$ = InKey$
64.         If w$ = Chr$(27) Then End
65.         Locate 25, 3 + c: Print w$
66.         If w$ <> "" Then
67.             If w$ = Mid$(word$, c, 1) Then
68.                 c = c + 1
69.                 If c > 4 Then
70.                     Sound 850, .5
71.                     speed = speed - .012375
72.                     score = score + 1
73.                     score$ = Str$(score)
74.                     lives$ = Str$(lives)
75.                     s$ = "Score: " + score$ + " Lives: " + lives$
76.                     _Title s$
77.                     If score = 40 Then
78.                         Locate 15, 15
79.                         Print "Y O U   W I N ! ! ! ! ! ! ! ! ! !"
80.                         Locate 17, 15
81.                         Input "Again (Y/N)"; ag$
82.                         If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
83.                         End
84.                     End If
85.                     _Display
86.                     Cls
87.                     GoTo more:
88.                 End If
89.             Else
90.                 c = 1
91.             End If
92.         End If
93.         _Delay speed
94.         _Display
95.         Cls
96.     Loop
97.     more:
98. Loop
99.  
100. Data able,acid,aged,also,area,army,away,baby,back,ball
101. Data band,bank,base,bath,bear,beat,been,beer,bell,belt
102. Data best,bill,bird,blow,blue,boat,body,bomb,bond,bone
103. Data book,boom,born,boss,both,bowl,bulk,burn,bush,busy
104. Data call,calm,came,camp,card,care,case,cash,cast,cell
105. Data chat,chip,city,club,coal,coat,code,cold,come,cook
106. Data cool,cope,copy,core,cost,crew,crop,dark,data,date
107. Data dawn,days,dead,deal,dean,dear,debt,deep,deny,desk
108. Data dial,diet,disc,disk,dock,does,done,door,dose,down
109. Data draw,drew,drop,drug,dual,duke,dust,duty,each,earn
110. Data ease,east,easy,edge,else,even,ever,evil,exit,face
111. Data fact,fail,fair,fall,farm,fast,fate,fear,feed,feel
112. Data feet,fell,felt,file,fill,film,find,fine,fire,firm
113. Data fish,five,flat,flow,food,foot,ford,form,fort,four
114. Data free,from,fuel,full,fund,gain,game,gate,gave,gear
115. Data gene,gift,girl,give,glad,goal,goes,gold,Golf,gone
116. Data good,gray,grew,grey,grow,gulf,hair,half,hall,hand
117. Data hang,hard,harm,hate,have,head,hear,heat,held,hell
118. Data help,here,hero,high,hill,hire,hold,hole,holy,home
119. Data hope,host,hour,huge,hung,hunt,hurt,idea,inch,into
120. Data iron,item,jack,jane,jean,john,join,jump,jury,just
121. Data keen,keep,kent,kept,kick,kill,kind,king,knee,knew
122. Data know,lack,lady,laid,lake,land,lane,last,late,lead
123. Data left,less,life,lift,like,line,link,list,live,load
124. Data loan,lock,logo,long,look,lord,lose,loss,lost,love
125. Data luck,made,mail,main,make,male,many,mark,mass,matt
126. Data meal,mean,meat,meet,menu,mere,mike,mile,milk,mill
127. Data mind,mine,miss,mode,mood,moon,more,most,move,much
128. Data must,name,navy,near,neck,need,news,next,nice,nick
129. Data nine,none,nose,note,okay,once,only,onto,open,oral
130. Data over,pace,pack,page,paid,pain,pair,palm,park,part
131. Data pass,past,path,peak,pick,pink,pipe,plan,play,plot
132. Data plug,plus,poll,pool,poor,port,post,pull,pure,push
133. Data race,rail,rain,rank,rare,rate,read,real,rear,rely
134. Data rent,rest,rice,rich,ride,ring,rise,risk,road,rock
135. Data role,roll,roof,room,root,rose,rule,rush,ruth,safe
136. Data said,sake,sale,salt,same,sand,save,seat,seed,seek
137. Data seem,seen,self,sell,send,sent,sept,ship,shop,shot
138. Data show,shut,sick,side,sign,site,size,skin,slip,slow
139. Data snow,soft,soil,sold,sole,some,song,soon,sort,soul
140. Data spot,star,stay,step,stop,such,suit,sure,take,tale
141. Data talk,tall,tank,tape,task,team,tech,tell,tend,term
142. Data test,text,than,that,them,then,they,thin,this,thus
143. Data till,time,tiny,told,toll,tone,tony,took,tool,tour
144. Data town,tree,trip,true,tune,turn,twin,type,unit,upon
145. Data used,user,vary,vast,very,vice,view,vote,wage,wait
146. Data wake,walk,wall,want,ward,warm,wash,wave,ways,weak
147. Data wear,week,well,went,were,west,what,when,whom,wide
148. Data wife,wild,will,wind,wine,wing,wire,wise,wish,with
149. Data wood,word,wore,work,yard,yeah,year,your,zero,zone
150.  

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 06, 2022, 11:53:07 am

Sorry for so many updates. I decided to make a welcome screen and I changed it to 45 points wins the game. After 38 points it doesn't get any faster. I should also mention that in the beginning it might seem very slow when you type, but since I use a _delay for the speed of the game, the whole game moves faster and faster as you go from word to word. I also changed the position of the GAME OVER and YOU WIN! words to the center of the screen more.

Code: QB64: [Select]

1. '4 Letter Word Invaders Game
2. 'By SierraKen on Feb. 6, 2022
3. '
4. 'Test your typing skills by typing each word that falls. No need press the Enter key.
5. 'The more you get right, the faster it goes. 40 points wins. Good Luck!
6.  
7. Dim a$(600)
8. _Title "4 Letter Word Invasion"
9. For t = 1 To 500
10.     Read a$(t)
11. Next t
12. Screen _NewImage(800, 600, 32)
13. Color _RGB32(255, 255, 255)
14. Randomize Timer
15. start:
16. Cls
17. Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
18. For skyy = 0 To 500
19.     col = Int(skyy / 2)
20.     Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
21. Next skyy
22. For groundy = 502 To 600
23.     g = g + 2
24.     colg = Int(g / 2)
25.     Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
26. Next groundy
27. g = 0
28. Locate 15, 40
29. Print "4 Letter Word Invasion!"
30. Locate 17, 40
31. Print "By SierraKen"
32. Locate 19, 40
33. Print "Type the words that fall down"
34. Locate 20, 40
35. Print "Before they reach the ground!"
36. Locate 21, 40
37. Print "45 points wins the game."
38. Locate 22, 40
39. Print "Start out with 5 lives."
40. Locate 23, 40
41. Print "Good luck!"
42. Locate 25, 40
43. Input "Press Enter To Start.", en$
44. Cls
45. score = 0
46. speed = .5
47. lives = 5
48. score$ = Str$(score)
49. lives$ = Str$(lives)
50. s$ = "Score: " + score$ + " Lives: " + lives$
51. _Title s$
52.  
53. Do
54.     x = Rnd * 750
55.     y = 5
56.     tt = Int(Rnd * 500) + 1
57.     word$ = a$(tt)
58.     c = 1
59.     Do
60.         Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
61.         For skyy = 0 To 500
62.             col = Int(skyy / 2)
63.             Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
64.         Next skyy
65.         For groundy = 502 To 600
66.             g = g + 2
67.             colg = Int(g / 2)
68.             Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
69.         Next groundy
70.         g = 0
71.         y = y + 10
72.         If y > 500 Then
73.             Sound 250, 1
74.             Sound 150, 1
75.             lives = lives - 1
76.             score$ = Str$(score)
77.             lives$ = Str$(lives)
78.             s$ = "Score: " + score$ + " Lives: " + lives$
79.             _Title s$
80.             If lives = 0 Then
81.                 Locate 15, 40
82.                 Print "G A M E   O V E R"
83.                 Locate 17, 40
84.                 Input "Again (Y/N)"; ag$
85.                 If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
86.                 End
87.             End If
88.             GoTo more:
89.         End If
90.         _PrintString (x, y), word$
91.         Locate 25, 1
92.         Print "->";
93.         w$ = InKey$
94.         If w$ = Chr$(27) Then End
95.         Locate 25, 3 + c: Print w$
96.         If w$ <> "" Then
97.             If w$ = Mid$(word$, c, 1) Then
98.                 c = c + 1
99.                 If c > 4 Then
100.                     Sound 850, .5
101.                     If score < 39 Then speed = speed - .012375
102.                     score = score + 1
103.                     score$ = Str$(score)
104.                     lives$ = Str$(lives)
105.                     s$ = "Score: " + score$ + " Lives: " + lives$
106.                     _Title s$
107.                     If score = 45 Then
108.                         Locate 15, 40
109.                         Print "Y O U   W I N ! ! ! ! ! ! ! ! ! !"
110.                         Locate 17, 40
111.                         Input "Again (Y/N)"; ag$
112.                         If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
113.                         End
114.                     End If
115.                     _Display
116.                     Cls
117.                     GoTo more:
118.                 End If
119.             Else
120.                 c = 1
121.             End If
122.         End If
123.         _Delay speed
124.         _Display
125.         Cls
126.     Loop
127.     more:
128. Loop
129.  
130. Data able,acid,aged,also,area,army,away,baby,back,ball
131. Data band,bank,base,bath,bear,beat,been,beer,bell,belt
132. Data best,bill,bird,blow,blue,boat,body,bomb,bond,bone
133. Data book,boom,born,boss,both,bowl,bulk,burn,bush,busy
134. Data call,calm,came,camp,card,care,case,cash,cast,cell
135. Data chat,chip,city,club,coal,coat,code,cold,come,cook
136. Data cool,cope,copy,core,cost,crew,crop,dark,data,date
137. Data dawn,days,dead,deal,dean,dear,debt,deep,deny,desk
138. Data dial,diet,disc,disk,dock,does,done,door,dose,down
139. Data draw,drew,drop,drug,dual,duke,dust,duty,each,earn
140. Data ease,east,easy,edge,else,even,ever,evil,exit,face
141. Data fact,fail,fair,fall,farm,fast,fate,fear,feed,feel
142. Data feet,fell,felt,file,fill,film,find,fine,fire,firm
143. Data fish,five,flat,flow,food,foot,ford,form,fort,four
144. Data free,from,fuel,full,fund,gain,game,gate,gave,gear
145. Data gene,gift,girl,give,glad,goal,goes,gold,Golf,gone
146. Data good,gray,grew,grey,grow,gulf,hair,half,hall,hand
147. Data hang,hard,harm,hate,have,head,hear,heat,held,hell
148. Data help,here,hero,high,hill,hire,hold,hole,holy,home
149. Data hope,host,hour,huge,hung,hunt,hurt,idea,inch,into
150. Data iron,item,jack,jane,jean,john,join,jump,jury,just
151. Data keen,keep,kent,kept,kick,kill,kind,king,knee,knew
152. Data know,lack,lady,laid,lake,land,lane,last,late,lead
153. Data left,less,life,lift,like,line,link,list,live,load
154. Data loan,lock,logo,long,look,lord,lose,loss,lost,love
155. Data luck,made,mail,main,make,male,many,mark,mass,matt
156. Data meal,mean,meat,meet,menu,mere,mike,mile,milk,mill
157. Data mind,mine,miss,mode,mood,moon,more,most,move,much
158. Data must,name,navy,near,neck,need,news,next,nice,nick
159. Data nine,none,nose,note,okay,once,only,onto,open,oral
160. Data over,pace,pack,page,paid,pain,pair,palm,park,part
161. Data pass,past,path,peak,pick,pink,pipe,plan,play,plot
162. Data plug,plus,poll,pool,poor,port,post,pull,pure,push
163. Data race,rail,rain,rank,rare,rate,read,real,rear,rely
164. Data rent,rest,rice,rich,ride,ring,rise,risk,road,rock
165. Data role,roll,roof,room,root,rose,rule,rush,ruth,safe
166. Data said,sake,sale,salt,same,sand,save,seat,seed,seek
167. Data seem,seen,self,sell,send,sent,sept,ship,shop,shot
168. Data show,shut,sick,side,sign,site,size,skin,slip,slow
169. Data snow,soft,soil,sold,sole,some,song,soon,sort,soul
170. Data spot,star,stay,step,stop,such,suit,sure,take,tale
171. Data talk,tall,tank,tape,task,team,tech,tell,tend,term
172. Data test,text,than,that,them,then,they,thin,this,thus
173. Data till,time,tiny,told,toll,tone,tony,took,tool,tour
174. Data town,tree,trip,true,tune,turn,twin,type,unit,upon
175. Data used,user,vary,vast,very,vice,view,vote,wage,wait
176. Data wake,walk,wall,want,ward,warm,wash,wave,ways,weak
177. Data wear,week,well,went,were,west,what,when,whom,wide
178. Data wife,wild,will,wind,wine,wing,wire,wise,wish,with
179. Data wood,word,wore,work,yard,yeah,year,your,zero,zone
180.  

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 06, 2022, 10:28:46 pm

Does anybody like this game? Has anybody played it?

Title: Re: 4 Letter Word Invaders Game
Post by: bplus on February 07, 2022, 12:48:04 pm

Plays OK, slow too much, fast too much (can't read word as it blurs or doubles going down screen). Frankly I'd rather do something else.

Player probably has to set a time level challenging for them self. How about multi-letter with a little more time for extra letters?

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 07, 2022, 12:53:35 pm

Thanks B+, I wondered about that too. Maybe it's my giant monitor that lets me see the words, but just barely. I'll try to make something like you say, falling letters instead of words and have it like it's raining letters, but not too many. I can increase the letters instead of the speed. :) Or some of both. Thanks for the idea.

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 07, 2022, 10:47:18 pm

B+, or anyone else, here is "Letter Invasion", which has falling letters where you press on the keyboard to go away. There is a problem with it though that I can't seem to fix. Sometimes when you press one of the letters, a few of the letters falling disappear. I've tried for many hours to try to fix it without success. It probably has to do with counting the "l" variable for each letter. I'm not sure how to remove just one inside an array and keep the others going. It usually works fine though but for some reason sometimes it doesn't. Can anyone show me what I can add or change? Thanks. Remember, I don't have hardly any experience with double arrays so I would rather just use single arrays if it's possible. This is a different game than the one above on this forum thread. But since B+ brought this idea up here, I decided to post here.

Code: QB64: [Select]

1. Dim a$(100)
2. Dim x(100), y(100), letter$(100)
3. _Title "Letters Invasion"
4. Screen _NewImage(800, 600, 32)
5. Color _RGB32(255, 255, 255)
6. _Limit 25
7. For t = 65 To 90
8.     r = r + 1
9.     a$(r) = Chr$(t)
10. Next t
11.  
12. start:
13.  
14. Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
15. For skyy = 0 To 500
16.     col = Int(skyy / 2)
17.     Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
18. Next skyy
19. For groundy = 502 To 600
20.     g = g + 2
21.     colg = Int(g / 2)
22.     Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
23. Next groundy
24. g = 0
25. Locate 15, 40
26. Print "Letter Invasion!"
27. Locate 17, 40
28. Print "By SierraKen"
29. Locate 19, 40
30. Print "Type the letters that fall down"
31. Locate 20, 40
32. Print "Before they reach the ground!"
33. Locate 21, 40
34. Print "450 points wins the game."
35. Locate 23, 40
36. Color _RGB32(255, 0, 0)
37. Print "TURN ON CAPS LOCK"
38. Color _RGB32(255, 255, 255)
39. Locate 26, 40
40. Print "Good luck!"
41. Locate 27, 40
42. Input "Press Enter To Start.", en$
43. Cls
44. l = 0: ll = 0
45. tt = 0
46. score = 0
47. speed = .1
48. lives = 5
49. score$ = Str$(score)
50. lives$ = Str$(lives)
51. s$ = "Score: " + score$ + " Lives: " + lives$
52. _Title s$
53. amount = 10
54. timing = 15
55. Randomize Timer
56.  
57. GoSub makingletters:
58. Do
59.     _Limit 25
60.     Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
61.     For skyy = 0 To 500
62.         col = Int(skyy / 2)
63.         Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
64.     Next skyy
65.     For groundy = 502 To 600
66.         g = g + 2
67.         colg = Int(g / 2)
68.         Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
69.     Next groundy
70.     g = 0
71.     For rl = 1 To l
72.         If letter$(rl) <> "" Then _PrintString (x(rl), y(rl)), letter$(rl)
73.     Next rl
74.  
75.     Locate 25, 1
76.     Print "->";
77.     w$ = InKey$
78.     If w$ = Chr$(27) Then End
79.     Locate 25, 3: Print w$
80.  
81.     ll = ll + 1
82.     If ll > timing Then GoSub makingletters:
83.     For yy = 1 To l
84.         If letter$(yy) <> "" Then y(yy) = y(yy) + 10
85.     Next yy
86.  
87.     For yyy = 1 To l
88.         If y(yyy) > 500 Then
89.             Sound 250, 1
90.             Sound 150, 1
91.             lives = lives - 1
92.             score$ = Str$(score)
93.             lives$ = Str$(lives)
94.             s$ = "Score: " + score$ + " Lives: " + lives$
95.             _Title s$
96.             If lives = 0 Then
97.                 Locate 15, 40
98.                 Print "G A M E   O V E R"
99.                 Locate 17, 40
100.                 Input "Again (Y/N)"; ag$
101.                 If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
102.                 End
103.             End If
104.             GoSub makingletters:
105.             GoTo skip1:
106.         End If
107.     Next yyy
108.     skip1:
109.     If w$ <> "" Then
110.         For check = 1 To l
111.             If w$ = letter$(check) Then
112.                 Sound 850, .5
113.                 If score < 320 Then speed = speed - .001
114.                 score = score + 10
115.                 If score / 50 = Int(score / 50) Then amount = amount + 1
116.                 score$ = Str$(score)
117.                 lives$ = Str$(lives)
118.                 s$ = "Score: " + score$ + " Lives: " + lives$
119.                 _Title s$
120.                 If score > 450 Then
121.                     Locate 15, 40
122.                     Print "Y O U   W I N ! ! ! ! ! ! ! ! ! !"
123.                     Locate 17, 40
124.                     Input "Again (Y/N)"; ag$
125.                     If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
126.                     End
127.                 End If
128.                 letter$(check) = ""
129.                 GoSub makingletters:
130.                 GoTo skip2:
131.             End If
132.         Next check
133.     End If
134.     skip2:
135.  
136.     _Delay speed
137.     _Display
138.     Cls
139. Loop
140.  
141. makingletters:
142. _Limit 25
143. w$ = ""
144. ll = 0
145. l = l + 1
146. If l > amount Then l = 1
147. x(l) = (Rnd * 750) + 5
148. y(l) = 5
149. tt = Int(Rnd * 24) + 1
150. letter$(l) = a$(tt)
151. Return
152.  
153.  

Title: Re: 4 Letter Word Invaders Game
Post by: _vince on February 08, 2022, 03:05:26 am

Quote from: bplus on February 07, 2022, 12:48:04 pm

Plays OK, slow too much, fast too much (can't read word as it blurs or doubles going down screen). Frankly I'd rather do something else.

That is brutally devastating, bplus.  Perhaps all it needs is a quick mod?

Code: QB64: [Select]

1. const nn = 1
2. Const twidth = 800, theight = 600, zoom = 128
3. Dim Shared noise(nn*twidth * theight) '//the noise array
4. Dim Shared texture(nn*twidth * theight) '//texture array
5. Dim Shared pal(256) As _Unsigned Long '//color palette
6.  
7. Dim a$(100)
8. Dim x(100), y(100), letter$(100)
9. _Title "Letters Invasion B+ mod"
10. Screen _NewImage(800, 600, 32)
11.  
12. MakePalette 255, 155, 255, 10, 100, 180
13. GenerateNoise
14. buildtexture
15.  
16. dim vs as long
17. vs = _newimage(twidth, theight, 32)
18. _dest vs
19. drawtexture 0
20. _dest 0
21.  
22. Color _RGB32(255, 255, 255)
23. _Limit 25
24. For t = 65 To 90
25.     r = r + 1
26.     a$(r) = Chr$(t)
27. Next t
28.  
29. start:
30.  
31. Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
32. For skyy = 0 To 500
33.     col = Int(skyy / 2)
34.     Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
35. Next skyy
36.  
37. '_putimage (i , 0)-step(800,600), vs
38.  
39. For groundy = 502 To 600
40.     g = g + 2
41.     colg = Int(g / 2)
42.     Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
43. Next groundy
44. g = 0
45. Locate 15, 40
46. Print "Letter Invasion!"
47. Locate 17, 40
48. Print "By SierraKen"
49. Locate 19, 40
50. Print "Type the letters that fall down"
51. Locate 20, 40
52. Print "Before they reach the ground!"
53. Locate 21, 40
54. Print "450 points wins the game."
55. Locate 23, 40
56. Color _RGB32(255, 0, 0)
57. Print "TURN ON CAPS LOCK"
58. Color _RGB32(255, 255, 255)
59. Locate 26, 40
60. Print "Good luck!"
61. Locate 27, 40
62. Input "Press Enter To Start.", en$
63. Cls
64. l = 0: ll = 0
65. tt = 0
66. score = 0
67. speed = .1
68. lives = 5
69. score$ = Str$(score)
70. lives$ = Str$(lives)
71. s$ = "Score: " + score$ + " Lives: " + lives$
72. _Title s$
73. amount = 10
74. timing = 15
75. Randomize Timer
76.  
77. GoSub makingletters:
78.  
79. i = 0
80. j = -1
81. Do
82.         i = i + 5
83.         if i >= 800 then
84.                 i = 0
85.                 j = not j
86.         end if         
87.  
88.         if j then
89.                 _putimage (i , 0)-step(800,600), vs
90.                 _putimage (i , 0)-step(-800,600), vs
91.         else
92.                 _putimage (i + 800, 0)-step(-800,600), vs
93.                 _putimage (i - 800 , 0)-step(800,600), vs
94.  
95.         end if
96.     '_Limit 25
97.  
98.     'Line (0, 501)-(800, 501), _RGB32(255, 255, 255)
99.     'For skyy = 0 To 500
100.     '    col = Int(skyy / 2)
101.     '    Line (0, skyy)-(800, skyy), _RGB32(0, 0, col)
102.     'Next skyy
103.  
104.  
105.  
106.     For groundy = 502 To 600
107.         g = g + 2
108.         colg = Int(g / 2)
109.         Line (0, groundy)-(800, groundy), _RGB32(0, colg, 0)
110.     Next groundy
111.     g = 0
112.     For rl = 1 To l
113.         If letter$(rl) <> "" Then _PrintString (x(rl), y(rl)), letter$(rl)
114.     Next rl
115.  
116.     Locate 25, 1
117.     Print "->";
118.     w$ = InKey$
119.     If w$ = Chr$(27) Then End
120.     Locate 25, 3: Print w$
121.  
122.     ll = ll + 1
123.     If ll > timing Then GoSub makingletters:
124.     For yy = 1 To l
125.         If letter$(yy) <> "" Then y(yy) = y(yy) + 10
126.     Next yy
127.  
128.     For yyy = 1 To l
129.         If y(yyy) > 500 Then
130.             Sound 250, 1
131.             Sound 150, 1
132.             lives = lives - 1
133.             score$ = Str$(score)
134.             lives$ = Str$(lives)
135.             s$ = "Score: " + score$ + " Lives: " + lives$
136.             _Title s$
137.             If lives = 0 Then
138.                 Locate 15, 40
139.                 Print "G A M E   O V E R"
140.                 Locate 17, 40
141.                 Input "Again (Y/N)"; ag$
142.                 If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
143.                 End
144.             End If
145.             GoSub makingletters:
146.             GoTo skip1:
147.         End If
148.     Next yyy
149.     skip1:
150.     If w$ <> "" Then
151.         For check = 1 To l
152.             If w$ = letter$(check) Then
153.                 Sound 850, .5
154.                 If score < 320 Then speed = speed - .001
155.                 score = score + 10
156.                 If score / 50 = Int(score / 50) Then amount = amount + 1
157.                 score$ = Str$(score)
158.                 lives$ = Str$(lives)
159.                 s$ = "Score: " + score$ + " Lives: " + lives$
160.                 _Title s$
161.                 If score > 450 Then
162.                     Locate 15, 40
163.                     Print "Y O U   W I N ! ! ! ! ! ! ! ! ! !"
164.                     Locate 17, 40
165.                     Input "Again (Y/N)"; ag$
166.                     If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo start:
167.                     End
168.                 End If
169.                 letter$(check) = ""
170.                 GoSub makingletters:
171.                 GoTo skip2:
172.             End If
173.         Next check
174.     End If
175.     skip2:
176.  
177.         _LIMIT 10
178.     '_Delay speed
179.     _Display
180.     Cls
181. Loop
182.  
183. makingletters:
184. _Limit 25
185. w$ = ""
186. ll = 0
187. l = l + 1
188. If l > amount Then l = 1
189. x(l) = (Rnd * 750) + 5
190. y(l) = 5
191. tt = Int(Rnd * 24) + 1
192. letter$(l) = a$(tt)
193. Return
194.  
195.  
196. '//interpolation code by rattrapmax6
197. Sub MakePalette (sr, sg, sb, er, eg, eb) ' (b+) start and end RGB's ? yes
198.     Dim i, istart(3), iend(3), ishow(3), rend(3), interpol(3)
199.  
200.     interpol(0) = 255
201.     istart(1) = sr
202.     istart(2) = sg
203.     istart(3) = sb
204.     iend(1) = er
205.     iend(2) = eg
206.     iend(3) = eb
207.     interpol(1) = (istart(1) - iend(1)) / interpol(0)
208.     interpol(2) = (istart(2) - iend(2)) / interpol(0)
209.     interpol(3) = (istart(3) - iend(3)) / interpol(0)
210.     rend(1) = istart(1)
211.     rend(2) = istart(2)
212.     rend(3) = istart(3)
213.  
214.     For i = 0 To 255
215.         ishow(1) = rend(1)
216.         ishow(2) = rend(2)
217.         ishow(3) = rend(3)
218.  
219.         pal(i) = _RGB32(ishow(1), ishow(2), ishow(3))
220.  
221.         rend(1) = rend(1) - interpol(1)
222.         rend(2) = rend(2) - interpol(2)
223.         rend(3) = rend(3) - interpol(3)
224.     Next i
225. End Sub
226.  
227. '//generates random noise.
228. Sub GenerateNoise ()
229.     Dim As Long x, y
230.  
231.     For x = 0 To nn*twidth - 1
232.         For y = 0 To theight - 1
233.                         zz = rnd
234.             noise(x + y * twidth) = zz
235.         Next y
236.     Next x
237.  
238. End Sub
239.  
240. Function SmoothNoise (x, y)
241.     '//get fractional part of x and y
242.     Dim fractx, fracty, x1, y1, x2, y2, value
243.     fractx = x - Int(x)
244.     fracty = y - Int(y)
245.  
246.     '//wrap around
247.     x1 = (Int(x) + nn*twidth) Mod twidth
248.     y1 = (Int(y) + theight) Mod theight
249.  
250.     '//neighbor values
251.     x2 = (x1 + nn*twidth - 1) Mod twidth
252.     y2 = (y1 + theight - 1) Mod theight
253.  
254.     '//smooth the noise with bilinear interpolation
255.     value = 0.0
256.     value = value + fractx * fracty * noise(x1 + y1 * twidth)
257.     value = value + fractx * (1 - fracty) * noise(x1 + y2 * twidth)
258.     value = value + (1 - fractx) * fracty * noise(x2 + y1 * twidth)
259.     value = value + (1 - fractx) * (1 - fracty) * noise(x2 + y2 * twidth)
260.  
261.     SmoothNoise = value
262. End Function
263.  
264. Function Turbulence (x, y, size)
265.     Dim value, initialsize
266.  
267.     initialsize = size
268.     While (size >= 1)
269.         value = value + SmoothNoise(x / size, y / size) * size
270.         size = size / 2.0
271.     Wend
272.     Turbulence = (128.0 * value / initialsize)
273. End Function
274.  
275. '//builds the texture.
276. Sub buildtexture
277.     Dim x, y
278.  
279.     For x = 0 To nn*twidth - 1
280.         For y = 0 To theight - 1
281.             texture(x + y * nn*twidth) = Turbulence(x, y, zoom)
282.         Next y
283.     Next x
284. End Sub
285.  
286. '//draws texture to screen.
287. Sub drawtexture (dx )
288.     Dim x, y
289.         dim as long c, r, g, b
290.  
291.     For x = 0 To twidth - 1
292.         For y = 0 To theight - 1
293.                         c = pal(texture(((x + dx) + y * nn*twidth)))
294.                         r = _red(c)
295.                         g = _green(c)
296.                         b = _blue(c)
297.                         c = _rgb(r - 0.2*y, g - 0.2*y, b - 0.2*b)
298.             PSet (x, y), c'pal(texture(((x + dx) + y * nn*twidth)))
299.         Next y
300.     Next x
301. End Sub
302.  

Title: Re: 4 Letter Word Invaders Game
Post by: bplus on February 08, 2022, 11:31:13 am

Hey nice use of that background and timing is good.

Add

Code: QB64: [Select]

1. _PrintMode _KeepBackground  

 

This wasn't my idea of falling letters, I played that with old QB stuff somewhere recently, I was suggesting different length words.

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 08, 2022, 12:31:05 pm

Oh I see. Well, I'm giving up on these 2 games, I might come back to them later. I might start on something else soon. Thanks anyways.

Title: Re: 4 Letter Word Invaders Game
Post by: dbox on February 08, 2022, 01:46:12 pm

Hey @SierraKen, I wouldn't give up on it yet.  I like what you've got started here and thought it was pretty fun.  Got especially challenging as it got faster.

Couple of thoughts for enhancements:

I would recommend adding the following after your Screen _NewImage call on line 13:
_PrintMode _KeepBackground

This will prevent a black block from being drawn behind each letter and give it a nice look.

Also, I would love to see a score or a level being shown as I'm playing so I can see how far I'm progressing (and brag about my high score and lightning fast typing skillz).

Thanks for posting!

Title: Re: 4 Letter Word Invaders Game
Post by: MasterGy on February 08, 2022, 02:15:55 pm

imaginative! I would need a scoring system in the game to know if I was good at it

Title: Re: 4 Letter Word Invaders Game
Post by: bplus on February 08, 2022, 02:35:39 pm

Code: QB64: [Select]

1. Option _Explicit
2. _Title "Quick Falling Letters Game" 'b+ 2022-02-08
3.  
4. Dim letters$(1 To 25), lx(1 To 25) As Integer ' screen 0 25 lines 80 letters across
5. Dim hits, letterPos, i, K$, GameOver
6.  
7. Do
8.     Cls
9.     letterPos = letterPos + 1 ' generate new letter at each round
10.     If letterPos > 24 Then GameOver = -1
11.     For i = letterPos - 1 To 1 Step -1 ' cycle letters and positions down
12.         letters$(i + 1) = letters$(i)
13.         lx(i + 1) = lx(i)
14.     Next
15.     letters$(1) = Chr$(Int(Rnd * 26) + 97) ' start a new letter
16.     lx(1) = Int(Rnd * 80) + 1 ' at a new place
17.     K$ = InKey$ ' check key presses for match to current letterPos
18.     While K$ = letters$(letterPos) ' catch up with all keypresses
19.         hits = hits + 1 '            add to score
20.         letterPos = letterPos - 1
21.         K$ = InKey$ '                check next keypress
22.     Wend
23.     For i = 1 To letterPos 'show board what's left of letters
24.         Locate i, lx(i): Print letters$(i);
25.     Next
26.     Locate 25, 36: Print "Hits:"; hits
27.     _Limit 1
28. Loop Until GameOver
29. Locate 25, 26: Print "Game Over"
30. Sleep
31.  
32.  

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 08, 2022, 02:46:41 pm

Great rendition B+! My games do have the score in the _TITLE bar. B+, the difference between yours and mine is that on yours the player has to click the right sequence as well, mine can be any of them on the screen. That is probably what got me stuck to begin with.

Title: Re: 4 Letter Word Invaders Game
Post by: bplus on February 08, 2022, 02:54:30 pm

Yeah I tried to figure out what you were doing but my brain got frazzled specially on that gosub.

So I tried to write a simple version with the basic game for clarity.

Title: Re: 4 Letter Word Invaders Game
Post by: _vince on February 08, 2022, 04:48:47 pm

B+ mod!

Code: QB64: [Select]

1. _Title "Quick Falling Letters Game B+ mod" 'b+ 2022-02-08
2.  
3. const nn = 1
4. Const twidth = 640, theight = 480, zoom = 128
5. Dim Shared noise(nn*twidth * theight) '//the noise array
6. Dim Shared texture(nn*twidth * theight) '//texture array
7. Dim Shared pal(256) As _Unsigned Long '//color palette
8.  
9. Dim letters$(1 To 25), lx(1 To 25) As Integer ' screen 0 25 lines 80 letters across
10. Dim hits, letterPos, i, K$, GameOver
11.  
12. screen _newimage(640,480,32)
13. MakePalette 255, 155, 255, 10, 100, 180
14. GenerateNoise
15. buildtexture
16.  
17. dim vs as long
18. vs = _newimage(twidth, theight, 32)
19. _dest vs
20. drawtexture 0
21. _dest 0
22.  
23. ii = 0
24. jj = -1
25. kk = 0
26. Do
27.         kk = kk + 1
28.         ii = ii + 1
29.         if ii >= 640 then
30.                 ii = 0
31.                 jj = not jj
32.         end if         
33.  
34.         if jj then
35.                 _putimage (ii , 0)-step(640,480), vs
36.                 _putimage (ii , 0)-step(-640,480), vs
37.         else
38.                 _putimage (ii + 640, 0)-step(-640,480), vs
39.                 _putimage (ii - 640 , 0)-step(640,480), vs
40.         end if
41.  
42.     'Cls
43.         if kk mod 50 = 0 then
44.                 letterPos = letterPos + 1 ' generate new letter at each round
45.                 If letterPos > 24 Then GameOver = -1
46.                 For i = letterPos - 1 To 1 Step -1 ' cycle letters and positions down
47.                         letters$(i + 1) = letters$(i)
48.                         lx(i + 1) = lx(i)
49.                 Next
50.                 letters$(1) = Chr$(Int(Rnd * 26) + 97) ' start a new letter
51.                 lx(1) = Int(Rnd * 80) + 1 ' at a new place
52.                 K$ = InKey$ ' check key presses for match to current letterPos
53.                 While K$ = letters$(letterPos) ' catch up with all keypresses
54.                         hits = hits + 1 '            add to score
55.                         letterPos = letterPos - 1
56.                         K$ = InKey$ '                check next keypress
57.                 Wend
58.         end if
59.  
60.         For i = 1 To letterPos 'show board what's left of letters
61.                 Locate i, lx(i): Print letters$(i);
62.         Next
63.         Locate 25, 36: Print "Hits:"; hits
64.  
65.         _display
66.     _Limit 50
67. Loop Until GameOver
68. Locate 25, 26: Print "Game Over"
69. _display
70. Sleep
71. system
72.  
73. '//interpolation code by rattrapmax6
74. Sub MakePalette (sr, sg, sb, er, eg, eb) ' (b+) start and end RGB's ? yes
75.     Dim i, istart(3), iend(3), ishow(3), rend(3), interpol(3)
76.  
77.     interpol(0) = 255
78.     istart(1) = sr
79.     istart(2) = sg
80.     istart(3) = sb
81.     iend(1) = er
82.     iend(2) = eg
83.     iend(3) = eb
84.     interpol(1) = (istart(1) - iend(1)) / interpol(0)
85.     interpol(2) = (istart(2) - iend(2)) / interpol(0)
86.     interpol(3) = (istart(3) - iend(3)) / interpol(0)
87.     rend(1) = istart(1)
88.     rend(2) = istart(2)
89.     rend(3) = istart(3)
90.  
91.     For i = 0 To 255
92.         ishow(1) = rend(1)
93.         ishow(2) = rend(2)
94.         ishow(3) = rend(3)
95.  
96.         pal(i) = _RGB32(ishow(1), ishow(2), ishow(3))
97.  
98.         rend(1) = rend(1) - interpol(1)
99.         rend(2) = rend(2) - interpol(2)
100.         rend(3) = rend(3) - interpol(3)
101.     Next i
102. End Sub
103.  
104. '//generates random noise.
105. Sub GenerateNoise ()
106.     Dim As Long x, y
107.  
108.     For x = 0 To nn*twidth - 1
109.         For y = 0 To theight - 1
110.                         zz = rnd
111.             noise(x + y * twidth) = zz
112.         Next y
113.     Next x
114.  
115. End Sub
116.  
117. Function SmoothNoise (x, y)
118.     '//get fractional part of x and y
119.     Dim fractx, fracty, x1, y1, x2, y2, value
120.     fractx = x - Int(x)
121.     fracty = y - Int(y)
122.  
123.     '//wrap around
124.     x1 = (Int(x) + nn*twidth) Mod twidth
125.     y1 = (Int(y) + theight) Mod theight
126.  
127.     '//neighbor values
128.     x2 = (x1 + nn*twidth - 1) Mod twidth
129.     y2 = (y1 + theight - 1) Mod theight
130.  
131.     '//smooth the noise with bilinear interpolation
132.     value = 0.0
133.     value = value + fractx * fracty * noise(x1 + y1 * twidth)
134.     value = value + fractx * (1 - fracty) * noise(x1 + y2 * twidth)
135.     value = value + (1 - fractx) * fracty * noise(x2 + y1 * twidth)
136.     value = value + (1 - fractx) * (1 - fracty) * noise(x2 + y2 * twidth)
137.  
138.     SmoothNoise = value
139. End Function
140.  
141. Function Turbulence (x, y, size)
142.     Dim value, initialsize
143.  
144.     initialsize = size
145.     While (size >= 1)
146.         value = value + SmoothNoise(x / size, y / size) * size
147.         size = size / 2.0
148.     Wend
149.     Turbulence = (128.0 * value / initialsize)
150. End Function
151.  
152. '//builds the texture.
153. Sub buildtexture
154.     Dim x, y
155.  
156.     For x = 0 To nn*twidth - 1
157.         For y = 0 To theight - 1
158.             texture(x + y * nn*twidth) = Turbulence(x, y, zoom)
159.         Next y
160.     Next x
161. End Sub
162.  
163. '//draws texture to screen.
164. Sub drawtexture (dx )
165.     Dim x, y
166.         dim as long c, r, g, b
167.  
168.     For x = 0 To twidth - 1
169.         For y = 0 To theight - 1
170.                         c = pal(texture(((x + dx) + y * nn*twidth)))
171.                         r = _red(c)
172.                         g = _green(c)
173.                         b = _blue(c)
174.                         c = _rgb(r - 0.2*y, g - 0.2*y, b - 0.2*b)
175.             PSet (x, y), c'pal(texture(((x + dx) + y * nn*twidth)))
176.         Next y
177.     Next x
178. End Sub
179.  

Title: Re: 4 Letter Word Invaders Game
Post by: SierraKen on February 08, 2022, 06:11:27 pm

LOL totally cool Vince. 1980's text game turned into mid 1990's Windows 95 type game. :)))

Title: Re: 4 Letter Word Invaders Game
Post by: bplus on February 08, 2022, 07:11:03 pm

And still it could be made so much better with:

Code: QB64: [Select]

1. _PrintMode _KeepBackground  
2.  

Text Only | Text with Attachments