TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 2nd Jan 2005 18:51

Modified: 2nd Jan 2005 18:51

Author: Trek

Summary

A Text Based Arcade Racer Game.

Full Description

This was my second program ever made with DarkBASIC but it still has some helpful math and text examples for text based games and even 3D games. You need to download the Arcade Racer.zip file for the sounds but this game is run with absolutely no graphics. This is entirely free and I dont need any credit if you use some portion of the code in your future program.<br />

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Remstart

..............................

.       Arcade Racer         .

.        Produced by         .

.       Trek Software        .

.  Written by DavidD3 2004   .

..............................

Remend

hide mouse

Rem Load media

Load music "Keepgoin.mid",1

Load sound "engine.wav",1

loop sound 1

load sound "carstart.wav",2

load sound "brakes.wav",3

load sound "car.wav",4

load sound "win.wav",5

load sound "shotgun.wav",6

load sound "pop.wav",7

load sound "explode.wav",8

load music "Inspire.mid",2

load bitmap "Trek.bmp",1

create bitmap 2,Bitmap width(1),bitmap height(1)

set current bitmap 0

fade=1

change=1

sync on

for n=1 to 195

cls

fade=fade+change

if fade>98 then change=-1

copy bitmap 1,2

fade bitmap 2,fade

copy bitmap 2,0

sync

next n

cls

wait 1000

Set text font "Impact"

Set text size 55

Text 190,200,"Presents..."

wait 1000

cls

wait 500

wait 1000

Set text font "Impact"

Set text size 65

Text 180,200,"Arcade Racer"

play sound 2

wait 2000

play sound 3

cls

delete sound 1

Rem Set top of program

top:

Rem Menu

set cursor 170,150

Input "Would you like music? (y or n) ";music$

if music$="y"

set cursor 140,130

endif

if music$="y" then loop music 1

play sound 7

set cursor 150,190

Input "Would you like a dice window to popup? (y or n) ";dice$

play sound 7

Rem Flip coin to see who goes first

set text font "Verdana"

set text size 25

set cursor 130,230

Print "I will now flip a coin to see who goes first"

set cursor 130,260

winner=2

Input "Player 1...would you like heads or tails? (h or t) ";headstails$

play sound 7

if headstails$="h" then gosub heads

if headstails$="t" then gosub tails

wait 1000

cls

Rem Define variables  and setup screen

player1$="/"

line$="_________________________________________________________________________"

x=265

y=20

yii=400

yi=400

set cursor 5,250

color=RGB(255,0,0)

INK color, 0

print player1$

set cursor 5,200

color=RGB(0,0,255)

INK color, 0

print player1$

set cursor 5,205

color=RGB(255,255,255)

INK color, 0

print line$

set cursor 5,255

print line$

place=5

place2=5

set cursor 235,440

print "Press spacebar to roll."

Rem Begin Loop

Rem If spacebar is pressed activate turn.

if spacekey()=1

play sound 4

cls

dice=rnd(5)+1

set cursor 1,1

print dice

wait 100

Rem Decide whose turn it is.

turn=turn+1

if turn=3 then turn=1

turnprint=turn-1

if turnprint=0 then turnprint=2

if turn=1 then gosub player1

if turn=2 then gosub player2

set cursor 250,1

print "It's your turn player ";turnprint

endif

loop

Rem Controls player 1

player1:

Rem Decide whether to popup dice window or not

if dice$="y" then cls rgb(25,25,25) : x=265 : y=255

set text font "Verdana"

set text size 35

color=RGB(255,255,255)

INK color, 0

set cursor x,y : print "You rolled a ";dice

if dice$="y" then wait 1000 : cls rgb(0,0,0)

Rem Setup screen

set cursor 235,440

print "Press spacebar to roll."

set cursor 5,205

color=RGB(255,255,255)

INK color, 0

print line$

set cursor 5,255

print line$

Rem Activate movement and detect for winner

place=place+dice*10

set cursor place,200

if place>570 then stop music 1 : wait 1000 : goto you_win

color=RGB(0,0,255)

INK color, 0

print player1$

set cursor place2,250

color=RGB(255,0,0)

INK color, 0

print player1$

set cursor 180,400

Rem As player 1 if he would like to shoot player 2 if in range.

if place=place2

print "Player 1 and player 2 are neck-and-neck!!"

set cursor  180,425

Input "Would you like to shoot player 2? (y or n) ";shoot$

if shoot$="y" then place2=place2-30 : yii=360 : gosub explode

endif

Rem Detect how far ahead/behind player 2 is

set cursor 180,yii

if place>place2 then print "Player 1 is ahead of player 2 by ";(place-place2)/10;" spaces"

if place<place2 then print "Player 2 is ahead of player 1 by ";(place2-place)/10;" spaces"

return

Rem Controls player 2

player2:

Rem Same remarks as player 1

if dice$="y" then cls rgb(25,25,25) : x=265 : y=255

set text font "Verdana"

set text size 35

color=RGB(255,255,255)

INK color, 0

set cursor x,y : print "You rolled a ";dice

if dice$="y" then wait 1000 : cls rgb(0,0,0)

set cursor 235,440

print "Press spacebar to roll."

set cursor 5,205

color=RGB(255,255,255)

INK color, 0

print line$

set cursor 5,255

print line$

place2=place2+dice*10

set cursor place2,255

if place2>570 then stop music 1 : wait 1000 : goto you_win2

color=RGB(255,0,0)

INK color, 0

print player1$

set cursor place,200

color=RGB(0,0,255)

INK color, 0

print player1$

set cursor 180,400

if place=place2

print "Player 1 and player 2 are neck-and-neck!!"

set cursor  180,425

Input "Would you like to shoot player 1? (y or n) ";shoot$

if shoot$="y" then place=place-30 : yi=360 : gosub explode

endif

set cursor 180,yi

if place>place2 then print "Player 1 is ahead of player 2 by ";(place-place2)/10;" spaces"

if place<place2 then print "Player 2 is ahead of player 1 by ";(place2-place)/10;" spaces"

return

Rem Displays player 2's winning screen

you_win2:

play sound 5

cls rgb(0,50,50)

set text font "Verdana"

set text size 35

color=RGB(255,0,0)

INK color, 0

text 180,220,"YOU WIN PLAYER 2!!"

wait 2000

cls

set cursor 200,200

input "Play again? (y or n) ";again$

if again$="y"

cls

goto top

else

goto theend

endif

Rem Displays player 1's winning screen

you_win:

play sound 5

cls rgb(0,50,50)

set text font "Verdana"

set text size 35

color=RGB(0,0,255)

INK color, 0

text 180,220,"YOU WIN PLAYER 1!!"

wait 2000

cls

set cursor 200,200

input "Play again? (y or n) ";again$

if again$="y"

cls

goto top

else

goto theend

endif

Rem Decides who goes first if choice was heads

heads:

randomize timer()

picker=rnd(1)+1

if picker=1

turn=0

print "Heads...player 1 goes first."

endif

if picker=2

print "Tails...player 2 goes first."

turn=1

endif

return

Rem Decides who goes first if choice was tails

tails:

randomize timer()

picker=rnd(1)+1

if picker=2

turn=0

print "Tails...player 1 goes first."

else

print "Heads...player 2 goes first."

turn=1

endif

return

Rem Ending Credits

theend:

plaze=50

syze=100

For n=1 to 10

syze=syze-5

plaze=plaze+5

Set text font "Impact"

set text size syze

color=RGB(0,255,0)

INK color, 0

text plaze,230,"A Trek Software Production"

wait 100

cls

next n

play sound 8

play music 2

text plaze,230,"A Trek Software Production"

wait 1000

plaze=50

syze=100

For n=1 to 10

syze=syze-5

plaze=plaze+5

Set text font "Impact"

set text size syze

color=RGB(0,255,0)

INK color, 0

text plaze,230,"Created by DavidD3 on 7-20-04"

wait 100

cls

next n

play sound 8

text plaze,230,"Created by DavidD3 on 7-20-04"

wait 2000

plaze=50

syze=100

For n=1 to 10

syze=syze-5

plaze=plaze+5

Set text font "Impact"

set text size syze

color=RGB(0,255,0)

INK color, 0

text plaze,230,"Press any key to exit"

wait 100

cls

next n

play sound 8

text plaze,230,"Press any key to exit"

wait key

end

Rem Chucks the shot player back 3 spaces.

explode:

cls

set cursor place2,255

color=RGB(255,0,0)

INK color, 0

print player1$

set cursor place,200

color=RGB(0,0,255)

INK color, 0

print player1$

set cursor 5,205

color=RGB(255,255,255)

INK color, 0

print line$

set cursor 5,255

print line$

set cursor 235,440

print "Press spacebar to roll."

play sound 6

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Arcade Racer

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Trek
CodeBase Entries:	19