TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 10th Aug 2007 19:41

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

just a simple very small Mario kinda game i made you run jump and stand on blocks very simple

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

SET DISPLAY MODE 800, 600, 32

HIDE MOUSE

CLS

SYNC ON

SYNC RATE 30

`Load media

LOAD IMAGE "Graphics/character/small/right.bmp", 1

LOAD IMAGE "Graphics/character/small/run_right_1.bmp", 2

LOAD IMAGE "Graphics/character/small/run_right_2.bmp", 3

LOAD MUSIC "sub hunter.mid", 1

LOAD IMAGE "graphics/blocks/1.bmp",4

LOAD IMAGE "graphics/blocks/1.bmp",5

X = 0

Y = 500

Running = 0

FacingRight = 1

Frame = 0

LevelWidth = 1600

ScreenStartX = 0

DIM ObjectX(200)

DIM ObjectY(200)

DIM ObjectImage(200)

TotalObjects = SetupObjects(LevelWidth)

LOOP MUSIC 1

Running = 0

`pressing right arrow

IF RIGHTKEY() = 1

`Running vs. walking

IF SHIFTKEY() = 1

X = X + 5

ELSE

X = X + 20

ENDIF

IF CONTROLKEY() = 1

X = X + 30

ELSE

X = X + 20

ENDIF

IF FacingRight = 0

MIRROR SPRITE 1

FacingRight = 1

ENDIF

Running = 1

ENDIF

`Pressing left arrow

IF LEFTKEY() = 1

`Running vs. walking

IF SHIFTKEY() = 1

X = X - 5

ELSE

X = X - 20

ENDIF

IF CONTROLKEY() = 1

X = X - 30

ELSE

X = X - 20

ENDIF

IF facingright = 1

MIRROR sprite 1

facingright = 0

ENDIF

Running = 1

ENDIF

`Jumping if spaced pressed

IF SPACEKEY() = 1 AND SpacePressed = 0 AND Jumping <10

Jumping = Jumping + 1

JumpY = -25

SpacePressed = 1

ENDIF

IF SPACEKEY() = 0 THEN SpacePressed = 0

`determine which image to show

IF Running = 1

ImageNum = 2 + (Frame/2)

Frame = Frame + 1

IF frame > 3 THEN Frame = 0

ELSE

ImageNum = 1

ENDIF

If Judmping > 0 THEN ImageNum=4

IF Jumping > 0

Y = Y  + JumpY

JumpY = JumpY + 1

ENDIF

IF JumpY > 0

NewY = BlockCollision(TotalObjects, X, Y, ImageNum)

IF NewY <> Y

Y = NewY

Jumping = 0

JumpY = 0

ENDIF

ELSE

IF Jumping = 0

NewY = BlockCollision(TotalObjects, X, Y + 2, ImageNum)

IF NewY <> Y

Jumping = 2

JumpY = 1

ENDIF

CLS

`Character boundry check

IF X < 0 THEN X =0

IF X > LevelWidth - 64 THEN X = LevelWidth - 64

IF X < SCREEN WIDTH() / 2

ScreenStartX = 0

ELSE

IF X > LevelWidth - (SCREEN WIDTH() / 2)

ScreenStartX = LevelWidth - SCREEN WIDTH()

ELSE

ScreenStartX = X - (SCREEN WIDTH() / 2)

ENDIF

CLS

DrawObjects(TotalObjects, ScreenStartX)

SPRITE 1, X-ScreenStartX , Y, ImageNum

SYNC

LOOP

FUNCTION SetupObjects(LevelWidth)

Count = 1

FOR x = 0 To LevelWidth Step 64

ObjectX(Count) = x

ObjectY(Count) = 536

ObjectImage(Count) = 5

Count = Count + 1

NEXT x

ObjectX(Count) = 500

ObjectY(Count) = 200

ObjectImage(Count) = 5

ENDFUNCTION Count

FUNCTION DrawObjects(Total, ScreenStartX)

FOR i = 1 TO Total

PASTE IMAGE ObjectImage(i), ObjectX(i) - ScreenStartX, ObjectY(i), 1

NEXT i

ENDFUNCTION

FUNCTION BlockCollision(Total, X, Y, ImageNum)

NewY = Y

SPRITE 2, X, Y, ImageNum

FOR i = 1 TO Total

SPRITE 3, ObjectX(i), ObjectY(i), ObjectImage(i)

IF SPRITE COLLISION(2, 3)

NewY = ObjectY(i) - SPRITE HEIGHT(2)

ENDIF

NEXT i

DELETE SPRITE 2

DELETE SPRITE 3

ENDFUNCTION NewY

Download

Please login to download

Comments

No comments yet.

CodeBase - Maryioz

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1