TheGameCreators - CodeBase - Chuck Norris VS Star Wars

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 20th Jan 2006 17:10

Modified: 20th Jan 2006 17:52

Author: trouper

Summary

Be Chuck Norris as you round house kick Star Wars things.

Full Description

Use space bar and arrow keys < & >. Watch for Quick Time Events. This is like my second game ever. Wish I could have done a better job, still new to programming. It was made in Dark Basic Standard. Any questions/comments/complaints are welcome, exiguousmikey@msn.com. Oh Yeah! I am in no way affiliated with Chuck Norris or Star Wars/Lucas Arts in anyway.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Chuck Norris vs Star Wars``````Michael S.[exiguousmikey@msn.com]``````Jan. 2006

sync on : sync rate 60 : if check display mode(1024,768,32)=1 then set display mode 400,300,32

hide mouse

load music "texas ranger theme.mp3",1 : play music 1

load bitmap "start_screen.jpg",0 :  suspend for key : stop music 1

ink rgb(255,255,255),1 : print "Loading..."

REM ---INFO FOR PARTICLES---

rem Arrays for position, velocity and life of each particle

dim partx#(300)

dim party#(300)

dim partz#(300)

dim partxvel#(300)

dim partyvel#(300)

dim partzvel#(300)

dim partlife(300)

inten#=50

camz#=500

rem User prompt

dim max(1)

max(1)=99

rem Make the particle objects, starting from object 50

sync on

for t=1 to max(1) : make object plain (50+t),5,5 : next t

color backdrop 0

start:

rem random for backgrounds; rnd(4)+1 because bitmap 0 can't be used

randomize timer()

random = rnd(2)+1

t=timer()

score=0

x#=185

rem load media

load music "bgmusic.mid",2

load sound "hit.mp3",1

load sound "kick.mp3",2

load sound "flyby.mp3",3

load sound "explode.mp3",4

load sound "tie_flyby.mp3",5

load sound "saber.mp3",6

load bitmap "level2.jpg",1 : blur bitmap 1, 1.5

load bitmap "level3.jpg",2 : blur bitmap 2, 1.5

load bitmap "level4.jpg",3 : blur bitmap 3, 1.5

load bitmap "chuck.bmp",6 : get image 6,0,0,45,117 : delete bitmap 6

load bitmap "chuck.bmp",7 : mirror bitmap 7 : get image 7,0,0,45,117 : delete bitmap 7

load bitmap "chuck_attack.bmp",8 : get image 8,0,0,80,117 : delete bitmap 8

load bitmap "chuck_attack.bmp",9 : mirror bitmap 9 : get image 9,0,0,80,117 : delete bitmap 9

load bitmap "r2_left.bmp",10 : get image 10,0,0,60,75 : delete bitmap 10

load bitmap "r2_right.bmp",11 : get image 11,0,0,65,75 : delete bitmap 11

load bitmap "xwing.bmp",12 : get image 12,0,0,150,100 : delete bitmap 12

load bitmap "b_button.bmp",13 : get image 13,0,0,25,25 : delete bitmap 13

load bitmap "chuck_blast.bmp",14 : get image 14,0,0,45,163 : delete bitmap 14

load bitmap "xwing_crash.bmp",15 : get image 15,0,0,150,100 : delete bitmap 15

load bitmap "tie.bmp",16 : get image 16,0,0,75,75 : delete bitmap 16

load bitmap "tie_crash.bmp",17 : get image 17,0,0,75,75 : delete bitmap 17

load bitmap "xwing.bmp",18 : mirror bitmap 18 : get image 18,0,0,150,100 : delete bitmap 18

load bitmap "c_button.bmp",19 : get image 19,0,0,25,25 : delete bitmap 19

load bitmap "a_button.bmp",20 : get image 20,0,0,25,25 : delete bitmap 20

load bitmap "mace_stance.bmp",21 : get image 21,0,0,140,120 : delete bitmap 21

rem chuck starts off

sprite 1,185,185,6

rem enemy starts off

sprite 2,200,230,10

rem enemy2 starts off

sprite 3,-20,230,11

rem Main loop

rem play music for level

loop music 2

rem copy bitmap-levels at random

copy bitmap random,0

draw to back

rem restart the game

if keystate(41)=1 then goto end:

rem press tab for FPS

ink rgb(255,255,255),1 : set cursor 340,1 : if keystate(15)=1 : print "FPS: ", screen fps() : endif

rem welcome text

if time<=120 and time>=119

