Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Obscurely coded pong
#21
yetifoot's code is the best =)
axipher is stupid..

Anything I missed?
Reply
#22
Quote:yetifoot's code is the best =)
axipher is stupid..

Anything I missed?
nope
[Image: freebasic.png]
Reply
#23
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*
Reply
#24
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.
Reply
#25
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 Big Grin
Reply
#26
Not true. Someone else always joins *coughhardeepcough*.=p



@pong games: wow =D
[Image: sig.php]
Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.
Reply
#27
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:
Reply
#28
Bah. Noone gets banned around here now Oracle is gone. :'( I miss those days...
Reply
#29
Maybe not as obscure, but fun to play Smile
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)
[Image: freebasic.png]
Reply
#30
Your right, it is pretty fun to play, although making the ball go faster and faster would be nice.
Reply


Forum Jump:


Users browsing this thread: 2 Guest(s)