TheGameCreators - CodeBase - Tank Wars! (1 player or 2 player)

Return to the CodeBase listing

Category: 2D

Version: 1.13

Information

Uploaded: 15th Jul 2004 13:54

Modified: 16th Jul 2004 21:31

Author: Skeletor

Summary

Fast paced Artillery/Action tank game where you and another tank battle it out!

Full Description

"Tank Wars!" is an Artillery/Action game designed for either 1 or 2 players. It is a very fast paced game and it features a meter system to adjust how far your tank will shoot. <br /> <br /> While playing this game you will find that there is much more than just sitting still firing away. To domminate in this game you must move your tank forwards and backwards dodging the other tanks bullets, while also moveing your meters up and down to get the perfect shot on your opponent. Then once you think you have the shot you must hit the fire key to launch a lethal projectile toward your target.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`===============================================================

`Tank Wars!! by Stephen Sokolowski

`This game will be my 4th game and was started on July 12th 2004

`This game was finished on July 15th 2004

`===============================================================

sync on

sync rate 40

hide mouse

center text 320,0,"Tank Wars!"

center text 320,65, "Programming By: Stephen Sokolowski"

center text 320,125, "Try to blow up the opposing tank!"

center text 140,200,"CONTROLS: Player 1"

center text 140,230, "W : Increases Meters"

center text 140,260, "S : Decreases Meters"

center text 140,290, "A : Moves Tank Backwards"

center text 140,320, "D : Moves Tank Forward"

center text 140,350, "Left Ctrl key : Fires Cannon"

center text 500,200,"CONTROLS: Player 2"

center text 500,230, "Up Arrow : Increases Meters"

center text 500,260, "Down Arrow : Decreases Meters"

center text 500,290, "Left Arrow : Moves Tank Backwards"

center text 500,320, "Right Arrow : Moves Tank Forward"

center text 500,350, "Right Ctrl key : Fires Cannon"

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

wait key

cls

center text 320,200, "Enter the number it takes to win"

input wins

center text 320,250, "First to get to " + str$(wins)

center text 320,265, "Wins!"

center text 320,300, "Enter either a 1 for Single Player, or a 2 for Two Player"

input mode

if mode < 2

center text 320, 350, "Input Difficulty 1 = Hard,   2 = Novice,    3 = Easy"

input Difficulty

endif

center text 320,400, "Press a button on your Mouse to continue"

suspend for mouse

cls

`Loading my sprites I have made myself!

load image "Player 1.bmp",1

load image "Player 2.bmp",2

load image "Background(moon).bmp",3

load image "bullet.bmp",5

load image "MBG.bmp",4

load image "Damaged Tank 1.bmp",6

load image "Damaged Tank 2.bmp",7

`Load Sounds

load sound "Launch.wav",1

load sound "explode.wav",2

load sound "explode4.wav",3

`Load Music

load music "Overclocked.mid",1

play music 1

loop music 1

`Pasting the Background image to the screen

paste image 3,1,100

sprite 6,20,50,4

sprite 7,525,50,4

`Player 1 and 2s X and Y coordinates

dim PlayerX(2)

PlayerX(1) = 45

PlayerX(2) = 545

dim PlayerY(2)

PlayerY(1) = 350

PlayerY(2) = 350

`Player 1 and 2s Bullet X and Y coordinates

dim BulletX(2)

BulletX(1) = PlayerX(1) + 46

BulletX(2) = PlayerX(2)

dim BulletY(2)

BulletY(1) = 355

BulletY(2) = 355

`Inital Bullet Speed is the speed of the bullet when fired

IntBulletSpeed = 4

Dim Meters(3)

Meters(1) = 100

Meters(2) = 100

Dim PlayerScore(2)

set text opaque

center text 320,20, "Tank Wars!"

center text 65,20, "Player 1's Score: "

center text 65,60, "Meters:"

text 55,75, " "

center text 570,20, "Player 2's Score: "

center text 570,60, "Meters:"

text 560,75, " "

`===========================================

`=============MAIN GAME LOOP================

`===========================================

`Player 1's Meter Controls

`===============================================

if keystate(17) = 1

Meters(1) = Meters(1) + 10 * 1

text 55,75, " " + STR$(Meters(1))

if Meters(1) > 600 then Meters(1) = 600 * 1

endif

if keystate(31) = 1

Meters(1) = Meters(1) - 10

text 55,75, " " + STR$(Meters(1))

if Meters(1) < 110 then Meters(1) = 110 * 1

endif

if mode > 1

if Keystate(31) = 0

Meters(1) = Meters(1) + 1

text 55,75, " " + STR$(Meters(1))

if Meters(1) > 600 then Meters(1) = Meters(1) - 1

if Meters(1) < 110 then Meters(1) = Meters(1) + 1

endif

if mode < 2

if Difficulty = 1

if Keystate(31) = 0

Meters(1) = Meters(1) + 1

text 55,75, " " + STR$(Meters(1))

if Meters(1) > 600 then Meters(1) = Meters(1) - 1

if Meters(1) < 110 then Meters(1) = Meters(1) + 1

endif

if Difficulty = 2

if Keystate(31) = 0

Meters(1) = Meters(1)

text 55,75, " " + STR$(Meters(1))

if Meters(1) > 600 then Meters(1) = Meters(1) - 1

if Meters(1) < 110 then Meters(1) = Meters(1) + 1

endif

if Difficulty = 3

if Keystate(31) = 0

Meters(1) = Meters(1)

text 55,75, " " + STR$(Meters(1))

if Meters(1) > 600 then Meters(1) = Meters(1) - 1

if Meters(1) < 110 then Meters(1) = Meters(1) + 1

endif

`===============================================

`Player 2's Meter Controls

`===============================================

if mode > 1

if upkey() = 1

Meters(2) = Meters(2) + 10 * 1

text 560,75, " " + str$(Meters(2))

if Meters(2) > 600 then Meters(2) = 600 * 1

endif

if downkey() = 1

Meters(2) = Meters(2) - 10

text 560,75, " " + str$(Meters(2))

if Meters(2) < 110 then Meters(2) = 110 * 1

endif

if downkey() = 0

Meters(2) = Meters(2) + 1

text 560,75, " " + str$(Meters(2))

if Meters(2) > 600 then Meters(2) = 600

if Meters(2) < 110 then Meters(2) = 110

endif

`===============================================

`Player 1's Tank Controls

`===============================================

if mode > 1

if KeyState(30)= 1 then PlayerX(1) = PlayerX(1) - 1

if KeyState(32) = 1 then PlayerX(1) = PlayerX(1) + 1

endif

if mode < 2

if Difficulty = 1

if KeyState(30)= 1 then PlayerX(1) = PlayerX(1) - 1

if KeyState(32) = 1 then PlayerX(1) = PlayerX(1) + 1

endif

if Difficulty = 2

if KeyState(30)= 1 then PlayerX(1) = PlayerX(1) - 1

if KeyState(32) = 1 then PlayerX(1) = PlayerX(1) + 1

endif

if Difficulty = 3

if KeyState(30)= 1 then PlayerX(1) = PlayerX(1) - 2

if KeyState(32) = 1 then PlayerX(1) = PlayerX(1) + 2

endif

if PlayerX(1) > 200 then PlayerX(1) = 200

if PlayerX(1) < 10 then PlayerX(1) = 10

`===============================================

`Player 2's Tank Controls

`===============================================

if leftkey() = 1 and mode > 1 then PlayerX(2) = PlayerX(2) - 1

if rightkey() = 1 and mode > 1 then PlayerX(2) = PlayerX(2) + 1

if PlayerX(2) > 580 then PlayerX(2) = 580

if PlayerX(2) < 400 then PlayerX(2) = 400

if mode < 2

If BulletX(1) > PlayerX(2) - 50 and BulletX(1) < PlayerX(2) - 25 and BulletY(1) > 330 then PlayerX(2) = PlayerX(2) + 1

If BulletX(1) > PlayerX(2) - 25 and BulletY(1) > 310 and BulletY(1) < 330 then PlayerX(2) = PlayerX(2) - 1

if PlayerX(2) = 580 then PlayerX(2) = PlayerX(2) - 10

endif

`Player 1's Firing Controls

`================================================

if Keystate(29) = 0 and fire1 < 1 then fire1 = 0

if keystate(29) = 1 then fire1 = 1

if fire1 = 0 then BulletX(1) = PlayerX(1) + 46

if fire1 = 1

BulletX(1) = BulletX(1) + IntBulletSpeed

BulletY(1) = BulletY(1) - 1

If BulletX(1) > 639 then play sound 2 : BulletX(1) = PlayerX(1) + 46 : BulletY(1) = 354 : fire1 = 0

If BulletY(1) > 363 then play sound 2 : BulletX(1) = PlayerX(1) + 46 : BulletY(1) = 354 : fire1 = 0

If BulletX(1) > Meters(1) + 10

BulletX(1) = BulletX(1) + 1

BulletY(1) = BulletY(1) + 2

endif

`======================================================

`Player 2's Firing Controls

`=====================================================

`Since Player 2 is facing the opposite direction on the X axis

`I had to reverse the Meters System for Player 2

`note if you take out the following 6 codes below this and replace

`where it says If BulletX(2) < Meters(3) with

` If BulletX(2) < Meters(2)

`Player 2's Meter system will be reversed resulting in 100ms shoots the

`Bullet all the out and 600ms shoots the bullet into the ground.

if Meters(2) = 600 then Meters(3) = 25

if Meters(2) = 580 then Meters(3) = 50

if Meters(2) = 550 then Meters(3) = 75

if Meters(2) = 530 then Meters(3) = 100

if Meters(2) = 500 then Meters(3) = 125

if Meters(2) = 480 then Meters(3) = 150

if Meters(2) = 450 then Meters(3) = 175

if Meters(2) = 430 then Meters(3) = 200

if Meters(2) = 400 then Meters(3) = 225

if Meters(2) = 380 then Meters(3) = 250

if Meters(2) = 350 then Meters(3) = 275

if Meters(2) = 330 then Meters(3) = 300

if Meters(2) = 300 then Meters(3) = 325

if Meters(2) = 280 then Meters(3) = 350

if Meters(2) = 250 then Meters(3) = 375

if Meters(2) = 230 then Meters(3) = 400

if Meters(2) = 200 then Meters(3) = 425

if Meters(2) = 180 then Meters(3) = 450

if Meters(2) = 150 then Meters(3) = 475

if Meters(2) = 130 then Meters(3) = 500

if Meters(2) = 110 then Meters(3) = 525

if mode > 1

if keystate(157) = 0 and fire2 < 1 then fire2 = 0

if keystate(157) = 1 then fire2 = 1

if fire2 = 1

BulletX(2) = BulletX(2) - IntBulletSpeed

BulletY(2) = BulletY(2) - 1

If BulletX(2) < 1 then  play sound 2 : BulletX(2) = PlayerX(2) : BulletY(2) = 354 : fire2 = 0

If BulletY(2) > 363 then play sound 2 : BulletX(2) = PlayerX(2) : BulletY(2) = 354 : fire2 = 0

If BulletX(2) < Meters(3)

BulletX(2) = BulletX(2) - 1

BulletY(2) = BulletY(2) + 2

endif

if fire2 = 0 then BulletX(2) = PlayerX(2)

if mode < 2 and Difficulty < 3

if PlayerX(1) >= 10 and PlayerX(1) < 20 and Meters(2) < 300 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 10 and PlayerX(1) < 20 and Meters(2) > 300 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 10 and PlayerX(1) < 20 and Meters(3) = 325 then fire2 = 1

if PlayerX(1) >= 20 and PlayerX(1) < 30 and Meters(2) < 300 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 20 and PlayerX(1) < 30 and Meters(2) > 300 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 20 and PlayerX(1) < 30 and Meters(3) = 325 then fire2 = 1

if PlayerX(1) >= 30 and PlayerX(1) < 40 and Meters(2) < 300 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 30 and PlayerX(1) < 40 and Meters(2) > 300 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 30 and PlayerX(1) < 40 and Meters(3) = 325 then fire2 = 1

if PlayerX(1) >= 40 and PlayerX(1) < 50 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 40 and PlayerX(1) < 50 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 40 and PlayerX(1) < 50 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 50 and PlayerX(1) < 60 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 50 and PlayerX(1) < 60 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 50 and PlayerX(1) < 60 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 60 and PlayerX(1) < 70 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 60 and PlayerX(1) < 70 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 60 and PlayerX(1) < 70 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 70 and PlayerX(1) < 80 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 70 and PlayerX(1) < 80 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 70 and PlayerX(1) < 80 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 80 and PlayerX(1) < 90 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 80 and PlayerX(1) < 90 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 80 and PlayerX(1) < 90 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 90 and PlayerX(1) < 100 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 90 and PlayerX(1) < 100 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 90 and PlayerX(1) < 100 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 100 and PlayerX(1) < 110 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 100 and PlayerX(1) < 110 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 100 and PlayerX(1) < 110 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 110 and PlayerX(1) < 120 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 110 and PlayerX(1) < 120 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 110 and PlayerX(1) < 120 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 120 and PlayerX(1) < 130 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 120 and PlayerX(1) < 130 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 120 and PlayerX(1) < 130 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 130 and PlayerX(1) < 140 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 130 and PlayerX(1) < 140 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 130 and PlayerX(1) < 140 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 140 and PlayerX(1) < 150 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 140 and PlayerX(1) < 150 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 140 and PlayerX(1) < 150 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 150 and PlayerX(1) < 160 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 150 and PlayerX(1) < 160 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 150 and PlayerX(1) < 160 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 160 and PlayerX(1) < 170 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 160 and PlayerX(1) < 170 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 160 and PlayerX(1) < 170 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 170 and PlayerX(1) < 180 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 170 and PlayerX(1) < 180 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 170 and PlayerX(1) < 180 and Meters(3) = 425 then fire2 = 1

if PlayerX(1) >= 180 and PlayerX(1) < 190 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 180 and PlayerX(1) < 190 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 180 and PlayerX(1) < 190 and Meters(3) = 425 then fire2 = 1

if PlayerX(1) >= 190 and PlayerX(1) < 200 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 190 and PlayerX(1) < 200 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 190 and PlayerX(1) < 200 and Meters(3) = 425 then fire2 = 1

if PlayerX(1) = 200 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) = 200 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) = 200 and Meters(3) = 425 then fire2 = 1

if fire2 = 1

BulletX(2) = BulletX(2) - IntBulletSpeed

BulletY(2) = BulletY(2) - 1

If BulletX(2) < 1 then  play sound 2 : BulletX(2) = PlayerX(2) : BulletY(2) = 354 : fire2 = 0

If BulletY(2) > 363 then play sound 2 : BulletX(2) = PlayerX(2) : BulletY(2) = 354 : fire2 = 0

If BulletX(2) < Meters(3)

BulletX(2) = BulletX(2) - 1

BulletY(2) = BulletY(2) + 2

endif

if mode < 2 and Difficulty > 2

if PlayerX(1) >= 10 and PlayerX(1) < 20 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 10 and PlayerX(1) < 20 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 10 and PlayerX(1) < 20 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 20 and PlayerX(1) < 30 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 20 and PlayerX(1) < 30 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 20 and PlayerX(1) < 30 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 30 and PlayerX(1) < 40 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 30 and PlayerX(1) < 40 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 30 and PlayerX(1) < 40 and Meters(3) = 350 then fire2 = 1

if PlayerX(1) >= 40 and PlayerX(1) < 50 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 40 and PlayerX(1) < 50 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 40 and PlayerX(1) < 50 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 50 and PlayerX(1) < 60 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 50 and PlayerX(1) < 60 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 50 and PlayerX(1) < 60 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 60 and PlayerX(1) < 70 and Meters(2) < 280 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 60 and PlayerX(1) < 70 and Meters(2) > 280 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 60 and PlayerX(1) < 70 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 70 and PlayerX(1) < 80 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 70 and PlayerX(1) < 80 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 70 and PlayerX(1) < 80 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 80 and PlayerX(1) < 90 and Meters(2) < 250 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 80 and PlayerX(1) < 90 and Meters(2) > 250 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 80 and PlayerX(1) < 90 and Meters(3) = 375 then fire2 = 1

if PlayerX(1) >= 90 and PlayerX(1) < 100 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 90 and PlayerX(1) < 100 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 90 and PlayerX(1) < 100 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 100 and PlayerX(1) < 110 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 100 and PlayerX(1) < 110 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 100 and PlayerX(1) < 110 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 110 and PlayerX(1) < 120 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 110 and PlayerX(1) < 120 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 110 and PlayerX(1) < 120 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 120 and PlayerX(1) < 130 and Meters(2) < 230 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 120 and PlayerX(1) < 130 and Meters(2) > 230 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 120 and PlayerX(1) < 130 and Meters(3) = 400 then fire2 = 1

if PlayerX(1) >= 130 and PlayerX(1) < 140 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 130 and PlayerX(1) < 140 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 130 and PlayerX(1) < 140 and Meters(3) = 425 then fire2 = 1

if PlayerX(1) >= 140 and PlayerX(1) < 150 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 140 and PlayerX(1) < 150 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 140 and PlayerX(1) < 150 and Meters(3) = 425 then fire2 = 1

if PlayerX(1) >= 150 and PlayerX(1) < 160 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 150 and PlayerX(1) < 160 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 150 and PlayerX(1) < 160 and Meters(3) = 425 then fire2 = 1

if PlayerX(1) >= 160 and PlayerX(1) < 170 and Meters(2) < 200 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 160 and PlayerX(1) < 170 and Meters(2) > 200 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 160 and PlayerX(1) < 170 and Meters(3) = 425 then fire2 = 1

if PlayerX(1) >= 170 and PlayerX(1) < 180 and Meters(2) < 180 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 170 and PlayerX(1) < 180 and Meters(2) > 180 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 170 and PlayerX(1) < 180 and Meters(3) = 450 then fire2 = 1

if PlayerX(1) >= 180 and PlayerX(1) < 190 and Meters(2) < 180 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 180 and PlayerX(1) < 190 and Meters(2) > 180 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 180 and PlayerX(1) < 190 and Meters(3) = 450 then fire2 = 1

if PlayerX(1) >= 190 and PlayerX(1) < 200 and Meters(2) < 180 then Meters(2) = Meters(2) + 10

if PlayerX(1) >= 190 and PlayerX(1) < 200 and Meters(2) > 180 then Meters(2) = Meters(2) - 10

if PlayerX(1) >= 190 and PlayerX(1) < 200 and Meters(3) = 450 then fire2 = 1

if PlayerX(1) = 200 and Meters(2) < 180 then Meters(2) = Meters(2) + 10

if PlayerX(1) = 200 and Meters(2) > 180 then Meters(2) = Meters(2) - 10

if PlayerX(1) = 200 and Meters(3) = 450 then fire2 = 1

if fire2 = 1

BulletX(2) = BulletX(2) - IntBulletSpeed

BulletY(2) = BulletY(2) - 1

If BulletX(2) < 1 then  play sound 2 : BulletX(2) = PlayerX(2) : BulletY(2) = 354 : fire2 = 0

If BulletY(2) > 363 then play sound 2 : BulletX(2) = PlayerX(2) : BulletY(2) = 354 : fire2 = 0

If BulletX(2) < Meters(3)

BulletX(2) = BulletX(2) - 1

BulletY(2) = BulletY(2) + 2

endif

if fire2 = 0 then BulletX(2) = PlayerX(2)

`====================================================

`Placec The Player's Sprites and Bullets

sprite 1,BulletX(1),BulletY(1),5

sprite 2,PlayerX(1),PlayerY(1),1

sprite 3,BulletX(2),BulletY(2),5

sprite 4,PlayerX(2),PlayerY(2),2

`Sprite Collision

`===================================================

if sprite hit(1,4) = 1

sprite 4,PlayerX(2),PlayerY(2),7

play sound 3

delete sprite 1

delete sprite 3

PlayerScore(1) = PlayerScore(1) + 1

center text 65,20, "Player 1's Score: " + STR$(PlayerScore(1))

if PlayerScore(1) = wins then set text transparent : center text 320,240, "Player 1 Wins!!" : wait 2000 : end

dim PlayerX(2)

PlayerX(1) = 45

PlayerX(2) = 545

dim PlayerY(2)

PlayerY(1) = 350

PlayerY(2) = 350

`Player 1 and 2s Bullet X and Y coordinates

dim BulletX(2)

BulletX(1) = PlayerX(1) + 46

BulletX(2) = PlayerX(2)

dim BulletY(2)

BulletY(1) = 355

BulletY(2) = 355

Dim Meters(3)

Meters(1) = 100

Meters(2) = 100

text 55,75, " "

text 560,75, " "

wait 2000

endif

if sprite hit(3,2) = 1

sprite 2,PlayerX(1),PlayerY(1),6

play sound 3

delete sprite 1

delete sprite 3

PlayerScore(2) = PlayerScore(2) + 1

center text 570,20, "Player 2's Score: " + STR$(PlayerScore(2))

if PlayerScore(2) = wins then set text transparent : center text 320,240, "Player 2 Wins!!" : wait 2000 : end

dim PlayerX(2)

PlayerX(1) = 45

PlayerX(2) = 545

dim PlayerY(2)

PlayerY(1) = 350

PlayerY(2) = 350

`Player 1 and 2s Bullet X and Y coordinates

dim BulletX(2)

BulletX(1) = PlayerX(1) + 46

BulletX(2) = PlayerX(2)

dim BulletY(2)

BulletY(1) = 355

BulletY(2) = 355

Dim Meters(3)

Meters(1) = 100

Meters(2) = 100

text 55,75, " "

text 560,75, " "

wait 2000

endif

`====================================================

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Skeletor
CodeBase Entries:	5

CodeBase - Tank Wars! (1 player or 2 player)

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments