TheGameCreators - CodeBase - Ultimate Body Blows type Menu

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 18th Dec 2006 13:56

Modified: 1st Jan 1970 01:00

Author: Darth Sidious 666

Summary

A menu similar to that found in Ultimate Body Blows

Full Description

This is a menu that I'm creating for my game, however there are a few problems that i'm having like getting it to move onto the actual game. some media is included but the title is copyrighted as I am intending to use this in a game. If anyone can help me with the problems, please email me at: craig.robinson87@ntlworld.com Thanks. You'll get a mention in the credits OK? :)

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: Chronicles_TSC_1_Menu

Rem Created: 17/12/2006 13:28:06

Rem ***** Main Source File *****

sync on :autocam off :backdrop off :hide light 0 :hide mouse

set display mode 800,600,16,0

gosub createMenu

if menuOption = 1

gosub newGame

else if menuOption = 2

gosub loadGame

else if menuOption = 3

gosub multiplayerGame

else if menuOption = 4

gosub gameOptions

endif

newGame:

for spriteNo = 1 to 12

delete sprite spriteNo

next spriteNo

flush video memory

loadGame:

multiplayerGame:

gameOptions:

loop

createMenu:

`load images for menu

load image "media\Chronicles.tga",1

load image "media\The ShadowFleet Crisis.tga",2

load image "media\newGame.png",3

load image "media\loadGame.png",4

load image "media\multiPlayer.png",5

load image "media\options.png",6

load image "media\exit.png",7

load image "media\newGame_1.png",8

load image "media\loadGame_1.png",9

load image "media\multiPlayer_1.png",10

load image "media\options_1.png",11

load image "media\exit_1.png",12

load image "media\mouseCursor.png",99

starquantity = 400

starlayers = 10

speedfactor# = 0.50

`  Here we'll setup our starfield type

type starfield

X as float

Y as float

Z as integer

speed as float

color as dword

endtype

`  Now let's create some stars

dim stars(starquantity) as starfield

`  We need to give each star a location, colour and depth

for s=0 to starquantity

stars(s).x = rnd(800)

stars(s).y = rnd(600)

stars(s).z = int(s/(starquantity/starlayers))+1

stars(s).speed = stars(s).z * speedfactor#

temp_col = (255/starlayers) * stars(s).z

stars(s).color = rgb(temp_col, temp_col, temp_col)

set sprite 1,0,1

`  Now our main loop!

while menuOption = 0

cls 0

for s=0 to starquantity

sx# = stars(s).x

dot sx#, stars(s).y, stars(s).color

sx# = sx# - stars(s).speed

if sx# < 0 then sx# = 800

stars(s).x = sx#

sprite 99,mousex(),mousey(),99

set sprite priority 99,1

scale sprite 99,50

sprite 1,100,50,1

sprite 2,100,110,2

sprite 3,250,200,3

sprite 4,250,250,4

sprite 5,250,300,5

sprite 6,250,350,6

sprite 7,250,400,7

sprite 8,250,200,8 :hide sprite 8

sprite 9,250,250,9 :hide sprite 9

sprite 10,250,300,10 :hide sprite 10

sprite 11,250,350,11 :hide sprite 11

sprite 12,250,400,12 :hide sprite 12

if sprite collision(99,3) = 1

show sprite 8

if mouseclick() = 1 then menuOption = 1

else if sprite collision (99,4) = 1

show sprite 9

if mouseclick() = 1 then menuOption = 2

else if sprite collision (99,5) = 1

show sprite 10

if mouseclick() = 1 then menuOption = 3

else if sprite collision (99,6) = 1

show sprite 11

if mouseclick() = 1 then menuOption = 4

else if sprite collision (99,7)

show sprite 12

if mouseclick() = 1 then menuOption = 5

endif

sync

endwhile

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Darth Sidious 666
CodeBase Entries:	1

CodeBase - Ultimate Body Blows type Menu