TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 22nd Nov 2010 11:02

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

split screen split screen

Full Description

split screen split screen split screen split screen split screen

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: S H!

REM Created: 12/19/2009 12:14:36 PM

REM

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

REM

print "type in your name player one."

input "  name?",player1name$

print "type in your name player 2."

input "name? ",player2name$

if player1name$ = "debug"

no#=1

else

no#=0

endif

sync on

sync rate 30

make object box 100,100,100,100

delete object 100

sw#=screen width()

sh#=screen height()

sw2#=sw# / 2

sh2#=sh# / 2

repeat

center text SW2#,SH2#,"my game! hit spacekey to start!"

worldx#=rnd(3000)

worldz#=rnd(3000)

type#=rnd(3)

red#=rnd(250)

blue#=rnd(250)

green#=rnd(250)

if shiftkey()=1

endif

sync

until spacekey()=1

center text SW2#,SH2#,"loading! :P"

sync

rem set up vereables

p1move#=1

spherecount#=100

win#=9

newwin#=0

rem debug

debug=1

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

rem set up camera

make camera 2

sw#=screen width()

sh#=screen height()

sw2#=sw# / 2

sh2#=sh# / 2

set camera view 2,0,0,sw#,sh2#

set camera view 0,0,sh2#,sw#,sh#

position camera 0,0,210,0

position camera 2,0,200,0

turn camera left 2,180

turn camera left 0,180

rem make lighting

set ambient light 0

color light 0,rgb(10,10,10)

hide light 0

make light 1

set spot light 1,50,50

color light 1,rgb(250,250,250)

set light range 1,2000

point light 1,0,0,0

make light 2

set spot light 2,50,50

color light 2,rgb(250,250,250)

set light range 2,2000

point light 2,0,0,0

color backdrop 0

color backdrop  2,0

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

rem make world

make object box 88,3000,1,3000

if no#=0

number#=6

worldx=0

worldz=0

type#=0

red#=0

blue#=0

green#=0

repeat

rem set up random numbers

worldx#=rnd(3000)

worldz#=rnd(3000)

type#=rnd(3)

if type#=0 then type#=1

red#=rnd(250)

blue#=rnd(250)

green#=rnd(250)

rem make object

if type#=1

make object box number#,red#,300,green#

color object number#,rgb(red#,green#,blue#)

position object number#,worldx#,50,worldz#

rotate object number#,0,blue#,0

endif

if type#=2

make object cone number#,300

color object number#,rgb(red#,green#,blue#)

position object number#,worldx#,50,worldz#

endif

if type#=3

make object cylinder number#,300

color object number#,rgb(red#,green#,blue#)

position object number#,worldx#,50,worldz#

endif

number#=number# + 1

until number#=50

endif

rem make sphere

make object box 100,100,200,100

color object 100,rgb(red#,green#,blue#)

set object collision on 100

SET OBJECT COLLISION TO BOXES 100

worldx=0

worldz=0

position object 100,worldx#,0,worldz#

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

rem load players

make object box 2,100,300,100

color object 2,rgb(250,0,0)

rotate object 2,0,180,0

fix object pivot 2

position object 2,1500,0,1500

position camera 2,1500,100,1500

SET OBJECT COLLISION TO BOXES 2

make object box 3,100,300,100

rotate object 3,0,180,0

fix object pivot 3

color object 3,rgb(250,0,0)

position object 3,1500,0,1500

position camera 0,1500,100,1500

SET OBJECT COLLISION TO BOXES 3

rem start loop

set cursor 0,0

rem select number for leave play.

leavesound#=rnd(3)

if leavesound#=0 then leavesound#=2

rem control player 1

if keystate(31)>0 and p1move#=1

move object 3,-5

move camera 0,-5

p1play#=1

endif

if keystate(17)>0 and p1move#=1

move object 3,5

move camera 0,5

p1play#=1

endif

if keystate(30)>0 then angle1#=wrapvalue(angle1#-10)

if KEYSTATE(32)>0 then angle1#=wrapvalue(angle1#+10)

rotate object 3,0,angle1#,0

rotate camera 0,0,angle1#,0

rem control player 2

if upkey()=1

move object 2,5

move camera 2,5

p2play#=1

endif

if downkey()=1

move object 2,-5

move camera 2,-5

p2play#=1

endif

if leftkey()=1 then angle2#=wrapvalue(angle2#-10)

if rightkey()=1 then angle2#=wrapvalue(angle2#+10)

rotate object 2,0,angle2#,0

rotate camera 2,0,angle2#,0

rem handle lights

color light 1,rgb(250,250,250)

p1lx=object position x(3)

p1lz=object position z(3)

position light 1,p1lx,200,p1lz

lightangle1#=wrapvalue(angle1#+360)

rotate light 1,0,lightangle1#,0

rem handle light 2

p1lx=object position x(2)

p1lz=object position z(2)

position light 2,p1lx,200,p1lz

lightangle2#=wrapvalue(angle2#+360)

rotate light 2,0,lightangle2#,0

rem keep players in game!

if object position x(3) > 3000

position object 3,1500,0,1500

position camera 0,1500,100,1500

stay1#=60

endif

if object position z(3) > 3000

position object 3,1500,0,1500

position camera 0,1500,100,1500

stay1#=60

endif

if object position x(3) < 0

position object 3,1500,0,1500

position camera 0,1500,100,1500

stay1#=60

endif

if object position z(3) < 0

position object 3,1500,0,1500

position camera 0,1500,100,1500

stay1#=60

endif

rem keep player 2 in the game

if object position x(2) > 3000

position object 2,1500,0,1500

position camera 2,1500,100,1500

stay2#=60

endif

if object position z(2) > 3000

position object 2,1500,0,1500

position camera 2,1500,100,1500

stay2#=60

endif

if object position x(2) < 0

position object 2,1500,0,1500

position camera 2,1500,100,1500

stay2#=60

endif

if object position z(2) < 0

position object 2,1500,0,1500

position camera 2,1500,100,1500

stay2#=60

endif

rem print stay text

if stay2# > 0

center text 300,150,"stay in the play zone!"

stay2#=stay2# - 1

endif

if stay1# > 0

center text 300,350,"stay in the play zone!"

stay1#=stay1# - 1

endif

rem handle sphere

if spherecount#=0

spherex#=rnd(3000)

spherez#=rnd(3000)

spherecount#=600

endif

move object 100,0.1

point object 100,spherex#,0,spherez#

spherecount#=spherecount# - 1

rem detect for win

if object hit(2,100) and spacekey()=1

win#=1

endif

if object hit(3,100) and shiftkey()=1

win#=2

endif

if win#=1 and newwin#=0

gosub winner

endif

if win#=2 and newwin#=0

gosub winner

endif

print " "

if win#=1

print " ",player1name$," kicked ",player2name$,"'s butt. you suck "

print   " ",player2name$,". now go home and cry like a baby."

center text sw2#,sh2#,"hit esc to exit."

endif

if win#=2

print " ",player2name$," kicked ",player1name$,"'s butt. you suck "

print  " ",player1name$,". your mom must hate you. I do."

center text sw2#,sh2#,"hit esc to exit."

endif

rem end loop

sync

loop

rem end game

winner:

number#=6

repeat

if object exist(number#)

delete object number#

endif

number#=number# + 1

until number#=50

set ambient light 100

color backdrop 0,rgb(0,0,250)

color backdrop 2,rgb(0,0,250)

newwin#=1

return

Download

Please login to download

Comments

No comments yet.

CodeBase - splitscreen

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1