TheGameCreators - CodeBase

Category: Complete Applications

Version: 1.0

Information

Uploaded: 30th Oct 2010 23:15

Modified: 30th Oct 2010 23:28

Author: dog bark

Summary

moveing objects, array ,collistion,functions, see how good you are mis the pads you loose your lives hit them and your score will go up left mouseclick to move cube up no click to fall A to move left ,D move right

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

global dim landingpad(10)                                 `array your 10 itumes

global landingpadspeed = 1            `landingpadspeed = speed =1,2,3,4,5,6,7,8,9, so on

global object as float

global gravity = 0                   `gravity = on off state so 0 = off ,1 = on

global rocket = 1                                         `object 1 = rocket

global plane = 2

global score = 0

global lives = 3                                           ` lives = 3

SYNC ON

SYNC RATE 60                                                 `set up

BACKDROP ON

AUTOCAM OFF

MAKE OBJECT BOX ROCKET,10,10,10                             `set up object

SET OBJECT COLLISION ON ROCKET

POSITION OBJECT rocket,0,200,50

POSITION CAMERA 0 , 0 ,90,-190                                `set up camera

ROTATE OBJECT 1,90,0,0                                        `object will move y up & down

MAKE OBJECT box plane,1000,1,1000                            ` set up object 2

COLOR OBJECT plane, RGB(85,85,85)

position object plane,0,0,0

`array set up

for x = 0 to 9                                               `create 10 spaces 0=1 so 9+0=10

MAKE OBJECT box x+3,10,2,10                                  `set up object 3

COLOR OBJECT x+3,RGB(rnd(255),rnd(255),rnd(255))               `random color

SET OBJECT COLLISION ON x+3                                     ` collistion set up on object

landingpad(x) = x+3                                                ` 0ne object in each space landingpad(x)=10

next x                                                              `x=

for x = 0 to 9

POSITION OBJECT landingpad(x),(250* x)-500,0,50                ` position your 10 objects

NEXT x

SET TEXT FONT "verdana"

SET TEXT SIZE 30

HIT = 0

HIT = COLLISTION_CHECK()

IF HIT = 2                                   `hit basic collistion

ROCKET_DEATH()

DEC LIVES

ENDIF

IF HIT = 1

SCORE = HIT_LANDINGPAD(landingpad,score)

inc score

POSITION OBJECT rocket, 0,200,50

if score = 10 then inc landingpadspeed `change speed when score gets to 10

if score = 15 then inc landingpadspeed `and again when score gets 15

if score = 20 then inc landingpadspeed `again when 20

ENDIF

IF LIVES = 0

CENTER TEXT 500,200,   " YOU LOOSE "                   `puts text on sreen when lives gets to 0

CENTER TEXT 500,250,  "PRESS ANY KEY TO REPLAY"

SYNC

WAIT KEY

LIVES = 3

ROCKET_DEATH()

endif

IF SCORE =-1                                               `stops score going below 0

SCORE =0

ENDIF

TEXT 50,20, "LIVES:"+STR$(LIVES) `position text on screen & shows text on screen "lives"

TEXT 850,20, "SCORE:"+STR$(SCORE) `position text on screen & shows text on screen "score"

move_rocket()

move_landingpad()

SYNC

LOOP

FUNCTION move_rocket()

MOVE OBJECT 1  , gravity `moves object 1, object will go to plane `down`

MOVE OBJECT LEFT 1,gravity` keeps object 1 moveing but move to the left

MOVE OBJECT right 1,gravity` and right with out move object left, right

`keystate (30)-(32) will not work object needs to be told to move befor keystate

IF mouseclick() =1  THEN gravity = -1 ` MOVES OBJECT UP

IF mouseclick() =0  THEN gravity = 1  `LETS OBJECT CARRY ON DOWN

IF KEYSTATE(30) = 1 THEN move object left 1,gravity ` a key move object left

IF KEYSTATE(32) = 1 THEN move object right 1,gravity ` d key move object right

ENDFUNCTION

FUNCTION move_landingpad()

for x = 0 to 9

position object landingpad(x), object position x(landingpad(x))+landingpadspeed , 15,50

next x

if object position x(9)> 1000

for x = 0 to 9

POSITION OBJECT landingpad(x), (200 * x)-1000,10,50

NEXT x

ENDIF

ENDFUNCTION

FUNCTION COLLISTION_CHECK()

FOR X = 0 TO 9

IF OBJECT COLLISION(rocket, landingpad(x)) = 1 THEN HIT = 1

next x

IF OBJECT COLLISION(rocket, plane) = 1 THEN HIT = 2

ENDFUNCTION HIT

FUNCTION ROCKET_DEATH()

POSITION OBJECT rocket,0,200,50

dec score

ENDFUNCTION

FUNCTION HIT_LANDINGPAD(landingpad,score)

if object collision(rocket,landingpad) = 1

inc score

endif

ENDFUNCTION score

Download

Please login to download

Comments

No comments yet.

Author Name:	dog bark
CodeBase Entries:	12

CodeBase - game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments