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

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

Also:
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.

                                    ` 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 :
do
`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