TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 30th Apr 2005 01:18

Modified: 3rd May 2005 10:51

Author: Scimitar Products

Summary

A short, slighty organized game. Basic concept, get points.

Full Description

A short game. Get points. Complete levels. Avoid the...Triangle of Doom...? RAA Walk.bmp is copyright Scimitar Products.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

print "RAA SPRITE IS COPYRIGHT SCIMITAR PRODUCTS"

`Load

print "loading..."

print "1"

load bitmap "RAA Test.bmp",1

get image 1,0,0,70,100

print "2"

load music "Pinnacle.mid",7

load bitmap "RAA Test.bmp",2

mirror bitmap 2

get image 2,71,0,129,117

print "3"

load music "Torrent.mid",8

load bitmap "RAA Test.bmp",3

get image 3,71,0,129,117

print "4"

load bitmap "RAA Test.bmp",4

mirror bitmap 4

get image 4,0,0,70,100

print "5"

load bitmap "ash01.bmp",5

get image 5,0,0,10,100

print "6"

load bitmap "Sprite01.bmp",6

get image 6,0,0,139,131

delete bitmap 1

delete bitmap 2

delete bitmap 3

delete bitmap 4

delete bitmap 5

delete bitmap 6

cls

`Title

print "Collision"

wait 1000

print "Scimitar Products 2005"

wait 200

cls

`Controls

begin:

hide all sprites

print "Select control: [mouse] [key]"

input "";control$

print "Difficulty? [easy] [med] [hard]"

input "";speed$

if control$="key"

print "The Object of the game is to make your guy touch the...er...thing and get the highest score."

wait 1000

print "left arrow=left, right arrow=right, up arrow=up, enter=shoot, space=pause"

wait 1000

print "Use your shots to push and pull enemys."

wait 1000

print "Don't run outa fuel!"

wait 500

print "Or let that other...thingy...touch you...?"

wait 500

print "Press any key to continue"

suspend for key

endif

if control$="mouse"

print "The Object of the game is to make your guy touch the...er...thing and get the highest score."

wait 1000

print "move mouse to move, shift to shoot"

wait 500

print "Use your shots to push and pull enemys."

wait 1000

print "Don't let that other...thingy...touch you...?"

wait 500

print "Press any key to continue"

suspend for key

endif

cls

`Game

if speed$="easy" then sync rate 15

if speed$="med" then sync rate 30

if speed$="hard" then sync rate 60

level#=0

m#=0

s#=0

level:

show all sprites

fuel#=100

x#=30

y#=380

shot#=100

y2#=100

level#=level#+1

s#=s#+1000

x1=20

y1=20

if control$="mouse" then gosub charactermouse

if control$="key" then gosub characterkey

gosub target

gosub enemy

gosub mis

sync

loop

`Pause

pause:

print "Press Spacebar to Continue."

print "Score=";score#

print "Fuel=";fuel#

print "Shots=";shot#

repeat

until spacekey()=1

cls

return

`Enemy

enemy:

sprite 3,x1,y1,6

if x1 > x# then dec x1,5

if x1 < x# then inc x1,5

if y1 > y# then dec y1,5

if y1 < y# then inc y1,5

if sprite collision(3,1) then goto begin

return

`Target

target:

sprite 2,x2#,y2#,5

if sprite collision(1,2)=1 then score#=score#+1

if x2#<0 then a=1

if x2#=0 then a=1

if x2#>600 then a=2

if x2#=600 then a=2

if a=1 then x2#=x2#+RND(20) : y2#=y2#+5

if a=2 then x2#=x2#-RND(20) : y2#=y2#-5

return

`Character

charactermouse:

sprite 1,x#,y#,t#

x=mousex()

y=mousey()

if x > x# then inc x#,10 : t#=1

if x < x# then dec x#,10 : t#=2

if y > y# then inc y#,10

if y < y# then dec y#,10

shot#=shot#+0.1

if spacekey()=1 then gosub pause

if shiftkey()=1 and t#=4 and shot#>0 then x1=x1-50 : shot#=shot#-1

if shiftkey()=1 and t#=3 and shot#>0 then x1=x1+50 : shot#=shot#-1

if shiftkey()=1 and t#=2 and shot#>0 then x1=x1-50 : shot#=shot#-1

if shiftkey()=1 and t#=1 and shot#>0 then x1=x1+50 : shot#=shot#-1

return

characterkey:

sprite 1,x#,y#,t#

if rightkey()=1 then x#=x#+10 : t#=1

if leftkey()=1 then x#=x#-10 : t#=2

if upkey()=1 and t#<3 then t#=t#+2 : y#=y#-10 : fuel#=fuel#-1

if upkey()=1 then y#=y#-10 : fuel#=fuel#-1

if y#<380 then y#=y#+5

if y#>379 and t#>2 then t#=t#-2

fuel#=fuel#+0.5

shot#=shot#+0.1

if fuel#<15 then y#=y#+6

if fuel#<1 then end

if 380<y# then y#=y#-5

if spacekey()=1 then gosub pause

if shiftkey()=1 and t#=4 and shot#>0 then x1=x1-50 : shot#=shot#-1

if shiftkey()=1 and t#=3 and shot#>0 then x1=x1+50 : shot#=shot#-1

if shiftkey()=1 and t#=2 and shot#>0 then x1=x1-50 : shot#=shot#-1

if shiftkey()=1 and t#=1 and shot#>0 then x1=x1+50 : shot#=shot#-1

return

mis:

if s#<score#

hide all sprites

print "Level:";level#;" Score:";score#

wait 1000

cls

score#=0

enemy#=enemy#+1

goto level

endif

if music playing(8)=0 and m#=0 then play music 7 : m#=1

if music playing(7)=0 and m#=1 then play music 8 : m#=0

if controlkey()=1

print "Are you sure? y/n"

input "";a$

endif

if a$="y" then end

if a$="n" then cls

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Collision

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Scimitar Products
CodeBase Entries:	10