TheGameCreators - CodeBase - Saddam's Army!!!

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 23rd Jun 2004 19:46

Modified: 24th Jun 2004 22:45

Author: Skeletor

Summary

See if you can fight through Saddam's army and maybe even Saddam himself!

Full Description

This is my first shooter but 3rd game I have made. I had trouble using arrays and for loops for parts of the code using the DEC and INC statements so I had to copy and paste a lot. The coding is quite sloppy and It would prolly be hard for someone to try to understand becuase of my lack of commenting. I will prolly comment it soon though and repost it back on the web. Well I hope you have fun Blasting through Saddam's army<br /> <br /> Also:<br /> Visit my newly made website at http://www.angelfire.com/games5/db_games/ leave feedback through my website, sign my guest book, pass my site info to a friend, take my poll and have fun.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Shooter... My First Shooting game ever!!! I Hope I Can pull this off.

` Date Started June 21st 2004

` Created by Stephen Sokolowski

sync on

sync rate 40

load image "player1.bmp",1

load image "player life.bmp",2

load image "bullet.bmp",3

load image "road1.bmp",4

load image "sand.bmp",5

load image "Sandbag.bmp",6

load image "taliban2.bmp",10

load image "bullet.bmp",20

load image "ammo.bmp",7

load image "sh2.bmp",8

load image "fb.bmp",9

load image "hole.bmp",11

`Title Screen

hide mouse

set text font "times new roman"

set text size 60

center text 320,0,"Saddam's Army!"

set text size 15

text 300,65, "Programming By: Stephen Sokolowski"

text 300,85, "Graphics & Design By: Thomas Sokolowski"

set text size 20

center text 320,125, "Blast your way through Saddam's Army"

center text 320,145, "If you encounter Saddam himself be careful... he likes to hide in holes!!"

set text size 30

center text 320,190,"CONTROLS:"

set text size 20

center text 320,230, "Space Bar : Fires guns"

center text 320,260, "UpKey : Reloads guns"

center text 320,290, "Leftkey : Strafes player left"

center text 320,320, "Rightkey : Strafes player right"

set text size 30

center text 320,390, "PRESS ANY KEY TO CONTINUE"

wait key

cls

RANDOMIZE TIMER()

paste image 4, 225,50

paste image 5, 25,50

paste image 5, 425,50

load sound "shoot.wav",1

load sound "shoot.wav",2

load sound "reload.wav",4

load sound "squish.wav",5

load sound "moan.wav",6

load sound "hit.wav",7

load music "mind trick.mid",1

load music "opponent.mid",2

play music 1

loop music 1

set sound volume 6, 100

set sound volume 5, 100

`Coordinates for player

PlayerX = 300

PlayerY = 400

`Lifes

Lifes = 3

`Ammo

Ammo = 3

Bullets = 76

`Coordinates and Speed for Bullet

BulletSpeed = 10

`Comes Out of Left Gun

LeftBulletX = playerX + 14

LeftBulletY = 420

`Comes Out of Right Gun

RightBulletX = PlayerX + 52

RightBulletY = 420

`Saddam's Lifes

SaddamLife = 6

FireBallSpeed = 10

SaddamSpeed = 3

MoveSaddam = rnd(1)

SaddamX = rnd(500)

SaddamY = rnd(200)

FireBallX = SaddamX + 45

FireBallY = SaddamY + 45

rndhole1x = rnd(500)

rndhole1y = rnd(100) + 25

if rndhole1x > 200 and rndhole1x < 400 then rndhole1x = 175

rndhole2x = rnd(500)

rndhole2y = rnd(100) + 25

if rndhole2x > 200 and rndhole2x < 400 then rndhole2x = 125

rndhole3x = rnd(500)

rndhole3y = rnd(100) + 25

if rndhole3x > 200 and rndhole3x < 400 then rndhole3x = 475

rndhole4x = rnd(500)

rndhole4y = rnd(100) + 25

if rndhole4x > 200 and rndhole4x < 400 then rndhole4x = 525

rndhole5x = rnd(500)

rndhole5y = rnd(100) + 25

if rndhole5x > 200 and rndhole5x < 400 then rndhole5x = 125

`Position our first Taliban

`Create an Array for the X coordinates

TalibanX1 = rnd(500)

TalibanX2 = rnd(500)

TalibanX3 = rnd(500)

TalibanX4 = rnd(500)

TalibanX5 = rnd(500)

`For New Army

TalibanX6 = rnd(500)

TalibanX7 = rnd(500)

TalibanX8 = rnd(500)

TalibanX9 = rnd(500)

TalibanX10 = rnd(500)

`For 3rd Army

TalibanX11 = rnd(500)

TalibanX12 = rnd(500)

TalibanX13 = rnd(500)

TalibanX14 = rnd(500)

TalibanX15 = rnd(500)

`Create an Array for the Y Coordinates

TalibanY1 = rnd(200)

TalibanY2 = rnd(200)

TalibanY3 = rnd(200)

TalibanY4 = rnd(200)

TalibanY5 = rnd(200)

`for new army

TalibanY6 = rnd(200)

TalibanY7 = rnd(200)

TalibanY8 = rnd(200)

TalibanY9 = rnd(200)

TalibanY10 = rnd(200)

`for 3rd army

TalibanY11 = rnd(200)

TalibanY12 = rnd(200)

TalibanY13 = rnd(200)

TalibanY14 = rnd(200)

TalibanY15 = rnd(200)

`Move Taliban sprite

TalibanSpeed = 2

MoveT1 = rnd(1)

MoveT2 = rnd(1)

MoveT3 = rnd(1)

MoveT4 = rnd(1)

MoveT5 = rnd(1)

`For new Army

MoveT6 = rnd(1)

MoveT7 = rnd(1)

MoveT8 = rnd(1)

MoveT9 = rnd(1)

MoveT10 = rnd(1)

`for 3rd army

MoveT11 = rnd(1)

MoveT12 = rnd(1)

MoveT13 = rnd(1)

MoveT14 = rnd(1)

MoveT15 = rnd(1)

`Create Taliban Bullet Speed

TBulletSpeed = 7

`Position Bullet to come out of Gun

TBulletX1 = TalibanX1 + 25

TBulletY1 = TalibanY1 + 55

TBulletX2 = TalibanX2 + 25

TBulletY2 = TalibanY2 + 55

TBulletX3 = TalibanX3 + 25

TBulletY3 = TalibanY3 + 55

TBulletX4 = TalibanX4 + 25

TBulletY4 = TalibanY4 + 55

TBulletX5 = TalibanX5 + 25

TBulletY5 = TalibanY5 + 55

`For second army

TBulletX6 = TalibanX6 + 25

TBulletY6 = TalibanY6 + 55

TBulletX7 = TalibanX7 + 25

TBulletY7 = TalibanY7 + 55

TBulletX8 = TalibanX8 + 25

TBulletY8 = TalibanY8 + 55

TBulletX9 = TalibanX9 + 25

TBulletY9 = TalibanY9 + 55

TBulletX10 = TalibanY10 + 25

TBulletY10 = TalibanY10 + 55

`For 3rd Army

TBulletX11 = TalibanX11 + 25

TBulletY11 = TalibanY11 + 55

TBulletX12 = TalibanX12 + 25

TBulletY12 = TalibanY12 + 55

TBulletX13 = TalibanX13 + 25

TBulletY13 = TalibanY13 + 55

TBulletX14 = TalibanX14 + 25

TBulletY14 = TalibanY14 + 55

TBulletX15 = TalibanX15 + 25

TBulletY15 = TalibanY15 + 55

life3x = 480

life3y = 20

life2x = 500

life2y = 20

life1x = 520

life1y = 20

bullet1x = 220

bullet2x = 230

bullet3x = 240

bullet4x = 250

bullet5x = 260

bullet6x = 270

bullet7x = 280

bullet8x = 290

bullet9x = 300

bullet10x = 310

bullet11x = 320

bullet12x = 330

bullet13x = 340

bullet14x = 350

bullet15x = 360

bullet16x = 370

bullet17x = 380

bullet18x = 390

bullet19x = 400

bullet20x = 410

bullet1y = 25

bullet2y = 25

bullet3y = 25

bullet4y = 25

bullet5y = 25

bullet6y = 25

bullet7y = 25

bullet8y = 25

bullet9y = 25

bullet10y = 25

bullet11y = 25

bullet12y = 25

bullet13y = 25

bullet14y = 25

bullet15y = 25

bullet16y = 25

bullet17y = 25

bullet18y = 25

bullet19y = 25

bullet20y = 25

set text opaque

set text size 20

text 25,1, "Defeat Saddams's Army!"

text 480,1, "Player Lifes: "

text 280,1, "Ammo Clips: 3"

`Main :

`Player Movement

if leftkey() = 1 then playerX = playerX - 3

if rightkey() = 1 then playerX = playerX + 3

if bullets < 57 and upkey() = 1 and ammo > 0 then ReloadBullets = 1

`Player Bullets

if spacekey() = 1 and bullets > 56 then firing = 1

if firing = 1

dec LeftBulletY,BulletSpeed

` Allow for right gun to fire a second or 2 after left gun is fired

dec RightBulletY,BulletSpeed

endif

if firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

endif

if leftbullety = 400 and rightbullety = 400 then DeleteBullets = 1 : play sound 1 : play sound 2

`Saddams Fire Ball

Inc FireBallY,FireBallSpeed

`Taliban Bullets

Inc TBulletY1,TBulletSpeed

Inc TBulletY2,TBulletSpeed

Inc TBulletY3,TBulletSpeed

Inc TBulletY4,TBulletSpeed

Inc TBulletY5,TBulletSpeed

`For New Army

Inc TBulletY6,TBulletSpeed

Inc TBulletY7,TBulletSpeed

Inc TBulletY8,TBulletSpeed

Inc TBulletY9,TBulletSpeed

Inc TBulletY10,TBulletSpeed

`For 3rd Army

Inc TBulletY11,TBulletSpeed

Inc TBulletY12,TBulletSpeed

Inc TBulletY13,TBulletSpeed

Inc TBulletY14,TBulletSpeed

Inc TBulletY15,TBulletSpeed

`Move Saddam

if MoveSaddam = 0 then Inc SaddamX,SaddamSpeed

if MoveSaddam = 1 then Dec SaddamX,SaddamSpeed

`Move Taliban

if MoveT1 = 0 then Inc TalibanX1,TalibanSpeed

if MoveT1 = 1 then Dec TalibanX1,TalibanSpeed

if MoveT2 = 0 then Inc TalibanX2,TalibanSpeed

if MoveT2 = 1 then Dec TalibanX2,TalibanSpeed

if MoveT3 = 0 then Inc TalibanX3,TalibanSpeed

if MoveT3 = 1 then Dec TalibanX3,TalibanSpeed

if MoveT4 = 0 then Inc TalibanX4,TalibanSpeed

if MoveT4 = 1 then Dec TalibanX4,TalibanSpeed

if MoveT5 = 0 then Inc TalibanX5,TalibanSpeed

if MoveT5 = 1 then Dec TalibanX5,TalibanSpeed

`For New Army

if MoveT6 = 0 then Inc TalibanX6,TalibanSpeed

if MoveT6 = 1 then Dec TalibanX6,TalibanSpeed

if MoveT7 = 0 then Inc TalibanX7,TalibanSpeed

if MoveT7 = 1 then Dec TalibanX7,TalibanSpeed

if MoveT8 = 0 then Inc TalibanX8,TalibanSpeed

if MoveT8 = 1 then Dec TalibanX8,TalibanSpeed

if MoveT9 = 0 then Inc TalibanX9,TalibanSpeed

if MoveT9 = 1 then Dec TalibanX9,TalibanSpeed

if MoveT10 = 0 then Inc TalibanX10,TalibanSpeed

if MoveT10 = 1 then Dec TalibanX10,TalibanSpeed

`For 3rd Army

if MoveT11 = 0 then Inc TalibanX11,TalibanSpeed

if MoveT11 = 1 then Dec TalibanX11,TalibanSpeed

if MoveT12 = 0 then Inc TalibanX12,TalibanSpeed

if MoveT12 = 1 then Dec TalibanX12,TalibanSpeed

if MoveT13 = 0 then Inc TalibanX13,TalibanSpeed

if MoveT13 = 1 then Dec TalibanX13,TalibanSpeed

if MoveT14 = 0 then Inc TalibanX14,TalibanSpeed

if MoveT14 = 1 then Dec TalibanX14,TalibanSpeed

if MoveT15 = 0 then Inc TalibanX15,TalibanSpeed

if MoveT15 = 1 then Dec TalibanX15,TalibanSpeed

`Player Boundarys

if playerX < 10 then playerX = 11

if playerX > 565 then playerX = 564

`Bullet Boundarys

if LeftBulletY < 50 then firing = 0 : leftbulletx = playerX + 16 : leftbullety = 420

if RightBulletY < 50 then firing = 0 : RightBulletX = playerX + 55 : RightBulletY = 420

`Saddam Boundarys

if SaddamX < 10 then MoveSaddam = 0

if SaddamX > 565 then MoveSaddam = 1

`Taliban Boundarys

if TalibanX1 < 10 then MoveT1 = 0

if TalibanX1 > 565 then MoveT1 = 1

if TalibanX2 < 10 then MoveT2 = 0

if TalibanX2 > 565 then MoveT2 = 1

if TalibanX3 < 10 then MoveT3 = 0

if TalibanX3 > 565 then MoveT3 = 1

if TalibanX4 < 10 then MoveT4 = 0

if TalibanX4 > 565 then MoveT4 = 1

if TalibanX5 < 10 then MoveT5 = 0

if TalibanX5 > 565 then MoveT5 = 1

`For New Army

if TalibanX6 < 10 then MoveT6 = 0

if TalibanX6 > 565 then MoveT6 = 1

if TalibanX7 < 10 then MoveT7 = 0

if TalibanX7 > 565 then MoveT7 = 1

if TalibanX8 < 10 then MoveT8 = 0

if TalibanX8 > 565 then MoveT8 = 1

if TalibanX9 < 10 then MoveT9 = 0

if TalibanX9 > 565 then MoveT9 = 1

if TalibanX10 < 10 then MoveT10 = 0

if TalibanX10 > 565 then MoveT10 = 1

`3rd army

if TalibanX11 < 10 then MoveT11 = 0

if TalibanX11 > 565 then MoveT11 = 1

if TalibanX12 < 10 then MoveT12 = 0

if TalibanX12 > 565 then MoveT12 = 1

if TalibanX13 < 10 then MoveT13 = 0

if TalibanX13 > 565 then MoveT13 = 1

if TalibanX14 < 10 then MoveT14 = 0

if TalibanX14 > 565 then MoveT14 = 1

if TalibanX15 < 10 then MoveT15 = 0

if TalibanX15 > 565 then MoveT15 = 1

`Saddam FireBall Boundarys

if FireBallY > 500 then FireBallX = SaddamX + 45 : FireBallY = SaddamY + 45

`Taliban Bullet Boundarys

if TBulletY1 > 500 then TBulletX1 = TalibanX1 + 25 : TBulletY1 = TalibanY1 + 55

if TBulletY2 > 500 then TBulletX2 = TalibanX2 + 25 : TBulletY2 = TalibanY2 + 55

if TBulletY3 > 500 then TBulletX3 = TalibanX3 + 25 : TBulletY3 = TalibanY3 + 55

if TBulletY4 > 500 then TBulletX4 = TalibanX4 + 25 : TBulletY4 = TalibanY4 + 55

if TBulletY5 > 500 then TBulletX5 = TalibanX5 + 25 : TBulletY5 = TalibanY5 + 55

`New Army

if TBulletY6 > 500 then TBulletX6 = TalibanX6 + 25 : TBulletY6 = TalibanY6 + 55

if TBulletY7 > 500 then TBulletX7 = TalibanX7 + 25 : TBulletY7 = TalibanY7 + 55

if TBulletY8 > 500 then TBulletX8 = TalibanX8 + 25 : TBulletY8 = TalibanY8 + 55

if TBulletY9 > 500 then TBulletX9 = TalibanX9 + 25 : TBulletY9 = TalibanY9 + 55

if TBulletY10 > 500 then TBulletX10 = TalibanX10 + 25 : TBulletY10 = TalibanY10 + 55

`Third Army

if TBulletY11 > 500 then TBulletX11 = TalibanX11 + 25 : TBulletY11 = TalibanY11 + 55

if TBulletY12 > 500 then TBulletX12 = TalibanX12 + 25 : TBulletY12 = TalibanY12 + 55

if TBulletY13 > 500 then TBulletX13 = TalibanX13 + 25 : TBulletY13 = TalibanY13 + 55

if TBulletY14 > 500 then TBulletX14 = TalibanX14 + 25 : TBulletY14 = TalibanY14 + 55

if TBulletY15 > 500 then TBulletX15 = TalibanX15 + 25 : TBulletY15 = TalibanY15 + 55

sprite 1,playerX,playerY,1

sprite 2,LeftBulletX,LeftBulletY,3

sprite 3,RightBulletX,RightBulletY,3

sprite 4,280,350,6

sprite 6,TalibanX1,TalibanY1,10

sprite 7,TalibanX2,TalibanY2,10

sprite 8,TalibanX3,TalibanY3,10

sprite 9,TalibanX4,TalibanY4,10

sprite 10,TalibanX5,TalibanY5,10

sprite 21,TBulletX1,TBulletY1,20

sprite 22,TBulletX2,TBulletY2,20

sprite 23,TBulletX3,TBulletY3,20

sprite 24,TBulletX4,TBulletY4,20

sprite 25,TBulletX5,TBulletY5,20

sprite 51, life3x,life3y,2

sprite 52, life2x,life2y,2

sprite 53, life1x,life1y,2

sprite 56, bullet1x,bullet1y,7

sprite 57, bullet2x,bullet2y,7

sprite 58, bullet3x,bullet3y,7

sprite 59, bullet4x,bullet4y,7

sprite 60, bullet5x,bullet5y,7

sprite 61, bullet6x,bullet6y,7

sprite 62, bullet7x,bullet7y,7

sprite 63, bullet8x,bullet8y,7

sprite 64, bullet9x,bullet9y,7

sprite 65, bullet10x,bullet10y,7

sprite 66, bullet11x,bullet11y,7

sprite 67, bullet12x,bullet12y,7

sprite 68, bullet13x,bullet13y,7

sprite 69, bullet14x,bullet14y,7

sprite 70, bullet15x,bullet15y,7

sprite 71, bullet16x,bullet16y,7

sprite 72, bullet17x,bullet17y,7

sprite 73, bullet18x,bullet18y,7

sprite 74, bullet19x,bullet19y,7

sprite 75, bullet20x,bullet20y,7

if DeleteBullets = 1

bullets = bullets - 2 * 1

if bullets = 74 then bullet20x = 680 : bullet20y = 680 : bullet19x = 680 : bullet19y = 680

if bullets = 72 then bullet18x = 680 : bullet18y = 680 : bullet17x = 680 : bullet17y = 680

if bullets = 70 then bullet16x = 680 : bullet16y = 680 : bullet15x = 680 : bullet15y = 680

if bullets = 68 then bullet14x = 680 : bullet14y = 680 : bullet13x = 680 : bullet13y = 680

if bullets = 66 then bullet12x = 680 : bullet12y = 680 : bullet11x = 680 : bullet11y = 680

if bullets = 64 then bullet10x = 680 : bullet10y = 680 : bullet9x = 680 : bullet9y = 680

if bullets = 62 then bullet8x = 680 : bullet8y = 680 : bullet7x = 680 : bullet7y = 680

if bullets = 60 then bullet6x = 680 : bullet6y = 680 : bullet5x = 680 : bullet5y = 680

if bullets = 58 then bullet4x = 680 : bullet4y = 680 : bullet3x = 680 : bullet3y = 680

if bullets = 56 then bullet2x = 680 : bullet2y = 680 : bullet1x = 680 : bullet1y = 680

deletebullets = 0

endif

if ReloadBullets = 1

bullets = 76

bullet1x = 220

bullet2x = 230

bullet3x = 240

bullet4x = 250

bullet5x = 260

bullet6x = 270

bullet7x = 280

bullet8x = 290

bullet9x = 300

bullet10x = 310

bullet11x = 320

bullet12x = 330

bullet13x = 340

bullet14x = 350

bullet15x = 360

bullet16x = 370

bullet17x = 380

bullet18x = 390

bullet19x = 400

bullet20x = 410

bullet1y = 25

bullet2y = 25

bullet3y = 25

bullet4y = 25

bullet5y = 25

bullet6y = 25

bullet7y = 25

bullet8y = 25

bullet9y = 25

bullet10y = 25

bullet11y = 25

bullet12y = 25

bullet13y = 25

bullet14y = 25

bullet15y = 25

bullet16y = 25

bullet17y = 25

bullet18y = 25

bullet19y = 25

bullet20y = 25

Ammo = Ammo - 1 * 1

text 280,1, "Ammo Clips: " + STR$(Ammo)

play sound 4

ReloadBullets = 0

endif

`RTBS Right SandBag

`This code acknowldges the Talibans bullet against sandbag

for RTBS = 21 to 25

if sprite hit(RTBS,4) = 1

play sound 7

if RTBS = 21 then RTBS1 = 1

if RTBS = 22 then RTBS2 = 1

if RTBS = 23 then RTBS3 = 1

if RTBS = 24 then RTBS4 = 1

if RTBS = 25 then RTBS5 = 1

endif

next RTBS

if RTBS1 = 1

delete sprite 21

TBulletX1 = TalibanX1 + 25

TBulletY1 = TalibanY1 + 55

rtbs1 = 0

endif

if RTBS2 = 1

delete sprite 22

TBulletX2 = TalibanX2 + 25

TBulletY2 = TalibanY2 + 55

rtbs2 = 0

endif

if RTBS3 = 1

delete sprite 23

TBulletX3 = TalibanX3 + 25

TBulletY3 = TalibanY3 + 55

rtbs3 = 0

endif

if RTBS4 = 1

delete sprite 24

TBulletX4 = TalibanX4 + 25

TBulletY4 = TalibanY4 + 55

rtbs4 = 0

endif

if RTBS5 = 1

delete sprite 25

TBulletX5 = TalibanX5 + 25

TBulletY5 = TalibanY5 + 55

rtbs5 = 0

endif

for TB = 21 to 25

if sprite hit(1,TB) = 1

delete sprite 1

play sound 5

PlayerX = 300

PlayerY = 400

lifes = lifes - 1 * 1

sleep 1000

endif

next TB

if lifes = 2 then delete sprite 53 : life1x = 680 : life1y = 680

if lifes = 1 then delete sprite 52 : life2x = 680 : life2y = 680

if lifes = 0 then delete sprite 51 : life3x = 680 : life3y = 680 : center text 320,260, "Game Over!" : sleep 2000 : end

if sprite hit(4,2) = 1

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

endif

if sprite hit(4,3) = 1

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

endif

`If players Left bullet hits Taliban

for LB = 6 to 10

if sprite hit(LB,2) = 1

delete sprite LB

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

if LB = 6 then Taliban1 = 1

if LB = 7 then Taliban2 = 1

if LB = 8 then Taliban3 = 1

if LB = 9 then Taliban4 = 1

if LB = 10 then Taliban5 = 1

endif

next LB

`If players Right bullet hits Taliban

for RB = 6 to 10

if sprite hit(RB,3) = 1

delete sprite RB

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

if RB = 6 then Taliban1 = 1

if RB = 7 then Taliban2 = 1

if RB = 8 then Taliban3 = 1

if RB = 9 then Taliban4 = 1

if RB = 10 then Taliban5 = 1

endif

next RB

NewArmy = 1

if Taliban1 = 1

delete sprite 6

delete sprite 21

TBulletY1 = 680

TBulletX1 = 1

TalibanX1 = 680

TalibanY1 = 1

NewArmy = NewArmy + 1

endif

if Taliban2 = 1

delete sprite 7

delete sprite 22

TBulletY2 = 680

TBulletX2 = 1

TalibanX2 = 680

TalibanY2 = 1

NewArmy = NewArmy + 1

endif

if Taliban3 = 1

delete sprite 8

delete sprite 23

TBulletY3 = 680

TBulletX3 = 1

TalibanX3 = 680

TalibanY3 = 1

NewArmy = NewArmy + 1

endif

if Taliban4 = 1

delete sprite 9

delete sprite 24

TBulletY4 = 680

TBulletX4 = 1

TalibanX4 = 680

TalibanY4 = 1

NewArmy = NewArmy + 1

endif

if Taliban5 = 1

delete sprite 10

delete sprite 25

TBulletY5 = 680

TBulletX5 = 1

TalibanX5 = 680

TalibanY5 = 1

NewArmy = NewArmy + 1

endif

ThirdArmy = 1

if NewArmy = 6

sprite 11,TalibanX6,TalibanY6,10

sprite 12,TalibanX7,TalibanY7,10

sprite 13,TalibanX8,TalibanY8,10

sprite 14,TalibanX9,TalibanY9,10

sprite 15,TalibanX10,TalibanY10,10

sprite 26,TBulletX6,TBulletY6,20

sprite 27,TBulletX7,TBulletY7,20

sprite 28,TBulletX8,TBulletY8,20

sprite 29,TBulletX9,TBulletY9,20

sprite 30,TBulletX10,TBulletY10,20

TBulletSpeed = 8

TalibanSpeed = 3

`If players Left bullet hits Taliban

for LB2 = 11 to 15

if sprite hit(LB2,2) = 1

delete sprite LB2

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

if LB2 = 11 then Taliban6 = 1

if LB2 = 12 then Taliban7 = 1

if LB2 = 13 then Taliban8 = 1

if LB2 = 14 then Taliban9 = 1

if LB2 = 15 then Taliban10 = 1

endif

next LB2

`If players Right bullet hits Taliban

for RB2 = 11 to 15

if sprite hit(RB2,3) = 1

delete sprite RB2

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

if RB2 = 11 then Taliban6 = 1

if RB2 = 12 then Taliban7 = 1

if RB2 = 13 then Taliban8 = 1

if RB2 = 14 then Taliban9 = 1

if RB2 = 15 then Taliban10 = 1

endif

next RB2

if Taliban6 = 1

delete sprite 11

delete sprite 26

TBulletY6 = 680

TBulletX6 = 1

TalibanX6 = 680

TalibanY6 = 1

ThirdArmy = ThirdArmy + 1 * 1

endif

if Taliban7 = 1

delete sprite 12

delete sprite 27

TBulletX7 = 680

TBulletX7 = 1

TalibanX7 = 680

TalibanY7 = 1

ThirdArmy = ThirdArmy + 1 * 1

endif

if Taliban8 = 1

delete sprite 13

delete sprite 28

TBulletY8 = 680

TBulletX8 = 1

TalibanX8 = 680

TalibanY8 = 1

ThirdArmy = ThirdArmy + 1 * 1

endif

if Taliban9 = 1

delete sprite 14

delete sprite 29

TBulletY9 = 680

TBulletX9 = 1

TalibanX9 = 680

TalibanY9 = 1

ThirdArmy = ThirdArmy + 1 * 1

endif

if Taliban10 = 1

delete sprite 15

delete sprite 30

TBulletY10 = 680

TBulletX10 = 1

TalibanX10 = 680

TalibanY10 = 1

ThirdArmy = ThirdArmy + 1 * 1

endif

`RTBS Acknowledge Taliban Bullet against Sand bag

for TBS = 26 to 30

if sprite hit(TBS,4) = 1

play sound 7

if TBS = 26 then TBS6 = 1

if TBS = 27 then TBS7 = 1

if TBS = 28 then TBS8 = 1

if TBS = 29 then TBS9 = 1

if TBS = 30 then TBS10 = 1

endif

next TBS

if TBS6 = 1

delete sprite 26

TBulletX6 = TalibanX6 + 25

TBulletY6 = TalibanY6 + 55

TBS1 = 0

endif

if TBS7 = 1

delete sprite 27

TBulletX7 = TalibanX7 + 25

TBulletY7 = TalibanY7 + 55

TBS7 = 0

endif

if TBS8 = 1

delete sprite 28

TBulletX8 = TalibanX8 + 25

TBulletY8 = TalibanY8 + 55

TBS8 = 0

endif

if TBS9 = 1

delete sprite 29

TBulletX9 = TalibanX9 + 25

TBulletY9 = TalibanY9 + 55

TBS9 = 0

endif

if TBS10 = 1

delete sprite 30

TBulletX10 = TalibanX10 + 25

TBulletY10 = TalibanY10 + 55

TBS10 = 0

endif

`Taliban Bullet hits player

for TB2 = 26 to 30

if sprite hit(1,TB2) = 1

delete sprite 1

play sound 5

PlayerX = 300

PlayerY = 400

lifes = lifes - 1 * 1

sleep 1000

endif

next TB2

if lifes = 2 then delete sprite 53 : life1x = 680 : life1y = 680

if lifes = 1 then delete sprite 52 : life2x = 680 : life2y = 680

if lifes = 0 then delete sprite 51 : life3x = 680 : life3y = 680 : center text 320,260, "Game Over!" : sleep 2000 : end

`End New Army

endif

`3rd ARMY

if ThirdArmy = 6

sprite 16,TalibanX11,TalibanY11,10

sprite 17,TalibanX12,TalibanY12,10

sprite 18,TalibanX13,TalibanY13,10

sprite 19,TalibanX14,TalibanY14,10

sprite 20,TalibanX15,TalibanY15,10

sprite 31,TBulletX11,TBulletY11,20

sprite 32,TBulletX12,TBulletY12,20

sprite 33,TBulletX13,TBulletY13,20

sprite 34,TBulletX14,TBulletY14,20

sprite 35,TBulletX15,TBulletY15,20

TBulletSpeed = 12

TalibanSpeed = 4

`If players Left bullet hits Taliban

for LB3 = 16 to 20

if sprite hit(LB3,2) = 1

delete sprite LB3

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

if LB3 = 16 then Taliban11 = 1

if LB3 = 17 then Taliban12 = 1

if LB3 = 18 then Taliban13 = 1

if LB3 = 19 then Taliban14 = 1

if LB3 = 20 then Taliban15 = 1

endif

next LB3

`If players Right bullet hits Taliban

for RB3 = 16 to 20

if sprite hit(RB3,3) = 1

delete sprite RB3

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

if RB3 = 16 then Taliban11 = 1

if RB3 = 17 then Taliban12 = 1

if RB3 = 18 then Taliban13 = 1

if RB3 = 19 then Taliban14 = 1

if RB3 = 20 then Taliban15 = 1

endif

next RB3

SaddamFight = 0

if Taliban11 = 1

delete sprite 16

delete sprite 31

TBulletY11 = 680

TBulletX11 = 1

TalibanX11 = 680

TalibanY11 = 1

SaddamFight = SaddamFight + 1 * 1

endif

if Taliban12 = 1

delete sprite 17

delete sprite 32

TBulletX12 = 680

TBulletX12 = 1

TalibanX12 = 680

TalibanY12 = 1

SaddamFight = SaddamFight + 1 * 1

endif

if Taliban13 = 1

delete sprite 18

delete sprite 33

TBulletY13 = 680

TBulletX13 = 1

TalibanX13 = 680

TalibanY13 = 1

SaddamFight = SaddamFight + 1 * 1

endif

if Taliban14 = 1

delete sprite 19

delete sprite 34

TBulletY14 = 680

TBulletX14 = 1

TalibanX14 = 680

TalibanY14 = 1

SaddamFight = SaddamFight + 1 * 1

endif

if Taliban15 = 1

delete sprite 20

delete sprite 35

TBulletY15 = 680

TBulletX15 = 1

