TheGameCreators - CodeBase - kill the zombies

Category: Complete Applications

Version: 1.0

Information

Uploaded: 16th Jan 2009 15:49

Modified: 1st Jan 1970 01:00

Author: pollywog

Summary

kill the zombies.....Duh follow the link to download it http://www.mediafire.com/?sharekey=28923a5dcba37fba2244b8884b2cb7e6e04e75f6e8ebb871

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 Project: zombie

Rem Created: 1/14/2009 2:34:45 PM

Rem ***** Main Source File *****

zombiewalk = 1

set image colorkey 255, 0, 254

autocam off

dim ZombieIsShot(50)

global dim z#(50)

rem load sounds

load sound "media/sounds/2scream.wav", 1

load sound "media/sounds/aaa.wav", 2

load sound "media/sounds/Ahhhhhhh.wav", 3

load sound "media/sounds/deadscrm.wav", 4

load sound "media/sounds/diefoe3.wav", 5

load sound "media/sounds/lburn2.wav", 6

load sound "media/sounds/maleyell.wav", 7

load sound "media/sounds/msfear2.wav", 8

load sound "media/sounds/Ouche.wav", 9

load sound "media/sounds/scream2.wav", 10

load sound "media/sounds/SCREAM_4.wav", 11

load sound "media/sounds/gunshot.wav", 12

load music "media/sounds/Samba De Mon Coeur Qui Bat - Coralie Clement.mp3" , 1

loop music 1

rem load the sky

sky = 3

set camera range 2.5,15000

load object "media\highland rain\hr.x",sky

position object sky,256,30,0

set object texture sky,2,1

set object light sky,0

set object cull sky,0

yrotate object sky,270

scale object sky,250,250,250

rem load anthony

position camera 0,10,-3

make object plain 2, 20, 20

load image "media\brian.bmp",1,1

texture object 2,1

set object transparency 2, 1

rem load bullet

position object 2, x#, y#, 100

make object sphere 4, 1, 10, 10

hide object 4

rem load the zombies

for i = 1 to 50

load object "media\zombie\L-Zombie-Move.x", 100 + i, 1

load object "media\zombie\L-Zombie-Die.x", 200 + i, 1

hide object 200 + i

scale object 100 + i, 600,600,600 : scale object 200 + i, 600,600,600

rotate object 100 + i, 0,180,0 : rotate object 200 + i, 0,180,0

set object speed 100 + i, 5 :   set object speed 200 + i, 5

loop object 100 + i,5, total object frames (100 + i)

rem position the 5 rows of zombies

if i <= 10 then z#(i) = 0

if i > 10 and i <= 20 then z#(i) = -10

if i > 20 and i <= 30 then z#(i) = -20

if i > 30 and i <=40  then z#(i) = -30

if i > 40 then z#(i) = -50

next i

if losegame = 1 or wingame = 1 then exit

rem move anthony

if leftkey() then  move object right 2,.1

if rightkey() then move object left  2,.1

rem manage the bullet

if inkey$() = chr$(32) and shotfired = 0

shotfired = 1 : show object 4 : play sound 12

endif

if shotfired = 1 then inc zBullet#

position object 4, object position x(2) - 5, object position y(2)+4, object position z(2) - zBullet#

rem manage the zombies

x# = -20

for i = 1 to 50

if x# > 20 then x# = -20

x# = x# + 4

if ZombieIsShot(i) = 0 then z#(i)=z#(i) + .02

position object i + 100, x#, -2, z#(i) :  position object i + 200, x#, -2, z#(i)

if object position z(4) < object position z (i+100) and object position x(4) < object position x(i+100) + 2 and object position x(4) > object position x(i+100) -2 and ZombieIsShot(i) = 0

ZombieIsShot(i) = 1 : play sound rnd(10) + 1 :  hide object (i+100): hide object 4: shotfired = 0: zBullet# = 0 : inc deathtoll : show object (i+200) : play object (i+200)

endif

if zBullet# > 101

hide object 4 : shotfired = 0 : zBullet# = 0

endif

if object position z(i+100) > 70 then losegame = 1

if deathtoll > 49 then wingame = 1

next i

loop

if losegame = 1

load bitmap "media\zombie-manual-wallpaper.jpg",2

else

load bitmap "media\zombie-attack_thumbnail.jpg",2

endif

copy bitmap 2,0,0,1024,768,0,0,0,screen width(), screen height()

sync

sleep 3000

WAIT KEY

END

Download

Please login to download

Comments

No comments yet.

Author Name:	pollywog
CodeBase Entries:	3

CodeBase - kill the zombies

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments