TheGameCreators - CodeBase - A Simple 2 Player Wireframe Game

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 3rd Jun 2005 08:11

Modified: 1st Jan 1970 01:00

Author: Nigel _Okgo

Summary

A Simple 2 Player Wireframe Game Works with the Code

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

rem michaelstephenrt@hotmail.com

randomize timer()

set display mode 640,480,16

sync rate 0

sync on

set emulation off

make matrix 1,3000,3000,20,20

set matrix 1,1,0,0,0,0,0,0

position matrix 1,0,0,0

set matrix 1,0,1,1,1,1,0,0

for t=0 to 19

for tt=0 to 19

if t=0 and tt=0 or t=20 and tt=0 then goto 2

set matrix height 1,t,tt,400

next tt

next t

for t=0 to 19

for tt=0 to 19

set matrix height 1,t,tt,0

after:

if t<3 or t>17 or tt<3 or tt>17 then goto 5

goto 4

set matrix height 1,t,tt,50+rnd(200)

next tt

next t

update matrix 1

set camera range 1,4000

make object sphere 10,75

make object sphere 1,100

make object sphere 2,100

start:

position object 10,1500,0,1500

rotate object 1,90,90,0

rotate object 2,90,90,0

position object 1,1500,0,1350

position object 2,1500,0,1800

position camera 1500,250,0

pitch camera down 12

rotate camera 0,0,0

color object 1,rgb(255,0,255)

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

color object 10,rgb(255,255,255)

sp=10

hide mouse

score1=0

score2=0

camgo=1

osz1=100:osz2=100:osz3=100

oszz1=100:oszz2=100:oszz3=100

m$="Welcome to ****Tronik Beany****    Controls are :- Player 1  :-  Arrow Keys    Player 2 :-  Numeric Keys"

scroll=688

bounce=0

hit=0

dim sx(100)

dim sy(100)

for t=1 to 100

sx(t)=rnd(640)

sy(t)=rnd(480)

next t

color backdrop rgb(0,0,196)

ink rgb(255,255,255),rgb(255,255,255)

for t=1 to 100

box sx(t),sy(t),sx(t)+1,sy(t)+1

next t

scale object 1,osz1,osz2,osz3

scale object 2,oszz1,oszz2,oszz3

draw to front

ink rgb(255,255,255),rgb(255,255,255)

set text font "westminster"

set text size 64

text 8,-8,str$(score2)

ink rgb(255,255,0),rgb(255,255,0)

text 9,-9,str$(score2)

ink rgb(0,255,255),rgb(0,255,255)

text 8,34,str$(score1)

ink rgb(255,0,255),rgb(255,0,255)

text 9,33,str$(score1)

ink rgb(0,0,255),rgb(0,0,255)

if scroll>-2500 then scroll=scroll-5

text scroll,158 ,m$

ink rgb(0,255,255),rgb(0,255,255)

text scroll+1,157,m$

s=x:d=z

ss=xx:dd=zz

x=object position x(1)

y=object position y(1)

z=object position z(1)

xx=object position x(2)

yy=object position y(2)

zz=object position z(2)

bx=object position x(10)

bz=object position z(10)

if camgo=1 then position camera x,y+1500,z-100

if camgo=2 then position camera xx,yy+1500,zz-100

rotate camera 90,0,0

if keystate(72)=1 then zz=zz+20:rotate object 2,90,90,0

if upkey()=1 then z=z+20:rotate object 1,90,90,0

if keystate(75)=1 then xx=xx-20:rotate object 2,0,0,90

if leftkey()=1 then x=x-20:rotate object 1,0,0,90

if keystate(77)=1 then xx=xx+20:rotate object 2,0,0,270

if rightkey()=1 then x=x+20:rotate object 1,0,0,270

if keystate(80)=1 then zz=zz-20:rotate object 2,0,270,90

if downkey()=1 then z=z-20:rotate object 1,0,270,90

if sp>0 then sp=sp-1

move object 10,sp

bxx=object position x(10)

byy=object position y(10)

bzz=object position z(10)

if rnd(250)=0 and bounce=0 then bounce=50

if bounce>0 then bounce=bounce-1

if bounce>25 then byy=byy+10

if bounce>0 and bounce<26 then byy=byy-20

if byy<0 then byy=0

if bounce=0 then byy=0

position object 10,bxx,byy,bzz

if object collision(1,10) then hit=1:gosub hit1

if object collision(2,10) then hit=2:gosub hit2

ok=0

if get ground height(1,bx,bz)>0 and hit=1 then ok=1:score1=score1+1:sp=0:position object 10,1500,0,1500:if rnd(2)=0 then position object 10,500+rnd(2000),0,500+rnd(2000)

if get ground height(1,bx,bz)>0 and hit=2 then ok=1:score2=score2+1:sp=0:position object 10,1500,0,1500:if rnd(2)=0 then position object 10,500+rnd(2000),0,500+rnd(2000)

position object 1,x,y,z

position object 2,xx,yy,zz

if get ground height(1,xx,zz)>0 then xx=ss:zz=dd:position object 2,xx,0,zz

if get ground height(1,x,z)>0 then x=s:z=d:position object 1,x,0,z

if score1>20 or score2>20 or inkey$()=chr$(13) then sync:goto start

sync

goto 1

hit1:

camgo=1

bx=object position x(10)

by=object position y(10)

bz=object position z(10)

if upkey()=1 then sp=40:point object 10,bx,by,bz+20:goto hitx

if downkey()=1 then sp=40:point object 10,bx,by,bz-20

hitx:

if leftkey()=1 then sp=40:point object 10,bx-20,by,bz:goto hitxx

if rightkey()=1 then sp=40:point object 10,bx+20,by,bz

hitxx:

if ok=1 and rnd(1)=0 then osz1=osz1+rnd(10)

if ok=1 and rnd(1)=0 then osz2=osz2+rnd(10)

if ok=1 and rnd(1)=0 then osz3=osz3+rnd(10)

return

hit2:

camgo=2

bx=object position x(10)

by=object position y(10)

bz=object position z(10)

if keystate(72)=1 then sp=40:point object 10,bx,by,bz+20:goto hitgox

if keystate(80)=1 then sp=40:point object 10,bx,by,bz-20

hitgox:

if keystate(75)=1 then sp=40:point object 10,bx-20,by,bz:goto hitgoxx

if keystate(77)=1 then sp=40:point object 10,bx+20,by,bz

hitgoxx:

if ok=1 and rnd(1)=0 then oszz1=oszz1+rnd(10)

if ok=1 and rnd(1)=0 then oszz2=oszz2+rnd(10)

if ok=1 and rnd(1)=0 then oszz3=oszz3+rnd(10)

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Nigel _Okgo
CodeBase Entries:	13

CodeBase - A Simple 2 Player Wireframe Game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments