This is my lastest game, and its called "Saddam's Army" I havent had any feed back on it and was hoping maybe some of you could test it out for me and tell me whatcha think about it. O and This is a good program for someone that needs a reference if they wanted to create a 2d shooter.
` 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 20
center text 320,0,"Saddam's Army!"
set text size 20
center text 320,65, "Programming By: Stephen Sokolowski"
center text 320,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 20
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 20
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
play music 2
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
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
sleep 2000
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
Heres the Link to download it (To bad I cant make a real link... Stupid Angelfire)
http://www.angelfire.com/games5/db_games/SaddamsArmy.zip
Just type it in your address bar
Also Check out my site
http://www.angelfire.com/games5/db_games
