paddle ball

[abysspell]

something I made in class, I think that its fun! what do you think?


/* Paddle Ball */


%Beggining
var font1, font2, font3 : int
var any : string (1)
var sel : int
var padsiz, balspeed : int
var speed : int
var pla : string


loop

drawfillbox (0, 0, 700, 400, 7)

font1 := Font.New ("tahoma:50:italic")
font2 := Font.New ("tahoma:20:italic")
font3 := Font.New ("tahoma:10:italic")
assert font1 > 0
assert font2 > 0
assert font3 > 0
Font.Draw ("Welcome To", 230, 280, font2, yellow)
Font.Draw ("Paddle Ball", 140, 192, font1, yellow)

Font.Draw ("Press Any Key To Continue", 225, 90, font3, yellow)

getch (any)
Music.Sound (300,100)
cls

put "Main Screen"
put "Please Select One"
put "1- Start Game"
put "2- Game Options"
get sel
Music.Sound (300,100)

cls

if sel = 1
then
padsiz := 2
balspeed := 3
put "Press Any Key To Play"
Music.Sound (300,100)
elsif sel = 2
then
put "Please select a paddle size:"
put "1 - 2 - 3 - 4 - 5"
get padsiz
Music.Sound (300,100)
put "Please select a ball speed:"
put "1 - 2 - 3 - 4 - 5"
get balspeed
Music.Sound (300,100)
put "Press 5 to play with settings"
Music.Sound (300,100)
end if

getch (any)
cls





%Background
drawfillbox (0, 0, 700, 400, 11)

View.Set ("offscreenonly")


% Variables
var key : string (1) %Getch Commands
var num : int %Key Board Input
var x1, x2 : int %Paddle Ball Coordinates
var xdir, ydir : int
var x, y : int
var count : int


if padsiz = 1
then
x1 := 100
x2 := 175
elsif padsiz = 2
then
x1 := 100
x2 := 200
elsif padsiz = 3
then
x1 := 100
x2 := 225
elsif padsiz = 4
then
x1 := 100
x2 := 250
elsif padsiz = 5
then
x1 := 100
x2 := 275
end if

if balspeed = 1
then
speed := 30
elsif balspeed = 2
then
speed := 25
elsif balspeed = 3
then
speed := 20
elsif balspeed = 4
then
speed := 15
elsif balspeed = 5
then
speed := 10
end if


% Paddle

num := 0

x := 100
y := 100

xdir := 5
ydir := 5

count := 0

loop
locate (1, 1)
colorback (11)
put "Score", count

% Ball
drawfilloval (x, y, 10, 10, 4)
drawfillbox (x1, 10, x2, 20, 4)
View.Update
delay (speed)
drawfilloval (x, y, 10, 10, 11)
drawfillbox (x1, 10, x2, 20, 11)

if x > 630
then
xdir := -5
Music.Sound (300,100)
elsif x < 10
then
xdir := 5
Music.Sound (300,100)
elsif y > 390
then
ydir := -5
Music.Sound (300,100)
elsif y < 30 and x > x1 and x < x2
then
ydir := 5
count := count + 1
Music.Sound (500,100)
elsif y < 10
then
ydir := 5
end if

x := x + xdir
y := y + ydir

exit when y = 10

% Paddle


if hasch
then
getch (key)
num := ord (key)
end if

if num = 203 and x1 > 0 then

x1 := x1 - 10
x2 := x2 - 10
elsif num = 205 and x2 < 640
then
x1 := x1 + 10
x2 := x2 + 10
end if

num := 0

end loop

drawfillbox (0, 0, 700, 400, 7)
Font.Draw ("GAME OVER", 150, 210, font1, yellow)
Music.Sound (300,300)
Music.Sound (400,300)
Music.Sound (500,300)
Music.Sound (600,300)
Music.Sound (700,300)

View.Set ("nooffscreenonly")
delay (2000)
cls

drawfillbox (0, 0, 700, 400, 3)
colorback (3)
put "Congrats, your score is ", count,"."
put "Would you like to play again?y/n"
get pla

if pla = "y"
then
else
exit
end if

end loop

cls
Font.Draw ("Thanks For Playing",200, 250, font2, yellow)

[Voltage128]

It is alright. A couple easy errors to fix. When you type in any number over 5 on your settings, or if you type a letter it casues and error and closes the game. Simple thing to make it look better is when you have your score at the top but a colon between then word and the score. Also when the balls hits the wall it sort of pauses, you should make that a constant flow.

[uberwalla]

hmmm what i think; what i think.

first of all i think u should use code tags next time

other then that i think it was ok. the paddle was very laggy but i fixed that. (it was my comp settings )

[KevinW]

there's a bug... if the ball gets halfway into the paddle* you can get like 3 points before it deflects off.

*The way you can get the ball into the paddle is by waiting until the ball is almost at 1/3 from the bottom then moving in to get the ball...

It's confusing, hard to explain..XD

[Hackmaster]

I noticed the bug that kevin noticed, but, I also noticed that it was REALLY, REALLY laggy. that can be fixed with a simple view.update, and some takepic/drawpics, as opposed to just redrawing the boxes each time.

otherwise, fairly unique version of "pong".

[petree08]

yeah that's ok (if your just beggining) it would be interesting if you put it into a block smasher type game

[asd]

This is the worst game I've ever played. I hope you never get into any university, you wasted a few minutes of my life and now I'm going to go and

[Clayton]

Flaming is against [The Rules] (hope the autolink still works), please read them before you post again. He obviously enjoys his program, so don't beat him down about it.

[Kerpail]

The paddle wont move for me...

[asd]

please help me, my graphics card can't support this awesome piece of art
lawl nawt ill call the RCMP on you

[CodyNassis]

IT VERY NICE I ESPECIALY LIKE HAO U CAN CHEAT AND PIK HAO BIG THE PATTLE IS AND HAO LITLE DA BALL IS ^_^ LOL VERY EZ EZ

[zedx_26]

it is fun to play and i think it is preety good if you are new programer like me.
it was fun to play
keep up the good work