Posts: 3,522
Threads: 189
Joined: Dec 2003
yetifoot's code is the best =)
axipher is stupid..
Anything I missed?
Posts: 1,025
Threads: 44
Joined: May 2005
Quote:yetifoot's code is the best =)
axipher is stupid..
Anything I missed?
nope
Posts: 2,771
Threads: 96
Joined: Oct 2003
Quote:Z!re Wrote:yetifoot's code is the best =)
axipher is stupid..
Anything I missed?
nope
Funny. I was about to say that exact same thing
*whistles and looks around the room*
Posts: 3,616
Threads: 287
Joined: Jan 2003
I didn't even know FB had #define!
Yetifoot wins.
f only life let you press CTRL-Z.
--------------------------------------
Freebasic is like QB, except it doesn't suck.
Posts: 488
Threads: 19
Joined: Sep 2005
Quote:Deleter Wrote:Z!re Wrote:yetifoot's code is the best =)
axipher is stupid..
Anything I missed?
nope
Funny. I was about to say that exact same thing
*whistles and looks around the room*
I know EH... Hey, wait a minute :-? ,was that a dis :???: I think it was, but you missed one thing, I'm also a part of this board, think about how it would be if I never joined, these good times and someone to flame would have never happened now would they have
Posts: 2,765
Threads: 138
Joined: Nov 2002
Not true. Someone else always joins *coughhardeepcough*.=p
@pong games: wow =D
Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.
Posts: 488
Threads: 19
Joined: Sep 2005
But I'm sure they either wouldn't be as annoying as me, or would me much more annoying then me and get banned :rotfl:
Posts: 2,771
Threads: 96
Joined: Oct 2003
Bah. Noone gets banned around here now Oracle is gone. :'( I miss those days...
Posts: 1,025
Threads: 44
Joined: May 2005
Maybe not as obscure, but fun to play
Code: #define pingpong sub
#define ping if
#define pong then
#define paddle line
#define bouncy (
#define play end
#define p1ng elseif
#define pingpongtime timer
dim shared as single pongisfun=240,pw=16,boingboingboing=64,whypongisfun=0,ps=1,boing=320,boingboing=240,bxs,bys,br=10,ms=200,sx=640,sy=480,tm,cs,a,sc,sl=20
pingpong resetit()
ps-=1
boing=sx/2
boingboing=sy/2
pongisfun=sy/2-boingboingboing/2
whypongisfun=0
a= bouncy 1.5*rnd-.75)+3.14*int bouncy rnd*2)
bxs=cos bouncy a)*ms
bys=sin bouncy a)*ms
play pingpong
pingpong moveit()
tm=pingpongtime-tm
ping multikey bouncy 72) or multikey bouncy 80) pong whypongisfun+=ms*4*tm*sgn bouncy multikey bouncy 80)*2-1)
ping abs bouncy whypongisfun) > ms pong whypongisfun=ms*sgn bouncy whypongisfun)
pongisfun+=whypongisfun*tm
whypongisfun= bouncy 1-tm)*whypongisfun
ping pongisfun < boingboingboing/2 pong
pongisfun=boingboingboing/2
whypongisfun=-whypongisfun
play ping
ping pongisfun > sy-boingboingboing/2 pong
pongisfun=sy-boingboingboing/2
whypongisfun=-whypongisfun
play ping
boing+=bxs*tm
boingboing+=bys*tm
ping boing >= sx-br pong
boing=sx-br-1
bxs=-bxs
p1ng boing-br <= pw pong
ping boingboing+br > pongisfun-boingboingboing/2 pong
ping boingboing-br < pongisfun+boingboingboing/2 pong 'collide with paddle
boing=pw+br
bxs=-bxs
ps+=1
play ping
play ping
ping boing-br <= 0 pong resetit()
play ping
ping boingboing+br > sy pong
boingboing=sy-br
bys=-bys
p1ng boingboing < br pong
boingboing=br
bys=-bys
play ping
sc+=tm*8
tm=pingpongtime
play pingpong
pingpong drawit()
cls
me$=" Obscure Pong Coded By: Deleter - Your Score: "+str$(ps)+" Buy pi! "
ping int bouncy sc)>len bouncy me$)-sl/2 pong sc=1
locate 1,(sx/16+1)-sl/2
print mid$(me$,int bouncy sc),int bouncy sl))
circle bouncy boing,boingboing),br,7
paddle bouncy 0,pongisfun-boingboingboing/2)-(pw-1,pongisfun+boingboingboing/2),4,b
paddle bouncy sx/2-sl*4-2,-1)- bouncy sx/2+sl*4+2,10),4,b
paddle bouncy sx/2-sl*4-3,-1)-bouncy sx/2+sl*4+3,11),12,b
paddle bouncy sx/2-sl*4-1,-1)-bouncy sx/2+sl*4+4,12),4,b
play pingpong
tm=pingpongtime
randomize pingpongtime
screenres sx,sy,8,2
sleep 10
resetit
do
moveit
drawit
sleep 1,1
screenset cs,- bouncy cs-1)
cs=- bouncy cs-1)
loop until multikey bouncy 1)
Posts: 488
Threads: 19
Joined: Sep 2005
Your right, it is pretty fun to play, although making the ball go faster and faster would be nice.
|