TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 16th Sep 2015 12:27

Modified: 19th Sep 2015 05:19

Author: Brux

Summary

Simple game that will put 'to test your reflexes

Full Description

Simple game that will put 'to test your reflexes<br /> The game consists in guessing the sum of three numbers<br /> but do not expect to win the game easily<br /> You have a few seconds to press the buttons 1 or 2 or 3<br /> you can challenge your friends to overcome your record

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 *          ONE TWO THREE                 *

Rem *        By Ermanno (ITALY)              *

Rem *        ( September 2015 )              *

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

load image "title.png",1

load image "wrong.png",2

load image "right.png",3

load sound "risata.wav",1

load sound "squillo.wav",2

bianco=rgb(255,255,255)

rosso=rgb(255,0,0)

verde=rgb(0,255,0)

azzurro=rgb(31,160,203)

set text size 32

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

Rem *           Randomize Numbers            *

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

main:

Randomize Timer()

a1:

a=rnd(1)+2

b=rnd(1)+1

c=rnd(2)+1

if a+b-c=0 then goto a1

if a+b-c>3 then goto a1

if a-b<=0 then goto a1

if a-b+c=0 then goto a1

if a-b+c>3 then goto a1

p_flag=rnd(1)+1

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

Rem *            Main Program                   *

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

make_button(0,50,30,600,430,rosso,rosso,1)

ink bianco,0

paste image 1,65,50

rem center text 320,80,"ONE TWO THREE"

text 70,350,"TIME"

text 280,350,"RECORD      POINTS"

if points>record

record=points

endif

text 320,380,str$(record)

text 520,380,str$(points)

if numero_volte=0

ink azzurro,0

center text 320,240,"PRESS ANY KEY TO START"

wait key

numero_volte=1

repeat:until inkey$()=""

goto main

endif

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

Rem *                 TIME                     *

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

make_button(0,59,399,261,411,bianco,bianco,0)

ti#=0

make_button(azzurro,250,180,430,260,bianco,bianco,2)

if p_flag=1 then text 290,200,str$(a)+"+"+str$(b)+"-"+str$(c)+"= ?":somma=a+b-c

if p_flag=2 then text 290,200,str$(a)+"-"+str$(b)+"+"+str$(c)+"= ?":somma=a-b+c

repeat

ti#=ti#+0.20

ink rosso,0

box 60,400,60+ti#,410

a$=inkey$()

until a$>"" or ti#>200

ink verde,0

jasc=asc(a$)

repeat:until inkey$()=""

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

Rem *           Check sum                      *

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

if jasc-48=somma

paste image 3,200,280

rem center text 320,300,"RIGHT!"

play sound 2

inc points

goto at_end

else

ink azzurro,0

paste image 2,200,280

rem center text 320,300,"WRONG !!"

play sound 1

center text 320,140,"PLAY AGAIN ? (S/N)"

endif

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

Rem *                   PLAY AGAIN ?             *

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

controllo:

j$=""

repeat

j$=inkey$()

jasc=asc(j$)

until j$>""

if jasc=115

points=0

goto at_end

endif

if jasc<>110 then goto controllo

sleep 50

cls

end

at_end:

wait 500

goto main

end

FUNCTION Make_Button(co1,Left,Top,Right,Bottom,co2,co3,shadow)

INK 0,0

IF shadow=1 THEN BOX left,top,right,bottom

IF shadow=2 THEN BOX left-2,top-2,right+2,bottom+2

INK co1,co1

BOX left+1,top+1,right-1,bottom-1

INK co2,co2

LINE Left,Bottom,Left,Top : LINE Left,Top,Right,Top

INK co3,co3

LINE Right,Top,Right,Bottom : LINE Right,Bottom,Left,Bottom

ENDFUNCTION

Download

Please login to download

Comments

No comments yet.

Author Name:	Brux
CodeBase Entries:	33

CodeBase - One Two Three

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments