TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Sprite

Version: 1.0

Information

Uploaded: 15th Nov 2003 14:30

Modified: 15th Nov 2003 15:39

Author: Easily Confused

Summary

A Simple Survival Game. How long can you survive?

Full Description

I made this ages ago, not long after I got DBPro in fact, I was experimenting with sprites at the time when I came up with this. Even though I've made a couple of updates I was in two minds whether or not to post this in the CodeBase, but here it is anyway :) It's a silly little game really, the idea is simple though, prevent the red circle in the middle from being hit by the small white circles by deflecting them with the yellow circle (mouse controled). You start off with an allowed number of hits, but when they reach zero the game is over, also there are 5 levels (1 fast - 5 slow). It's a question of how long you can survive.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Bouncers

` god knows when I made this, must have been in

` the first couple weeks of owning DBPro

sync on : sync rate 50

randomize timer()

` --- setup ---

for r = 64 to 32 step - 1

c = 255 - r*2

ink rgb(c,c,c),0 : CircleFill(63,63,r,r)

next r

for r = 32 to 16 step - 1

c = 255 - r*4

ink rgb(c,c,c),0 : CircleFill(31,231,r,r)

next r

for r = 12 to 6 step - 1

c = 255 - r*6

ink rgb(c,c,c),0 : CircleFill(11,311,r,r)

next r

get image 1,0,0,127,127,1

get image 2,0,200,63,263,1

get image 3,0,300,23,323,1

cls

draw sprites first

sprite 1,320,240,1 : offset sprite 1,64,64 : set sprite diffuse 1,255,0,0

sprite 2,0,0,2     : offset sprite 2,32,32 : set sprite diffuse 2,255,200,0

set text font "comic sans ms" : set text size 16

dim h(23) : ` sprite hit monitor array

global hits : global bouncer : global tim : global starttime : global level

sync

NewGame()

` --- main loop ---

mx# = mousex() : my# = mousey()

ang# = atanfull(mx#-320.0,my#-240.0)

sprite 2,sin(ang#)*120 + 320, cos(ang#)*120 + 240,2

for b = 3 to bouncer

` --- update bouncers ---

move sprite b,4

KeepSpriteOnScreen(b)

` check bouncer against center circle

d# = GetSprDist(1,b,-76)

if d# <= 0 and h(b) <> 1

rotate sprite b,Reflect(GetAngle(1,b),sprite angle(b))

` flash large circle

set sprite diffuse 1,255,200,200

` loose a hit

dec hits,1

` set sprite hit monitor to 1, this says:

` we don't want to hit it again until after we've hit something else

` otherwise the bouncer will appear to "stick" to the center circle

h(b) = 1

endif

` check bouncer against mouse circle

d# = GetSprDist(2,b,-42)

if d# <= 0 and h(b) <> 2

rotate sprite b,Reflect(GetAngle(2,b),sprite angle(b))

` flash mouse circle

set sprite diffuse 2,255,255,220

` set sprite hit monitor to 2, this says:

` we don't want to hit it again until after we've hit something else

` otherwise the bouncer will appear to "stick" to the mouse circle

h(b) = 2

endif

next b

` if either center or mouse circle have flashed then return their color to normal

if sprite green(1) > 0 then set sprite diffuse 1, 255, sprite green(1)-5, sprite blue(1)-5

if sprite green(2) > 200 then set sprite diffuse 2, 255, sprite green(2)-5, sprite blue(2)-20

` add 1 bouncer every 10 secs

if bouncer < 23

if (timer() - tim) >= (level*2000)

inc bouncer,1

show sprite bouncer

tim = timer()

endif

` show current status

gametime = (timer() - starttime)/1000

center text 320,0,"Game Time : " + str$(gametime) + " secs"

center text 320,16,"Bouncers : "+ str$(bouncer - 2)

center text 320,32,"Hits Left : "+ str$(hits)

if hits = 0

GameOver(gametime,bouncer-2)

NewGame()

endif

sync

loop

function NewGame()

set text size 32

ShadowText(320,100,"Select a level (1 - 5)",rgb(255,255,0))

set text size 16

for i = 1 to 5

ShadowText(320,132+(i*16),str$(i) + ") New bouncer appears every " + str$(i*2) + " seconds",rgb(255,255,255))

next i

sync

repeat

level = val(inkey$())

until (level >= 1) and (level <= 5)

repeat : until scancode() = 0

for s = 3 to 23

ang# = rnd(360)

sprite s,sin(ang#)*200+320,cos(ang#)*200+240,3

offset sprite s,12,12

rotate sprite s,180-ang#

if s > 3 then hide sprite s

hits = 25

bouncer = 3

tim = timer()

starttime = tim

endfunction

function GameOver(gt,b)

set text size 32

ShadowText(320,200,"<<<< GAME OVER >>>>>",rgb(255,255,0))

set text size 24

ink rgb(255,255,255),0

ShadowText(320,232,"You lasted " + str$(gt) + " seconds with " + str$(b) + " bouncers.",rgb(255,255,255))

ShadowText(320,256,"Click left to play again or click right to quit.",rgb(255,255,255))

sync

repeat

if mouseclick() = 2 then end

until mouseclick() = 1

endfunction

function GetAngle(spr1,spr2)

cx# = sprite x(spr1) : cy# = sprite y(spr1)

x# = sprite x(spr2) : y# = sprite y(spr2)

ang# = 180 + atanfull(cx#-x#,y#-cy#)

endfunction ang#

function Reflect(ContactAng#,EntryAng#)

rem --- ContactAng# = angle of contact on edge of an area

rem --- EntryAng# = angle of entry of object hitting area

ta# = ContactAng# - 90.0

ang# = wrapvalue(ta# + (ta#-EntryAng#))

endfunction ang#

function CircleFill(xcenter,ycenter,xradius,yradius)

rem --- draws solid circles/ellipses

` find vertical ratio to help draw ellipses

xr# = xradius : yr# = yradius

vr# = yr# / xr#

r2 = xradius*xradius

for x = 1 to xradius

y = sqrt(r2 - (x*x)) * vr#

box xcenter - x, ycenter - y, xcenter + x, ycenter + y

next x

endfunction

function GetSprDist(spr1,spr2,offset)

dx = sprite x(spr1) - sprite x(spr2)

dy = sprite y(spr1) - sprite y(spr2)

dist# = sqrt((dx*dx) + (dy*dy)) + offset

endfunction dist#

function KeepSpriteOnScreen(spr)

x = sprite x(spr) : y = sprite y(spr)

if (x < -24) or (x > 664) or (y < -24) or (y > 504)

sprite spr, LoopAround(x,-24,664), LoopAround(y,-24,504), sprite image(spr)

` looping back onto the screen means we can hit either center

` or mouse circles so sprite hit monitor is set to zero

h(spr) = 0

endif

endfunction

function LoopAround(v,min,max)

if v < min then inc v,(max - min)

if v > max then dec v,(max - min)

endfunction v

function ShadowText(x,y,t$,col)

ink 0,0 : center text x+2,y+2,t$

ink col,0 : center text x,y,t$

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Bouncers

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Easily Confused
CodeBase Entries:	3