Sorry your browser is not supported!

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Set Sync
   SYNC ON : SYNC RATE 0

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD BITMAP "phong_background_aqua.jpg"
   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",1
         SPRITE 1,10,20,1
         SET SPRITE 1,1,1
      `Bottom Border
         SPRITE 2,10,640,1
         SET SPRITE 1,1,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 1,1,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 2,1,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 3,1,1


`Main Loop
DO
   sync
LOOP



`Functions
FUNCTION PlayerOneMovement()
ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Set Sync
   SYNC ON : SYNC RATE 0

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD BITMAP "phong_background_aqua.jpg"
   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",1
         SPRITE 1,10,20,1
         SET SPRITE 1,1,1
      `Bottom Border
         SPRITE 2,10,640,1
         SET SPRITE 2,1,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,1,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,1,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,1,1


`Main Loop
DO
   sync
LOOP



`Functions
FUNCTION PlayerOneMovement()
ENDFUNCTION

make object sphere 1,1
do

gosub moveobject

loop

moveobject:

if upkey() = 1 thenb move object 1,.3

return

make object sphere 1,1
do

rem call function "moveobjectup"
moveobjectup(1,2)

loop 

function moveobjectup(object#,speed#)
move object object#,speed
end function 

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD BITMAP "phong_background_aqua.jpg"
   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",1
         SPRITE 1,10,20,1
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 2,10,640,1
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1


`Main Loop
DO
   PlayerOneMovement()

   SYNC
LOOP



`Functions
FUNCTION PlayerOneMovement()

   `Assign the latest value to the player
      Player1X# = SPRITE X (10)
      Player1Y# = SPRITE Y (10)

   `Move Up
      IF UPKEY() = 1 THEN Player1Y# = SPRITE Y (10)-30
   `Move Down
      IF DOWNKEY() = 1 THEN Player1Y# = SPRITE Y (10)+30
   `Move Left
      IF LEFTKEY() = 1 THEN Player1X# = SPRITE X (10)-10
   `Move Right
      IF RIGHTKEY() = 1 THEN Player1X# = SPRITE X (10)+10

   `Update Sprite Position ( X - Y )
      SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD BITMAP "phong_background_aqua.jpg"
   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",1
         SPRITE 1,10,20,1
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 2,10,640,1
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1


`Main Loop
DO
   `Control Player One
      PlayerOneMovement()
   `Clean the screen
      CLS
   `Sync Screen
      SYNC
LOOP



`Functions
FUNCTION PlayerOneMovement()

   `Assign the latest value to the player
      Player1X# = SPRITE X (10)
      Player1Y# = SPRITE Y (10)

   `Move Up
      IF UPKEY() = 1 THEN Player1Y# = SPRITE Y (10)-30
   `Move Down
      IF DOWNKEY() = 1 THEN Player1Y# = SPRITE Y (10)+30
   `Move Left
      IF LEFTKEY() = 1 THEN Player1X# = SPRITE X (10)-10
   `Move Right
      IF RIGHTKEY() = 1 THEN Player1X# = SPRITE X (10)+10

   `Update Sprite Position ( X - Y )
      SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set Chroma - Key
   SET IMAGE COLORKEY 0,0,0

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD Image "phong_background_aqua.jpg",1
      SPRITE 1,0,0,1
      SET SPRITE 1,0,0
   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",2
         SPRITE 2,10,20,2
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 3,10,640,2
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1


`Main Loop
DO
   `Control Player One
      PlayerOneMovement()
   `Scroll The Screen Background
      ScrollBg()
   `Clean the screen
      CLS
   `Sync Screen
      SYNC
LOOP



`Functions
FUNCTION PlayerOneMovement()

   `Assign the latest value to the player
      Player1X# = SPRITE X (10)
      Player1Y# = SPRITE Y (10)

   `Move Up
      IF UPKEY() = 1 THEN Player1Y# = SPRITE Y (10)-30
   `Move Down
      IF DOWNKEY() = 1 THEN Player1Y# = SPRITE Y (10)+30
   `Move Left
      IF LEFTKEY() = 1 THEN Player1X# = SPRITE X (10)-10
   `Move Right
      IF RIGHTKEY() = 1 THEN Player1X# = SPRITE X (10)+10

   `Update Sprite Position ( X - Y )
      SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION

FUNCTION ScrollBg()

`Set Background Coordenates ( X - Y )
   BgX# = SPRITE X (1) + 50
   BgY# = SPRITE Y (1)
`Loop The Scroll
   IF BgX# > 1000 Then BgX# = -1000
`Update Sprite On Screen
   SPRITE 1,BgX#,BgY#,1

ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set Chroma - Key
   SET IMAGE COLORKEY 50,50,50

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD Image "phong_background_aqua.jpg",1
      SPRITE 1,-1024,0,1
      SET SPRITE 1,0,0
   `Create and place Scrolling Background
      SPRITE 2,0,0,1
      SET SPRITE 1,0,0

   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",3
         SPRITE 3,10,15,3
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 4,10,660,3
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1

`Set Variables for speed
   `Player One Sped
      PlayerOneSpeedUp#    = 20
      PlayerOneSpeedDown#  = 20
      PlayerOneSpeedLeft#  = 5
      PlayerOneSpeedRight# = 5
   `Player Two Speed
   `Disk Speed


`Main Loop
DO

   `Control Player One Movement
      PlayerOneMovement(PlayerOneSpeedUp#,PlayerOneSpeedDown#,PlayerOneSpeedLeft#,PlayerOneSpeedRight#)
   `Scrolling Background
      ScrollingBg()
   `Clean the screena and Sync
      CLS : SYNC

LOOP


`Sub Rutines

`Functions
FUNCTION PlayerOneMovement(PlayerOneSpeedUp#,PlayerOneSpeedDown#,PlayerOneSpeedLeft#,PlayerOneSpeedRight#)

   `Assign the latest value to the player
      Player1X# = SPRITE X (10)
      Player1Y# = SPRITE Y (10)

   `Move Up
      IF UPKEY() = 1 THEN Player1Y# = SPRITE Y (10) - PlayerOneSpeedUp#
   `Move Down
      IF DOWNKEY() = 1 THEN Player1Y# = SPRITE Y (10) + PlayerOneSpeedDown#
   `Move Left
      IF LEFTKEY() = 1 THEN Player1X# = SPRITE X (10) - PlayerOneSpeedLeft#
   `Move Right
      IF RIGHTKEY() = 1 THEN Player1X# = SPRITE X (10) + PlayerOneSpeedRight#

   `Update Sprite Position ( X - Y )
      SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION


FUNCTION ScrollingBg()

`Set Background Coordenates ( X - Y )
   `Set Plane 1
      BgX1# = SPRITE X (1)
      BgY1# = SPRITE y (1)
   `Set Plane 2
      BgX2# = SPRITE X (2)
      BgY2# = SPRITE y (2)

`Loop The Background
   IF BgX2# < 1024
      BgX2# = SPRITE X (2) + 5
   ENDIF

   IF BgX2# > 0
      BgX1# = SPRITE X (1) + 5
   ENDIF

   IF BgX1# > 1
      BgX2# = 0
      BgX1# = -1024
   ENDIF

`Update Sprite On Screen
   SPRITE 1,BgX1#,BgY1#,1
   SPRITE 2,BgX2#,BgY2#,1

ENDFUNCTION

FUNCTION GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)

`Get The Player One Coordenates
   Player1X# = SPRITE X (10)
   Player1Y# = SPRITE Y (10)

`Get The Player Two Coordenates
   Player2X# = SPRITE X (11)
   Player2Y# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get Background Coordenates
   `Get Plane 1
      BgX1# = SPRITE X (1)
      BgY1# = SPRITE y (1)
   `Get Plane 2
      BgX2# = SPRITE X (2)
      BgY2# = SPRITE y (2)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set Chroma - Key
   SET IMAGE COLORKEY 50,50,50

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD Image "phong_background_aqua.jpg",1
      SPRITE 1,-1024,0,1
      SET SPRITE 1,0,0
   `Create and place Scrolling Background
      SPRITE 2,0,0,1
      SET SPRITE 1,0,0

   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",3
         SPRITE 3,10,15,3
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 4,10,660,3
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1

`Set Variables for speed
   `Player One Sped
      PlayerOneSpeedUp#    = 20
      PlayerOneSpeedDown#  = 20
      PlayerOneSpeedLeft#  = 5
      PlayerOneSpeedRight# = 5
   `Player Two Speed
   `Disk Speed


`Main Loop
DO

   `Get Objects Coordenates
      GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)
   `Control Player One Movement
      PlayerOneMovement(PlayerOneSpeedUp#,PlayerOneSpeedDown#,PlayerOneSpeedLeft#,PlayerOneSpeedRight#)
   `Colision
      ColisionDetector()
   `Scrolling Background
      ScrollingBg()
   `Clean the screena and Sync
      CLS : SYNC

LOOP



`Functions

FUNCTION PlayerOneMovement(PlayerOneSpeedUp#,PlayerOneSpeedDown#,PlayerOneSpeedLeft#,PlayerOneSpeedRight#)

   `Assign the latest value to the player
      GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)

   `Move Up
      IF UPKEY() = 1 THEN Player1Y# = SPRITE Y (10) - PlayerOneSpeedUp#
   `Move Down
      IF DOWNKEY() = 1 THEN Player1Y# = SPRITE Y (10) + PlayerOneSpeedDown#
   `Move Left
      IF LEFTKEY() = 1 THEN Player1X# = SPRITE X (10) - PlayerOneSpeedLeft#
   `Move Right
      IF RIGHTKEY() = 1 THEN Player1X# = SPRITE X (10) + PlayerOneSpeedRight#

   `Update Sprite Position ( X - Y )
      SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION


FUNCTION ColisionDetector()

`Get The Player One Coordenates
   GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)

`Set the colide variables
   ColideBorderTop = SPRITE COLLISION(10,3)
   ColideBorderBottom = SPRITE COLLISION(10,4)

`Add the logic for detection
   `Colide with the Top & Bottom Borders
      IF ColideBorderTop = 1 THEN Player1Y# = Player1Y# + 25
      IF ColideBorderBottom = 1 THEN Player1Y# = Player1Y# - 25

`Update Sprite
   SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION



FUNCTION ScrollingBg()

`Set Background Coordenates ( X - Y )
   GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)

`Loop The Background
   IF BgX2# < 1024
      BgX2# = SPRITE X (2) + 5
   ENDIF

   IF BgX2# > 0
      BgX1# = SPRITE X (1) + 5
   ENDIF

   IF BgX1# > 1
      BgX2# = 0
      BgX1# = -1024
   ENDIF

`Update Sprite On Screen
   SPRITE 1,BgX1#,BgY1#,1
   SPRITE 2,BgX2#,BgY2#,1

ENDFUNCTION

FUNCTION GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)

`Get The Player One Coordenates
   Player1X# = SPRITE X (10)
   Player1Y# = SPRITE Y (10)

`Get The Player Two Coordenates
   Player2X# = SPRITE X (11)
   Player2Y# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get Background Coordenates
   `Get Plane 1
      BgX1# = SPRITE X (1)
      BgY1# = SPRITE y (1)
   `Get Plane 2
      BgX2# = SPRITE X (2)
      BgY2# = SPRITE y (2)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


MainSetup()
CreateAndPlaceSprites()
SetInitialSpeedVariables(PlayerOneSpeedUp#,PlayerOneSpeedDown#,PlayerOneSpeedLeft#,PlayerOneSpeedRight#)

`--------------------------------------------------------------------------------------------------------------------------- ( Main Loop )
DO

   `Control Player One Movement
      PlayerOneMovement(PlayerOneSpeedUp,PlayerOneSpeedDown,PlayerOneSpeedLeft,PlayerOneSpeedRight)
   `Colision
      ColisionDetector()
   `Scrolling Background
      ScrollingBg()
   `Clean the screena and Sync
      CLS : SYNC

LOOP

`--------------------------------------------------------------------------------------------------------------------------- ( Functions )

FUNCTION MainSetup()

`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      POSITION MOUSE 0,0
      `HIDE MOUSE

`Set Chroma - Key
   SET IMAGE COLORKEY 50,50,50

ENDFUNCTION

FUNCTION CreateAndPlaceSprites()

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD Image "phong_background_aqua.jpg",1
      SPRITE 1,-1024,0,1
      SET SPRITE 1,0,0
   `Create and place Scrolling Background
      SPRITE 2,0,0,1
      SET SPRITE 1,0,0

   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",3
         SPRITE 3,10,15,3
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 4,10,660,3
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1

ENDFUNCTION

FUNCTION SetInitialSpeedVariables(PlayerOneSpeedUp,PlayerOneSpeedDown,PlayerOneSpeedLeft,PlayerOneSpeedRight)

`Set Variables for speed
   `Player One Sped
      PlayerOneSpeedUp      = 20
      PlayerOneSpeedDown    = 20
      PlayerOneSpeedLeft    = 5
      PlayerOneSpeedRight   = 5
   `Player Two Speed
   `Disk Speed

ENDFUNCTION

FUNCTION PlayerOneMovement(PlayerOneSpeedUp#,PlayerOneSpeedDown#,PlayerOneSpeedLeft#,PlayerOneSpeedRight#)

   `Assign the latest value to the player
      Player1X# = SPRITE X (10)
      Player1Y# = SPRITE Y (10)

   `Move Up
      IF UPKEY() = 1 THEN Player1Y# = SPRITE Y (10) - PlayerOneSpeedUp#
   `Move Down
      IF DOWNKEY() = 1 THEN Player1Y# = SPRITE Y (10) + PlayerOneSpeedDown#
   `Move Left
      IF LEFTKEY() = 1 THEN Player1X# = SPRITE X (10) - PlayerOneSpeedLeft#
   `Move Right
      IF RIGHTKEY() = 1 THEN Player1X# = SPRITE X (10) + PlayerOneSpeedRight#

   `Update Sprite Position ( X - Y )
      SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION

FUNCTION ColisionDetector()

`Get The Player One Coordenates
   Player1X# = SPRITE X (10)
   Player1Y# = SPRITE Y (10)

`Set the colide variables
   ColideBorderTop = SPRITE COLLISION(10,3)
   ColideBorderBottom = SPRITE COLLISION(10,4)

`Add the logic for detection
   `Colide with the Top & Bottom Borders
      IF ColideBorderTop = 1 THEN Player1Y# = Player1Y# + 25
      IF ColideBorderBottom = 1 THEN Player1Y# = Player1Y# - 25

`Update Sprite
   SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION

FUNCTION ScrollingBg()

`Set Background Coordenates ( X - Y )
   `Set Plane 1
      BgX1# = SPRITE X (1)
      BgY1# = SPRITE y (1)
   `Set Plane 2
      BgX2# = SPRITE X (2)
      BgY2# = SPRITE y (2)

`Loop The Background
   IF BgX2# < 1024
      BgX2# = SPRITE X (2) + 5
   ENDIF

   IF BgX2# > 0
      BgX1# = SPRITE X (1) + 5
   ENDIF

   IF BgX1# > 1
      BgX2# = 0
      BgX1# = -1024
   ENDIF

`Update Sprite On Screen
   SPRITE 1,BgX1#,BgY1#,1
   SPRITE 2,BgX2#,BgY2#,1

ENDFUNCTION

FUNCTION GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)

`Get The Player One Coordenates
   Player1X# = SPRITE X (10)
   Player1Y# = SPRITE Y (10)

`Get The Player Two Coordenates
   Player2X# = SPRITE X (11)
   Player2Y# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get Background Coordenates
   `Get Plane 1
      BgX1# = SPRITE X (1)
      BgY1# = SPRITE y (1)
   `Get Plane 2
      BgX2# = SPRITE X (2)
      BgY2# = SPRITE y (2)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM

`Array Declaration
   `Create Arrays For All Initial Variables
      `Initial Speed
         DIM InitialSpeedArray(3,4)

`Program Setup
   MainSetup()
   CreateAndPlaceSprites()
   SetInitialSpeedVariables()

`----------------------------------------------------------------------------------------------------------- ( Main Loop )
DO

   `Control Player One Movement
      PlayerOneMovement(PlayerOneSpeedUp,PlayerOneSpeedDown,PlayerOneSpeedLeft,PlayerOneSpeedRight)
   `Colision
      ColisionDetector()
   `Scrolling Background
      ScrollingBg()
   `Clean the screena and Sync
      CLS : SYNC

LOOP

`----------------------------------------------------------------------------------------------------------- ( Functions )

FUNCTION MainSetup()

`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set Chroma - Key
   SET IMAGE COLORKEY 50,50,50

ENDFUNCTION

FUNCTION CreateAndPlaceSprites()

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD Image "phong_background_aqua.jpg",1
      SPRITE 1,-1024,0,1
      SET SPRITE 1,0,0
   `Create and place Scrolling Background
      SPRITE 2,0,0,1
      SET SPRITE 1,0,0

   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",3
         SPRITE 3,10,15,3
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 4,10,660,3
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1

ENDFUNCTION

FUNCTION SetInitialSpeedVariables()

`Set The Initial Variables For All The Objects Here
   `Player One Speed
      PlayerOneSpeedUp      = 20
      PlayerOneSpeedDown    = 20
      PlayerOneSpeedLeft    = 5
      PlayerOneSpeedRight   = 5
   `Player Two Speed
      PlayerTwoSpeedUp      = 20
      PlayerTwoSpeedDown    = 20
      PlayerTwoSpeedLeft    = 5
      PlayerTwoSpeedRight   = 5
   `Disk Speed
      DiskSpeed             = 1

`Popullate The Arrays
   `Popullate Player One Initial Speed Variables
      InitialSpeedArray(1,1) = PlayerOneSpeedUp
      InitialSpeedArray(1,2) = PlayerOneSpeedDown
      InitialSpeedArray(1,3) = PlayerOneSpeedLeft
      InitialSpeedArray(1,4) = PlayerOneSpeedRight
   `Popullate Player Two Initial Speed Variables
      InitialSpeedArray(2,1) = PlayerOneSpeedUp
      InitialSpeedArray(2,2) = PlayerOneSpeedDown
      InitialSpeedArray(2,3) = PlayerOneSpeedLeft
      InitialSpeedArray(2,4) = PlayerOneSpeedRight
   `Popullate Disk Initial Speed Variables
      InitialSpeedArray(3,1) = PlayerOneSpeedUp


ENDFUNCTION

FUNCTION PlayerOneMovement(PlayerOneSpeedUp#,PlayerOneSpeedDown#,PlayerOneSpeedLeft#,PlayerOneSpeedRight#)

   `Assign the latest value to the player
      Player1X# = SPRITE X (10)
      Player1Y# = SPRITE Y (10)

   `Move Up
      IF UPKEY() = 1 THEN Player1Y# = SPRITE Y (10) - PlayerOneSpeedUp#
   `Move Down
      IF DOWNKEY() = 1 THEN Player1Y# = SPRITE Y (10) + PlayerOneSpeedDown#
   `Move Left
      IF LEFTKEY() = 1 THEN Player1X# = SPRITE X (10) - PlayerOneSpeedLeft#
   `Move Right
      IF RIGHTKEY() = 1 THEN Player1X# = SPRITE X (10) + PlayerOneSpeedRight#

   `Update Sprite Position ( X - Y )
      SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION

FUNCTION ColisionDetector()

`Get The Player One Coordenates
   Player1X# = SPRITE X (10)
   Player1Y# = SPRITE Y (10)

`Set the colide variables
   ColideBorderTop = SPRITE COLLISION(10,3)
   ColideBorderBottom = SPRITE COLLISION(10,4)

`Add the logic for detection
   `Colide with the Top & Bottom Borders
      IF ColideBorderTop = 1 THEN Player1Y# = Player1Y# + 25
      IF ColideBorderBottom = 1 THEN Player1Y# = Player1Y# - 25

`Update Sprite
   SPRITE 10,Player1X#,Player1Y#,10

ENDFUNCTION

FUNCTION ScrollingBg()

`Set Background Coordenates ( X - Y )
   `Set Plane 1
      BgX1# = SPRITE X (1)
      BgY1# = SPRITE y (1)
   `Set Plane 2
      BgX2# = SPRITE X (2)
      BgY2# = SPRITE y (2)

`Loop The Background
   IF BgX2# < 1024
      BgX2# = SPRITE X (2) + 5
   ENDIF

   IF BgX2# > 0
      BgX1# = SPRITE X (1) + 5
   ENDIF

   IF BgX1# > 1
      BgX2# = 0
      BgX1# = -1024
   ENDIF

`Update Sprite On Screen
   SPRITE 1,BgX1#,BgY1#,1
   SPRITE 2,BgX2#,BgY2#,1

ENDFUNCTION

FUNCTION GetCoordenates(Player1X#,Player1Y#,Player2X#,Player2Y#,DiskX#,DiskY#,BgX1#,BgY1#,BgX2#,BgY2#,BorderTopX#,BorderTopY#,BorderBottomX#,BorderBottomY#)

`Get The Player One Coordenates
   Player1X# = SPRITE X (10)
   Player1Y# = SPRITE Y (10)

`Get The Player Two Coordenates
   Player2X# = SPRITE X (11)
   Player2Y# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get Background Coordenates
   `Get Plane 1
      BgX1# = SPRITE X (1)
      BgY1# = SPRITE y (1)
   `Get Plane 2
      BgX2# = SPRITE X (2)
      BgY2# = SPRITE y (2)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM

`Array Declaration
   `Create Arrays For All Initial Variables
      `Initial Speed
         DIM InitialSpeedArray(1,9)

`Program Setup
   MainSetup()
   CreateAndPlaceSprites()
   SetInitialSpeedVariables()

FUNCTION SetInitialSpeedVariables()

`Set The Initial Variables For All The Objects Here
   `Player One Speed
      PlayerOneSpeedUp      = 20
      PlayerOneSpeedDown    = 20
      PlayerOneSpeedLeft    = 5
      PlayerOneSpeedRight   = 5
   `Player Two Speed
      PlayerTwoSpeedUp      = 20
      PlayerTwoSpeedDown    = 20
      PlayerTwoSpeedLeft    = 5
      PlayerTwoSpeedRight   = 5
   `Disk Speed
      DiskSpeed             = 1

`Popullate The Arrays
   `Popullate Player One Initial Speed Variables
      InitialSpeedArray(1,1) = PlayerOneSpeedUp
      InitialSpeedArray(1,2) = PlayerOneSpeedDown
      InitialSpeedArray(1,3) = PlayerOneSpeedLeft
      InitialSpeedArray(1,4) = PlayerOneSpeedRight
   `Popullate Player Two Initial Speed Variables
      InitialSpeedArray(2,1) = PlayerOneSpeedUp
      InitialSpeedArray(2,2) = PlayerOneSpeedDown
      InitialSpeedArray(2,3) = PlayerOneSpeedLeft
      InitialSpeedArray(2,4) = PlayerOneSpeedRight
   `Popullate Disk Initial Speed Variables
      InitialSpeedArray(3,1) = PlayerOneSpeedUp


ENDFUNCTION

`Project: Phong
`Author: Alexis Solano
`Created: 12/30/2004 9:15:28 PM


`Program Setup
   `Heads or Tail to start the game
      DiskHitStatus$ = "UserTurn"

   `Set Stage Up
      MainSetup()
      CreateAndPlaceSprites()

   `Hide and unhide the background
      `HIDE SPRITE 1 : HIDE SPRITE 2

   `Set up the initial variables for the game
      GOSUB _SetInitialSpeedVariables
      GOSUB _GetAngleCoordenates
      GOSUB _GetCoordenates

`--------------------------------------------------------------------------------------------------------- ^  Main Loop  ^
DO
   `Control Player One Movement
      GOSUB _PlayerOneMovement:
   `Control Disk Movement
      GOSUB _DiskMovement:
   `Colision
      GOSUB _ColisionDetector
   `Scrolling Background
      ScrollingBg()
   `Clean the screena and Sync
      CLS : SYNC

LOOP

`--------------------------------------------------------------------------------------------------------- ^ Sub Rutines ^

`-------------------------------------------------------- ( GetCoordenates )
_GetCoordenates:

`Get The Player One Coordenates
   PlayerOneX# = SPRITE X (10)
   PlayerOneY# = SPRITE Y (10)

`Get The Player Two Coordenates
   PlayerTwoX# = SPRITE X (11)
   PlayerTwoY# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get Background Coordenates
   `Get Plane 1
      BgXOne# = SPRITE X (1)
      BgYOne# = SPRITE y (1)
   `Get Plane 2
      BgXTwo# = SPRITE X (2)
      BgYTwo# = SPRITE y (2)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

RETURN

`-------------------------------------------------------- ( GetAngleCoordenates )
_GetAngleCoordenates:


IF PlayerOneY# < 250
   PlayerOneAngle# = 90
ENDIF
IF PlayerOneY# > 250
   PlayerOneAngle# = -90
ENDIF


RETURN

`-------------------------------------------------------- ( SetInitialSpeedVariables )
_SetInitialSpeedVariables:

`Set The Initial Variables For All The Objects
   `Player One Speed
      PlayerOneSpeedUp#      = 20
      PlayerOneSpeedDown#    = 20
      PlayerOneSpeedLeft#    = 5
      PlayerOneSpeedRight#   = 5
   `Player Two Speed
      PlayerTwoSpeedUp#      = 20
      PlayerTwoSpeedDown#    = 20
      PlayerTwoSpeedLeft#    = 5
      PlayerTwoSpeedRight#   = 5
   `Disk Speed
      DiskSpeed#             = 4

RETURN

`-------------------------------------------------------- ( ColisionDetector )
_ColisionDetector:

`Get Coordenates
   GOSUB _GetCoordenates

`Player One Collision
   `Set the colide variables for the borders
      PlayerOneColideBorderTop     = SPRITE COLLISION(10,3)
      PlayerOneColideBorderBottom  = SPRITE COLLISION(10,4)
      `PlayerOneColideBorderCenter = SPRITE COLLISION(10,?) - SPRITE NOT PRESENT YET

   `Set the colide variables for the disk
      PlayerOneColideDisk = SPRITE COLLISION(10,12)

   `Add the logic for detection
      `Colide with the Top & Bottom Borders
         IF PlayerOneColideBorderTop     = 1 THEN PlayerOneY# = PlayerOneY# + 25
         IF PlayerOneColideBorderBottom  = 1 THEN PlayerOneY# = PlayerOneY# - 25
         `IF PlayerOneColideBorderCenter = 1 THEN PlayerOneX# = PlayerOneX# ? - SPRITE NOT PRESENT YET

      `Colide with the disk
         IF PlayerOneColideDisk = 1
            DiskX# = DiskX# + 5
            DiskY# = DiskY# + 0
         ENDIF


`Player Two Collision
   `Set the colide variables for the borders
      PlayerTwoColideBorderTop     = SPRITE COLLISION(11,3)
      PlayerTwoColideBorderBottom  = SPRITE COLLISION(11,4)
      `PlayerTwoColideBorderCenter = SPRITE COLLISION(11,?) - SPRITE NOT PRESENT YET

   `Set the colide variables for the disk
      PlayerTwoColideDisk = SPRITE COLLISION(11,12)

   `Add the logic for detection
      `Colide with the Top & Bottom Borders
         IF PlayerTwoColideBorderTop     = 1 THEN PlayerTwoY# = PlayerTwoY# + 25
         IF PlayerTwoColideBorderBottom  = 1 THEN PlayerTwoY# = PlayerTwoY# - 25
         `IF PlayerTwoColideBorderCenter = 1 THEN PlayerTwoX# = PlayerTwoX# ? - SPRITE NOT PRESENT YET

      `Colide with the disk
         IF PlayerTwoColideDisk = 1
            DiskX# = DiskX# - 5
            DiskY# = DiskY# + 0
         ENDIF


`Disk Collision
   `Set the colide variables for the borders
      DiskColideBorderTop      = SPRITE COLLISION(12,3)
      DiskColideBorderBottom   = SPRITE COLLISION(12,4)
      `DiskColideBorderCenter  = SPRITE COLLISION(10,?) - SPRITE NOT PRESENT YET

   `Add the logic for detection
      `Colide with the Top & Bottom Borders
         IF DiskColideBorderTop     = 1
            DiskX# = DiskX# + 0
            DiskY# = DiskY# + 25
         ENDIF

         IF DiskColideBorderBottom  = 1
            DiskX# = DiskX# + 0
            DiskY# = DiskY# - 25
         ENDIF
         `IF PlayerOneColideBorderCenter = 1 THEN PlayerOneX# = PlayerOneX# ? - SPRITE NOT PRESENT YET

`Update Sprites
   GOSUB _UpdateSprites

RETURN

`-------------------------------------------------------- ( PlayerOneMovement )
_PlayerOneMovement:

`Get The Player One Coordenates
   GOSUB _GetCoordenates

   `Move Up
      IF UPKEY()    = 1 THEN PlayerOneY# = SPRITE Y (10) - PlayerOneSpeedUp#
   `Move Down
      IF DOWNKEY()  = 1 THEN PlayerOneY# = SPRITE Y (10) + PlayerOneSpeedDown#
   `Move Left
      IF LEFTKEY()  = 1 THEN PlayerOneX# = SPRITE X (10) - PlayerOneSpeedLeft#
   `Move Right
      IF RIGHTKEY() = 1 THEN PlayerOneX# = SPRITE X (10) + PlayerOneSpeedRight#

`Update Sprites
   GOSUB _UpdateSprites

RETURN

`-------------------------------------------------------- ( PlayerOneMovement )
_DiskMovement:

`Get Disk Coordenates
   GOSUB _GetCoordenates

`Variation to the Constant Speed
   `If the disk hits the Player One
         IF PlayerOneColideDisk = 1
            DiskHitStatus$ = "PlayerOne"
            DiskX# = DiskX# + 20
            DiskY# = DiskY# - DiskAngle#
         ENDIF

   `If the disk hits the Player Two
         IF PlayerTwoColideDisk = 1
            DiskHitStatus$ = "PlayerTwo"
            DiskX# = DiskX# - 20
            DiskY# = DiskY# - DiskAngle#
         ENDIF

   `If the disk hits the top borders
         IF DiskColideBorderTop = 1
            DiskHitStatus$ = "TopBorder"
            DiskX# = DiskX# + 25
            DiskY# = DiskY# - DiskAngle#
         ENDIF

   `If the disk hits the bottom borders
         IF DiskColideBorderBottom = 1
            DiskHitStatus$ = "BottomBorder"
            DiskX# = DiskX# - 25
            DiskY# = DiskY# - DiskAngle#
         ENDIF

`Constant Speed
   WHILE DiskHitStatus$ = "UserTurn"
      DiskX# = DiskX# - DiskSpeed#
      DiskY# = DiskY# - DiskAngle#
      EXIT
   ENDWHILE

   WHILE DiskHitStatus$ = "PlayerOne"
      DiskX# = DiskX# + DiskSpeed#
      DiskY# = DiskY# - DiskAngle#
      EXIT
   ENDWHILE

   WHILE DiskHitStatus$ = "PlayerTwo"
      DiskX# = DiskX# - DiskSpeed#
      DiskY# = DiskY# - DiskAngle#
      EXIT
   ENDWHILE

   WHILE DiskHitStatus$ = "TopBorder"
      DiskX# = DiskX# - DiskAngle#
      DiskY# = DiskY# + DiskSpeed#
      EXIT
   ENDWHILE

   WHILE DiskHitStatus$ = "BottomBorder"
      DiskX# = DiskX# - DiskAngle#
      DiskY# = DiskY# - DiskSpeed#
      EXIT
   ENDWHILE


`Update Sprites
   GOSUB _UpdateSprites

RETURN

`-------------------------------------------------------- ( Update Sprites )
_UpdateSprites:

`Update Sprites
   SPRITE 10,PlayerOneX#,PlayerOneY#,10
   SPRITE 11,PlayerTwoX#,PlayerTwoY#,11
   SPRITE 12,DiskX#,DiskY#,12

RETURN

`--------------------------------------------------------------------------------------------------------- ^  Functions  ^

FUNCTION MainSetup()

`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set Chroma_Key
   SET IMAGE COLORKEY 50,50,50

ENDFUNCTION

FUNCTION CreateAndPlaceSprites()

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD Image "phong_background_aqua.jpg",1
      SPRITE 1,-1024,0,1
      SET SPRITE 1,0,0
   `Create and place Scrolling Background
      SPRITE 2,0,0,1
      SET SPRITE 1,0,0

   `Create and place borders
      `Top Border
         LOAD IMAGE "phong_background_border_aqua.png",3
         SPRITE 3,10,15,3
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 4,10,660,3
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1

ENDFUNCTION

FUNCTION ScrollingBg()

`Set Background Coordenates ( X - Y )
   `Set Plane 1
      BgXOne# = SPRITE X (1)
      BgYOne# = SPRITE y (1)
   `Set Plane 2
      BgXTwo# = SPRITE X (2)
      BgYTwo# = SPRITE y (2)

`Loop The Background
   IF BgXTwo# < 1024
      BgXTwo# = SPRITE X (2) + 5
   ENDIF

   IF BgXTwo# > 0
      BgXOne# = SPRITE X (1) + 5
   ENDIF

   IF BgXOne# > 1
      BgXTwo# = 0
      BgXOne# = -1024
   ENDIF

`Update Background Sprite On Screen
   SPRITE 1,BgXOne#,BgYOne#,1
   SPRITE 2,BgXTwo#,BgYTwo#,1

ENDFUNCTION

`Project  : Phong 2D
`Author   : Alexis Solano
` Created : 1/2/2005 5:37:54 PM

``--------------------------------------------------------------------------------------------------------- ^  Program Setup ^
   `Set Stage
      MainSetup()
   `Load and display: The loading screen
      GOSUB _LoadingScreen
   `Create and place the sprites
      CreateAndPlaceSprites()
   `Hide and unhide the background
      `HIDE SPRITE 1 : HIDE SPRITE 2
   `Set up the initial variables for the game
      GOSUB _SetInitialVariables
   `Heads or Tail to start the game
      GOSUB _TossCoin

`--------------------------------------------------------------------------------------------------------- ^  Main Loop  ^
DO
   `Get Coordenates
      GOSUB _GetAngleCoordenates
   `Control Player One Movement
      GOSUB _PlayerOneMovement:
   `Control Player Two Movement
      GOSUB _PlayerTwoMovement:
   `Control Disk Movement
      GOSUB _DiskMovement:
   `Colision
      GOSUB _ColisionDetector
   `Scrolling Background
      ScrollingBg()
   `Clean the screena and Sync
      CLS
      SYNC

LOOP

`--------------------------------------------------------------------------------------------------------- ^ Sub Rutines ^
`-------------------------------------------------------- ( Loading Screen )
`Show Loading Screen
_LoadingScreen:

   LOAD IMAGE "media\images\LoadingScreen.jpg",100
   loadcounter = 1
   WHILE loadcounter < 150
      PASTE IMAGE 100, 0, 0
      SYNC
      INC loadcounter
   ENDWHILE

RETURN

`-------------------------------------------------------- ( SetInitialSpeedVariables )
_SetInitialVariables:

`Set Speed Initial Variables For All The Objects
   `Player One Speed
      PlayerOneSpeedUp#      = 20
      PlayerOneSpeedDown#    = 20
      PlayerOneSpeedLeft#    = 5
      PlayerOneSpeedRight#   = 5
   `Player Two Speed
      PlayerTwoSpeedUp#      = 20
      PlayerTwoSpeedDown#    = 20
      PlayerTwoSpeedLeft#    = 5
      PlayerTwoSpeedRight#   = 5
   `Disk Speed
      DiskSpeed#             = 5

RETURN

`-------------------------------------------------------- ( GetCoordenates )
_GetCoordenates:

`Get The Player One Coordenates
   PlayerOneX# = SPRITE X (10)
   PlayerOneY# = SPRITE Y (10)

`Get The Player Two Coordenates
   PlayerTwoX# = SPRITE X (11)
   PlayerTwoY# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get Background Coordenates
   `Get Plane 1
      BgXOne# = SPRITE X (1)
      BgYOne# = SPRITE y (1)
   `Get Plane 2
      BgXTwo# = SPRITE X (2)
      BgYTwo# = SPRITE y (2)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

RETURN

`-------------------------------------------------------- ( GetAngleCoordenates )
_GetAngleCoordenates:


IF PlayerOneY# < 250
   PlayerOneAngle# = 90
ENDIF
IF PlayerOneY# > 250
   PlayerOneAngle# = -90
ENDIF

IF PlayerTwoY# < 250
   PlayerTwoAngle# = 90
ENDIF
IF PlayerTwoY# > 250
   PlayerTwoAngle# = -90
ENDIF

PRINT PlayerOneAngle#


RETURN

`-------------------------------------------------------- ( ColisionDetector )
_ColisionDetector:

`Get Coordenates
   GOSUB _GetCoordenates

`Player One Collisions -----------------------------------------------
   `Set the colide variables for the borders
      PlayerOneColideBorderTop     = SPRITE COLLISION(10,3)
      PlayerOneColideBorderBottom  = SPRITE COLLISION(10,4)

   `Set the colide variables for the disk
      PlayerOneColideDisk = SPRITE COLLISION(10,12)

   `Add the logic for detection
      `Colide with the Top & Bottom Borders
         IF PlayerOneColideBorderTop     = 1 THEN PlayerOneY# = 50
         IF PlayerOneColideBorderBottom  = 1 THEN PlayerOneY# = 460

`Player Two Collisions ------------------------------------------------
   `Set the colide variables for the borders
      PlayerTwoColideBorderTop     = SPRITE COLLISION(11,3)
      PlayerTwoColideBorderBottom  = SPRITE COLLISION(11,4)

   `Set the colide variables for the disk
      PlayerTwoColideDisk = SPRITE COLLISION(11,12)

   `Add the logic for detection
      `Colide with the Top & Bottom Borders
         IF PlayerTwoColideBorderTop     = 1 THEN PlayerTwoY# = 50
         IF PlayerTwoColideBorderBottom  = 1 THEN PlayerTwoY# = 460

`Disk Collision -------------------------------------------------------
   `Set the colide variables for the borders
      DiskColideBorderTop      = SPRITE COLLISION(12,3)
      DiskColideBorderBottom   = SPRITE COLLISION(12,4)

`Update Sprites
   GOSUB _UpdateSprites

RETURN

`-------------------------------------------------------- ( PlayerOneMovement )
_PlayerOneMovement:

`Get Player One Coordenates
   GOSUB _GetCoordenates

   `Move Up
      IF UPKEY()    = 1 THEN PlayerOneY# = SPRITE Y (10) - PlayerOneSpeedUp#
   `Move Down
      IF DOWNKEY()  = 1 THEN PlayerOneY# = SPRITE Y (10) + PlayerOneSpeedDown#
   `Move Left
      IF LEFTKEY()  = 1 THEN PlayerOneX# = SPRITE X (10) - PlayerOneSpeedLeft#
   `Move Right
      IF RIGHTKEY() = 1 THEN PlayerOneX# = SPRITE X (10) + PlayerOneSpeedRight#

`Update Sprites
   GOSUB _UpdateSprites

RETURN

`-------------------------------------------------------- ( PlayerTwoMovement )
_PlayerTwoMovement:

`Get Player Two Coordenates
   GOSUB _GetCoordenates

   `FolloW The Disk
      PlayerTwoY# = DiskY#

`Update Sprites
   GOSUB _UpdateSprites

RETURN

`-------------------------------------------------------- ( Calculate Disk Angle )
_CalculateDiskAngle:

`Create a Random Value for DiskAngle#
   AngleRandomNumber# = RND(20)
`Set Negative or positive number
   PosNeg = RND(1)
`Create Final Variable
   IF PosNeg = 0
      DiskAngle# = AngleRandomNumber#
   ENDIF
   IF PosNeg = 1
      DiskAngle# = AngleRandomNumber#
   ENDIF

RETURN

`-------------------------------------------------------- ( DiskMovement )
_DiskMovement:

`Get Disk Coordenates
   GOSUB _GetCoordenates

`Variation to the Constant Speed
   `If the disk hits the Player One
         IF PlayerOneColideDisk = 1
            DiskHitStatus$ = "PlayerOne"
            DiskX# = DiskX# + 20
            GOSUB _CalculateDiskAngle
            DiskY# = DiskY# - DiskAngle#
         ENDIF

   `If the disk hits the Player Two
         IF PlayerTwoColideDisk = 1
            DiskHitStatus$ = "PlayerTwo"
            DiskX# = DiskX# - 20
            GOSUB _CalculateDiskAngle
            DiskY# = DiskY# - DiskAngle#
         ENDIF

   `If the disk hits the top borders
         IF DiskColideBorderTop = 1
            DiskHitStatus$ = "TopBorder"
            DiskX# = DiskX# + 0
            GOSUB _CalculateDiskAngle
            DiskY# = DiskY# - DiskAngle#
         ENDIF

   `If the disk hits the bottom borders
         IF DiskColideBorderBottom = 1
            DiskHitStatus$ = "BottomBorder"
            DiskX# = DiskX# - 0
            GOSUB _CalculateDiskAngle
            DiskY# = DiskY# - DiskAngle#
         ENDIF

`Constant Speed
   IF DiskHitStatus$ = "UserTurn"
      DiskX# = DiskX# - DiskSpeed#
      DiskY# = DiskY# - 0
   ELSE
      DiskX# = DiskX# + DiskSpeed#
      DiskY# = DiskY# - 0
   ENDIF

   IF DiskHitStatus$ = "PlayerOne"
      DiskX# = DiskX# + DiskSpeed# + AddSpeed#
      DiskY# = DiskY# - DiskAngle#
      inc AddSpeed#,.005
   ENDIF

   IF DiskHitStatus$ = "PlayerTwo"
      DiskX# = DiskX# - DiskSpeed# - AddSpeed#
      DiskY# = DiskY# + DiskAngle#
      inc AddSpeed#,.005
   ENDIF

   IF DiskHitStatus$ = "TopBorder"
      DiskX# = DiskX# + 15 + AddSpeed#
      DiskY# = DiskY# + 0
      inc AddSpeed#,.005
   ENDIF

   IF DiskHitStatus$ = "BottomBorder"
      DiskX# = DiskX# - 15 - AddSpeed#
      DiskY# = DiskY# - 0
      inc AddSpeed#,.005
   ENDIF


`Update Sprites
   GOSUB _UpdateSprites

RETURN

`-------------------------------------------------------- ( Update Sprites )
_UpdateSprites:

`Update Sprites
   SPRITE 10,PlayerOneX#,PlayerOneY#,10
   SPRITE 11,PlayerTwoX#,PlayerTwoY#,11
   SPRITE 12,DiskX#,DiskY#,12

RETURN

`-------------------------------------------------------- ( Toss Coin )
_TossCoin:

`Heads or Tail to start the game
   Coin = RND(1)
      IF Coin = 1
         DiskHitStatus$ = "UserTurn"
      ELSE
         DiskHitStatus$ = "ComputerTurn"
      ENDIF

RETURN

`--------------------------------------------------------------------------------------------------------- ^  Functions  ^

FUNCTION MainSetup()

`Randomize Seed
   RANDOMIZE TIMER()
`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Turn Off Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

`Set Chroma_Key (Transparent Color)
   SET IMAGE COLORKEY 50,50,50

ENDFUNCTION

FUNCTION CreateAndPlaceSprites()

`Set-Up Stage, Players and Disk
   `Create and place Background
      LOAD Image "media\images\phong_background_aqua.jpg",1
      SPRITE 1,-1024,0,1
      SET SPRITE 1,0,0
   `Create and place Scrolling Background
      SPRITE 2,0,0,1
      SET SPRITE 1,0,0

   `Create and place borders
      `Top Border
         LOAD IMAGE "media\images\phong_background_border_aqua.png",3
         SPRITE 3,10,15,3
         SET SPRITE 1,0,1
      `Bottom Border
         SPRITE 4,10,660,3
         SET SPRITE 2,0,1

   `Create and place Players
      `Player One
         LOAD IMAGE "media\images\phong_table.png",10
         SPRITE 10,100,250,10
         SET SPRITE 10,0,1
      `Player Two
         LOAD IMAGE "media\images\phong_table_2.png",11
         SPRITE 11,875,250,11
         SET SPRITE 11,0,1

   `Create and place Ball
      LOAD IMAGE "media\images\phong_disk.png",12
      SPRITE 12,480,325,12
      SET SPRITE 12,0,1

ENDFUNCTION

FUNCTION ScrollingBg()

`Set Background Coordenates ( X - Y )
   `Set Plane 1
      BgXOne# = SPRITE X (1)
      BgYOne# = SPRITE y (1)
   `Set Plane 2
      BgXTwo# = SPRITE X (2)
      BgYTwo# = SPRITE y (2)

`Loop The Background
   IF BgXTwo# < 1024
      BgXTwo# = SPRITE X (2) + 5
   ENDIF

   IF BgXTwo# > 0
      BgXOne# = SPRITE X (1) + 5
   ENDIF

   IF BgXOne# > 1
      BgXTwo# = 0
      BgXOne# = -1024
   ENDIF

`Update Background Sprite On Screen
   SPRITE 1,BgXOne#,BgYOne#,1
   SPRITE 2,BgXTwo#,BgYTwo#,1

ENDFUNCTION

`##################################################################################################### ^  Header ^
`## Project  : Phong 2D
`## Author   : Alexis Solano
`## Created : 1/2/2005 5:37:54 PM
`##################################################################################################### ^  Program Setup ^
   `Set-Up Stage
      MainSetup()
   `Create and place main sprites
      LoadScene()
   `Set up the initial variables for the game
      GOSUB _SetInitialVariables
   `Display The "Are You Ready Label"
      AreYouReady()

`##################################################################################################### ^  Main Loop  ^
DO
   `Get Objects Coordenate
      GOSUB _GetCoordenates
   `Get Colision Status
      GOSUB _ColisionDetector
   `Control Disk Movement
      GOSUB _DiskMovement
   `Control Player One Movement
      GOSUB _PlayerOneMovement
   `Control Player Two Movement
      GOSUB _PlayerTwoMovement
   `Get Colision Status
      GOSUB _ColisionDetector
   `Update Sprites
      GOSUB _UpdateSprites
   `Scrolling Background
      ScrollingBg()
   `Clean the screen and Sync
      CLS : SYNC
LOOP

`##################################################################################################### ^ Sub Rutines ^
`######################################################## ( Set The Initial Speed )
_SetInitialVariables:

`Set initial speed for all objects
   `Player One Speed
      PlayerOneSpeed# = 10
   `Player Two Speed
      PlayerTwoSpeed# = 10
   `Disk Speed
      DiskSpeed#     = 5

`Set Disk acceleration power
      acceleration# = .01

`Set Random direction for the disk
   DiskStartingDirection = RND(1)
      `Make the disk go up (left)
      IF DiskStartingDirection = 0
         DiskDirection$ = "up"
      ENDIF

      `Make the disk go down (right)
      IF DiskStartingDirection = 1
         DiskDirection$ = "down"
      ENDIF

RETURN

`######################################################## ( Disk Movement )
_DiskMovement:

`Temporary Bounce
   `Going Up
   IF DiskDirection$ = "up"
      DiskSpeed# = DiskSpeed# + acceleration#
      DiskY# = DiskY# - DiskSpeed#
      IF DiskColideBorderTop = 1
         DiskY# = 55
         DiskDirection$ = "down"
      ENDIF
   ENDIF

   `Going Down
   IF DiskDirection$ = "down"
      DiskSpeed# = DiskSpeed# + acceleration#
      DiskY# = DiskY# + DiskSpeed#
      IF DiskColideBorderBottom = 1
         DiskY# = 600
         DiskDirection$ = "up"
      ENDIF
   ENDIF

RETURN


`######################################################## ( Colision Control )
_ColisionDetector:

`Player One Colisions -----------------------------------------
   `Player One Colides with Top / Bottom Borders
      PlayerOneColideBorderTop     = SPRITE COLLISION(10,3)
      PlayerOneColideBorderBottom  = SPRITE COLLISION(10,4)

`Player Two Collisions ----------------------------------------
   `Set the colide variables for the borders
      PlayerTwoColideBorderTop     = SPRITE COLLISION(11,3)
      PlayerTwoColideBorderBottom  = SPRITE COLLISION(11,4)

`Disk Collision -----------------------------------------------
   `Set the colide variables for the borders
      DiskColideBorderTop      = SPRITE COLLISION(12,3)
      DiskColideBorderBottom   = SPRITE COLLISION(12,4)

RETURN

`######################################################## ( Player One Movement )
_PlayerOneMovement:

`Player One Movement Controls ( Keyboard Arrow Keys )
   `Move Up
      IF UPKEY() = 1
         IF PlayerOneColideBorderTop = 1
            PlayerOneY# = 50
        ELSE
            PlayerOneY# = SPRITE Y (10) - PlayerOneSpeed#
         ENDIF
      ENDIF

   `Move Down
      IF DOWNKEY() = 1
         IF PlayerOneColideBorderBottom  = 1
            PlayerOneY# = 460
         ELSE
            PlayerOneY# = SPRITE Y (10) + PlayerOneSpeed#
         ENDIF
      ENDIF

   `Move Left
      IF LEFTKEY()  = 1
         IF PlayerOneX# = 30
            `Do nothing
         ELSE
            PlayerOneX# = SPRITE X (10) - PlayerOneSpeed#
         ENDIF
      ENDIF

   `Move Right
      IF RIGHTKEY() = 1
         IF PlayerOneX# = 450
            `Do nothing
         ELSE
            PlayerOneX# = SPRITE X (10) + PlayerOneSpeed#
            `Force the sprite to stay behind the center line
            IF PlayerOneX# > 450
               PlayerOneX# = 450
            ENDIF
         ENDIF
      ENDIF

RETURN

`######################################################## ( Player Two Movement )
_PlayerTwoMovement:

`UP and Down Movement
   IF DiskDirection$ = "up"
      IF PlayerTwoColideBorderTop = 1
         `Do nothing
      ELSE
         PlayerTwoY# = PlayerTwoY# - PlayerTwoSpeed#
         IF PlayerTwoY# < 50
            PlayerTwoY# = 50
         ENDIF
      ENDIF
   ENDIF

   IF DiskDirection$ = "down"
      IF PlayerTwoColideBorderBottom = 1
         `Do nothing
      ELSE
         PlayerTwoY# = PlayerTwoY# + PlayerTwoSpeed#
         IF PlayerTwoY# > 460
            PlayerTwoY# = 460
         ENDIF
      ENDIF
   ENDIF

RETURN

`######################################################## ( GetCoordenates )
_GetCoordenates:

`Get The Player One Coordenates
   PlayerOneX# = SPRITE X (10)
   PlayerOneY# = SPRITE Y (10)
`Get The Player Two Coordenates
   PlayerTwoX# = SPRITE X (11)
   PlayerTwoY# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

RETURN

`######################################################## ( Update Sprites )
_UpdateSprites:

`Update Sprites
   SPRITE 10,PlayerOneX#,PlayerOneY#,10
   SPRITE 11,PlayerTwoX#,PlayerTwoY#,11
   SPRITE 12,DiskX#,DiskY#,12

RETURN

`##################################################################################################### ^  Functions  ^

FUNCTION MainSetup()
`######################################################## ( Main Setup )

`Randomize Seed
   RANDOMIZE TIMER()
`Turn Off BackDrop
   BACKDROP OFF
`Set Chroma_Key (Transparent Color) (Trafic Green)
   SET IMAGE COLORKEY 0,255,0
`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      SET WINDOW OFF
   `Disable and Hide Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

ENDFUNCTION

FUNCTION LoadScene()
`######################################################## ( Load Scene )

`Load and Repeat Background Music
   LOAD MUSIC "mediaaudiobgmusic.mid",1
   LOOP MUSIC 1

`Create and Display Loading Screen
   SYNC
   LOAD IMAGE "mediaimagesLoadingScreen.jpg",25
   PASTE IMAGE 25,0,0
   SYNC

`This Loop Will Load the Scene and All the Objects
   WHILE loadcounter < 100

   `Set-Up Stage, Players and Disk
      `Create and place Background Tile A
         LOAD Image "mediaimagesphong_background_one.jpg",1
         SPRITE 1,-1024,0,1
         SET SPRITE 1,0,0
         loadcounter = loadcounter + 20

      `Create and place Background Tile B
         SPRITE 2,0,0,1
         SET SPRITE 1,0,0
         loadcounter = loadcounter + 10

      `Create and place stage top/bottom borders
         `Top Border
            LOAD IMAGE "mediaimagesphong_background_one_topbor.jpg",3
            SPRITE 3,0,25,3
            SET SPRITE 1,0,1
            loadcounter = loadcounter + 20

         `Bottom Border
            LOAD IMAGE "mediaimagesphong_background_one_bottom.jpg",4
            SPRITE 4,0,660,4
            SET SPRITE 2,0,1
            loadcounter = loadcounter + 10

      `Create and place Players
         `Player One
            LOAD IMAGE "mediaimagesphong_table.png",10
            SPRITE 10,30,250,10
            SET SPRITE 10,0,1
            loadcounter = loadcounter + 10

         `Player Two
            LOAD IMAGE "mediaimagesphong_table_2.png",11
            SPRITE 11,930,250,11
            SET SPRITE 11,0,1
            loadcounter = loadcounter + 20

      `Create and place Ball
         LOAD IMAGE "mediaimagesphong_disk.png",12
         SPRITE 12,480,325,12
         SET SPRITE 12,0,1

      SLEEP 1000
      loadcounter = loadcounter + 10

   ENDWHILE

`Hide and unhide the background
   `HIDE SPRITE 1 : HIDE SPRITE 2

ENDFUNCTION

FUNCTION ScrollingBg()
`######################################################## ( Scrolling Background )

`Set Background Coordenates ( X - Y )
   `Set Tile A
      BgXOne# = SPRITE X (1)
      BgYOne# = SPRITE y (1)
   `Set Tile B
      BgXTwo# = SPRITE X (2)
      BgYTwo# = SPRITE y (2)

`Loop The Background
   IF BgXTwo# < 1024
      BgXTwo# = SPRITE X (2) + 5
   ENDIF

   IF BgXTwo# > 0
      BgXOne# = SPRITE X (1) + 5
   ENDIF

   IF BgXOne# > 1
      BgXTwo# = 0
      BgXOne# = -1024
   ENDIF

`Update Background Sprites On Screen
   SPRITE 1,BgXOne#,BgYOne#,1
   SPRITE 2,BgXTwo#,BgYTwo#,1

ENDFUNCTION

FUNCTION AreYouReady()
`######################################################## ( Are You Ready )

`Create Screen
   LOAD IMAGE "mediaimagesphong_ready.png",26
   SPRITE 26,100,100,26
   SET SPRITE 26,0,1

`Declare Variables
   ReadyScreenAlpha# = 0

`Are You Ready Sequence Open
   WHILE ReadyScreenAlpha# < 255

         ReadyScreenAlpha# = ReadyScreenAlpha# + 3
         IF ReadyScreenAlpha# > 255
            ReadyScreenAlpha# = 255
         ENDIF

      `Update Sprite
         SET SPRITE ALPHA 26, ReadyScreenAlpha#

      SYNC : CLS
   ENDWHILE

`Are You Ready Sequence Close
   WHILE AnimateReadyScreen < 1

      `Make Sprite Disapear
         ReadyScreenAlpha# = SPRITE ALPHA (26)
         ReadyScreenAlpha# = ReadyScreenAlpha# - 1

      `Force the sprite to stay Alpha = 0
         IF ReadyScreenAlpha# < 1
            ReadyScreenAlpha# = 0

            `Break the while loop and continue the program
               AnimateReadyScreen = 1
         ENDIF

      `Update Sprite
         SET SPRITE ALPHA 26, ReadyScreenAlpha#

      SYNC : CLS

   ENDWHILE

ENDFUNCTION

`##################################################################################################### ^  Header ^
`## Project  : Phong 2D
`## Author   : Alexis Solano
`## Created : 1/2/2005 5:37:54 PM
`##################################################################################################### ^  Program Setup ^
   `Set-Up Stage
      MainSetup()
   `Create and place main sprites
      LoadScene()
   `Set up the initial variables for the game
      GOSUB _SetInitialVariables
   `Display The "Are You Ready Label"
      AreYouReady()

`##################################################################################################### ^  Main Loop  ^
DO
   `Get Objects Coordenate
      GOSUB _GetCoordenates
   `Get Colision Status
      GOSUB _ColisionDetector
   `Control Disk Movement
      GOSUB _DiskMovement
   `Control Player One Movement
      GOSUB _PlayerOneMovement
   `Control Player Two Movement
      GOSUB _PlayerTwoMovement
   `Get Colision Status
      GOSUB _ColisionDetector
   `Update Sprites
      GOSUB _UpdateSprites
   `Scrolling Background
      ScrollingBg()
   `Clean the screen and Sync
      CLS : SYNC
LOOP

`##################################################################################################### ^ Sub Rutines ^
`######################################################## ( Set The Initial Speed )
_SetInitialVariables:

`Set initial speed for all objects
   `Player One Speed
      PlayerOneSpeed# = 10
   `Player Two Speed
      PlayerTwoSpeed# = 10
   `Disk Speed
      DiskSpeed#     = 5

`Set Disk acceleration power
      acceleration# = .005

`Set Random direction for the disk
   DiskStartingDirection = RND(0)
      `Make the disk go left
      IF DiskStartingDirection = 0
         DiskDirection$ = "left"
      ENDIF

      `Make the disk go right
      IF DiskStartingDirection = 1
         DiskDirection$ = "right"
      ENDIF
`Set The first time On - TurnOnOffFirstTime$
   TurnOnOffFirstTime$ = "on"

RETURN

`######################################################## ( Disk Movement )
_DiskMovement:

IF DiskX# < 0
   DiskX# = 480
   DiskY# = 325
   DiskSpeed# = 5
ENDIF

IF DiskX# > 1024
   DiskX# = 480
   DiskY# = 325
   DiskSpeed# = 5
ENDIF

DiskSpeed# = DiskSpeed# + acceleration#


IF TurnOnOffFirstTime$ = "on"

`Going left
   IF DiskDirection$ = "left"
      DiskSpeed# = DiskSpeed# + acceleration#
      DiskX# = DiskX# - DiskSpeed#
         IF DiskColidePlayerOne = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHit()


            ` RD = Right and Down
            ` RU = Right and Up
               UpOrDown = RND(1)
               IF UpOrDown = 0
                  ` RD
                  DiskAngle$ = "RD"
                  DiskY# = DiskY# + DiskSpeed#
                  DiskX# = DiskX# + DiskSpeed#
               ENDIF

               IF UpOrDown = 1
                  ` RU
                  DiskAngle$ = "RU"
                  DiskY# = DiskY# - DiskSpeed#
                  DiskX# = DiskX# + DiskSpeed#
               ENDIF

            DiskDirection$ = "infinite"
            TurnOnOffFirstTime$ = "off"

         ENDIF
   ENDIF

`Going right
   IF DiskDirection$ = "right"
      DiskSpeed# = DiskSpeed# + acceleration#
      DiskX# = DiskX# + DiskSpeed#
         IF DiskColidePlayerTwo = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHit()

            ` LD = Right and Down
            ` LU = Right and Up
               UpOrDown = RND(1)
               IF UpOrDown = 0
                  ` LD
                  DiskAngle$ = "LD"
                  DiskY# = DiskY# + DiskSpeed#
                  DiskX# = DiskX# - DiskSpeed#
               ENDIF

               IF UpOrDown = 1
                  ` LU
                  DiskAngle$ = "LU"
                  DiskY# = DiskY# - DiskSpeed#
                  DiskX# = DiskX# - DiskSpeed#
               ENDIF

            DiskDirection$ = "infinite"
            TurnOnOffFirstTime$ = "off"

         ENDIF
   ENDIF

ENDIF



`Continuos Speed
   IF DiskDirection$ = "infinite"

      if DiskAngle$ = "RD"
         DiskY# = DiskY# + DiskSpeed#
         DiskX# = DiskX# + DiskSpeed#
      endif

      if DiskAngle$ = "RU"
         DiskY# = DiskY# - DiskSpeed#
         DiskX# = DiskX# + DiskSpeed#
      endif

      if DiskAngle$ = "LD"
         DiskY# = DiskY# + DiskSpeed#
         DiskX# = DiskX# - DiskSpeed#
      endif

      if DiskAngle$ = "LU"
         DiskY# = DiskY# - DiskSpeed#
         DiskX# = DiskX# - DiskSpeed#
      endif

   ENDIF



` Who's Turn is it?
IF DiskColidePlayerOne = 1
   WhosTurn$ = "PlayerOne"
ENDIF

IF DiskColidePlayerTwo = 1
   WhosTurn$ = "PlayerTwo"
ENDIF


` Disk angles
IF WhosTurn$ = "PlayerOne"
   ` Colides From Player One Turn
      ` Colide Top Border
         IF DiskColideBorderTop = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHitBorders()

            ` RD = Right and Down
               DiskAngle$ = "RD"
               DiskY# = DiskY# + DiskSpeed#
               DiskX# = DiskX# + DiskSpeed#
         ENDIF

      ` Colides Bottom Border
         IF DiskColideBorderBottom = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHitBorders()

            ` RU = Right and Up
               DiskAngle$ = "RU"
               DiskY# = DiskY# - DiskSpeed#
               DiskX# = DiskX# + DiskSpeed#
               DiskY# = 600
         ENDIF

      ` Colides Player One Board
         IF DiskColidePlayerOne = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHit()

            ` RD = Right and Down
            ` RU = Right and Up
               UpOrDown = RND(1)
               IF UpOrDown = 0
                  ` RD
                  DiskAngle$ = "RD"
                  DiskY# = DiskY# + DiskSpeed#
                  DiskX# = DiskX# + DiskSpeed#
               ENDIF

               IF UpOrDown = 1
                  ` RU
                  DiskAngle$ = "RU"
                  DiskY# = DiskY# - DiskSpeed#
                  DiskX# = DiskX# + DiskSpeed#
               ENDIF

         ENDIF
ENDIF

IF WhosTurn$ = "PlayerTwo"
   ` Colides From Player Two Turn
      ` Colide Top Border
         IF DiskColideBorderTop = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHitBorders()

            ` LD = Left and Down
               DiskAngle$ = "LD"
               DiskY# = DiskY# + DiskSpeed#
               DiskX# = DiskX# - DiskSpeed#
         ENDIF

      ` Colides Bottom Border
         IF DiskColideBorderBottom = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHitBorders()

            ` LU = Left and Up
               DiskAngle$ = "LU"
               DiskY# = DiskY# - DiskSpeed#
               DiskX# = DiskX# - DiskSpeed#
         ENDIF

      ` Colides Player Two Board
         IF DiskColidePlayerTwo = 1

         `Play Sound when Disk Colide
            PlaySoundDiskHit()

            ` LD = Left and Down
            ` LU = Left and Up
               UpOrDown = RND(1)
               IF UpOrDown = 0
                  `LD
                  DiskAngle$ = "LD"
                  DiskY# = DiskY# + DiskSpeed#
                  DiskX# = DiskX# - DiskSpeed#
               ENDIF

               IF UpOrDown = 1
                  `LU
                  DiskAngle$ = "LU"
                  DiskY# = DiskY# - DiskSpeed#
                  DiskX# = DiskX# - DiskSpeed#
               ENDIF

         ENDIF
ENDIF

RETURN


`######################################################## ( Colision Control )
_ColisionDetector:

`Player One Colisions -----------------------------------------
   `Player One Colides with Top / Bottom Borders
      PlayerOneColideBorderTop      = SPRITE COLLISION(10,3)
      PlayerOneColideBorderBottom   = SPRITE COLLISION(10,4)

`Player Two Collisions ----------------------------------------
   `Set the colide variables for the borders
      PlayerTwoColideBorderTop      = SPRITE COLLISION(11,3)
      PlayerTwoColideBorderBottom   = SPRITE COLLISION(11,4)

`Disk Collision -----------------------------------------------
   `Set the colide variables for the borders
      DiskColideBorderTop           = SPRITE COLLISION(12,3)
      DiskColideBorderBottom        = SPRITE COLLISION(12,4)

   `Set the colide variables for the players board
      DiskColidePlayerOne           = SPRITE COLLISION(12,10)
      DiskColidePlayerTwo           = SPRITE COLLISION(12,11)

RETURN

`######################################################## ( Player One Movement )
_PlayerOneMovement:

`Player One Movement Controls ( Keyboard Arrow Keys )
   `Move Up
      IF UPKEY() = 1
         IF PlayerOneColideBorderTop = 1
            PlayerOneY# = 50
        ELSE
            PlayerOneY# = SPRITE Y (10) - PlayerOneSpeed#
         ENDIF
      ENDIF

   `Move Down
      IF DOWNKEY() = 1
         IF PlayerOneColideBorderBottom  = 1
            PlayerOneY# = 460
         ELSE
            PlayerOneY# = SPRITE Y (10) + PlayerOneSpeed#
         ENDIF
      ENDIF
RETURN

`######################################################## ( Player Two Movement )
_PlayerTwoMovement:

IF DiskAngle$ = "RD"
   PlayerTwoY# = PlayerTwoY# + PlayerTwoSpeed#

   IF PlayerTwoY# > DiskY#
      PlayerTwoY# = PlayerTwoY# - PlayerTwoSpeed#
   ENDIF

   IF PlayerTwoY# < DiskY#
      PlayerTwoY# = PlayerTwoY# + PlayerTwoSpeed#
   ENDIF

   IF PlayerTwoColideBorderBottom = 1
      IF PlayerTwoY# > 460
         PlayerTwoY# = 460
      ENDIF
   ENDIF

ENDIF

IF DiskAngle$ = "RU"
   PlayerTwoY# = PlayerTwoY# - PlayerTwoSpeed#

   IF PlayerTwoColideBorderTop = 1
      IF PlayerTwoY# < 50
         PlayerTwoY# = 50
      ENDIF
   ENDIF

ENDIF

RETURN

`######################################################## ( GetCoordenates )
_GetCoordenates:

`Get The Player One Coordenates
   PlayerOneX# = SPRITE X (10)
   PlayerOneY# = SPRITE Y (10)
`Get The Player Two Coordenates
   PlayerTwoX# = SPRITE X (11)
   PlayerTwoY# = SPRITE Y (11)

`Get Disk Coordenates
   DiskX# = SPRITE X (12)
   DiskY# = SPRITE Y (12)

`Get the Top Border
   BorderTopX# = SPRITE X (3)
   BorderTopY# = SPRITE Y (3)
`Get the Bottom Border
   BorderBottomX# = SPRITE X (4)
   BorderBottomY# = SPRITE Y (4)

RETURN

`######################################################## ( Update Sprites )
_UpdateSprites:

`Update Sprites
   SPRITE 10,PlayerOneX#,PlayerOneY#,10
   SPRITE 11,PlayerTwoX#,PlayerTwoY#,11
   SPRITE 12,DiskX#,DiskY#,12

RETURN

`##################################################################################################### ^  Functions  ^

FUNCTION MainSetup()
`######################################################## ( Main Setup )

`Randomize Seed
   RANDOMIZE TIMER()
`Turn Off BackDrop
   BACKDROP OFF
`Set Chroma_Key (Transparent Color) (Trafic Green)
   SET IMAGE COLORKEY 0,255,0
`Set Sync
   SYNC ON : SYNC RATE 60

`Window Resolution, Size & Full Screen Mode, No Mouse
   `Set Resolution
      SET DISPLAY MODE 1024,768,0
   `Set Size
      SET WINDOW SIZE 1024,768
   `Set Full Screen Mode
      `SET WINDOW OFF
   `Disable and Hide Mouse
      `POSITION MOUSE 0,0
      `HIDE MOUSE

ENDFUNCTION

FUNCTION LoadScene()
`######################################################## ( Load Scene )

`Load music and Repeat Background Music
   LOAD MUSIC "mediaaudiobgmusic.mid",1
   LOOP MUSIC 1

`Load Sound FX
   LOAD SOUND "mediaaudiodiskhitpaddle.wav",1
   LOAD SOUND "mediaaudiodiskhitborders.wav",2

`Create and Display Loading Screen
   SYNC
   LOAD IMAGE "mediaimagesLoadingScreen.jpg",25
   PASTE IMAGE 25,0,0
   SYNC

`This Loop Will Load the Scene and All the Objects
   WHILE loadcounter < 100

   `Set-Up Stage, Players and Disk
      `Create and place Background Tile A
         LOAD Image "mediaimagesphong_background_one.jpg",1
         SPRITE 1,-1024,0,1
         SET SPRITE 1,0,0
         loadcounter = loadcounter + 20

      `Create and place Background Tile B
         SPRITE 2,0,0,1
         SET SPRITE 1,0,0
         loadcounter = loadcounter + 10

      `Create and place stage top/bottom borders
         `Top Border
            LOAD IMAGE "mediaimagesphong_background_one_topbor.jpg",3
            SPRITE 3,0,25,3
            SET SPRITE 1,0,1
            loadcounter = loadcounter + 20

         `Bottom Border
            LOAD IMAGE "mediaimagesphong_background_one_bottom.jpg",4
            SPRITE 4,0,660,4
            SET SPRITE 2,0,1
            loadcounter = loadcounter + 10

      `Create and place Players
         `Player One
            LOAD IMAGE "mediaimagesphong_table.png",10
            SPRITE 10,40,250,10
            SET SPRITE 10,0,1
            loadcounter = loadcounter + 10

         `Player Two
            LOAD IMAGE "mediaimagesphong_table_2.png",11
            SPRITE 11,934,250,11
            SET SPRITE 11,0,1
            loadcounter = loadcounter + 20

      `Create and place Ball
         LOAD IMAGE "mediaimagesphong_disk.png",12
         SPRITE 12,480,325,12
         SET SPRITE 12,0,1

      SLEEP 1000
      loadcounter = loadcounter + 10

   ENDWHILE

`Hide and unhide the background
   `HIDE SPRITE 1 : HIDE SPRITE 2

ENDFUNCTION

FUNCTION ScrollingBg()
`######################################################## ( Scrolling Background )

`Set Background Coordenates ( X - Y )
   `Set Tile A
      BgXOne# = SPRITE X (1)
      BgYOne# = SPRITE y (1)
   `Set Tile B
      BgXTwo# = SPRITE X (2)
      BgYTwo# = SPRITE y (2)

`Loop The Background
   IF BgXTwo# < 1024
      BgXTwo# = SPRITE X (2) + 5
   ENDIF

   IF BgXTwo# > 0
      BgXOne# = SPRITE X (1) + 5
   ENDIF

   IF BgXOne# > 1
      BgXTwo# = 0
      BgXOne# = -1024
   ENDIF

`Update Background Sprites On Screen
   SPRITE 1,BgXOne#,BgYOne#,1
   SPRITE 2,BgXTwo#,BgYTwo#,1

ENDFUNCTION

FUNCTION AreYouReady()
`######################################################## ( Are You Ready )

`Declare Variables
   ReadyScreenAlpha# = 0
   scale = 100
   WindowWidth = SCREEN WIDTH()
   WindowHeight = SCREEN HEIGHT()
   CenterSpriteX = WindowWidth / 2
   CenterSpriteY = WindowHeight / 2

`Create Screen
   LOAD IMAGE "mediaimagesphong_ready.png",26
   SPRITE 26,CenterSpriteX,CenterSpriteY,26
   offset sprite 26, sprite width(26)/2, sprite height(26)/2
   SET SPRITE 26,0,1

`Are You Ready Sequence Open
   WHILE ReadyScreenAlpha# < 255

         ReadyScreenAlpha# = ReadyScreenAlpha# + 5
         IF ReadyScreenAlpha# > 255
            ReadyScreenAlpha# = 255
         ENDIF

      `Update Sprite
         SET SPRITE ALPHA 26, ReadyScreenAlpha#

      SYNC : CLS
   ENDWHILE

`Are You Ready Sequence Close
   WHILE AnimateReadyScreen < 1

      `Make Sprite Bigger
         SPRITE 26,CenterSpriteX,CenterSpriteY,26
         scale = scale + 5
         SCALE SPRITE 26, scale

      `Make Sprite Disapear
         ReadyScreenAlpha# = SPRITE ALPHA (26)
         ReadyScreenAlpha# = ReadyScreenAlpha# - 1

      `Force the sprite to stay Alpha = 0
         IF ReadyScreenAlpha# < 1
            ReadyScreenAlpha# = 0

            `Break the while loop and continue the program
               AnimateReadyScreen = 1
         ENDIF

      `Update Sprite
         SET SPRITE ALPHA 26, ReadyScreenAlpha#

      SYNC : CLS

   ENDWHILE

ENDFUNCTION

FUNCTION PlaySoundDiskHit()
      PLAY SOUND 1
ENDFUNCTION

FUNCTION PlaySoundDiskHitBorders()
      PLAY SOUND 2
ENDFUNCTION