ink rgb(255,0,0),9 : set text size 15 : text 149,50,"Game Started"

endif

rem score stuff

ink rgb(192,192,192),2 : set text size 30 : text 5,2,"SCORE: "+str$(score)+""

rem timer stuff

ink rgb(192,192,192),3 : set text size 15

time=abs(((timer()-t)/1000)-60)

text 5,35,"TIME: "+str$(time)+""

if time<=10

ink rgb(255,0,0),8

set cursor 5,50 : set text size 15

print "RUNNING OUT OF TIME"

endif

if time=0

goto end:

endif

rem ur score is !!!

if time = 1

ink rgb(255,0,0),1 : set cursor 1,75

print "Your score is: "+str$(score)+""

endif

rem for chuck sprite movements

if go#=1 then inc cycle#

if cycle#=10 and side#=1 then go#=0 : sprite 1,x#,185,7 : cycle#=0

if cycle#=10 and side#=2 then go#=0 : sprite 1,x#,185,6 : cycle#=0

rem for chuck sprite direction

if leftkey()=1 then dec x#, 7 : sprite 1,x#,185,7 : side#=1 : go#=0

if rightkey()=1 then inc x#, 7 : sprite 1,x#,185,6 : side#=2 : go#=0

rem for chuck kick

if spacekey()=1 and side#=1 and rnd(3)=1 then sprite 1,x#-35,185,9 : go#=1 : play sound 2

if spacekey()=1 and side#=2 and rnd(3)=1 then sprite 1,x#,185,8 : go#=1 : play sound 2

rem collision with walls

if x# <= 85 then x# = x#+7

if x# >= 310 then x# = x#-7

REM ---ENEMY SECTION---

rem enemy position

sprite 2,j+350,230,11

if j>100 then k=1

if k=1 : j=j-2 : else : j=j+2 : endif : if j<0 then k=0

rem damage enemy

if sprite collision(1,2) and spacekey()=1 and rnd(3)=1

score = score + 25

play sound 1

ink rgb(255,0,0),4 : text j+362,200,"+25"

x1#=j-125

y1#=-75

z1#=-50

request_explosion(x1#,y1#,z1#,max(1),inten#,80)

endif

rem enemy2 position

sprite 3,l-50,230,10

if l>100 then m=10

if m=10 : l=l-2.5 : else : l=l+2.5 : endif : if l<0 then m=0

rem damage enemy2

if sprite collision(1,3) and spacekey()=1 and rnd(2)=1

score = score + 10

play sound 1

ink rgb(255,0,0),4 : text l-42,200,"+10"

x2#=l+900

y2#=-250

z2#=-50

request_explosion(x2#,y2#,z2#,max(1),inten#,80)

endif

`*************************************

REM MACE BOSS

sprite 15,x+100,185,21 : hide sprite 15

if time = 20

play sound 6

endif

if time <=19 and time >=0

show sprite 15

sprite 15,x+100,185,21

if x>100 then y=10

if y=10 : x=x-4 : else : x=x+4 : endif : if x<0 then y=0

rem damage mace

if sprite collision(1,15) and spacekey()=1 and rnd(3)=1

score = score + 50

play sound 1

ink rgb(255,0,0),4 : text x+130,170,"+50"

endif

rem mace damage chuck

if sprite collision(1,15) and rnd(7)=1

score = score - 25

play sound 1

ink rgb(255,0,0),4 : text x#,170,"-25"

endif

`**************************************

REM OTHER ENEMIES

rem flying enemy

sprite 4,n,20,12 : hide sprite 4

sprite 5,180,138,13 : hide sprite 5

sprite 6,x#+7,44,14 : hide sprite 6

sprite 7,n,20,15 : hide sprite 7

sprite 8,p,20,16 : hide sprite 8

sprite 9,p,20,17 : hide sprite 9

sprite 10,3,20,18 : hide sprite 10

sprite 11,180,138,19 : hide sprite 11

sprite 12,r,20,16 : hide sprite 12

sprite 13,r,20,17 : hide sprite 13

sprite 14,180,138,20 : hide sprite 14

REM FLYING ENEMY SECTION==========================================

`rem flying enemy 1````````````````````````````````````````````````

if time<=50

if n>100 then o=1

if n=1 : n=n-3 : else : n=n+3 : endif : if n<0 then o=0

show sprite 4

endif

if time=51

play sound 3

endif

if time<=48

hide sprite 4

n=0

endif

rem press b quickly

if time<=50 and time>=49 and keystate(48)=0

ink rgb(255,0,0),5 : text 140,120, "Press 'B' quickly"

endif

if time<=50 and time>=49 and keystate(48)=0 and rnd(1)=1

show sprite 5

endif

rem kill flying enemy

if time<=50 and time>=49 and keystate(48)=1 and rnd(5)=1

score=score+100

play sound 4

show sprite 6

show sprite 7

endif

``````````````````````````````````````````````````````````````````

`rem flying enemy 2```````````````````````````````````````````````

if time<=40

if p>100 then q=1

if p=1 : p=p-5 : else : p=p+5 : endif : if p<0 then q=0

show sprite 8

endif

if time=41

play sound 5

endif

if time<=38

hide sprite 8

p=0

endif

rem press c quickly

if time<=40 and time>=39 and keystate(46)=0

ink rgb(255,0,0),5 : text 140,120, "Press 'C' quickly"

endif

if time<=40 and time>=39 and keystate(46)=0 and rnd(1)=1

show sprite 11

endif

rem kill flying enemy

if time<=40 and time>=39 and keystate(46)=1 and rnd(3)=1

score=score+100

play sound 4

show sprite 6

show sprite 9

endif

``````````````````````````````````````````````````````````````````

`rem flying enemy 3```````````````````````````````````````````````

if time<=30

if r>100 then s=1

if r=1 : r=r-5 : else : r=r+5 : endif : if r<0 then s=0

show sprite 12

endif

if time=31

play sound 5

endif

if time<=28

hide sprite 12

p=0

endif

rem press a quickly

if time<=30 and time>=29 and keystate(30)=0

ink rgb(255,0,0),5 : text 140,120, "Press 'A' quickly"

endif

if time<=30 and time>=29 and keystate(30)=0 and rnd(1)=1

show sprite 14

endif

rem kill flying enemy

if time<=30 and time>=29 and keystate(30)=1 and rnd(3)=1

score=score+100

play sound 4

show sprite 6

show sprite 13

endif

``````````````````````````````````````````````````````````````````

REM ==============================================================

rem camera for explosion effect... im lazy -.-

position camera -100,100,camz#

point camera 150,150,150

rem this function must be called once every cycle to deal with the particles

handle_explosion

rem

sync

cls

loop

rem end game/restart game

end:

goto start

rem functions:

rem -----------------

rem request explosion

function request_explosion(ex2#,ey2#,ez2#,particles,intensity#,life)

t=0:p=0

repeat

t=t+1

rem if the particular particle (gettit?) is not busy... (is dead):

if partlife(t)=0

p=p+1

rem ...make it alive...

partlife(t)=life + rnd(life/5)

rem ....put it at the center of the explosion....

partx#(t)=ex2#

party#(t)=ey2#

partz#(t)=ez2#

rem ...and give it some push.

partyvel#(t)=rnd(intensity#)-(intensity#/2)

partxvel#(t)=rnd(intensity#)-(intensity#/2)

partzvel#(t)=rnd(intensity#)-(intensity#/2)

rem ...oh, and make it visible!

show object (50+t)

endif

rem if the number of particles requested is met, exit the loop

if p>=particles then exit

until t>=max(1)

endfunction

rem ----------------

rem handle explosion

function handle_explosion()

for t=1 to max(1)

rem if the particle is alive...

if partlife(t)>1

partlife(t) = partlife(t) - 1

position object 50+t,partx#(t),party#(t),partz#(t)

rem calculate friction

partxvel#(t)=partxvel#(t)*0.95

partyvel#(t)=partyvel#(t)*0.95

partzvel#(t)=partzvel#(t)*0.95

rem and gravity...

partyvel#(t)=partyvel#(t)-0.5

rem and add the acceleration values to the actual coordinates.

partx#(t) = partx#(t) + partxvel#(t)

party#(t) = party#(t) + partyvel#(t)

partz#(t) = partz#(t) + partzvel#(t)

rem if it hits the ground, reverse its horisontal acceleration so it bounces

if party#(t)<=0 then partyvel#(t)=partyvel#(t)*-0.7

rem do some random rotation so it looks good...

rotate object t+50,wrapvalue(object angle x(t+50)+rnd(50)),wrapvalue(object angle y(t+50)+rnd(50)),0

endif

rem if particle is close to dying...

if partlife(t)=1

rem ...make it dead

partlife(t)=0

rem ...and hide it too.

hide object 50+t

endif

next t

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	trouper
CodeBase Entries:	2

CodeBase - Chuck Norris VS Star Wars

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments