Graphics 1580,640,0,2
SetBuffer BackBuffer()

Global player1Image = LoadImage("player1.bmp")
Global player1X = 100
Global player1Y = 100

Global Player2Image = LoadImage("player2.bmp")
Global player2X = 1480
Global player2Y = 440

Global bullet1Image = LoadImage("bullet.bmp")
Global bullet1X = 1600
Global bullet1Y = 525

Global bullet2Image = LoadImage("bullet.bmp")
Global bullet2X = 0
Global bullet2Y = 700

Global stage = 1
Global P1score = 3
Global P2score = 3

While Not KeyHit(1)
 Cls
    Select stage

    Case 1
    Fdrawimages()
    Fbullet()
    Fmoveplayer()
    Fplayerscore()

    Case 2
    Text 320,240,"player1 wins!!"
    Text 320,250,"press enter to play again"
    If KeyHit(28) Then stage = 1
    If KeyHit(28) Then P1score = 0
    If KeyHit(28) Then P2score = 0

    Case 3
    Text 320,240,"player2 wins!!"
    Text 320,250,"press enter to play again"
    If KeyHit(28) Then stage = 1
    If KeyHit(28) Then P1score = 0
    If KeyHit(28) Then P2score = 0

    End Select
 Flip
Wend

End

Function Fdrawimages()
DrawImage(bullet1Image,bullet1X,bullet1Y)
DrawImage(bullet2Image,bullet2X,bullet2Y)
DrawImage(player1Image,player1X,player1Y)
DrawImage(player2Image,player2X,player2Y)

End Function

Function Fbullet()

If KeyHit(57) Then bullet1X = player1X + 20

bullet1X = bullet1X + 20
bullet1Y = player1Y + 60

If KeyHit(157) Then bullet2X = player2X - 1

bullet2X = bullet2X - 20
bullet2Y = player2Y - - 50


End Function

Function Fplayerscore()

If ImagesCollide(bullet1Image,bullet1X,bullet1Y,0,player2Image,player2X,player2Y,0) Then P1score = P1score - 1
If ImagesCollide(bullet2Image,bullet2X,bullet2Y,0,player1Image,player1X,player1Y,0) Then P2score = P2score - 1

If P1score = 0 Then stage = 2
If P2score = 0 Then stage = 3

End Function

Function Fmoveplayer()

If KeyDown(17) Then player1Y = player1Y -5
If KeyDown(31) Then player1Y = player1Y +5


If KeyDown(200) Then player2Y = player2Y -5
If KeyDown(208) Then player2Y = player2Y +5

End Function