TheGameCreators - CodeBase - Sequence

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 5th Nov 2011 10:24

Modified: 11th Sep 2015 04:25

Author: Brux

Summary

repeat the numbers from 0 to 9, which shows you the computer screen

Full Description

A simple memory game, 2D<br /> Repeat the numbers from 0 to 9, which shows you the computer screen<br /> Needs of media sounds

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem *******************************************

Rem *                                         *

Rem *        SEQUENCE   Memory Game           *

Rem *                                         *

Rem *       Author: Ermanno   -ITALY-         *

Rem *******************************************

dim random_numbers(100)

hide mouse

load sound "errore.wav",1

load sound "tic.wav",2

Rem define colors

red=rgb(255,0,0)

white=rgb(255,255,255)

gray=rgb(20,20,20)

green=rgb(0,200,0)

blu=rgb(0,0,200)

Rem Loop Game

reload:

randomize rnd(5000)

Rem Tasti 0-1-2-3-4-5-6-7-8-9 ****************

for i=1 to 100

random_numbers(i)=rnd(9)+48

next i

rem Difficulty ******************** Difficulty

ritardo=500

numero_mosse=1

punti=0

game=0

sleep ritardo

set text size 72 : set text to bold

while game=0

cls

gosub disegna_cerchio

gosub punteggio

Rem Computer ******************** Computer

ink green,green

text 10,400,"COMPUTER"

ink gray,gray

text 390,400,"PLAYER"

wait ritardo/2

for i=1 to numero_mosse

ink white,white

text 310,210,chr$(random_numbers(i))

play sound 2

gosub cp

next i

ink gray,gray

text 10,400,"COMPUTER"

ink green,green

text 390,400,"PLAYER"

Rem Player ************************ Player

for i=1 to numero_mosse

j$=""

repeat

j$=inkey$()

jasc=asc(j$)

until j$>""

ink white,white

text 310,210,chr$(jasc)

Rem Check ************************ Check

if jasc=random_numbers(i)

punti=punti+1

gosub cp

gosub punteggio

else

game=1

i=numero_mosse

endif

next i

Rem more difficulty ******************* more difficulty

dec ritardo,5

inc numero_mosse

wait ritardo

endwhile

Rem Wrong *********************** Wrong

ink red,red

text 390,400,"PLAYER"

text 310,210,chr$(jasc)

play sound 1

ttx$="(Q)=QUIT (ANY KEY)=PLAY AGAIN"

gosub scritta

if jasc=113

Rem End ************************* End

cls

show mouse

end

endif

Rem Play again ********************Play again

wait ritardo

goto reload

Rem Labels *********************** Labels

punteggio:

set text size 32

if punti>record then record=punti

ink green,green

box 100,100,200,150

box 500,28,550,92

ink white,white

text 120,110,right$(str$(numero_mosse+1000),3)

text 80,30,"SEQUENCE"

text 370,30,"POINTS: "+right$(str$(punti+100),2)

text 370,60,"RECORD: "+right$(str$(record+100),2)

set text size 72

return

scritta:

set text size 15

ink white,white

center text 330,350,ttx$

repeat

j$=inkey$()

until j$>""

jasc=asc(j$)

return

disegna_cerchio:

ink blu,blu

for i=0 to 15

circle 320+i,230+i,100-i

next i

return

cp:

wait ritardo

ink black,black

box 270,200,380,290

wait ritardo

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Sequence - Memory Game-

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Brux
CodeBase Entries:	33