TalibanX15 = 680

TalibanY15 = 1

SaddamFight = SaddamFight + 1 * 1

endif

`RTBS Acknowledge Taliban Bullet against Sand bag

for TBS3 = 31 to 35

if sprite hit(TBS3,4) = 1

play sound 7

if TBS3 = 31 then TBS11 = 1

if TBS3 = 32 then TBS12 = 1

if TBS3 = 33 then TBS13 = 1

if TBS3 = 34 then TBS14 = 1

if TBS3 = 35 then TBS15 = 1

endif

next TBS3

if TBS11 = 1

delete sprite 31

TBulletX11 = TalibanX11 + 25

TBulletY11 = TalibanY11 + 55

TBS11 = 0

endif

if TBS12 = 1

delete sprite 32

TBulletX12 = TalibanX12 + 25

TBulletY12 = TalibanY12 + 55

TBS12 = 0

endif

if TBS13 = 1

delete sprite 33

TBulletX13 = TalibanX13 + 25

TBulletY13 = TalibanY13 + 55

TBS13 = 0

endif

if TBS14 = 1

delete sprite 34

TBulletX14 = TalibanX14 + 25

TBulletY14 = TalibanY14 + 55

TBS14 = 0

endif

if TBS15 = 1

delete sprite 35

TBulletX15 = TalibanX15 + 25

TBulletY15 = TalibanY15 + 55

TBS15 = 0

endif

`Taliban Bullet hits player

for TB3 = 31 to 35

if sprite hit(1,TB3) = 1

delete sprite 1

play sound 5

PlayerX = 300

PlayerY = 400

lifes = lifes - 1 * 1

sleep 1000

endif

next TB3

if lifes = 2 then delete sprite 53 : life1x = 680 : life1y = 680

if lifes = 1 then delete sprite 52 : life2x = 680 : life2y = 680

if lifes = 0 then delete sprite 51 : life3x = 680 : life3y = 680 : center text 320,260, "Game Over!" : sleep 2000 : end

`End New Army

endif

if SaddamFight = 5

text 25,1, "Saddam has been found!"

text 25,25, "Defeat Him!!"

draw to front

sprite 110,saddamx,saddamy,8

sprite 111,fireballx,firebally,9

stop music 1

play music 2

loop music 2

if sprite hit(110,2) = 1

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

SaddamLife = SaddamLife - 1 * 1

MoveSaddam = 0

endif

`If players Right bullet hits Taliban

if sprite hit(110,3) = 1

play sound 6

firing = 0

leftbulletx = playerX + 16

leftbullety = 420

RightBulletX = playerX + 55

RightBulletY = 420

SaddamLife = SaddamLife - 1 * 1

endif

if SaddamLife = 5

sprite 102,rndhole1x,rndhole1y,11

saddamx = rndhole1x

saddamy = rndhole1y + 30

dec saddamx,3

endif

if SaddamLife = 4

sprite 103,rndhole2x,rndhole2y,11

saddamx = rndhole2x

saddamy = rndhole2y + 30

dec saddamx,3

endif

if SaddamLife = 3

sprite 104,rndhole3x,rndhole3y,11

saddamx = rndhole3x

saddamy = rndhole3y + 30

dec saddamx,3

endif

if SaddamLife = 2

sprite 105,rndhole4x,rndhole4y,11

saddamx = rndhole4x

saddamy = rndhole4y + 30

dec saddamx,3

endif

if SaddamLife = 1

sprite 106,rndhole5x,rndhole5y,11

saddamx = rndhole5x

saddamy = rndhole5y + 30

dec saddamx,3

endif

if sprite hit(1,111) = 1

delete sprite 1

play sound 5

PlayerX = 300

PlayerY = 400

lifes = lifes - 1 * 1

sleep 1000

endif

if lifes = 2 then delete sprite 53 : life1x = 680 : life1y = 680

if lifes = 1 then delete sprite 52 : life2x = 680 : life2y = 680

if lifes = 0 then delete sprite 51 : life3x = 680 : life3y = 680 : center text 320,260, "Game Over!" : sleep 2000 : end

if SaddamLife < 1

delete sprite 110

delete sprite 111

SaddamX = 680

SaddamY = 680

FireBallX = 680

FireBallY = 680

text 200,260, "You Have Defeated Saddam and His Army!!"

end

endif

if sprite hit(111,4) = 1

play sound 7

FireBullet = 1

endif

if FireBullet = 1

delete sprite 111

FireBallX = SaddamX + 45

FireBallY = SaddamY + 45

FireBullet = 0

endif

`End Saddam

endif

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Skeletor
CodeBase Entries:	5

CodeBase - Saddam's Army!!!

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments