TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 18th Sep 2009 20:44

Modified: 18th Sep 2009 20:50

Author: Madscientist

Summary

You race, by clicking, against other circles to the finish line. No Media!

Full Description

A simple game that I made in a few days. All that you do is that you click the right and left mouse buttons to move your circle forward.<br /> No Media!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: Click Race

REM Created: 6/27/2009 8:23:48 PM

REM

REM ***** Main Source File *****

REM

TrackLines = 1

Trackbmp = 2

Track = 3

time=0

Racer1X=5

Racer2X=5

Racer3X=5

Racer4X=5

playerX=5

leftmouse=0

rightmouse=0

Gosub Drawtrack

Goto Start

Start:

cls rgb(0,0,0)

ink rgb(255,255,255),rgb(0,0,0)

set text size 16

set text font "Arial"

center text screen width()/2,100,"Press the key that corresponds to the hardness level to start racing!"

center text screen width()/2,130,"You are the white circle."

center text screen width()/2,115,"Alternately click the right and left mouse buttons to move your circle."

center text screen width()/2,160,"E=Easy, M=Medium, H=Hard, I=Increadibly Hard"

if keystate(18)=1

Chance1=5

Chance2=5

Chance3=5

Chance4=5

Goto Game

endif

if keystate(50)=1

Chance1=4

Chance2=4

Chance3=4

Chance4=4

Goto Game

endif

if keystate(35)=1

Chance1=3

Chance2=3

Chance3=3

Chance4=3

Goto Game

endif

if keystate(23)=1

Chance1=2

Chance2=2

Chance3=2

Chance4=2

Goto Game

endif

loop

Game:

sync on

Sync rate 60

Load Image "LineTrack.bmp", Track

Hide mouse

cls

Paste Image Track, 1, 1

Gosub Player

Gosub Racers

ink rgb(255,255,255),rgb(0,0,0)

inc time

text 0,0,"Time:"+str$(time)

sync

Loop

Drawtrack:

Create bitmap trackbmp,640,480

set current bitmap trackbmp

ink rgb(255,255,255),rgb(0,0,0)

Line 10,0,10,480

ink rgb(255,0,0),rgb(0,0,0)

line 345,0,345,480

Get image trackbmp,0,0,640,480

save image "LineTrack.bmp",trackbmp

delete bitmap trackbmp

return

Player:

ink rgb(255,255,255),rgb(0,0,0)

Circle PlayerX, 50, 10

if mouseclick() = 1 and rightmouse=0

leftmouse=0

rightmouse=1

PlayerX = PlayerX + 3

endif

if mouseclick() = 2 and leftmouse=0

rightmouse=0

leftmouse=1

PlayerX = PlayerX + 3

endif

If PlayerX>565 then goto Win

return

racers:

ink rgb(255,0,0),rgb(0,0,0)

Circle Racer1X, 150, 10

if rnd(Chance1)=1 then Racer1X=Racer1X+1

ink rgb(0,255,0),rgb(0,0,0)

Circle Racer2X, 250, 10

if rnd(Chance2)=1 then Racer2X=Racer2X+1

ink rgb(0,0,255),rgb(0,0,0)

Circle Racer3X, 350, 10

if rnd(Chance3)=1 then Racer3X=Racer3X+1

ink rgb(0,255,255),rgb(0,0,0)

Circle Racer4X, 450, 10

if rnd(Chance4)=1 then Racer4X=Racer4X+1

If Racer1X>565 or Racer2X>565 or Racer3X>565 or Racer4X>565

goto loose

endif

return

Win:

sync off

Racer1X=5

Racer2X=5

Racer3X=5

Racer4X=5

playerX=5

ink rgb(255,255,255),rgb(0,0,0)

center text screen width()/2,screen height()/2,"Congradulations, You Win!"

center text screen width()/2,screen height()/2+15,"Your time was:"+str$(time)a

center text screen width()/2,screen height()/2+30,"Press R to race again. Press Q to quit"

if keystate(16)=1

delete image trackbmp

delete image track

end

endif

if keystate(19)=1 then goto Start

loop

loose:

sync off

Racer1X=0

Racer2X=0

Racer3X=0

Racer4X=0

playerX=0

ink rgb(255,255,255),rgb(0,0,0)

center text screen width()/2,screen height()/2,"Sorry, You Loose."

center text screen width()/2,screen height()/2+15,"Press R to race again. Press Q to quit"

if keystate(16)=1

delete image trackbmp

delete image track

end

endif

if keystate(19)=1 then goto Start

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Click Race

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Madscientist
CodeBase Entries:	2