The "Freeola Customer Forum" forum, which includes Retro Game Reviews, has been archived and is now read-only. You cannot post here or create a new thread or review on this forum.
A LITTLE RESPECT
I tried to discover a little something to make me sweeter; Oh baby refrain from breaking my heart; I'm so in love with you; I'll be forever blue; That you give me no reason, you know you're making me work so hard; That you give me no . . . Soul; I hear you calling; Oh baby please give a little respect to me.
And if I should falter, would you open your arms out to me? We can make love not war, and live in peace with our hearts; I'm so in love with you; I'll be forever blue; What religion or reason could drive a man to forsake his lover? Don't you tell me no. . . Soul. I hear you calling; Oh baby please, give a little respect to me.
I'm so in love with you; I'll be forever blue; That you give me no reason, you know you're making me work so hard; That you give me no. Soul. I hear you calling. Oh baby, please give a little respect to me. Oh baby, please give a little respect to me
And teenage dirtbagHer name is Noel, She rings my bell, I got gym class in half an hour; Oh how she rocks in Keds and tube socks, but she doesn't know who I am; And she doesn't give a damn about me.
Chorus
Cause I'm just a teenage dirtbag baby. Yeah I'm just a teenage dirtbag baby. Listen to Iron Maiden baby with me. Ooohoo Hoo Hooooooo
Her boyfriend's a dick; He brings a Š to school and he'd simply kick my ass if he knew the truth; He lives on my block; He drives and I rock; But he doesn't know who I am and he doesn't give a damn about me.
Chorus
Oh yeah, Dirtbag; No, she doesn't know what she's missing.
Oh yeah, Dirtbag; No, she doesn't know what she's missing.
Man I feel like mold; It's prom night and I am lonely; Lo and behold, she's walking over to me; This must be fake; my lip starts to shake; How does she know who I am; and why does she give a damn about . . .
I've got two tickets to Iron Maiden baby; Come with me Friday, don't say maybe, I'm just a teenage dirtbag baby like you . . . Ooohoo Hoo Hooooooo
Oh yeah, Dirtbag; No, she doesn't know what she's missing.
Oh yeah, Dirtbag; No, she doesn't know what she's
I tried to discover a little something to make me sweeter; Oh baby refrain from breaking my heart; I'm so in love with you; I'll be forever blue; That you give me no reason, you know you're making me work so hard; That you give me no . . . Soul; I hear you calling; Oh baby please give a little respect to me.
And if I should falter, would you open your arms out to me? We can make love not war, and live in peace with our hearts; I'm so in love with you; I'll be forever blue; What religion or reason could drive a man to forsake his lover? Don't you tell me no. . . Soul. I hear you calling; Oh baby please, give a little respect to me.
I'm so in love with you; I'll be forever blue; That you give me no reason, you know you're making me work so hard; That you give me no. Soul. I hear you calling. Oh baby, please give a little respect to me. Oh baby, please give a little respect to me
And teenage dirtbagHer name is Noel, She rings my bell, I got gym class in half an hour; Oh how she rocks in Keds and tube socks, but she doesn't know who I am; And she doesn't give a damn about me.
Chorus
Cause I'm just a teenage dirtbag baby. Yeah I'm just a teenage dirtbag baby. Listen to Iron Maiden baby with me. Ooohoo Hoo Hooooooo
Her boyfriend's a dick; He brings a Š to school and he'd simply kick my ass if he knew the truth; He lives on my block; He drives and I rock; But he doesn't know who I am and he doesn't give a damn about me.
Chorus
Oh yeah, Dirtbag; No, she doesn't know what she's missing.
Oh yeah, Dirtbag; No, she doesn't know what she's missing.
Man I feel like mold; It's prom night and I am lonely; Lo and behold, she's walking over to me; This must be fake; my lip starts to shake; How does she know who I am; and why does she give a damn about . . .
I've got two tickets to Iron Maiden baby; Come with me Friday, don't say maybe, I'm just a teenage dirtbag baby like you . . . Ooohoo Hoo Hooooooo
Oh yeah, Dirtbag; No, she doesn't know what she's missing.
Oh yeah, Dirtbag; No, she doesn't know what she's
Page:
Goatboy wrote:
> Take you Yabasic chat into the FOG please, this is a movie and music
> forum.
its my piece that i posted into the playstation room but kid rock copied it word for word and put it under his name in this room
> Take you Yabasic chat into the FOG please, this is a movie and music
> forum.
its my piece that i posted into the playstation room but kid rock copied it word for word and put it under his name in this room
Take you Yabasic chat into the FOG please, this is a movie and music forum.
kid rock why u copy my post punk!?
Kid Rock wrote:
> i dont know if many of you know (you probably do your quite smart)
> but on that little demo disc that came tuked away with your ps2 in
> the box aswel as games and videos there is also a little something
> called YABASIC (yet another basic.)
this alows you to create your
> very own games which can be very difficult if you know hardly
> anything about codeing games.well im not very good at cding so i
> loaded on some demo games already built into the program and i was
> very happy to find snake.well on thisits called worm but none the
> less its snake with a bit of a twist and paint brush style
> graphics.but its not the graphics that matter.
any way after a
> while of playing worm i wanted to make my own game but i thought i
> would start small and i just tweaked the settings on the game but
> soon this caused the game to not run and i didnt know how to sort
> out the problem.
so i turned to the internet for guidence.
i
> found a couple of sites on YABASIC and they had coding for some
> rather good games one of which you may of heared of:
who wants to
> be a millionaire.
but they also had the all time classic game, the
> game that started the games industry pong.
incase you want a go at
> coding pong into your PS2 hear is the code:
PADS = 2
>
BAT_HEIGHT = 80
BAT_WIDTH = 8
BAT_SPEED = 10
>
BAT_OFFSET = 20
BALL_RADIUS = 6
BALL_SPEED = 11
>
XSIZE = 640
YSIZE = 512
main()
sub
> main()
init()
cont = 1
>
wait_controller("Press any button to start.")
>
while(cont = 1)
draw_new_field()
>
update_bat(left_bat(), "PORT1", 16, 64)
if
> (PADS = 2) then
update_bat(right_bat(), "PORT2", 16,
> 64)
else
update_bat(right_bat(), "PORT1", 4096,
> 16384)
endif
update_ball()
pause 0.05
wend
>
end sub
sub update_bat(bat(), addr$, up, down)
local
> maxstep
if (and(peek(addr$), down) > 0) then
maxstep
> = YSIZE - (bat(2) + (bat(4) / 2))
bat(2) = bat(2) + min(maxstep,
> BAT_SPEED)
elsif (and(peek(addr$), up) > 0) then
maxstep
> = bat(2) - (bat(4) / 2)
bat(2) = bat(2) - min(maxstep,
> BAT_SPEED)
endif
end sub
sub update_ball()
>
b_newx = ball(1) + ball(5) * cos(ball(4))
b_newy = ball(2) +
> ball(5) * sin(ball(4))
b_newr = ball(3)
b_newa = ball(4)
>
b_news = ball(5)
check_topbot_collission()
>
check_bat_collission(left_bat())
>
check_bat_collission(right_bat())
>
check_leftright_collission()
ball(1) = b_newx
>
ball(2) = b_newy
ball(3) = b_newr
ball(4) = b_newa
>
ball(5) = b_news
end sub
sub
> check_topbot_collission()
local r, y_toomuch
r = ball(3)
>
if (b_newy < r) then
b_newy = r + (r - b_newy)
>
b_newa = (2 * pi) - b_newa
beep
endif
if (b_newy
> > (YSIZE - r)) then
y_toomuch = r + (b_newy - YSIZE)
>
b_newy = YSIZE - (y_toomuch + r)
b_newa = (2 * pi) - b_newa
>
beep
endif
end sub
sub
> check_leftright_collission()
local r, reinit
r = b_newr
>
reinit = 0
if (b_newx < r) then
score(2) =
> score(2) + 2
reinit = 1
beep
elsif (b_newx > (XSIZE -
> r)) then
score(1) = score(1) + 1
reinit = 1
beep
>
endif
if (reinit = 1) then
b_newx = XSIZE / 2
>
b_newy = YSIZE / 2
b_newa = random_angle()
>
wait_controller("Press any button to start.")
>
endif
end sub
sub check_bat_collission(bat())
>
local a, b, x, y, rev, bx_n, bx_o
local ignore, y_top,
> y_bot, too_much
if (bat(1) > (XSIZE / 2)) then
x =
> bat(1) - (bat(3) / 2)
rev = -1
bx_o = ball(1) + ball(3)
>
bx_n = b_newx + b_newr
if (bx_o >= bx_n) then
ignore
> = 1
elsif ((bx_o > x) or (bx_n < x)) then
ignore = 1
>
endif
else
x = bat(1) + (bat(3) / 2)
rev = 1
>
bx_o = ball(1) - ball(3)
bx_n = b_newx - b_newr
if (bx_o
> <= bx_n) then
ignore = 1
elsif ((bx_o < x) or (bx_n
> > x)) then
ignore = 1
endif
endif
if (ignore
> = 0) then
rem Let's give the players a bit of slack (b_newr / 2)
>
y_top = bat(2) - (bat(4) / 2) - (b_newr / 2)
y_bot =
> bat(2) + (bat(4) / 2) + (b_newr / 2)
a = (ball(2) - b_newy)
> / (ball(1) - b_newx)
b = b_newy - (a * b_newx)
y = a * x
> + b
if (y >= y_top and y <= y_bot) then
if (b_news
> > 2 * b_newr) then
draw_the_ball(x + (rev * b_newr), y,
> b_newr)
endif
too_much = b_newx - (x + (rev * b_newr))
>
b_newx = (x + (rev * b_newr)) - too_much
b_newa = pi -
> b_newa
endif
endif
end sub
sub draw_new_field()
>
buffer = 1 - buffer
setdrawbuf buffer
setrgb 0, 64, 127,
> 64
clear window
draw_bat(left_bat())
>
draw_bat(right_bat())
draw_ball()
draw_score()
>
setdispbuf buffer
end sub
sub draw_ball()
>
draw_the_ball(ball(1), ball(2), ball(3))
end sub
sub
> draw_the_ball(x, y, r)
setrgb 1, 127, 127, 127
fill
> circle x, y, r
end sub
sub draw_bat(bat())
local
> ltx, lty, rbx, rby
ltx = bat(1) - (bat(3) / 2)
lty =
> bat(2) - (bat(4) / 2)
rbx = bat(1) + (bat(3) / 2)
rby =
> bat(2) + (bat(4) / 2)
setrgb 1, 127, 127, 127
fill
> rectangle ltx, lty, rbx, rby
end sub
sub draw_score()
>
setrgb 1, 0, 0, 0
text 50, 20, str$(score(1)),
> "cc"
text XSIZE - 50, 20, str$(score(2)),
> "cc"
end sub
sub init()
init_structures()
>
init_screen()
end sub
sub init_structures()
rem
> ball: x, y, radius, angle, speed
dim ball(5)
init_ball()
>
rem left_bat: x, y (center), width, height
dim
> left_bat(4)
left_bat(1) = BAT_OFFSET
left_bat(2) = YSIZE / 2
>
left_bat(3) = BAT_WIDTH
left_bat(4) = BAT_HEIGHT
rem
> right_bat: x, y (center), width, height
dim right_bat(4)
>
right_bat(1) = XSIZE - BAT_OFFSET
right_bat(2) = YSIZE / 2
>
right_bat(3) = BAT_WIDTH
right_bat(4) = BAT_HEIGHT
>
rem score: left, right
dim score(2)
score(1) = 0
>
score(2) = 0
end sub
sub init_ball()
ball(1) =
> XSIZE / 2
ball(2) = YSIZE / 2
ball(3) = BALL_RADIUS
>
ball(4) = random_angle()
ball(5) = BALL_SPEED
end sub
>
sub random_angle()
local r
r = ran() * 2 * pi
>
rem These angles keep the game interesting
while (((r
> > 0.4 * pi) and (r < 0.6 * pi)) or ((r > 1.4 * pi) and (r
> < 1.6 * pi)))
r = ran() * 2 * pi
wend
return r
>
end sub
sub init_screen(text$)
open window XSIZE,
> YSIZE
buffer = 0
setdrawbuf buffer
setrgb 0, 64, 127, 64
>
clear window
end sub
sub wait_controller(text$)
>
setrgb 1, 0, 0, 0
text XSIZE / 2, YSIZE / 2, text$,
> "cc"
while (or(peek("PORT1"),
> peek("PORT2")) = 0)
pause 0.02
wend
end sub
>
It needs to be set out as you see it in front of you.
but
> let me warn you first before you run of to your PS2 if you dont have
> a memory card i advise you not to try coding.
WHY?
well i was
> putting in this code which believe me is very boring to do, i had
> done about a quatre of it and i had just had enough i couldnt keep
> going it was soooooooooo boring.if i had a memory card i could of
> saved the bit i had done and continued another day and another
> reasen is if you do manage to finish the code and get it working
> sucsefully you wont be able to save and every time you want to play
> it again you have to code it again.
so if you really want to get
> your code on but have no PS2 memory card i would buy one from
> ukgames.com i know memory cards are a lot but ukgames (special
> reserve) have one of the best prices.
Or if you cant be bothered
> to copy a code on to your PS2 and have or havent got a memory card
> you can download a PS2 YABASIC emulator onto your PC and just
> copy/paste the code into that - its a lot easy.
now you know how
> to make pong on your PS2
KR
You copied this word for word, code for code, from Cdouch.
> i dont know if many of you know (you probably do your quite smart)
> but on that little demo disc that came tuked away with your ps2 in
> the box aswel as games and videos there is also a little something
> called YABASIC (yet another basic.)
this alows you to create your
> very own games which can be very difficult if you know hardly
> anything about codeing games.well im not very good at cding so i
> loaded on some demo games already built into the program and i was
> very happy to find snake.well on thisits called worm but none the
> less its snake with a bit of a twist and paint brush style
> graphics.but its not the graphics that matter.
any way after a
> while of playing worm i wanted to make my own game but i thought i
> would start small and i just tweaked the settings on the game but
> soon this caused the game to not run and i didnt know how to sort
> out the problem.
so i turned to the internet for guidence.
i
> found a couple of sites on YABASIC and they had coding for some
> rather good games one of which you may of heared of:
who wants to
> be a millionaire.
but they also had the all time classic game, the
> game that started the games industry pong.
incase you want a go at
> coding pong into your PS2 hear is the code:
PADS = 2
>
BAT_HEIGHT = 80
BAT_WIDTH = 8
BAT_SPEED = 10
>
BAT_OFFSET = 20
BALL_RADIUS = 6
BALL_SPEED = 11
>
XSIZE = 640
YSIZE = 512
main()
sub
> main()
init()
cont = 1
>
wait_controller("Press any button to start.")
>
while(cont = 1)
draw_new_field()
>
update_bat(left_bat(), "PORT1", 16, 64)
if
> (PADS = 2) then
update_bat(right_bat(), "PORT2", 16,
> 64)
else
update_bat(right_bat(), "PORT1", 4096,
> 16384)
endif
update_ball()
pause 0.05
wend
>
end sub
sub update_bat(bat(), addr$, up, down)
local
> maxstep
if (and(peek(addr$), down) > 0) then
maxstep
> = YSIZE - (bat(2) + (bat(4) / 2))
bat(2) = bat(2) + min(maxstep,
> BAT_SPEED)
elsif (and(peek(addr$), up) > 0) then
maxstep
> = bat(2) - (bat(4) / 2)
bat(2) = bat(2) - min(maxstep,
> BAT_SPEED)
endif
end sub
sub update_ball()
>
b_newx = ball(1) + ball(5) * cos(ball(4))
b_newy = ball(2) +
> ball(5) * sin(ball(4))
b_newr = ball(3)
b_newa = ball(4)
>
b_news = ball(5)
check_topbot_collission()
>
check_bat_collission(left_bat())
>
check_bat_collission(right_bat())
>
check_leftright_collission()
ball(1) = b_newx
>
ball(2) = b_newy
ball(3) = b_newr
ball(4) = b_newa
>
ball(5) = b_news
end sub
sub
> check_topbot_collission()
local r, y_toomuch
r = ball(3)
>
if (b_newy < r) then
b_newy = r + (r - b_newy)
>
b_newa = (2 * pi) - b_newa
beep
endif
if (b_newy
> > (YSIZE - r)) then
y_toomuch = r + (b_newy - YSIZE)
>
b_newy = YSIZE - (y_toomuch + r)
b_newa = (2 * pi) - b_newa
>
beep
endif
end sub
sub
> check_leftright_collission()
local r, reinit
r = b_newr
>
reinit = 0
if (b_newx < r) then
score(2) =
> score(2) + 2
reinit = 1
beep
elsif (b_newx > (XSIZE -
> r)) then
score(1) = score(1) + 1
reinit = 1
beep
>
endif
if (reinit = 1) then
b_newx = XSIZE / 2
>
b_newy = YSIZE / 2
b_newa = random_angle()
>
wait_controller("Press any button to start.")
>
endif
end sub
sub check_bat_collission(bat())
>
local a, b, x, y, rev, bx_n, bx_o
local ignore, y_top,
> y_bot, too_much
if (bat(1) > (XSIZE / 2)) then
x =
> bat(1) - (bat(3) / 2)
rev = -1
bx_o = ball(1) + ball(3)
>
bx_n = b_newx + b_newr
if (bx_o >= bx_n) then
ignore
> = 1
elsif ((bx_o > x) or (bx_n < x)) then
ignore = 1
>
endif
else
x = bat(1) + (bat(3) / 2)
rev = 1
>
bx_o = ball(1) - ball(3)
bx_n = b_newx - b_newr
if (bx_o
> <= bx_n) then
ignore = 1
elsif ((bx_o < x) or (bx_n
> > x)) then
ignore = 1
endif
endif
if (ignore
> = 0) then
rem Let's give the players a bit of slack (b_newr / 2)
>
y_top = bat(2) - (bat(4) / 2) - (b_newr / 2)
y_bot =
> bat(2) + (bat(4) / 2) + (b_newr / 2)
a = (ball(2) - b_newy)
> / (ball(1) - b_newx)
b = b_newy - (a * b_newx)
y = a * x
> + b
if (y >= y_top and y <= y_bot) then
if (b_news
> > 2 * b_newr) then
draw_the_ball(x + (rev * b_newr), y,
> b_newr)
endif
too_much = b_newx - (x + (rev * b_newr))
>
b_newx = (x + (rev * b_newr)) - too_much
b_newa = pi -
> b_newa
endif
endif
end sub
sub draw_new_field()
>
buffer = 1 - buffer
setdrawbuf buffer
setrgb 0, 64, 127,
> 64
clear window
draw_bat(left_bat())
>
draw_bat(right_bat())
draw_ball()
draw_score()
>
setdispbuf buffer
end sub
sub draw_ball()
>
draw_the_ball(ball(1), ball(2), ball(3))
end sub
sub
> draw_the_ball(x, y, r)
setrgb 1, 127, 127, 127
fill
> circle x, y, r
end sub
sub draw_bat(bat())
local
> ltx, lty, rbx, rby
ltx = bat(1) - (bat(3) / 2)
lty =
> bat(2) - (bat(4) / 2)
rbx = bat(1) + (bat(3) / 2)
rby =
> bat(2) + (bat(4) / 2)
setrgb 1, 127, 127, 127
fill
> rectangle ltx, lty, rbx, rby
end sub
sub draw_score()
>
setrgb 1, 0, 0, 0
text 50, 20, str$(score(1)),
> "cc"
text XSIZE - 50, 20, str$(score(2)),
> "cc"
end sub
sub init()
init_structures()
>
init_screen()
end sub
sub init_structures()
rem
> ball: x, y, radius, angle, speed
dim ball(5)
init_ball()
>
rem left_bat: x, y (center), width, height
dim
> left_bat(4)
left_bat(1) = BAT_OFFSET
left_bat(2) = YSIZE / 2
>
left_bat(3) = BAT_WIDTH
left_bat(4) = BAT_HEIGHT
rem
> right_bat: x, y (center), width, height
dim right_bat(4)
>
right_bat(1) = XSIZE - BAT_OFFSET
right_bat(2) = YSIZE / 2
>
right_bat(3) = BAT_WIDTH
right_bat(4) = BAT_HEIGHT
>
rem score: left, right
dim score(2)
score(1) = 0
>
score(2) = 0
end sub
sub init_ball()
ball(1) =
> XSIZE / 2
ball(2) = YSIZE / 2
ball(3) = BALL_RADIUS
>
ball(4) = random_angle()
ball(5) = BALL_SPEED
end sub
>
sub random_angle()
local r
r = ran() * 2 * pi
>
rem These angles keep the game interesting
while (((r
> > 0.4 * pi) and (r < 0.6 * pi)) or ((r > 1.4 * pi) and (r
> < 1.6 * pi)))
r = ran() * 2 * pi
wend
return r
>
end sub
sub init_screen(text$)
open window XSIZE,
> YSIZE
buffer = 0
setdrawbuf buffer
setrgb 0, 64, 127, 64
>
clear window
end sub
sub wait_controller(text$)
>
setrgb 1, 0, 0, 0
text XSIZE / 2, YSIZE / 2, text$,
> "cc"
while (or(peek("PORT1"),
> peek("PORT2")) = 0)
pause 0.02
wend
end sub
>
It needs to be set out as you see it in front of you.
but
> let me warn you first before you run of to your PS2 if you dont have
> a memory card i advise you not to try coding.
WHY?
well i was
> putting in this code which believe me is very boring to do, i had
> done about a quatre of it and i had just had enough i couldnt keep
> going it was soooooooooo boring.if i had a memory card i could of
> saved the bit i had done and continued another day and another
> reasen is if you do manage to finish the code and get it working
> sucsefully you wont be able to save and every time you want to play
> it again you have to code it again.
so if you really want to get
> your code on but have no PS2 memory card i would buy one from
> ukgames.com i know memory cards are a lot but ukgames (special
> reserve) have one of the best prices.
Or if you cant be bothered
> to copy a code on to your PS2 and have or havent got a memory card
> you can download a PS2 YABASIC emulator onto your PC and just
> copy/paste the code into that - its a lot easy.
now you know how
> to make pong on your PS2
KR
You copied this word for word, code for code, from Cdouch.
Kid Rock wrote:
> i dont know if many of you know (you probably do your quite smart)
> but on that little demo disc that came tuked away with your ps2 in
> the box aswel as games and videos there is also a little something
> called YABASIC (yet another basic.)
this alows you to create your
> very own games which can be very difficult if you know hardly
> anything about codeing games.well im not very good at cding so i
> loaded on some demo games already built into the program and i was
> very happy to find snake.well on thisits called worm but none the
> less its snake with a bit of a twist and paint brush style
> graphics.but its not the graphics that matter.
any way after a
> while of playing worm i wanted to make my own game but i thought i
> would start small and i just tweaked the settings on the game but
> soon this caused the game to not run and i didnt know how to sort
> out the problem.
so i turned to the internet for guidence.
i
> found a couple of sites on YABASIC and they had coding for some
> rather good games one of which you may of heared of:
who wants to
> be a millionaire.
but they also had the all time classic game, the
> game that started the games industry pong.
incase you want a go at
> coding pong into your PS2 hear is the code:
PADS = 2
>
BAT_HEIGHT = 80
BAT_WIDTH = 8
BAT_SPEED = 10
>
BAT_OFFSET = 20
BALL_RADIUS = 6
BALL_SPEED = 11
>
XSIZE = 640
YSIZE = 512
main()
sub
> main()
init()
cont = 1
>
wait_controller("Press any button to start.")
>
while(cont = 1)
draw_new_field()
>
update_bat(left_bat(), "PORT1", 16, 64)
if
> (PADS = 2) then
update_bat(right_bat(), "PORT2", 16,
> 64)
else
update_bat(right_bat(), "PORT1", 4096,
> 16384)
endif
update_ball()
pause 0.05
wend
>
end sub
sub update_bat(bat(), addr$, up, down)
local
> maxstep
if (and(peek(addr$), down) > 0) then
maxstep
> = YSIZE - (bat(2) + (bat(4) / 2))
bat(2) = bat(2) + min(maxstep,
> BAT_SPEED)
elsif (and(peek(addr$), up) > 0) then
maxstep
> = bat(2) - (bat(4) / 2)
bat(2) = bat(2) - min(maxstep,
> BAT_SPEED)
endif
end sub
sub update_ball()
>
b_newx = ball(1) + ball(5) * cos(ball(4))
b_newy = ball(2) +
> ball(5) * sin(ball(4))
b_newr = ball(3)
b_newa = ball(4)
>
b_news = ball(5)
check_topbot_collission()
>
check_bat_collission(left_bat())
>
check_bat_collission(right_bat())
>
check_leftright_collission()
ball(1) = b_newx
>
ball(2) = b_newy
ball(3) = b_newr
ball(4) = b_newa
>
ball(5) = b_news
end sub
sub
> check_topbot_collission()
local r, y_toomuch
r = ball(3)
>
if (b_newy < r) then
b_newy = r + (r - b_newy)
>
b_newa = (2 * pi) - b_newa
beep
endif
if (b_newy
> > (YSIZE - r)) then
y_toomuch = r + (b_newy - YSIZE)
>
b_newy = YSIZE - (y_toomuch + r)
b_newa = (2 * pi) - b_newa
>
beep
endif
end sub
sub
> check_leftright_collission()
local r, reinit
r = b_newr
>
reinit = 0
if (b_newx < r) then
score(2) =
> score(2) + 2
reinit = 1
beep
elsif (b_newx > (XSIZE -
> r)) then
score(1) = score(1) + 1
reinit = 1
beep
>
endif
if (reinit = 1) then
b_newx = XSIZE / 2
>
b_newy = YSIZE / 2
b_newa = random_angle()
>
wait_controller("Press any button to start.")
>
endif
end sub
sub check_bat_collission(bat())
>
local a, b, x, y, rev, bx_n, bx_o
local ignore, y_top,
> y_bot, too_much
if (bat(1) > (XSIZE / 2)) then
x =
> bat(1) - (bat(3) / 2)
rev = -1
bx_o = ball(1) + ball(3)
>
bx_n = b_newx + b_newr
if (bx_o >= bx_n) then
ignore
> = 1
elsif ((bx_o > x) or (bx_n < x)) then
ignore = 1
>
endif
else
x = bat(1) + (bat(3) / 2)
rev = 1
>
bx_o = ball(1) - ball(3)
bx_n = b_newx - b_newr
if (bx_o
> <= bx_n) then
ignore = 1
elsif ((bx_o < x) or (bx_n
> > x)) then
ignore = 1
endif
endif
if (ignore
> = 0) then
rem Let's give the players a bit of slack (b_newr / 2)
>
y_top = bat(2) - (bat(4) / 2) - (b_newr / 2)
y_bot =
> bat(2) + (bat(4) / 2) + (b_newr / 2)
a = (ball(2) - b_newy)
> / (ball(1) - b_newx)
b = b_newy - (a * b_newx)
y = a * x
> + b
if (y >= y_top and y <= y_bot) then
if (b_news
> > 2 * b_newr) then
draw_the_ball(x + (rev * b_newr), y,
> b_newr)
endif
too_much = b_newx - (x + (rev * b_newr))
>
b_newx = (x + (rev * b_newr)) - too_much
b_newa = pi -
> b_newa
endif
endif
end sub
sub draw_new_field()
>
buffer = 1 - buffer
setdrawbuf buffer
setrgb 0, 64, 127,
> 64
clear window
draw_bat(left_bat())
>
draw_bat(right_bat())
draw_ball()
draw_score()
>
setdispbuf buffer
end sub
sub draw_ball()
>
draw_the_ball(ball(1), ball(2), ball(3))
end sub
sub
> draw_the_ball(x, y, r)
setrgb 1, 127, 127, 127
fill
> circle x, y, r
end sub
sub draw_bat(bat())
local
> ltx, lty, rbx, rby
ltx = bat(1) - (bat(3) / 2)
lty =
> bat(2) - (bat(4) / 2)
rbx = bat(1) + (bat(3) / 2)
rby =
> bat(2) + (bat(4) / 2)
setrgb 1, 127, 127, 127
fill
> rectangle ltx, lty, rbx, rby
end sub
sub draw_score()
>
setrgb 1, 0, 0, 0
text 50, 20, str$(score(1)),
> "cc"
text XSIZE - 50, 20, str$(score(2)),
> "cc"
end sub
sub init()
init_structures()
>
init_screen()
end sub
sub init_structures()
rem
> ball: x, y, radius, angle, speed
dim ball(5)
init_ball()
>
rem left_bat: x, y (center), width, height
dim
> left_bat(4)
left_bat(1) = BAT_OFFSET
left_bat(2) = YSIZE / 2
>
left_bat(3) = BAT_WIDTH
left_bat(4) = BAT_HEIGHT
rem
> right_bat: x, y (center), width, height
dim right_bat(4)
>
right_bat(1) = XSIZE - BAT_OFFSET
right_bat(2) = YSIZE / 2
>
right_bat(3) = BAT_WIDTH
right_bat(4) = BAT_HEIGHT
>
rem score: left, right
dim score(2)
score(1) = 0
>
score(2) = 0
end sub
sub init_ball()
ball(1) =
> XSIZE / 2
ball(2) = YSIZE / 2
ball(3) = BALL_RADIUS
>
ball(4) = random_angle()
ball(5) = BALL_SPEED
end sub
>
sub random_angle()
local r
r = ran() * 2 * pi
>
rem These angles keep the game interesting
while (((r
> > 0.4 * pi) and (r < 0.6 * pi)) or ((r > 1.4 * pi) and (r
> < 1.6 * pi)))
r = ran() * 2 * pi
wend
return r
>
end sub
sub init_screen(text$)
open window XSIZE,
> YSIZE
buffer = 0
setdrawbuf buffer
setrgb 0, 64, 127, 64
>
clear window
end sub
sub wait_controller(text$)
>
setrgb 1, 0, 0, 0
text XSIZE / 2, YSIZE / 2, text$,
> "cc"
while (or(peek("PORT1"),
> peek("PORT2")) = 0)
pause 0.02
wend
end sub
>
It needs to be set out as you see it in front of you.
but
> let me warn you first before you run of to your PS2 if you dont have
> a memory card i advise you not to try coding.
WHY?
well i was
> putting in this code which believe me is very boring to do, i had
> done about a quatre of it and i had just had enough i couldnt keep
> going it was soooooooooo boring.if i had a memory card i could of
> saved the bit i had done and continued another day and another
> reasen is if you do manage to finish the code and get it working
> sucsefully you wont be able to save and every time you want to play
> it again you have to code it again.
so if you really want to get
> your code on but have no PS2 memory card i would buy one from
> ukgames.com i know memory cards are a lot but ukgames (special
> reserve) have one of the best prices.
Or if you cant be bothered
> to copy a code on to your PS2 and have or havent got a memory card
> you can download a PS2 YABASIC emulator onto your PC and just
> copy/paste the code into that - its a lot easy.
now you know how
> to make pong on your PS2
KR
Is it me or have you lost the Plot?
> i dont know if many of you know (you probably do your quite smart)
> but on that little demo disc that came tuked away with your ps2 in
> the box aswel as games and videos there is also a little something
> called YABASIC (yet another basic.)
this alows you to create your
> very own games which can be very difficult if you know hardly
> anything about codeing games.well im not very good at cding so i
> loaded on some demo games already built into the program and i was
> very happy to find snake.well on thisits called worm but none the
> less its snake with a bit of a twist and paint brush style
> graphics.but its not the graphics that matter.
any way after a
> while of playing worm i wanted to make my own game but i thought i
> would start small and i just tweaked the settings on the game but
> soon this caused the game to not run and i didnt know how to sort
> out the problem.
so i turned to the internet for guidence.
i
> found a couple of sites on YABASIC and they had coding for some
> rather good games one of which you may of heared of:
who wants to
> be a millionaire.
but they also had the all time classic game, the
> game that started the games industry pong.
incase you want a go at
> coding pong into your PS2 hear is the code:
PADS = 2
>
BAT_HEIGHT = 80
BAT_WIDTH = 8
BAT_SPEED = 10
>
BAT_OFFSET = 20
BALL_RADIUS = 6
BALL_SPEED = 11
>
XSIZE = 640
YSIZE = 512
main()
sub
> main()
init()
cont = 1
>
wait_controller("Press any button to start.")
>
while(cont = 1)
draw_new_field()
>
update_bat(left_bat(), "PORT1", 16, 64)
if
> (PADS = 2) then
update_bat(right_bat(), "PORT2", 16,
> 64)
else
update_bat(right_bat(), "PORT1", 4096,
> 16384)
endif
update_ball()
pause 0.05
wend
>
end sub
sub update_bat(bat(), addr$, up, down)
local
> maxstep
if (and(peek(addr$), down) > 0) then
maxstep
> = YSIZE - (bat(2) + (bat(4) / 2))
bat(2) = bat(2) + min(maxstep,
> BAT_SPEED)
elsif (and(peek(addr$), up) > 0) then
maxstep
> = bat(2) - (bat(4) / 2)
bat(2) = bat(2) - min(maxstep,
> BAT_SPEED)
endif
end sub
sub update_ball()
>
b_newx = ball(1) + ball(5) * cos(ball(4))
b_newy = ball(2) +
> ball(5) * sin(ball(4))
b_newr = ball(3)
b_newa = ball(4)
>
b_news = ball(5)
check_topbot_collission()
>
check_bat_collission(left_bat())
>
check_bat_collission(right_bat())
>
check_leftright_collission()
ball(1) = b_newx
>
ball(2) = b_newy
ball(3) = b_newr
ball(4) = b_newa
>
ball(5) = b_news
end sub
sub
> check_topbot_collission()
local r, y_toomuch
r = ball(3)
>
if (b_newy < r) then
b_newy = r + (r - b_newy)
>
b_newa = (2 * pi) - b_newa
beep
endif
if (b_newy
> > (YSIZE - r)) then
y_toomuch = r + (b_newy - YSIZE)
>
b_newy = YSIZE - (y_toomuch + r)
b_newa = (2 * pi) - b_newa
>
beep
endif
end sub
sub
> check_leftright_collission()
local r, reinit
r = b_newr
>
reinit = 0
if (b_newx < r) then
score(2) =
> score(2) + 2
reinit = 1
beep
elsif (b_newx > (XSIZE -
> r)) then
score(1) = score(1) + 1
reinit = 1
beep
>
endif
if (reinit = 1) then
b_newx = XSIZE / 2
>
b_newy = YSIZE / 2
b_newa = random_angle()
>
wait_controller("Press any button to start.")
>
endif
end sub
sub check_bat_collission(bat())
>
local a, b, x, y, rev, bx_n, bx_o
local ignore, y_top,
> y_bot, too_much
if (bat(1) > (XSIZE / 2)) then
x =
> bat(1) - (bat(3) / 2)
rev = -1
bx_o = ball(1) + ball(3)
>
bx_n = b_newx + b_newr
if (bx_o >= bx_n) then
ignore
> = 1
elsif ((bx_o > x) or (bx_n < x)) then
ignore = 1
>
endif
else
x = bat(1) + (bat(3) / 2)
rev = 1
>
bx_o = ball(1) - ball(3)
bx_n = b_newx - b_newr
if (bx_o
> <= bx_n) then
ignore = 1
elsif ((bx_o < x) or (bx_n
> > x)) then
ignore = 1
endif
endif
if (ignore
> = 0) then
rem Let's give the players a bit of slack (b_newr / 2)
>
y_top = bat(2) - (bat(4) / 2) - (b_newr / 2)
y_bot =
> bat(2) + (bat(4) / 2) + (b_newr / 2)
a = (ball(2) - b_newy)
> / (ball(1) - b_newx)
b = b_newy - (a * b_newx)
y = a * x
> + b
if (y >= y_top and y <= y_bot) then
if (b_news
> > 2 * b_newr) then
draw_the_ball(x + (rev * b_newr), y,
> b_newr)
endif
too_much = b_newx - (x + (rev * b_newr))
>
b_newx = (x + (rev * b_newr)) - too_much
b_newa = pi -
> b_newa
endif
endif
end sub
sub draw_new_field()
>
buffer = 1 - buffer
setdrawbuf buffer
setrgb 0, 64, 127,
> 64
clear window
draw_bat(left_bat())
>
draw_bat(right_bat())
draw_ball()
draw_score()
>
setdispbuf buffer
end sub
sub draw_ball()
>
draw_the_ball(ball(1), ball(2), ball(3))
end sub
sub
> draw_the_ball(x, y, r)
setrgb 1, 127, 127, 127
fill
> circle x, y, r
end sub
sub draw_bat(bat())
local
> ltx, lty, rbx, rby
ltx = bat(1) - (bat(3) / 2)
lty =
> bat(2) - (bat(4) / 2)
rbx = bat(1) + (bat(3) / 2)
rby =
> bat(2) + (bat(4) / 2)
setrgb 1, 127, 127, 127
fill
> rectangle ltx, lty, rbx, rby
end sub
sub draw_score()
>
setrgb 1, 0, 0, 0
text 50, 20, str$(score(1)),
> "cc"
text XSIZE - 50, 20, str$(score(2)),
> "cc"
end sub
sub init()
init_structures()
>
init_screen()
end sub
sub init_structures()
rem
> ball: x, y, radius, angle, speed
dim ball(5)
init_ball()
>
rem left_bat: x, y (center), width, height
dim
> left_bat(4)
left_bat(1) = BAT_OFFSET
left_bat(2) = YSIZE / 2
>
left_bat(3) = BAT_WIDTH
left_bat(4) = BAT_HEIGHT
rem
> right_bat: x, y (center), width, height
dim right_bat(4)
>
right_bat(1) = XSIZE - BAT_OFFSET
right_bat(2) = YSIZE / 2
>
right_bat(3) = BAT_WIDTH
right_bat(4) = BAT_HEIGHT
>
rem score: left, right
dim score(2)
score(1) = 0
>
score(2) = 0
end sub
sub init_ball()
ball(1) =
> XSIZE / 2
ball(2) = YSIZE / 2
ball(3) = BALL_RADIUS
>
ball(4) = random_angle()
ball(5) = BALL_SPEED
end sub
>
sub random_angle()
local r
r = ran() * 2 * pi
>
rem These angles keep the game interesting
while (((r
> > 0.4 * pi) and (r < 0.6 * pi)) or ((r > 1.4 * pi) and (r
> < 1.6 * pi)))
r = ran() * 2 * pi
wend
return r
>
end sub
sub init_screen(text$)
open window XSIZE,
> YSIZE
buffer = 0
setdrawbuf buffer
setrgb 0, 64, 127, 64
>
clear window
end sub
sub wait_controller(text$)
>
setrgb 1, 0, 0, 0
text XSIZE / 2, YSIZE / 2, text$,
> "cc"
while (or(peek("PORT1"),
> peek("PORT2")) = 0)
pause 0.02
wend
end sub
>
It needs to be set out as you see it in front of you.
but
> let me warn you first before you run of to your PS2 if you dont have
> a memory card i advise you not to try coding.
WHY?
well i was
> putting in this code which believe me is very boring to do, i had
> done about a quatre of it and i had just had enough i couldnt keep
> going it was soooooooooo boring.if i had a memory card i could of
> saved the bit i had done and continued another day and another
> reasen is if you do manage to finish the code and get it working
> sucsefully you wont be able to save and every time you want to play
> it again you have to code it again.
so if you really want to get
> your code on but have no PS2 memory card i would buy one from
> ukgames.com i know memory cards are a lot but ukgames (special
> reserve) have one of the best prices.
Or if you cant be bothered
> to copy a code on to your PS2 and have or havent got a memory card
> you can download a PS2 YABASIC emulator onto your PC and just
> copy/paste the code into that - its a lot easy.
now you know how
> to make pong on your PS2
KR
Is it me or have you lost the Plot?
i dont know if many of you know (you probably do your quite smart) but on that little demo disc that came tuked away with your ps2 in the box aswel as games and videos there is also a little something called YABASIC (yet another basic.)
this alows you to create your very own games which can be very difficult if you know hardly anything about codeing games.well im not very good at cding so i loaded on some demo games already built into the program and i was very happy to find snake.well on thisits called worm but none the less its snake with a bit of a twist and paint brush style graphics.but its not the graphics that matter.
any way after a while of playing worm i wanted to make my own game but i thought i would start small and i just tweaked the settings on the game but soon this caused the game to not run and i didnt know how to sort out the problem.
so i turned to the internet for guidence.
i found a couple of sites on YABASIC and they had coding for some rather good games one of which you may of heared of:
who wants to be a millionaire.
but they also had the all time classic game, the game that started the games industry pong.
incase you want a go at coding pong into your PS2 hear is the code:
PADS = 2
BAT_HEIGHT = 80
BAT_WIDTH = 8
BAT_SPEED = 10
BAT_OFFSET = 20
BALL_RADIUS = 6
BALL_SPEED = 11
XSIZE = 640
YSIZE = 512
main()
sub main()
init()
cont = 1
wait_controller("Press any button to start.")
while(cont = 1)
draw_new_field()
update_bat(left_bat(), "PORT1", 16, 64)
if (PADS = 2) then
update_bat(right_bat(), "PORT2", 16, 64)
else
update_bat(right_bat(), "PORT1", 4096, 16384)
endif
update_ball()
pause 0.05
wend
end sub
sub update_bat(bat(), addr$, up, down)
local maxstep
if (and(peek(addr$), down) > 0) then
maxstep = YSIZE - (bat(2) + (bat(4) / 2))
bat(2) = bat(2) + min(maxstep, BAT_SPEED)
elsif (and(peek(addr$), up) > 0) then
maxstep = bat(2) - (bat(4) / 2)
bat(2) = bat(2) - min(maxstep, BAT_SPEED)
endif
end sub
sub update_ball()
b_newx = ball(1) + ball(5) * cos(ball(4))
b_newy = ball(2) + ball(5) * sin(ball(4))
b_newr = ball(3)
b_newa = ball(4)
b_news = ball(5)
check_topbot_collission()
check_bat_collission(left_bat())
check_bat_collission(right_bat())
check_leftright_collission()
ball(1) = b_newx
ball(2) = b_newy
ball(3) = b_newr
ball(4) = b_newa
ball(5) = b_news
end sub
sub check_topbot_collission()
local r, y_toomuch
r = ball(3)
if (b_newy < r) then
b_newy = r + (r - b_newy)
b_newa = (2 * pi) - b_newa
beep
endif
if (b_newy > (YSIZE - r)) then
y_toomuch = r + (b_newy - YSIZE)
b_newy = YSIZE - (y_toomuch + r)
b_newa = (2 * pi) - b_newa
beep
endif
end sub
sub check_leftright_collission()
local r, reinit
r = b_newr
reinit = 0
if (b_newx < r) then
score(2) = score(2) + 2
reinit = 1
beep
elsif (b_newx > (XSIZE - r)) then
score(1) = score(1) + 1
reinit = 1
beep
endif
if (reinit = 1) then
b_newx = XSIZE / 2
b_newy = YSIZE / 2
b_newa = random_angle()
wait_controller("Press any button to start.")
endif
end sub
sub check_bat_collission(bat())
local a, b, x, y, rev, bx_n, bx_o
local ignore, y_top, y_bot, too_much
if (bat(1) > (XSIZE / 2)) then
x = bat(1) - (bat(3) / 2)
rev = -1
bx_o = ball(1) + ball(3)
bx_n = b_newx + b_newr
if (bx_o >= bx_n) then
ignore = 1
elsif ((bx_o > x) or (bx_n < x)) then
ignore = 1
endif
else
x = bat(1) + (bat(3) / 2)
rev = 1
bx_o = ball(1) - ball(3)
bx_n = b_newx - b_newr
if (bx_o <= bx_n) then
ignore = 1
elsif ((bx_o < x) or (bx_n > x)) then
ignore = 1
endif
endif
if (ignore = 0) then
rem Let's give the players a bit of slack (b_newr / 2)
y_top = bat(2) - (bat(4) / 2) - (b_newr / 2)
y_bot = bat(2) + (bat(4) / 2) + (b_newr / 2)
a = (ball(2) - b_newy) / (ball(1) - b_newx)
b = b_newy - (a * b_newx)
y = a * x + b
if (y >= y_top and y <= y_bot) then
if (b_news > 2 * b_newr) then
draw_the_ball(x + (rev * b_newr), y, b_newr)
endif
too_much = b_newx - (x + (rev * b_newr))
b_newx = (x + (rev * b_newr)) - too_much
b_newa = pi - b_newa
endif
endif
end sub
sub draw_new_field()
buffer = 1 - buffer
setdrawbuf buffer
setrgb 0, 64, 127, 64
clear window
draw_bat(left_bat())
draw_bat(right_bat())
draw_ball()
draw_score()
setdispbuf buffer
end sub
sub draw_ball()
draw_the_ball(ball(1), ball(2), ball(3))
end sub
sub draw_the_ball(x, y, r)
setrgb 1, 127, 127, 127
fill circle x, y, r
end sub
sub draw_bat(bat())
local ltx, lty, rbx, rby
ltx = bat(1) - (bat(3) / 2)
lty = bat(2) - (bat(4) / 2)
rbx = bat(1) + (bat(3) / 2)
rby = bat(2) + (bat(4) / 2)
setrgb 1, 127, 127, 127
fill rectangle ltx, lty, rbx, rby
end sub
sub draw_score()
setrgb 1, 0, 0, 0
text 50, 20, str$(score(1)), "cc"
text XSIZE - 50, 20, str$(score(2)), "cc"
end sub
sub init()
init_structures()
init_screen()
end sub
sub init_structures()
rem ball: x, y, radius, angle, speed
dim ball(5)
init_ball()
rem left_bat: x, y (center), width, height
dim left_bat(4)
left_bat(1) = BAT_OFFSET
left_bat(2) = YSIZE / 2
left_bat(3) = BAT_WIDTH
left_bat(4) = BAT_HEIGHT
rem right_bat: x, y (center), width, height
dim right_bat(4)
right_bat(1) = XSIZE - BAT_OFFSET
right_bat(2) = YSIZE / 2
right_bat(3) = BAT_WIDTH
right_bat(4) = BAT_HEIGHT
rem score: left, right
dim score(2)
score(1) = 0
score(2) = 0
end sub
sub init_ball()
ball(1) = XSIZE / 2
ball(2) = YSIZE / 2
ball(3) = BALL_RADIUS
ball(4) = random_angle()
ball(5) = BALL_SPEED
end sub
sub random_angle()
local r
r = ran() * 2 * pi
rem These angles keep the game interesting
while (((r > 0.4 * pi) and (r < 0.6 * pi)) or ((r > 1.4 * pi) and (r < 1.6 * pi)))
r = ran() * 2 * pi
wend
return r
end sub
sub init_screen(text$)
open window XSIZE, YSIZE
buffer = 0
setdrawbuf buffer
setrgb 0, 64, 127, 64
clear window
end sub
sub wait_controller(text$)
setrgb 1, 0, 0, 0
text XSIZE / 2, YSIZE / 2, text$, "cc"
while (or(peek("PORT1"), peek("PORT2")) = 0)
pause 0.02
wend
end sub
It needs to be set out as you see it in front of you.
but let me warn you first before you run of to your PS2 if you dont have a memory card i advise you not to try coding.
WHY?
well i was putting in this code which believe me is very boring to do, i had done about a quatre of it and i had just had enough i couldnt keep going it was soooooooooo boring.if i had a memory card i could of saved the bit i had done and continued another day and another reasen is if you do manage to finish the code and get it working sucsefully you wont be able to save and every time you want to play it again you have to code it again.
so if you really want to get your code on but have no PS2 memory card i would buy one from ukgames.com i know memory cards are a lot but ukgames (special reserve) have one of the best prices.
Or if you cant be bothered to copy a code on to your PS2 and have or havent got a memory card you can download a PS2 YABASIC emulator onto your PC and just copy/paste the code into that - its a lot easy.
now you know how to make pong on your PS2
KR
this alows you to create your very own games which can be very difficult if you know hardly anything about codeing games.well im not very good at cding so i loaded on some demo games already built into the program and i was very happy to find snake.well on thisits called worm but none the less its snake with a bit of a twist and paint brush style graphics.but its not the graphics that matter.
any way after a while of playing worm i wanted to make my own game but i thought i would start small and i just tweaked the settings on the game but soon this caused the game to not run and i didnt know how to sort out the problem.
so i turned to the internet for guidence.
i found a couple of sites on YABASIC and they had coding for some rather good games one of which you may of heared of:
who wants to be a millionaire.
but they also had the all time classic game, the game that started the games industry pong.
incase you want a go at coding pong into your PS2 hear is the code:
PADS = 2
BAT_HEIGHT = 80
BAT_WIDTH = 8
BAT_SPEED = 10
BAT_OFFSET = 20
BALL_RADIUS = 6
BALL_SPEED = 11
XSIZE = 640
YSIZE = 512
main()
sub main()
init()
cont = 1
wait_controller("Press any button to start.")
while(cont = 1)
draw_new_field()
update_bat(left_bat(), "PORT1", 16, 64)
if (PADS = 2) then
update_bat(right_bat(), "PORT2", 16, 64)
else
update_bat(right_bat(), "PORT1", 4096, 16384)
endif
update_ball()
pause 0.05
wend
end sub
sub update_bat(bat(), addr$, up, down)
local maxstep
if (and(peek(addr$), down) > 0) then
maxstep = YSIZE - (bat(2) + (bat(4) / 2))
bat(2) = bat(2) + min(maxstep, BAT_SPEED)
elsif (and(peek(addr$), up) > 0) then
maxstep = bat(2) - (bat(4) / 2)
bat(2) = bat(2) - min(maxstep, BAT_SPEED)
endif
end sub
sub update_ball()
b_newx = ball(1) + ball(5) * cos(ball(4))
b_newy = ball(2) + ball(5) * sin(ball(4))
b_newr = ball(3)
b_newa = ball(4)
b_news = ball(5)
check_topbot_collission()
check_bat_collission(left_bat())
check_bat_collission(right_bat())
check_leftright_collission()
ball(1) = b_newx
ball(2) = b_newy
ball(3) = b_newr
ball(4) = b_newa
ball(5) = b_news
end sub
sub check_topbot_collission()
local r, y_toomuch
r = ball(3)
if (b_newy < r) then
b_newy = r + (r - b_newy)
b_newa = (2 * pi) - b_newa
beep
endif
if (b_newy > (YSIZE - r)) then
y_toomuch = r + (b_newy - YSIZE)
b_newy = YSIZE - (y_toomuch + r)
b_newa = (2 * pi) - b_newa
beep
endif
end sub
sub check_leftright_collission()
local r, reinit
r = b_newr
reinit = 0
if (b_newx < r) then
score(2) = score(2) + 2
reinit = 1
beep
elsif (b_newx > (XSIZE - r)) then
score(1) = score(1) + 1
reinit = 1
beep
endif
if (reinit = 1) then
b_newx = XSIZE / 2
b_newy = YSIZE / 2
b_newa = random_angle()
wait_controller("Press any button to start.")
endif
end sub
sub check_bat_collission(bat())
local a, b, x, y, rev, bx_n, bx_o
local ignore, y_top, y_bot, too_much
if (bat(1) > (XSIZE / 2)) then
x = bat(1) - (bat(3) / 2)
rev = -1
bx_o = ball(1) + ball(3)
bx_n = b_newx + b_newr
if (bx_o >= bx_n) then
ignore = 1
elsif ((bx_o > x) or (bx_n < x)) then
ignore = 1
endif
else
x = bat(1) + (bat(3) / 2)
rev = 1
bx_o = ball(1) - ball(3)
bx_n = b_newx - b_newr
if (bx_o <= bx_n) then
ignore = 1
elsif ((bx_o < x) or (bx_n > x)) then
ignore = 1
endif
endif
if (ignore = 0) then
rem Let's give the players a bit of slack (b_newr / 2)
y_top = bat(2) - (bat(4) / 2) - (b_newr / 2)
y_bot = bat(2) + (bat(4) / 2) + (b_newr / 2)
a = (ball(2) - b_newy) / (ball(1) - b_newx)
b = b_newy - (a * b_newx)
y = a * x + b
if (y >= y_top and y <= y_bot) then
if (b_news > 2 * b_newr) then
draw_the_ball(x + (rev * b_newr), y, b_newr)
endif
too_much = b_newx - (x + (rev * b_newr))
b_newx = (x + (rev * b_newr)) - too_much
b_newa = pi - b_newa
endif
endif
end sub
sub draw_new_field()
buffer = 1 - buffer
setdrawbuf buffer
setrgb 0, 64, 127, 64
clear window
draw_bat(left_bat())
draw_bat(right_bat())
draw_ball()
draw_score()
setdispbuf buffer
end sub
sub draw_ball()
draw_the_ball(ball(1), ball(2), ball(3))
end sub
sub draw_the_ball(x, y, r)
setrgb 1, 127, 127, 127
fill circle x, y, r
end sub
sub draw_bat(bat())
local ltx, lty, rbx, rby
ltx = bat(1) - (bat(3) / 2)
lty = bat(2) - (bat(4) / 2)
rbx = bat(1) + (bat(3) / 2)
rby = bat(2) + (bat(4) / 2)
setrgb 1, 127, 127, 127
fill rectangle ltx, lty, rbx, rby
end sub
sub draw_score()
setrgb 1, 0, 0, 0
text 50, 20, str$(score(1)), "cc"
text XSIZE - 50, 20, str$(score(2)), "cc"
end sub
sub init()
init_structures()
init_screen()
end sub
sub init_structures()
rem ball: x, y, radius, angle, speed
dim ball(5)
init_ball()
rem left_bat: x, y (center), width, height
dim left_bat(4)
left_bat(1) = BAT_OFFSET
left_bat(2) = YSIZE / 2
left_bat(3) = BAT_WIDTH
left_bat(4) = BAT_HEIGHT
rem right_bat: x, y (center), width, height
dim right_bat(4)
right_bat(1) = XSIZE - BAT_OFFSET
right_bat(2) = YSIZE / 2
right_bat(3) = BAT_WIDTH
right_bat(4) = BAT_HEIGHT
rem score: left, right
dim score(2)
score(1) = 0
score(2) = 0
end sub
sub init_ball()
ball(1) = XSIZE / 2
ball(2) = YSIZE / 2
ball(3) = BALL_RADIUS
ball(4) = random_angle()
ball(5) = BALL_SPEED
end sub
sub random_angle()
local r
r = ran() * 2 * pi
rem These angles keep the game interesting
while (((r > 0.4 * pi) and (r < 0.6 * pi)) or ((r > 1.4 * pi) and (r < 1.6 * pi)))
r = ran() * 2 * pi
wend
return r
end sub
sub init_screen(text$)
open window XSIZE, YSIZE
buffer = 0
setdrawbuf buffer
setrgb 0, 64, 127, 64
clear window
end sub
sub wait_controller(text$)
setrgb 1, 0, 0, 0
text XSIZE / 2, YSIZE / 2, text$, "cc"
while (or(peek("PORT1"), peek("PORT2")) = 0)
pause 0.02
wend
end sub
It needs to be set out as you see it in front of you.
but let me warn you first before you run of to your PS2 if you dont have a memory card i advise you not to try coding.
WHY?
well i was putting in this code which believe me is very boring to do, i had done about a quatre of it and i had just had enough i couldnt keep going it was soooooooooo boring.if i had a memory card i could of saved the bit i had done and continued another day and another reasen is if you do manage to finish the code and get it working sucsefully you wont be able to save and every time you want to play it again you have to code it again.
so if you really want to get your code on but have no PS2 memory card i would buy one from ukgames.com i know memory cards are a lot but ukgames (special reserve) have one of the best prices.
Or if you cant be bothered to copy a code on to your PS2 and have or havent got a memory card you can download a PS2 YABASIC emulator onto your PC and just copy/paste the code into that - its a lot easy.
now you know how to make pong on your PS2
KR
back by populer demand here are some more lyrics
Truffles
You, you think yer such a bad ass; You think yer such a rough neck; Well I saw you outside eating truffles with yer mom on the patio; I think it's really sad though; and tell yer girl ta quit buggin' me; 'Cause I saw her outside suckin' **** in the bathroom of the bus of the Iron Maiden cover band;
Chorus
When your pencil neck breaks, when your bird chest caves in . . .
I'm gonna win
When your pencil neck breaks, when your bird chest caves in . . .
I'm gonna win
Me, I'm just another gringo, a bitter jalepeno; But I gets more montequilla in a week than your b*itch @ss gets in a lifetime; You're steppin' on a land mine; Your gonna shoot yer eye out; I'm thinkin' what in the Sam Ham Hill is goin' on wit yer moms in the clogs and the skirt, Wouldn't f***'er for my country with a flag on her face and a stolen dick.
Chorus
You, you think yer still a bad ass, You think your still a rough neck; Well let's take this outside
SUNSHINE
When I look at your face I see dirt; All the sunshine you blow up my ass starts to hurt; And I don't really mind if I'm nothin' in your eyes; It's no surprise to me; There's a rocket I built; It's under my kilt; It's coming to blow you away.
Chorus
I was a jerk; I did the work for somebody else's dream; I took the chance; I lost my pants; in somebody else's dream tonight.
Now you're calling me up to get paid; And if you don't get paid then you'll never get laid; But I really don't have any money; I say goodbye; And you'll have to depend on your size; There's a rocket I built; It's under my kilt; It's coming to blow you away.
Chorus
Now I think that I'm going to bed, as the image of you and yer crap leaves my head; Cause it's t-minus 20 tomorrow, rocket flies; And it doesn't depend on the size; There's a rocket I built; It's under my kilt; It's coming to blow you away
HUMPEM' N' DUMPEM'
Cough up the rent Mr. Kent; And don't try to blame it on the government; Your wife is a clown she's in town, she gets with some other guy; Are you gonna finish your fat? Cause I'd like to give it to my kitty cat; The big fat look is coming back. You skinny people are screwed. And I know you're right; Yeah I know it's time.
Chorus
Here we go again another humpem dumpem situation; Here we go again another humpem dumpem situation; Here we go again, here we go again, Now I know what you're like and I don't think I like it.
The newspaper says to get bent; Man I'd like to say that to the President; He got the L. in the House, I guess he already did; She looks like she finished here fat; she then turned around and ate my kitty cat; she coughed up a hair ball or two and laughed her way to the bank; And I know it's right; Yeah, I know it's time.
Chorus
Here we go again.
LEROY
He's got the dirtiest shoes that I ever seen; Chew on a blunt wipe his butt with a magazine; Smokin' his crack wash it down with gasoline; Still he push the button, E.F. Hutton when he speaks to me; Oh you know he told me "Shake it, don't break it; It took too damn long to make it"
Chorus
Leroy is my mojo man; Leroy is my mojo man, He come he take me by the hand; Cause Leroy is my mojo man tonight . . . alright!
He's just a pimp with a limp and some vaseline; He told me to "Look, over there!" and stole my nectarine; Said, "Don't turn your back on me black, I'm a sex machine" Still he push the button E.F. Hutton when he speaks to me; Oh you know he told me, "Shake it, don't break it; It took too damn long to make"
Chorus
Oh you know he told me, "Shake it, don't break it, it took too damn long to make it"
HEY MR. BROWN
Man I think it's just a little sleazy; You said you was like butter but you're cheesy; To treat me like I'm spinner bait you can't wait; go fish off some other dock.
Chorus
Hey, Mr. Brown, don't have a cow.
Just compensate me!
Hey, Mr. Brown, don't have a cow.
Just compensate me!
Hey, Mr. Brown, don't have a cow.
Just compensate me! You're gonna have to prove it to me.
If I don't call you back your head spins; If I told you what I think you'd s**t your linens; "It's just another interview, nothing new" But they don't even know my name.
Chorus
LOVE IS A MUTT FROM HELL
This is a story about a friend of mine; He is abnormally intelligent; He could bust a phatty rhyme, even when he got up in the blunt; But that all changed when the girl who he lives with came to town, He let here take him away from me so I had to ask him how; That's when he said, "She takes advantage of me! She takes advantage of me! "She takes advantage of me! She takes advantage of me! She even knows when I pee! I think eventually she'll make a meal out of me."
Chorus
Because her love is a mutt from hell that I can't live without; "Your love is a mutt from hell that I can't live without; One of these days I swear I'm gonna get out; 'Til then your love is a mutt from hell that I can't live without.
That's why I'm talking to you now.
Sarah lives with Bradley now, I guess that is how she wants her s**t; He needed a place to stay, so it's of mutual benefit; I stopped by on my way to Pomona yesterday; She sat down and spilled her guts to me; That's when I thought she would tell me she's gay; Instead she said, "He takes advantage of me! He takes advantage of me! He takes advantage of me! He takes advantage of me! He even knows when I pee! I think eventually he'll make a meal out of me."
Chorus
That's why I'm talking to you now;
Talking to; That's why I'm talking to, That's why I'm talking to.
Talking to; That's why I'm talking to, That's why I'm talking, talking, talking to you NOW!
Because, your love is a mutt from hell that I can't live without.
PUNK ASS B***H
She wriggles and she wraggles, she jiggles and she jaggles, you stand and watch her pass by, your line of vision ass-eye, you think that cause she smiles, that you turn all her dials, but you don't see them later, while in the elevator, you nag her and you swagger, you think you're gonna shag her, a man about the town-a, get funky, let's get down-a, machismo and machasma, it turns into miamsa, but you have got no class, no style, no social skills, no comprehension
Chorus
I can't deal with this idiot, yeah I must admit that he's a punk @ss b*tch
You open up your mouth-a, amazed at what comes out-a Its just a testimony, that you're full of bologna, that you're a stupid sh*t-Ass, a meathead, guido, pass-gas, that you have got no class, no style, no social skills, no comprehension
Repeat Chorus 2X
You know you want to spangle, but you can't seem to angle, one gives you attitude-a, your reason to be rude-a, you think that cause she smiles, that you turn all her dials, but you don't see them later, while in the elevator, you nag her and you swagger, you think you're gonna shag her, a man about the town-a, get funky, let's get down-a, machismo and machasma, it turns into miamsa, you have got no class, no style, no social skills, no comprehension You open up your mouth-a, amazed at what comes out-a It's just a testimony, that you're full of bologna, that you're a stupid s**t-ass, a meathead, guido, pass gas, but you have got no class, no style, no social skills, no comprehension
Repeat Chorus 2x
WANNABE GANGSTAR
I am a wannabe; You better be careful around me; I come from far away, where mustang dreams are made; and we are fashioned in the image of the Don's who have come before us; we all kiss the rings of sand like our fathers told us.
Chorus
'Cause I'm a wannabe gangstar, better go back to Commack; I'm a wannabe gangstar, better go back to Commack; I'm a wannabe gangstar, better go back to Commack, better go back to far away.
Like a lemon pie a la mode, my nine is easy to load; all hail Jericho; Turnpike Teck, that's where I go to learn the things about the universe I'll need so I can build a stamped, 'cause I'm all up in your face again, I'm all up in your face.
Chorus
A wannabe gangstar, a victim of the chromosome prankster, I thanks ya, I sits back in my chair to contemplate my hair; OOH DAMN, I reak of cologne, but yo I'm lookin' snappy, I'm nappy, I'm crappy, got jimmy hats from pappy, so now I'm trigger happy, Girl did he just rhyme 'crappy' with 'happy'? Yeah, so you girlies wanna get wit this nit wit, got Cheese Whiz or not? Then I'm a hafta blow up ya mail box BIATCH! Or toilet paper ya front yard, show the cops my Suburbs Card, they gotta let me go cause they know that I'm hard, it's the deal it's for real, ya betta listen to what I'm tellin' ya . . . 'Cause I'm a wannabe gangstar.
Chorus
Truffles
You, you think yer such a bad ass; You think yer such a rough neck; Well I saw you outside eating truffles with yer mom on the patio; I think it's really sad though; and tell yer girl ta quit buggin' me; 'Cause I saw her outside suckin' **** in the bathroom of the bus of the Iron Maiden cover band;
Chorus
When your pencil neck breaks, when your bird chest caves in . . .
I'm gonna win
When your pencil neck breaks, when your bird chest caves in . . .
I'm gonna win
Me, I'm just another gringo, a bitter jalepeno; But I gets more montequilla in a week than your b*itch @ss gets in a lifetime; You're steppin' on a land mine; Your gonna shoot yer eye out; I'm thinkin' what in the Sam Ham Hill is goin' on wit yer moms in the clogs and the skirt, Wouldn't f***'er for my country with a flag on her face and a stolen dick.
Chorus
You, you think yer still a bad ass, You think your still a rough neck; Well let's take this outside
SUNSHINE
When I look at your face I see dirt; All the sunshine you blow up my ass starts to hurt; And I don't really mind if I'm nothin' in your eyes; It's no surprise to me; There's a rocket I built; It's under my kilt; It's coming to blow you away.
Chorus
I was a jerk; I did the work for somebody else's dream; I took the chance; I lost my pants; in somebody else's dream tonight.
Now you're calling me up to get paid; And if you don't get paid then you'll never get laid; But I really don't have any money; I say goodbye; And you'll have to depend on your size; There's a rocket I built; It's under my kilt; It's coming to blow you away.
Chorus
Now I think that I'm going to bed, as the image of you and yer crap leaves my head; Cause it's t-minus 20 tomorrow, rocket flies; And it doesn't depend on the size; There's a rocket I built; It's under my kilt; It's coming to blow you away
HUMPEM' N' DUMPEM'
Cough up the rent Mr. Kent; And don't try to blame it on the government; Your wife is a clown she's in town, she gets with some other guy; Are you gonna finish your fat? Cause I'd like to give it to my kitty cat; The big fat look is coming back. You skinny people are screwed. And I know you're right; Yeah I know it's time.
Chorus
Here we go again another humpem dumpem situation; Here we go again another humpem dumpem situation; Here we go again, here we go again, Now I know what you're like and I don't think I like it.
The newspaper says to get bent; Man I'd like to say that to the President; He got the L. in the House, I guess he already did; She looks like she finished here fat; she then turned around and ate my kitty cat; she coughed up a hair ball or two and laughed her way to the bank; And I know it's right; Yeah, I know it's time.
Chorus
Here we go again.
LEROY
He's got the dirtiest shoes that I ever seen; Chew on a blunt wipe his butt with a magazine; Smokin' his crack wash it down with gasoline; Still he push the button, E.F. Hutton when he speaks to me; Oh you know he told me "Shake it, don't break it; It took too damn long to make it"
Chorus
Leroy is my mojo man; Leroy is my mojo man, He come he take me by the hand; Cause Leroy is my mojo man tonight . . . alright!
He's just a pimp with a limp and some vaseline; He told me to "Look, over there!" and stole my nectarine; Said, "Don't turn your back on me black, I'm a sex machine" Still he push the button E.F. Hutton when he speaks to me; Oh you know he told me, "Shake it, don't break it; It took too damn long to make"
Chorus
Oh you know he told me, "Shake it, don't break it, it took too damn long to make it"
HEY MR. BROWN
Man I think it's just a little sleazy; You said you was like butter but you're cheesy; To treat me like I'm spinner bait you can't wait; go fish off some other dock.
Chorus
Hey, Mr. Brown, don't have a cow.
Just compensate me!
Hey, Mr. Brown, don't have a cow.
Just compensate me!
Hey, Mr. Brown, don't have a cow.
Just compensate me! You're gonna have to prove it to me.
If I don't call you back your head spins; If I told you what I think you'd s**t your linens; "It's just another interview, nothing new" But they don't even know my name.
Chorus
LOVE IS A MUTT FROM HELL
This is a story about a friend of mine; He is abnormally intelligent; He could bust a phatty rhyme, even when he got up in the blunt; But that all changed when the girl who he lives with came to town, He let here take him away from me so I had to ask him how; That's when he said, "She takes advantage of me! She takes advantage of me! "She takes advantage of me! She takes advantage of me! She even knows when I pee! I think eventually she'll make a meal out of me."
Chorus
Because her love is a mutt from hell that I can't live without; "Your love is a mutt from hell that I can't live without; One of these days I swear I'm gonna get out; 'Til then your love is a mutt from hell that I can't live without.
That's why I'm talking to you now.
Sarah lives with Bradley now, I guess that is how she wants her s**t; He needed a place to stay, so it's of mutual benefit; I stopped by on my way to Pomona yesterday; She sat down and spilled her guts to me; That's when I thought she would tell me she's gay; Instead she said, "He takes advantage of me! He takes advantage of me! He takes advantage of me! He takes advantage of me! He even knows when I pee! I think eventually he'll make a meal out of me."
Chorus
That's why I'm talking to you now;
Talking to; That's why I'm talking to, That's why I'm talking to.
Talking to; That's why I'm talking to, That's why I'm talking, talking, talking to you NOW!
Because, your love is a mutt from hell that I can't live without.
PUNK ASS B***H
She wriggles and she wraggles, she jiggles and she jaggles, you stand and watch her pass by, your line of vision ass-eye, you think that cause she smiles, that you turn all her dials, but you don't see them later, while in the elevator, you nag her and you swagger, you think you're gonna shag her, a man about the town-a, get funky, let's get down-a, machismo and machasma, it turns into miamsa, but you have got no class, no style, no social skills, no comprehension
Chorus
I can't deal with this idiot, yeah I must admit that he's a punk @ss b*tch
You open up your mouth-a, amazed at what comes out-a Its just a testimony, that you're full of bologna, that you're a stupid sh*t-Ass, a meathead, guido, pass-gas, that you have got no class, no style, no social skills, no comprehension
Repeat Chorus 2X
You know you want to spangle, but you can't seem to angle, one gives you attitude-a, your reason to be rude-a, you think that cause she smiles, that you turn all her dials, but you don't see them later, while in the elevator, you nag her and you swagger, you think you're gonna shag her, a man about the town-a, get funky, let's get down-a, machismo and machasma, it turns into miamsa, you have got no class, no style, no social skills, no comprehension You open up your mouth-a, amazed at what comes out-a It's just a testimony, that you're full of bologna, that you're a stupid s**t-ass, a meathead, guido, pass gas, but you have got no class, no style, no social skills, no comprehension
Repeat Chorus 2x
WANNABE GANGSTAR
I am a wannabe; You better be careful around me; I come from far away, where mustang dreams are made; and we are fashioned in the image of the Don's who have come before us; we all kiss the rings of sand like our fathers told us.
Chorus
'Cause I'm a wannabe gangstar, better go back to Commack; I'm a wannabe gangstar, better go back to Commack; I'm a wannabe gangstar, better go back to Commack, better go back to far away.
Like a lemon pie a la mode, my nine is easy to load; all hail Jericho; Turnpike Teck, that's where I go to learn the things about the universe I'll need so I can build a stamped, 'cause I'm all up in your face again, I'm all up in your face.
Chorus
A wannabe gangstar, a victim of the chromosome prankster, I thanks ya, I sits back in my chair to contemplate my hair; OOH DAMN, I reak of cologne, but yo I'm lookin' snappy, I'm nappy, I'm crappy, got jimmy hats from pappy, so now I'm trigger happy, Girl did he just rhyme 'crappy' with 'happy'? Yeah, so you girlies wanna get wit this nit wit, got Cheese Whiz or not? Then I'm a hafta blow up ya mail box BIATCH! Or toilet paper ya front yard, show the cops my Suburbs Card, they gotta let me go cause they know that I'm hard, it's the deal it's for real, ya betta listen to what I'm tellin' ya . . . 'Cause I'm a wannabe gangstar.
Chorus
Mewtwo wrote:
> Kid Rock wrote:
> it is actually Erasure they are some german
> band (or they sing like
> it)and when wheatus were on MTV it
> showed you a clip of them
How old are you?
14 fifteen next year
> Kid Rock wrote:
> it is actually Erasure they are some german
> band (or they sing like
> it)and when wheatus were on MTV it
> showed you a clip of them
How old are you?
14 fifteen next year
hehehe
"Mum I want to go back to the Mall..I suck, I suck!"
Jimi's still rocking man...
Where is Bill when he's needed most
"Mum I want to go back to the Mall..I suck, I suck!"
Jimi's still rocking man...
Where is Bill when he's needed most
Page: