Angle In = Angle Out? - GameCreators Forum

Author

Message

Yodaman Jer

User Banned

Posted: 1st Sep 2009 03:17

So the other day I started re-creating Breakout, but I've run into some problems with getting the ball to bounce back in different directions.

I'm also having immense trouble with speed...just to try it, I ran the code in DBPro and it ran almost lightning-fast...odd.

But anyway, I'm more concerned with getting the angle stuff worked out.

Here's my code:

`============================================
`== Escape!! | V1.0 | Date Created 8/27/09 ==
`============================================

`Set The Graphics
Set Display Mode 1024,768,32
Hide Mouse
Sync On : Sync Rate 60
Backdrop On : Color Backdrop RGB(0,0,0)
Autocam Off

`---------------------------------
`-- Create The First Level      --
`---------------------------------

`Create The Barriers For Level One
Make Object Box 1,102,6,2 : `The side-to-side wall
Make Object Box 2,2,6,125 : `The front-to-back wall
Make Object Box 3,2,6,125 : `The front-to-back end wall
`Position The Barriers
Position Object 1,0,0,50
Position Object 2,50,0,-12
Position Object 3,-50,0,-12

`Create The Paddle
Make Object Box 4,15,6,2
Color Object 4,RGB(255,128,16) : `Colors the paddle Orange-Redish
`Position The Paddle
Position Object 4,0,0,-50

`Create the Ball
Make Object Sphere 5,2.2 : Position Object 5,0,0,0 : Color Object 5,RGB(20,1920,125)

`Create The First Row of Red Blocks (20-29)
Make Object Box 20,8,2,2 : Position Object 20,-45,0,20
Make Object Box 21,8,2,2 : Position Object 21,-35,0,20
Make Object Box 22,8,2,2 : Position Object 22,-25,0,20
Make Object Box 23,8,2,2 : Position Object 23,-15,0,20
Make Object Box 24,8,2,2 : Position Object 24,-5,0,20
Make Object Box 25,8,2,2 : Position Object 25,5,0,20
Make Object Box 26,8,2,2 : Position Object 26,15,0,20
Make Object Box 27,8,2,2 : Position Object 27,25,0,20
Make Object Box 28,8,2,2 : Position Object 28,35,0,20
Make Object Box 29,8,2,2 : Position Object 29,45,0,20
`Create The Second Row of Yellow Blocks (30-39)
Make Object Box 30,8,2,2 : Position Object 30,-45,0,25
Make Object Box 31,8,2,2 : Position Object 31,-35,0,25
Make Object Box 32,8,2,2 : Position Object 32,-25,0,25
Make Object Box 33,8,2,2 : Position Object 33,-15,0,25
Make Object Box 34,8,2,2 : Position Object 34,-5,0,25
Make Object Box 35,8,2,2 : Position Object 35,5,0,25
Make Object Box 36,8,2,2 : Position Object 36,15,0,25
Make Object Box 37,8,2,2 : Position Object 37,25,0,25
Make Object Box 38,8,2,2 : Position Object 38,35,0,25
Make Object Box 39,8,2,2 : Position Object 39,45,0,25
`Create The Third Row of Green Blocks (40-49)
Make Object Box 40,8,2,2 : Position Object 40,-45,0,30
Make Object Box 41,8,2,2 : Position Object 41,-35,0,30
Make Object Box 42,8,2,2 : Position Object 42,-25,0,30
Make Object Box 43,8,2,2 : Position Object 43,-15,0,30
Make Object Box 44,8,2,2 : Position Object 44,-5,0,30
Make Object Box 45,8,2,2 : Position Object 45,5,0,30
Make Object Box 46,8,2,2 : Position Object 46,15,0,30
Make Object Box 47,8,2,2 : Position Object 47,25,0,30
Make Object Box 48,8,2,2 : Position Object 48,35,0,30
Make Object Box 49,8,2,2 : Position Object 49,45,0,30
`Create The Fourth Row of Blue Blocks (50-59)
Make Object Box 50,8,2,2 : Position Object 50,-45,0,35
Make Object Box 51,8,2,2 : Position Object 51,-35,0,35
Make Object Box 52,8,2,2 : Position Object 52,-25,0,35
Make Object Box 53,8,2,2 : Position Object 53,-15,0,35
Make Object Box 54,8,2,2 : Position Object 54,-5,0,35
Make Object Box 55,8,2,2 : Position Object 55,5,0,35
Make Object Box 56,8,2,2 : Position Object 56,15,0,35
Make Object Box 57,8,2,2 : Position Object 57,25,0,35
Make Object Box 58,8,2,2 : Position Object 58,35,0,35
Make Object Box 59,8,2,2 : Position Object 59,45,0,35
`Create The Fifth Row of Purple Blocks (60-69)
Make Object Box 60,8,2,2 : Position Object 60,-45,0,40
Make Object Box 61,8,2,2 : Position Object 61,-35,0,40
Make Object Box 62,8,2,2 : Position Object 62,-25,0,40
Make Object Box 63,8,2,2 : Position Object 63,-15,0,40
Make Object Box 64,8,2,2 : Position Object 64,-5,0,40
Make Object Box 65,8,2,2 : Position Object 65,5,0,40
Make Object Box 66,8,2,2 : Position Object 66,15,0,40
Make Object Box 67,8,2,2 : Position Object 67,25,0,40
Make Object Box 68,8,2,2 : Position Object 68,35,0,40
Make Object Box 69,8,2,2 : Position Object 69,45,0,40

`Make a For-Next Loop to set the collision and to color the blocks
For a=20 To 29
  Color Object a,RGB(255,0,0)
Next a

For b=30 To 39
  Color Object b,RGB(255,235,0)
Next b

For c=40 To 49
  Color Object c,RGB(0,255,0)
Next c

For d=50 To 59
  Color Object d,RGB(0,0,255)
Next d

For e=60 To 69
  Color Object e,RGB(200,0,255)
Next e

`Position and angle the initial camera view
Position Camera 0,125,-12
XRotate Camera 90

CamFlag=0 : `This will let us change the camera view in-game

`------------------------------------
`-- Main Program Loop              --
`------------------------------------

Do
 Text 0,0,"FPS: "+Str$(Screen FPS() )

If LeftKey()=1 And PadPos#<55 Then PadPos#=PadPos#-0.8
 If RightKey()=1 And PadPos#>-55 Then PadPos#=PadPos#+0.8
 Position Object 4,PadPos#,0,-55 : `This Updates the Position of the paddle and also ensures that it will move when the keys are pressed
 If PadPos#=<-40
    PadPos#=-40
  If PadPos#=>40
     PadPos#=40
  EndIf
 EndIf

`Change the Camera View
 If KeyState(79)=1 and CamFlag=1 <> CamFlag=2
    CamFlag=0
  If CamFlag=0
     Position Camera 0,125,-12
     XRotate Camera 90
  EndIf
 EndIf

If KeyState(80)=1 and CamFlag=2 <> CamFlag=0
    CamFlag=1
   If CamFlag=1
      Set Cursor 0,12
      Print "Alternate View 1"
      Position Camera -50,125,0
      XRotate Camera 95
      ZRotate Camera 20
   EndIf
 EndIf

If KeyState(81)=1 and CamFlag=1 <> CamFlag=0
    CamFlag=2
  If CamFlag=2
     Set Cursor 0,12
     Print "Alternate View 2"
     Position Camera 0,125,-135
     XRotate Camera 40
     ZRotate Camera 0
  EndIf
 EndIf

`Ball Movement
   ballx#=newxvalue(ballx#,balla#,1)
   ballz#=newzvalue(ballz#,balla#,1)

`Bouncing
   if ballz#<-14 and ballz#>-12.5 and ABS(PadPos#-ballx#)<1.5 then balla#=180-balla#
   if ballz#>45 then balla#=180-balla#
   if ballx#>40 or ballx#<-40 then balla#=360-balla#

`MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
   balla#=wrapvalue(balla#)

position object 5,ballx#,0,ballz# : yrotate object 5,balla#

If Object Collision(5,4) Then balla#=wrapvalue(balla#+180)

`Ball to box collision
   For z = 20 to 69
      If object collision(5,0)=z
         balla#=wrapvalue(balla#+180)
         Hide object z
         Set Object Collision Off z
      EndIf
   Next z

Sync
Loop

+ Code Snippet

`============================================
`== Escape!! | V1.0 | Date Created 8/27/09 ==
`============================================

`Set The Graphics
Set Display Mode 1024,768,32
Hide Mouse
Sync On : Sync Rate 60
Backdrop On : Color Backdrop RGB(0,0,0)
Autocam Off

`---------------------------------
`-- Create The First Level      --
`---------------------------------

`Create The Barriers For Level One
Make Object Box 1,102,6,2 : `The side-to-side wall
Make Object Box 2,2,6,125 : `The front-to-back wall
Make Object Box 3,2,6,125 : `The front-to-back end wall
`Position The Barriers
Position Object 1,0,0,50
Position Object 2,50,0,-12
Position Object 3,-50,0,-12

`Create The Paddle
Make Object Box 4,15,6,2
Color Object 4,RGB(255,128,16) : `Colors the paddle Orange-Redish
`Position The Paddle
Position Object 4,0,0,-50

`Create the Ball
Make Object Sphere 5,2.2 : Position Object 5,0,0,0 : Color Object 5,RGB(20,1920,125)

`Create The First Row of Red Blocks (20-29)
Make Object Box 20,8,2,2 : Position Object 20,-45,0,20
Make Object Box 21,8,2,2 : Position Object 21,-35,0,20
Make Object Box 22,8,2,2 : Position Object 22,-25,0,20
Make Object Box 23,8,2,2 : Position Object 23,-15,0,20
Make Object Box 24,8,2,2 : Position Object 24,-5,0,20
Make Object Box 25,8,2,2 : Position Object 25,5,0,20
Make Object Box 26,8,2,2 : Position Object 26,15,0,20
Make Object Box 27,8,2,2 : Position Object 27,25,0,20
Make Object Box 28,8,2,2 : Position Object 28,35,0,20
Make Object Box 29,8,2,2 : Position Object 29,45,0,20
`Create The Second Row of Yellow Blocks (30-39)
Make Object Box 30,8,2,2 : Position Object 30,-45,0,25
Make Object Box 31,8,2,2 : Position Object 31,-35,0,25
Make Object Box 32,8,2,2 : Position Object 32,-25,0,25
Make Object Box 33,8,2,2 : Position Object 33,-15,0,25
Make Object Box 34,8,2,2 : Position Object 34,-5,0,25
Make Object Box 35,8,2,2 : Position Object 35,5,0,25
Make Object Box 36,8,2,2 : Position Object 36,15,0,25
Make Object Box 37,8,2,2 : Position Object 37,25,0,25
Make Object Box 38,8,2,2 : Position Object 38,35,0,25
Make Object Box 39,8,2,2 : Position Object 39,45,0,25
`Create The Third Row of Green Blocks (40-49)
Make Object Box 40,8,2,2 : Position Object 40,-45,0,30
Make Object Box 41,8,2,2 : Position Object 41,-35,0,30
Make Object Box 42,8,2,2 : Position Object 42,-25,0,30
Make Object Box 43,8,2,2 : Position Object 43,-15,0,30
Make Object Box 44,8,2,2 : Position Object 44,-5,0,30
Make Object Box 45,8,2,2 : Position Object 45,5,0,30
Make Object Box 46,8,2,2 : Position Object 46,15,0,30
Make Object Box 47,8,2,2 : Position Object 47,25,0,30
Make Object Box 48,8,2,2 : Position Object 48,35,0,30
Make Object Box 49,8,2,2 : Position Object 49,45,0,30
`Create The Fourth Row of Blue Blocks (50-59)
Make Object Box 50,8,2,2 : Position Object 50,-45,0,35
Make Object Box 51,8,2,2 : Position Object 51,-35,0,35
Make Object Box 52,8,2,2 : Position Object 52,-25,0,35
Make Object Box 53,8,2,2 : Position Object 53,-15,0,35
Make Object Box 54,8,2,2 : Position Object 54,-5,0,35
Make Object Box 55,8,2,2 : Position Object 55,5,0,35
Make Object Box 56,8,2,2 : Position Object 56,15,0,35
Make Object Box 57,8,2,2 : Position Object 57,25,0,35
Make Object Box 58,8,2,2 : Position Object 58,35,0,35
Make Object Box 59,8,2,2 : Position Object 59,45,0,35
`Create The Fifth Row of Purple Blocks (60-69)
Make Object Box 60,8,2,2 : Position Object 60,-45,0,40
Make Object Box 61,8,2,2 : Position Object 61,-35,0,40
Make Object Box 62,8,2,2 : Position Object 62,-25,0,40
Make Object Box 63,8,2,2 : Position Object 63,-15,0,40
Make Object Box 64,8,2,2 : Position Object 64,-5,0,40
Make Object Box 65,8,2,2 : Position Object 65,5,0,40
Make Object Box 66,8,2,2 : Position Object 66,15,0,40
Make Object Box 67,8,2,2 : Position Object 67,25,0,40
Make Object Box 68,8,2,2 : Position Object 68,35,0,40
Make Object Box 69,8,2,2 : Position Object 69,45,0,40

`Make a For-Next Loop to set the collision and to color the blocks
For a=20 To 29
  Color Object a,RGB(255,0,0)
Next a

For b=30 To 39
  Color Object b,RGB(255,235,0)
Next b

For c=40 To 49
  Color Object c,RGB(0,255,0)
Next c

For d=50 To 59
  Color Object d,RGB(0,0,255)
Next d

For e=60 To 69
  Color Object e,RGB(200,0,255)
Next e


`Position and angle the initial camera view
Position Camera 0,125,-12
XRotate Camera 90

CamFlag=0 : `This will let us change the camera view in-game


`------------------------------------
`-- Main Program Loop              --
`------------------------------------

Do
 Text 0,0,"FPS: "+Str$(Screen FPS() )

 If LeftKey()=1 And PadPos#<55 Then PadPos#=PadPos#-0.8
 If RightKey()=1 And PadPos#>-55 Then PadPos#=PadPos#+0.8
 Position Object 4,PadPos#,0,-55 : `This Updates the Position of the paddle and also ensures that it will move when the keys are pressed
 If PadPos#=<-40
    PadPos#=-40
  If PadPos#=>40
     PadPos#=40
  EndIf
 EndIf

 `Change the Camera View
 If KeyState(79)=1 and CamFlag=1 <> CamFlag=2
    CamFlag=0
  If CamFlag=0
     Position Camera 0,125,-12
     XRotate Camera 90
  EndIf
 EndIf

 If KeyState(80)=1 and CamFlag=2 <> CamFlag=0
    CamFlag=1
   If CamFlag=1
      Set Cursor 0,12
      Print "Alternate View 1"
      Position Camera -50,125,0
      XRotate Camera 95
      ZRotate Camera 20
   EndIf
 EndIf

 If KeyState(81)=1 and CamFlag=1 <> CamFlag=0
    CamFlag=2
  If CamFlag=2
     Set Cursor 0,12
     Print "Alternate View 2"
     Position Camera 0,125,-135
     XRotate Camera 40
     ZRotate Camera 0
  EndIf
 EndIf

`Ball Movement
   ballx#=newxvalue(ballx#,balla#,1)
   ballz#=newzvalue(ballz#,balla#,1)

   `Bouncing
   if ballz#<-14 and ballz#>-12.5 and ABS(PadPos#-ballx#)<1.5 then balla#=180-balla#
   if ballz#>45 then balla#=180-balla#
   if ballx#>40 or ballx#<-40 then balla#=360-balla#

   `MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
   balla#=wrapvalue(balla#)

   position object 5,ballx#,0,ballz# : yrotate object 5,balla#

   If Object Collision(5,4) Then balla#=wrapvalue(balla#+180)

   `Ball to box collision
   For z = 20 to 69
      If object collision(5,0)=z
         balla#=wrapvalue(balla#+180)
         Hide object z
         Set Object Collision Off z
      EndIf
   Next z

 Sync
Loop

This is the part I'm really focusing on right now:

+ Code Snippet

`Ball Movement
   ballx#=newxvalue(ballx#,balla#,1)
   ballz#=newzvalue(ballz#,balla#,1)

   `Bouncing
   if ballz#<-14 and ballz#>-12.5 and ABS(PadPos#-ballx#)<1.5 then balla#=180-balla#
   if ballz#>45 then balla#=180-balla#
   if ballx#>40 or ballx#<-40 then balla#=360-balla#

   `MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
   balla#=wrapvalue(balla#)

   position object 5,ballx#,0,ballz# : yrotate object 5,balla#

   If Object Collision(5,4) Then balla#=wrapvalue(balla#+180)

   `Ball to box collision
   For z = 20 to 69
      If object collision(5,0)=z
         balla#=wrapvalue(balla#+180)
         Hide object z
         Set Object Collision Off z
      EndIf
   Next z

I did not write that code, I copied it from an old thread (which might explain the speed issue). However, I understand most of it, I just don't know how to add angles to the ball bouncing back and forth.

Any help/advice is appreciated!

-Yodaman Jer

Hoping that, one day, I'll finally get around to producing a game for you all to play.

Back to top

Profile

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 1st Sep 2009 04:02

Link

ok, speaking for DarkNOOBS (who is currently making a breakout game) heres how I would handle ball movement and collision against flat surfaces:

make two variables : ballmovex# and ballmovey#

y is a flag (1 or -1) for up or down movement

x is a float for how much x movement per unit of movement (negative a to positive a, where a is the max x movement)

upon collision with the paddle or any bottom of ball collision you switch the y to positive (up) and keep the x the same

same goes for top of ball collision, only switch the y to negative

for left/right, keep the y the same and say x=x*-1, this will flip the x movement to its opposite, preserving the angles

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 1st Sep 2009 13:30 Edited at: 1st Sep 2009 13:43

Link

Quote: "upon collision with the paddle or any bottom of ball collision you switch the y to positive (up) and keep the x the same"

But that's not how it works in breakout. The reflecting angle of the ball depends on where at on the paddle the ball hits, this gives the user more control over aiming the ball.

Imagine this black bar is your paddle. The illustration would show the user has the control to reflect the ball within an 80 degree range to either side. If the ball hits dead center, shoot it straight up (which is 270 degrees in DB). If the ball hits the paddle at the very edge, bounce off at 80 degrees from straight up, which is 190 or 350 degrees depending on which side it hits. All other places the ball hits on the paddle will fall between those reflective angles. You can setup a simple proportion to determine which angle the ball should travel after impact.

Assuming P.x is the center of the paddle's position and the paddle is a total of 100 pixels wide, that means the far left side is x-50 and the far right side is x+50.

B.x = ball x-position
delta = B.x - P.x

The absolute value of delta should be equal to or less than 50, otherwise it's outside of the paddle's ends. If delta is positive, the ball is on the ride side, negative its on the left side. If delta is 0, its dead center.

angle = (delta / 50.0) * 80

If delta is 50, on the edge of the paddle, then 50/50 equals 1.
1 * 80 = 80, the maximum degrees to reflect the ball from the center of the paddle. Add the angle to 270 degrees (this is in DB only, other languages don't use 270 to point straight up) and you'll get the reflective angle.

If delta is negative, adding it to 270 will result in an angle between 190 and 270, thus reflecting off to the left. If positive, reflects off to the right at an angle between 270 and 350.

This is actually part of a breakout tutorial I began writing awhile back. It's about 10 pages so far, but all that's left to cover is the collision with the bricks, which I'm experimenting with a faster (hopefully) technique.

[url="http://www.nocleanfeed.com"]

[/url]

Attachments

Login to view attachments

Back to top

Profile PM Email Website

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 2nd Sep 2009 00:13

Link

right, but I was just telling him how to et a basic angle in = angle out scenario, notthing to do with the real breakout collision

Back to top

Profile PM Email

Yodaman Jer

User Banned

Posted: 2nd Sep 2009 05:05

Link

Thanks for your responses, guys!

@Phaelax:

I think in order to test out your theory (which sounds great and I understand it for the most part) I need to re-write several lines of my code, or maybe even restart the project. I was going to do that anyway in order to solve the speed issue. I can't until I get more time though, which might not be until late next week...

Why is it that whenever I start a project I end up losing time?

-Yodaman Jer

Hoping that, one day, I'll finally get around to producing a game for you all to play.

Back to top

Profile

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 5th Sep 2009 20:12

Link

I made a Breakout game and I used

Dim Map(X,Y)

For collision with the blocks. It is very fast. Not sure how fast Sparky's collision would be, but the built in collision is slow.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th Sep 2009 03:11

Link

If I'm understanding correctly, you checked the ball to see which grid section it was in? That overlapping method wouldn't work with a very fast ball.

Back to top

Profile PM Email Website

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 10th Sep 2009 03:49 Edited at: 10th Sep 2009 03:54

Link

My program checked to see if a ball passed over a map space at any point in time, so it was accurate. But also, the game was so fast that I was using 1.5 pixels, up to 3 pixels, which meant that for 3 pixel movement I just needed 3 checks, one for each pixel.

Back to top

Profile PM Email Website

Monk

15

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 10th Sep 2009 17:59

Link

I made a game of Pongout (pong and breakout so lots of rebounding) and just used pretty simple code to change the velocity of the ball.

Something like:

+ Code Snippet

if bby# < 239
   bba# = wrapvalue(180-bba#)
endif
if bbx# < 62 or bbx# > 342
   bba# = wrapvalue(360 - bba#)
endif

And heres my game code if you want to have a look at it.

`Setup
disable escapekey
window = 1
gosub window
set text size 25
ink rgb(255,255,255),0
set text opaque
randomize timer()

gosub mainmenu

`variables for file reading
global file$ as string : file$ = "highscore.mon"
global hieasy# as float : hieasy# = 0
global himed# as float : himed# = 0
global hihard# as float : hihard# = 0

`reads hiscores
if file exist(file$)
   open to read 1, file$
   read float 1, e# : hieasy# = e#
   read float 1, m# : himed# = m#
   read float 1, h# : hihard# = h#
   close file 1
endif

`ready to start playing
gosub countdown
gosub pongout

end

`sets full screen according to if window = 1 or 0
window:
cls
input "set screen height", screenheight
sync
input "set screen width", screenwidth
sync
input "set display depth", screendepth
sync
if check display mode (screenheight,screenwidth,screendepth) = 1
   set display mode screenheight,screenwidth,screendepth
   set window on : set window position 100,100
endif
if check display mode (screenheight,screenwidth,screendepth) = 0
gosub window
endif

return

`the menu screen
`draws the text on screen
mainmenu:
set text size 80
center text 512,200,"Pongout!"
set text size 30
center text 512,320,"Select Difficulty"
ink 0,rgb(255,255,255)
center text 300,400,"Easy"
center text 500,400,"Medium"
center text 700,400,"Hard"
center text 400,450,"Mouse"
ink rgb(255,255,255),0
center text 600,450,"Keyboard"
set text size 25
ink rgb(255,255,255),0
center text 512,500,"Created by Monk"
control$ = "mouse"

`basic mouse pos checking
repeat
if mouseclick() = 1
   if mousey() > 400 and mousey() < 430
      if mousex() > 267 and mousex() < 333
         level$ = "easy"
      endif
      if mousex() > 450 and mousex() < 550
         level$ = "medium"
      endif
      if mousex() > 667 and mousex() < 733
         level$ = "hard"
      endif
   endif
   if mousey() > 450 and mousey() < 480
      if mousex() > 360 and mousex() < 440
         set text size 30
         ink 0,rgb(255,255,255)
         center text 400,450,"Mouse"
         ink rgb(255,255,255),0
         center text 600,450,"Keyboard"
         control$ = "mouse"
         set text size 25
      endif
      if mousex() > 535 and mousex() < 665
         set text size 30
         ink 0,rgb(255,255,255)
         center text 600,450,"Keyboard"
         ink rgb(255,255,255),0
         center text 400,450,"Mouse"
         control$ = "keyboard"
         set text size 25
      endif
   endif
endif
until level$ = "easy" or level$ = "medium" or level$ = "hard"
return

`lets player get ready
countdown:
cls
set text size 100
center text 512,200,"3"
wait 1000
center text 512,200,"2"
wait 1000
center text 512,200,"1"
wait 1000
center text 512,200,"Play!"
wait 100
set text size 25
return

`actual game
pongout:
`dont want to see the mouse so we hide it and pos ready fro start
Position mouse 212,389
hide mouse

`variables for the game
global pbx# as float : pbx# = 662.0
global pby# as float : pby# = 389.0
global bbx# as float : bbx# = 212.0
global bby# as float : bby# = 480.0
global pex# as float : pex# = 950.0
global pey# as float : pey# = 389.0
global pbky# as float : pbky# = 389.0
global bbkx# as float : bbkx# = 212.0
global points# as float : points# = 0
global lives as integer : lives = 5
global pespd as integer : pespd = 10

`sets all block to visible
dim blocks(48,1)
for block = 1 to 32
      blocks(block,1) = 1
next block

`draws objects
Makepball(662,389,8)
Makepebat(950,389,70,10)
Makepbat(400,389,70,10)
Makebball(212,480,10)
Makebbat(212,530,10,70)
gosub Makebblocks

`inital figures
bba# = rnd(40)+160
pba# = rnd(40)+70
spd# = 8

do

`pause
if inkey$() = "p"
repeat
until spacekey() = 1
endif

`keyboard controls
if control$ = "keyboard"
   if upkey() = 1 then pbky# = pbky# - 15
   if downkey() = 1 then pbky# = pbky# + 15
   if leftkey() = 1 then bbkx# = bbkx# - 15
   if rightkey() = 1 then bbkx# = bbkx# + 15
   if pbky# < 263 then pbky# = 263
   if pbky# > 514 then pbky# = 514
   if bbkx# < 87 then bbkx# = 87
   if bbkx# > 317 then bbkx# = 317
endif

`goes to manual checks
gosub Pongchecks
gosub breakoutchecks

`changes ball speed
pbx# = pbx# + (spd#*sin(pba#))
pby# = pby# + (spd#*cos(pba#))
spd# = spd# + 0.1
if spd# > 20 then spd# = 20

`block hit checking
if bby# < 339 and bby# >= 323 then brow = 4
if bby# < 323 and bby# >= 307 then brow = 3
if bby# < 307 and bby# >= 291 then brow = 2
if bby# < 291 and bby# >= 275 then brow = 1
if bbx# < 335 and bbx# >= 304 then bcol = 8
if bbx# < 304 and bbx# >= 273 then bcol = 7
if bbx# < 273 and bbx# >= 242 then bcol = 6
if bbx# < 242 and bbx# >= 211 then bcol = 5
if bbx# < 211 and bbx# >= 180 then bcol = 4
if bbx# < 180 and bbx# >= 149 then bcol = 3
if bbx# < 149 and bbx# >= 118 then bcol = 2
if bbx# < 118 and bbx# >= 87 then bcol = 1
if bby# > 339 or bby# < 276 then brow = 6

bblock = (brow-1)*8 + bcol
blocks(bblock,1) = 0

`if hit then block become invisible
for block = 1 to 32
      if blocks(block,1) = 1
         b = 1
      endif
next block
`if no blocks are left visible, next level
if b = 0 then blevel = 1 else b = 0

`breakout ball speed
bbx# = bbx# + (10*sin(bba#))
bby# = bby# + (10*cos(bba#))

`changes the wait speed depending on chosen level
gosub level

`clears screen
cls

`redraws objects
gosub background
Movebbat(212,530,10,70)
Movepbat(400,389,70,10)
gosub Movepebat
gosub blocks
Movebball(bbx#,bby#,10,bba#)
Movepball(pbx#,pby#,8,pba#)
gosub scored

`text
text 50,60, "Points scored: "+ str$(points#)+"  :  Lives left:  "+str$(lives)
text 0,0,"Highscore easy   "+str$(hieasy#)
text 0,20,"Highscore medium   " + str$(himed#)
text 0,40, "Highscore hard   "+str$(hihard#)

`general parameters
points# = points# + 2
if lives <= 0 then gosub endscreen
if escapekey() = 1 then gosub writefile

`moves mouse according to key presses
if control$ = "keyboard"
   position mouse bbkx#, pbky#
endif

loop

breakoutchecks:
`checks balls position against bats
mx = mousex()
if mx > 342 then mx = 342
if mx < 62 then mx = 62
if bby# > 515 and bby# < 530 and bhit = 0
   dx# = bbx# - mx
   if bbx# <= mx + 50
   if bbx# > mx - 50
      bba# = wrapvalue((180-bba#)-dx#)
      bhit = 1
   endif
   endif
endif

`if passed bat players loses a life
if bby# >= 536 then bdead = 1

`bounce off walls
if bby# < 239
   bba# = wrapvalue(180-bba#)
endif
if bbx# < 62 or bbx# > 342
   bba# = wrapvalue(360 - bba#)
endif

`resets hit value
if bby# < 505 and bhit = 1 then bhit = 0

`stops ball from going at silly angles
if bba# < 110.0 and bba# > 90.0 then bba# = bba# + 2
if bba# < 270.0 and bba# > 250.0 then bba# = bba# - 2
if bba# > 270.0 and bba# < 290.0 then bba# = bba# + 2
if bba# > 70.0 and bba# < 90.0 then bba# = bba# - 2
return

Pongchecks:
`checks if ball is near player bat
if pbx# < 415 and pbx# > (410 - spd#) and phit = 0
   dy# = pby# - mousey()
   if pby# < mousey() + 42 and pby# >= mousey()
      pba# = wrapvalue((360-pba#)-dy#)
      phit = 1
   endif
   if pby# > mousey() - 42 and pby# < mousey()
      pba# = wrapvalue((360-pba#)-dy#)
      phit = 1
   endif
endif

`checks if ball is near enemy bat
if pbx# > 935 and pbx# < 940 + spd# and pehit = 0
   dy# = pby# - pey#
   if pby# < pey#+42 and pby# >= pey#
      pba# = wrapvalue((360-pba#)+dy#)
   endif
   if pby# > pey# - 42 and pby# < pey#
      pba# = wrapvalue((360-pba#)+dy#)
      pehit = 1
   endif
   if pby# < pey# - 42 or pby# > pey# + 42
      pba# = pba#
      pehit  = 1
   endif
endif

`bounce off top and bottom
if pby# < 240 or pby# > 539
   pba# = wrapvalue(180-pba#)
endif

`increase scores if passed a bat
if pbx# < 375
   pescored = 1
endif
if pbx# > 975
   pscored = 1
endif

`resets hits
if pbx# > 420 and phit = 1 then phit = 0
if pbx# < 930 and pehit = 1 then pehit = 0

`stops ball going at silly angles
if pba# < 20.0 and pba# > 0.0 then pba# = pba# + 2
if pba# < 180.0 and pba# > 160.0 then pba# = pba# - 2
if pba# > 180.0 and pba# < 200.0 then pba# = pba# + 2
if pba# > 340.0 and pba# < 360.0 then pba# = pba# - 2
return

scored:
`resets pong if player scores
if pscored = 1
   spd# = 8
   pbx# = 662.0
   pby# = 389.0
   pba# = rnd(40)+70
   pscored = 0
   points = points + 100
   playerpscore = playerpscore + 1
endif
`resets pong if enemy scores
if pescored = 1
   spd# = 8
   pbx# = 662.0
   pby# = 389.0
   pba# = rnd(40)+70
   pescored = 0
   lives = lives - 1
   playerpescore = playerpescore + 1
endif
`resets breakout ball if ball passes bat
if bdead = 1
   bbx# = 212.0
   bby# = 480.0
   bba# = rnd(10)+170
   bdead = 0
   lives = lives - 1
   playerbdead = playerbdead + 1
endif
`redraws blocks if all blocks are invisible
if blevel = 1
   bbx# = 212.0
   bby# = 480.0
   bba# = rnd(10)+170
   blevel = 0
   points = points + 1000
   playerblevel = playerblevel + 1
   for block = 1 to 32
       blocks(block,1) = 1
   next block
endif
return

function Makebball(x,y,rad)
`draws breakout ball
Box x-rad,y-rad,x+rad,y+rad
endfunction

function Makebbat(x,y,height,width)
`draws breakout bat
Box x-(width/2),y-(height/2),x+(width/2),y+(height/2)
endfunction

Makebblocks:
`draws the breakout blocks
xtop = 88
ytop = 276
sizex = 30
sizey = 15
by = 1
bx = 1
for block = 1 to 32
   if block <= 8 then bx = block : ink rgb(255,0,0),0
   if block > 8 and block <= 16 then by = 2 : bx = block - 8 : ink rgb(255,255,0),0
   if block > 16 and block <= 24 then by = 3 : bx = block - 16 : ink rgb(0,255,0),0
   if block > 24 and block <= 32 then by = 4 : bx = block - 24 : ink rgb(0,255,255),0
   blocks(block,1) = 1
   box xtop+((bx-1)*sizex)+(bx-1),ytop+((by-1)*sizey)+(by-1),xtop+(bx-1)+(bx*sizex),ytop+(by-1)+(by*sizey)
next block
return

function Movebbat(x,y,height,width)
`redraws breakout bat at new position
mx = Mousex()
if mx > 317 then mx = 317
if mx < 87 then mx = 87
Box mx-(width/2),y-(height/2),mx+(width/2),y+(height/2)
endfunction

function Movebball(x,y,rad,ang)
`redraws the breakout ball at new position
Box x-rad,y-rad,x+rad,y+rad
endfunction

blocks:
`draws the breakout blocks
xtop = 88
ytop = 276
sizex = 30
sizey = 15
by = 1
bx = 1
for block = 1 to 32
   if block <= 8 then bx = block : ink rgb(255,0,0),0
   if block > 8 and block <= 16 then by = 2 : bx = block - 8 : ink rgb(255,255,0),0
   if block > 16 and block <= 24 then by = 3 : bx = block - 16 : ink rgb(0,255,0),0
   if block > 24 and block <= 32 then by = 4 : bx = block - 24 : ink rgb(0,255,255),0
   if blocks(block,1) = 1
      box xtop+((bx-1)*sizex)+(bx-1),ytop+((by-1)*sizey)+(by-1),xtop+(bx-1)+(bx*sizex),ytop+(by-1)+(by*sizey)
   endif
   `draws black if iinvisible
   if blocks(block,1) = 0
      ink 0,0
      box xtop+((bx-1)*sizex)+(bx-1),ytop+((by-1)*sizey)+(by-1),xtop+(bx-1)+(bx*sizex),ytop+(by-1)+(by*sizey)
   endif
next block
ink rgb(255,255,255),0
return

function Makepball(x,y,rad)
`Draw square for pong ball
Box x-rad,y-rad,x+rad,y+rad
endfunction

function Makepbat(x,y,height,width)
`Draw a box as the pong bat
Box x-(width/2),y-(height/2),x+(width/2),y+(height/2)
endfunction

function Makepebat(x,y,height,width)
`Draw a box as the pong enemy bat
Box x-(width/2),y-(height/2),x+(width/2),y+(height/2)
endfunction

function Movepbat(x,y,height,width)
`Should move the pong bat along the y-axis in relation with mousey
my = mousey()
if my > 514 then my = 514
if my < 263 then my = 263
Box x-(width/2),my-(height/2),x+(width/2),my+(height/2)
endfunction

Movepebat:
`Should move enemy bat towards ball position
if pbx# < 950
if pby# >= pey# then pey# = pey# + pespd
if pby# < pey# then pey# = pey# - pespd
endif
if pey# > 514 then pey# = 514
if pey# < 263 then pey# = 263
Box pex#-5,pey#-35,pex#+5,pey#+35
return

function Movepball(x,y,rad,ang)
`Draw square for pong ball
Box x-rad,y-rad,x+rad,y+rad
endfunction

background:
`draws the lines for the court lines
line 52,549,52,229
line 52,229,990,229
line 52,549,990,549
line 990,229,990,549
line 352,229,352,549
line 950,229,950,549
line 400,229,400,549
line 52,530,352,530
return

endscreen:
`game over hiscore screen
cls
set text size 50

p$ = str$(points#)
if len(p$) < 5
   repeat
   p$ = str$(0) + p$
   until len(p$) = 5
endif

`sets hiscores
if level$ = "easy"
   if points# > hieasy# then hieasy# = points#
   hiscore# = hieasy#
endif
if level$ = "medium"
   if points# > himed# then himed# = points#
   hiscore# = himed#
endif
if level$ = "hard"
   if points# > hihard# then hihard# = points#
   hiscore# = hihard#
endif

hs$ = str$(hiscore#)
if len(hs$) < 5
   repeat
   hs$ = str$(0) + hs$
   until len(hs$) = 5
endif

`draws screen
repeat
text 100,100,"Game over!!"
text 100,200,"Your Score: " + p$
text 100,300,"Highscore: " + hs$
text 100,400,"Play Again? Y/N"
until keystate(21) = 1 or keystate(49) = 1

set text size 25

if keystate(49) = 1 then gosub writefile
if keystate(21) = 1 then gosub mainmenu

end
return

writefile:
`adds zeros to score until 5 figures long
he$ = str$(hieasy#)
if len(he$) < 5
   repeat
   he$ = str$(0) + he$
   until len(he$) = 5
endif

hm$ = str$(himed#)
if len(hm$) < 5
   repeat
   hm$ = str$(0) + hm$
   until len(hm$) = 5
endif

hh$ = str$(hihard#)
if len(hh$) < 5
   repeat
   hh$ = str$(0) + hh$
   until len(hh$) = 5
endif

`deletes, makes open and writes a new hiscore file
delete file file$
open to write 1,file$
if level$ = "easy"
   write float 1, val(he$)
endif
if level$ = "medium"
   write float 1, val(he$)
   write float 1, val(hm$)
endif
if level$ = "hard"
   write float 1, val(he$)
   write float 1, val(hm$)
   write float 1, val(hh$)
endif
close file 1
end
return

level:
`sets wait value and ai speed dependin on level
if level$ = "easy"
   wait 40
   pespd = 8
endif

if level$ = "medium"
   wait 30
   pespd = 12
endif

if level$ = "hard"
   wait 20
   pespd = 15
endif

return

return `pongout

+ Code Snippet

`Setup
disable escapekey
window = 1
gosub window
set text size 25
ink rgb(255,255,255),0
set text opaque
randomize timer()

gosub mainmenu

`variables for file reading
global file$ as string : file$ = "highscore.mon"
global hieasy# as float : hieasy# = 0
global himed# as float : himed# = 0
global hihard# as float : hihard# = 0

`reads hiscores
if file exist(file$)
   open to read 1, file$
   read float 1, e# : hieasy# = e#
   read float 1, m# : himed# = m#
   read float 1, h# : hihard# = h#
   close file 1
endif

`ready to start playing
gosub countdown
gosub pongout

end

`sets full screen according to if window = 1 or 0
window:
cls
input "set screen height", screenheight
sync
input "set screen width", screenwidth
sync
input "set display depth", screendepth
sync
if check display mode (screenheight,screenwidth,screendepth) = 1
   set display mode screenheight,screenwidth,screendepth
   set window on : set window position 100,100
endif
if check display mode (screenheight,screenwidth,screendepth) = 0
gosub window
endif

return

`the menu screen
`draws the text on screen
mainmenu:
set text size 80
center text 512,200,"Pongout!"
set text size 30
center text 512,320,"Select Difficulty"
ink 0,rgb(255,255,255)
center text 300,400,"Easy"
center text 500,400,"Medium"
center text 700,400,"Hard"
center text 400,450,"Mouse"
ink rgb(255,255,255),0
center text 600,450,"Keyboard"
set text size 25
ink rgb(255,255,255),0
center text 512,500,"Created by Monk"
control$ = "mouse"

`basic mouse pos checking
repeat
if mouseclick() = 1
   if mousey() > 400 and mousey() < 430
      if mousex() > 267 and mousex() < 333
         level$ = "easy"
      endif
      if mousex() > 450 and mousex() < 550
         level$ = "medium"
      endif
      if mousex() > 667 and mousex() < 733
         level$ = "hard"
      endif
   endif
   if mousey() > 450 and mousey() < 480
      if mousex() > 360 and mousex() < 440
         set text size 30
         ink 0,rgb(255,255,255)
         center text 400,450,"Mouse"
         ink rgb(255,255,255),0
         center text 600,450,"Keyboard"
         control$ = "mouse"
         set text size 25
      endif
      if mousex() > 535 and mousex() < 665
         set text size 30
         ink 0,rgb(255,255,255)
         center text 600,450,"Keyboard"
         ink rgb(255,255,255),0
         center text 400,450,"Mouse"
         control$ = "keyboard"
         set text size 25
      endif
   endif
endif
until level$ = "easy" or level$ = "medium" or level$ = "hard"
return

`lets player get ready
countdown:
cls
set text size 100
center text 512,200,"3"
wait 1000
center text 512,200,"2"
wait 1000
center text 512,200,"1"
wait 1000
center text 512,200,"Play!"
wait 100
set text size 25
return

`actual game
pongout:
`dont want to see the mouse so we hide it and pos ready fro start
Position mouse 212,389
hide mouse

`variables for the game
global pbx# as float : pbx# = 662.0
global pby# as float : pby# = 389.0
global bbx# as float : bbx# = 212.0
global bby# as float : bby# = 480.0
global pex# as float : pex# = 950.0
global pey# as float : pey# = 389.0
global pbky# as float : pbky# = 389.0
global bbkx# as float : bbkx# = 212.0
global points# as float : points# = 0
global lives as integer : lives = 5
global pespd as integer : pespd = 10

`sets all block to visible
dim blocks(48,1)
for block = 1 to 32
      blocks(block,1) = 1
next block

`draws objects
Makepball(662,389,8)
Makepebat(950,389,70,10)
Makepbat(400,389,70,10)
Makebball(212,480,10)
Makebbat(212,530,10,70)
gosub Makebblocks

`inital figures
bba# = rnd(40)+160
pba# = rnd(40)+70
spd# = 8


do

`pause
if inkey$() = "p"
repeat
until spacekey() = 1
endif

`keyboard controls
if control$ = "keyboard"
   if upkey() = 1 then pbky# = pbky# - 15
   if downkey() = 1 then pbky# = pbky# + 15
   if leftkey() = 1 then bbkx# = bbkx# - 15
   if rightkey() = 1 then bbkx# = bbkx# + 15
   if pbky# < 263 then pbky# = 263
   if pbky# > 514 then pbky# = 514
   if bbkx# < 87 then bbkx# = 87
   if bbkx# > 317 then bbkx# = 317
endif

`goes to manual checks
gosub Pongchecks
gosub breakoutchecks

`changes ball speed
pbx# = pbx# + (spd#*sin(pba#))
pby# = pby# + (spd#*cos(pba#))
spd# = spd# + 0.1
if spd# > 20 then spd# = 20

`block hit checking
if bby# < 339 and bby# >= 323 then brow = 4
if bby# < 323 and bby# >= 307 then brow = 3
if bby# < 307 and bby# >= 291 then brow = 2
if bby# < 291 and bby# >= 275 then brow = 1
if bbx# < 335 and bbx# >= 304 then bcol = 8
if bbx# < 304 and bbx# >= 273 then bcol = 7
if bbx# < 273 and bbx# >= 242 then bcol = 6
if bbx# < 242 and bbx# >= 211 then bcol = 5
if bbx# < 211 and bbx# >= 180 then bcol = 4
if bbx# < 180 and bbx# >= 149 then bcol = 3
if bbx# < 149 and bbx# >= 118 then bcol = 2
if bbx# < 118 and bbx# >= 87 then bcol = 1
if bby# > 339 or bby# < 276 then brow = 6

bblock = (brow-1)*8 + bcol
blocks(bblock,1) = 0

`if hit then block become invisible
for block = 1 to 32
      if blocks(block,1) = 1
         b = 1
      endif
next block
`if no blocks are left visible, next level
if b = 0 then blevel = 1 else b = 0

`breakout ball speed
bbx# = bbx# + (10*sin(bba#))
bby# = bby# + (10*cos(bba#))

`changes the wait speed depending on chosen level
gosub level

`clears screen
cls

`redraws objects
gosub background
Movebbat(212,530,10,70)
Movepbat(400,389,70,10)
gosub Movepebat
gosub blocks
Movebball(bbx#,bby#,10,bba#)
Movepball(pbx#,pby#,8,pba#)
gosub scored

`text
text 50,60, "Points scored: "+ str$(points#)+"  :  Lives left:  "+str$(lives)
text 0,0,"Highscore easy   "+str$(hieasy#)
text 0,20,"Highscore medium   " + str$(himed#)
text 0,40, "Highscore hard   "+str$(hihard#)

`general parameters
points# = points# + 2
if lives <= 0 then gosub endscreen
if escapekey() = 1 then gosub writefile

`moves mouse according to key presses
if control$ = "keyboard"
   position mouse bbkx#, pbky#
endif

loop


breakoutchecks:
`checks balls position against bats
mx = mousex()
if mx > 342 then mx = 342
if mx < 62 then mx = 62
if bby# > 515 and bby# < 530 and bhit = 0
   dx# = bbx# - mx
   if bbx# <= mx + 50
   if bbx# > mx - 50
      bba# = wrapvalue((180-bba#)-dx#)
      bhit = 1
   endif
   endif
endif

`if passed bat players loses a life
if bby# >= 536 then bdead = 1

`bounce off walls
if bby# < 239
   bba# = wrapvalue(180-bba#)
endif
if bbx# < 62 or bbx# > 342
   bba# = wrapvalue(360 - bba#)
endif

`resets hit value
if bby# < 505 and bhit = 1 then bhit = 0

`stops ball from going at silly angles
if bba# < 110.0 and bba# > 90.0 then bba# = bba# + 2
if bba# < 270.0 and bba# > 250.0 then bba# = bba# - 2
if bba# > 270.0 and bba# < 290.0 then bba# = bba# + 2
if bba# > 70.0 and bba# < 90.0 then bba# = bba# - 2
return


Pongchecks:
`checks if ball is near player bat
if pbx# < 415 and pbx# > (410 - spd#) and phit = 0
   dy# = pby# - mousey()
   if pby# < mousey() + 42 and pby# >= mousey()
      pba# = wrapvalue((360-pba#)-dy#)
      phit = 1
   endif
   if pby# > mousey() - 42 and pby# < mousey()
      pba# = wrapvalue((360-pba#)-dy#)
      phit = 1
   endif
endif

`checks if ball is near enemy bat
if pbx# > 935 and pbx# < 940 + spd# and pehit = 0
   dy# = pby# - pey#
   if pby# < pey#+42 and pby# >= pey#
      pba# = wrapvalue((360-pba#)+dy#)
   endif
   if pby# > pey# - 42 and pby# < pey#
      pba# = wrapvalue((360-pba#)+dy#)
      pehit = 1
   endif
   if pby# < pey# - 42 or pby# > pey# + 42
      pba# = pba#
      pehit  = 1
   endif
endif

`bounce off top and bottom
if pby# < 240 or pby# > 539
   pba# = wrapvalue(180-pba#)
endif

`increase scores if passed a bat
if pbx# < 375
   pescored = 1
endif
if pbx# > 975
   pscored = 1
endif

`resets hits
if pbx# > 420 and phit = 1 then phit = 0
if pbx# < 930 and pehit = 1 then pehit = 0

`stops ball going at silly angles
if pba# < 20.0 and pba# > 0.0 then pba# = pba# + 2
if pba# < 180.0 and pba# > 160.0 then pba# = pba# - 2
if pba# > 180.0 and pba# < 200.0 then pba# = pba# + 2
if pba# > 340.0 and pba# < 360.0 then pba# = pba# - 2
return


scored:
`resets pong if player scores
if pscored = 1
   spd# = 8
   pbx# = 662.0
   pby# = 389.0
   pba# = rnd(40)+70
   pscored = 0
   points = points + 100
   playerpscore = playerpscore + 1
endif
`resets pong if enemy scores
if pescored = 1
   spd# = 8
   pbx# = 662.0
   pby# = 389.0
   pba# = rnd(40)+70
   pescored = 0
   lives = lives - 1
   playerpescore = playerpescore + 1
endif
`resets breakout ball if ball passes bat
if bdead = 1
   bbx# = 212.0
   bby# = 480.0
   bba# = rnd(10)+170
   bdead = 0
   lives = lives - 1
   playerbdead = playerbdead + 1
endif
`redraws blocks if all blocks are invisible
if blevel = 1
   bbx# = 212.0
   bby# = 480.0
   bba# = rnd(10)+170
   blevel = 0
   points = points + 1000
   playerblevel = playerblevel + 1
   for block = 1 to 32
       blocks(block,1) = 1
   next block
endif
return


function Makebball(x,y,rad)
`draws breakout ball
Box x-rad,y-rad,x+rad,y+rad
endfunction


function Makebbat(x,y,height,width)
`draws breakout bat
Box x-(width/2),y-(height/2),x+(width/2),y+(height/2)
endfunction


Makebblocks:
`draws the breakout blocks
xtop = 88
ytop = 276
sizex = 30
sizey = 15
by = 1
bx = 1
for block = 1 to 32
   if block <= 8 then bx = block : ink rgb(255,0,0),0
   if block > 8 and block <= 16 then by = 2 : bx = block - 8 : ink rgb(255,255,0),0
   if block > 16 and block <= 24 then by = 3 : bx = block - 16 : ink rgb(0,255,0),0
   if block > 24 and block <= 32 then by = 4 : bx = block - 24 : ink rgb(0,255,255),0
   blocks(block,1) = 1
   box xtop+((bx-1)*sizex)+(bx-1),ytop+((by-1)*sizey)+(by-1),xtop+(bx-1)+(bx*sizex),ytop+(by-1)+(by*sizey)
next block
return


function Movebbat(x,y,height,width)
`redraws breakout bat at new position
mx = Mousex()
if mx > 317 then mx = 317
if mx < 87 then mx = 87
Box mx-(width/2),y-(height/2),mx+(width/2),y+(height/2)
endfunction


function Movebball(x,y,rad,ang)
`redraws the breakout ball at new position
Box x-rad,y-rad,x+rad,y+rad
endfunction


blocks:
`draws the breakout blocks
xtop = 88
ytop = 276
sizex = 30
sizey = 15
by = 1
bx = 1
for block = 1 to 32
   if block <= 8 then bx = block : ink rgb(255,0,0),0
   if block > 8 and block <= 16 then by = 2 : bx = block - 8 : ink rgb(255,255,0),0
   if block > 16 and block <= 24 then by = 3 : bx = block - 16 : ink rgb(0,255,0),0
   if block > 24 and block <= 32 then by = 4 : bx = block - 24 : ink rgb(0,255,255),0
   if blocks(block,1) = 1
      box xtop+((bx-1)*sizex)+(bx-1),ytop+((by-1)*sizey)+(by-1),xtop+(bx-1)+(bx*sizex),ytop+(by-1)+(by*sizey)
   endif
   `draws black if iinvisible
   if blocks(block,1) = 0
      ink 0,0
      box xtop+((bx-1)*sizex)+(bx-1),ytop+((by-1)*sizey)+(by-1),xtop+(bx-1)+(bx*sizex),ytop+(by-1)+(by*sizey)
   endif
next block
ink rgb(255,255,255),0
return


function Makepball(x,y,rad)
`Draw square for pong ball
Box x-rad,y-rad,x+rad,y+rad
endfunction


function Makepbat(x,y,height,width)
`Draw a box as the pong bat
Box x-(width/2),y-(height/2),x+(width/2),y+(height/2)
endfunction


function Makepebat(x,y,height,width)
`Draw a box as the pong enemy bat
Box x-(width/2),y-(height/2),x+(width/2),y+(height/2)
endfunction


function Movepbat(x,y,height,width)
`Should move the pong bat along the y-axis in relation with mousey
my = mousey()
if my > 514 then my = 514
if my < 263 then my = 263
Box x-(width/2),my-(height/2),x+(width/2),my+(height/2)
endfunction


Movepebat:
`Should move enemy bat towards ball position
if pbx# < 950
if pby# >= pey# then pey# = pey# + pespd
if pby# < pey# then pey# = pey# - pespd
endif
if pey# > 514 then pey# = 514
if pey# < 263 then pey# = 263
Box pex#-5,pey#-35,pex#+5,pey#+35
return


function Movepball(x,y,rad,ang)
`Draw square for pong ball
Box x-rad,y-rad,x+rad,y+rad
endfunction

background:
`draws the lines for the court lines
line 52,549,52,229
line 52,229,990,229
line 52,549,990,549
line 990,229,990,549
line 352,229,352,549
line 950,229,950,549
line 400,229,400,549
line 52,530,352,530
return

endscreen:
`game over hiscore screen
cls
set text size 50

p$ = str$(points#)
if len(p$) < 5
   repeat
   p$ = str$(0) + p$
   until len(p$) = 5
endif

`sets hiscores
if level$ = "easy"
   if points# > hieasy# then hieasy# = points#
   hiscore# = hieasy#
endif
if level$ = "medium"
   if points# > himed# then himed# = points#
   hiscore# = himed#
endif
if level$ = "hard"
   if points# > hihard# then hihard# = points#
   hiscore# = hihard#
endif

hs$ = str$(hiscore#)
if len(hs$) < 5
   repeat
   hs$ = str$(0) + hs$
   until len(hs$) = 5
endif

`draws screen
repeat
text 100,100,"Game over!!"
text 100,200,"Your Score: " + p$
text 100,300,"Highscore: " + hs$
text 100,400,"Play Again? Y/N"
until keystate(21) = 1 or keystate(49) = 1

set text size 25

if keystate(49) = 1 then gosub writefile
if keystate(21) = 1 then gosub mainmenu

end
return


writefile:
`adds zeros to score until 5 figures long
he$ = str$(hieasy#)
if len(he$) < 5
   repeat
   he$ = str$(0) + he$
   until len(he$) = 5
endif

hm$ = str$(himed#)
if len(hm$) < 5
   repeat
   hm$ = str$(0) + hm$
   until len(hm$) = 5
endif

hh$ = str$(hihard#)
if len(hh$) < 5
   repeat
   hh$ = str$(0) + hh$
   until len(hh$) = 5
endif

`deletes, makes open and writes a new hiscore file
delete file file$
open to write 1,file$
if level$ = "easy"
   write float 1, val(he$)
endif
if level$ = "medium"
   write float 1, val(he$)
   write float 1, val(hm$)
endif
if level$ = "hard"
   write float 1, val(he$)
   write float 1, val(hm$)
   write float 1, val(hh$)
endif
close file 1
end
return

level:
`sets wait value and ai speed dependin on level
if level$ = "easy"
   wait 40
   pespd = 8
endif

if level$ = "medium"
   wait 30
   pespd = 12
endif

if level$ = "hard"
   wait 20
   pespd = 15
endif

return

return `pongout

Monk

My blog thing =)

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 17th Sep 2009 21:40

Link

That code looks great!

Sorry it took so long to get back here, I sort of abandoned the project because life got INSANELY busy for a few weeks. And it will continue that way until the second weekend of October...

So, when I have time I'll definitely take a look at your source code Monk. It looks really awesome!

-Yodaman Jer

Click, it's a funny video!

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Discussion / Angle In = Angle Out?

Attachments