TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 14th Jul 2006 11:53

Modified: 1st Jan 1970 01:00

Author: Mickm

Summary

A small Simon Says game (no media required)

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

#CONSTANT TRUE 1

#CONSTANT FALSE 0

SYNC ON

SYNC RATE 60

AUTOCAM OFF

MAKE OBJECT CUBE 1, 5

POSITION OBJECT 1, -5, 5, 20

COLOR OBJECT 1, RGB(255, 0, 0)

MAKE OBJECT CUBE 2, 5

POSITION OBJECT 2, -5, -5, 20

COLOR OBJECT 2, RGB(0, 255, 0)

MAKE OBJECT CUBE 3, 5

POSITION OBJECT 3, 5, 5, 20

COLOR OBJECT 3, RGB(0, 0, 255)

MAKE OBJECT CUBE 4, 5

POSITION OBJECT 4, 5, -5, 20

COLOR OBJECT 4, RGB(255, 255, 0)

sCurrentOrder$ = ""

sOrder$ = ""

bPlayerTurn = FALSE

iLevel = 1

iObject = 0

TEXT 0, 0, "Level: " + STR$(iLevel)

IF bPlayerTurn

iObject = VAL(LEFT$(sOrder$, 1))

IF MOUSECLICK()

IF PICK OBJECT (MOUSEX(), MOUSEY(), 1, 4)

p = PICK OBJECT (MOUSEX(), MOUSEY(), 1, 4)

ShowPicked(p)

` Check what they clicked

IF p = iObject

` Check for Level Complete

IF LEN(sOrder$) = 1

` Check for First Play

IF iLevel <> 1

sOrder$ = sCurrentOrder$ + sOrder$

sCurrentOrder$= ""

ENDIF

INC iLevel

bPlayerTurn = FALSE

ELSE

sCurrentOrder$ = sCurrentOrder$ + LEFT$(sOrder$, 1)

sOrder$ = RIGHT$(sOrder$, LEN(sOrder$) - 1)

ENDIF

ELSE

EXIT

ENDIF

p = 0

ELSE

`Didnt Click Anything

ENDIF

ELSE

ShowLevel(iLevel)

iObject = RND(3) + 1

sOrder$ = sOrder$ + STR$(iObject)

sTemp$ = sOrder$

FOR iTemp = 1 to iLevel

ShowPicked(VAL(LEFT$(sTemp$, 1)))

sTemp$ = RIGHT$(sTemp$, LEN(sTemp$) - 1)

WAIT 250

NEXT iTemp

bPlayerTurn = TRUE

iObject = 0

ENDIF

SYNC

LOOP

FOR iTemp = 1 TO 4

HIDE OBJECT iTemp

NEXT iTemp

CENTER TEXT SCREEN WIDTH() / 2, (SCREEN HEIGHT() / 2) - 20, "Game Over"

CENTER TEXT SCREEN WIDTH() / 2, (SCREEN HEIGHT() / 2) , "Level: " + STR$(iLevel)

CENTER TEXT SCREEN WIDTH() / 2, (SCREEN HEIGHT() / 2) + 20, "Press Any Key To Quit"

IF SCANCODE() > 0 THEN EXIT

SYNC

LOOP

END

FUNCTION ShowPicked(objPicked)

FOR iTemp = 1 TO 4

IF iTemp <> objPicked THEN SET ALPHA MAPPING ON iTemp, 25

NEXT iTemp

FOR iTemp = 0 to 90 STEP 3

YROTATE OBJECT objPicked, iTemp

SYNC

NEXT iTemp

FOR iTemp = 1 TO 4

SET ALPHA MAPPING ON iTemp, 100

NEXT iTemp

ENDFUNCTION

FUNCTION ShowLevel(iLevel)

FOR iTemp = 1 TO 4

HIDE OBJECT iTemp

NEXT iTemp

SYNC

CENTER TEXT SCREEN WIDTH() / 2, SCREEN HEIGHT() / 2, "Level: " + STR$(iLevel)

SYNC

WAIT 1000

FOR iTemp = 1 TO 4

SHOW OBJECT iTemp

NEXT iTemp

ENDFUNCTION

Download

Please login to download

Comments

No comments yet.

CodeBase - Simple Simon

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Mickm
CodeBase Entries:	1