20-line pong - GameCreators Forum

Author

Message

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 22nd Apr 2007 00:32

Link

A little pong re-make.

hide mouse:sync rate 40
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,255,0)
make object sphere 3,1:color object 3,rgb(0,0,50)
make object box 4,10,0.1,10:position object 4,0,-0.55,0
balla#=90
sync on:do
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
balla#=wrapvalue(balla#)
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0
sync:loop

+ Code Snippet

hide mouse:sync rate 40
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,255,0)
make object sphere 3,1:color object 3,rgb(0,0,50)
make object box 4,10,0.1,10:position object 4,0,-0.55,0
balla#=90
sync on:do
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
balla#=wrapvalue(balla#)
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0
sync:loop

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

Kiefer Greenspan

19

Years of Service

User Offline

Joined: 11th May 2004

Location: NY

Posted: 22nd Apr 2007 06:27 Edited at: 26th Jan 2008 19:33

Link

...

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 22nd Apr 2007 17:58

Link

This is the code compressed to 22 lines.

hide mouse:sync rate 40
make object box 1,1,1,3:color object 1,rgb(255,0,0):make object box 2,1,1,3:color object 2,rgb(0,255,0):make object sphere 3,1:color object 3,rgb(0,0,50):make object box 4,10,0.1,10:position object 4,0,-0.55,0
balla#=90
sync on:do
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
set cursor 300,50:print player2score#:set cursor 320,50:print "-":set cursor 340,50:print player1score#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
balla#=wrapvalue(balla#)
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#:position object 3,ballx#,0,ballz#:yrotate object 3,balla#:position camera 0,10,-10:point camera 0,0,0
sync:loop

+ Code Snippet

hide mouse:sync rate 40
make object box 1,1,1,3:color object 1,rgb(255,0,0):make object box 2,1,1,3:color object 2,rgb(0,255,0):make object sphere 3,1:color object 3,rgb(0,0,50):make object box 4,10,0.1,10:position object 4,0,-0.55,0
balla#=90
sync on:do
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
set cursor 300,50:print player2score#:set cursor 320,50:print "-":set cursor 340,50:print player1score#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
balla#=wrapvalue(balla#)
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#:position object 3,ballx#,0,ballz#:yrotate object 3,balla#:position camera 0,10,-10:point camera 0,0,0
sync:loop

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 22nd Apr 2007 21:13

Link

Quote: "nice!
this version the ball moves up and down as well, was it like that in the tutorial?
i made a 2d pong originally my own version as well but too lazy to condense it, a good starting point"

No, and i added paddle reset.

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 22nd Apr 2007 21:35

Link

W00T! 20 lines & AI!(By myself, no tuts!)

hide mouse:sync rate 40
make object box 1,1,1,3:color object 1,rgb(255,0,0):make object box 2,1,1,3:color object 2,rgb(0,255,0):make object sphere 3,1:color object 3,rgb(0,0,50):make object box 4,10,0.1,10:position object 4,0,-0.55,0
balla#=90
sync on:do
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
set cursor 290,6:print player2score#:set cursor 305,6:print "-":set cursor 320,6:print player1score#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8
if ballz#>player2pos# then player2pos#=player2pos#+0.06
if ballz#<player2pos# then player2pos#=player2pos#-0.06
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
balla#=wrapvalue(balla#)
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#:position object 3,ballx#,0,ballz#:yrotate object 3,balla#:position camera 0,10,0:point camera 0,0,0
sync:loop

+ Code Snippet

hide mouse:sync rate 40
make object box 1,1,1,3:color object 1,rgb(255,0,0):make object box 2,1,1,3:color object 2,rgb(0,255,0):make object sphere 3,1:color object 3,rgb(0,0,50):make object box 4,10,0.1,10:position object 4,0,-0.55,0
balla#=90
sync on:do
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90:player1pos#=Player1pos#-player1pos#:player2pos#=player2pos#-player2pos#
set cursor 290,6:print player2score#:set cursor 305,6:print "-":set cursor 320,6:print player1score#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8
if ballz#>player2pos# then player2pos#=player2pos#+0.06
if ballz#<player2pos# then player2pos#=player2pos#-0.06
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
balla#=wrapvalue(balla#)
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#:position object 3,ballx#,0,ballz#:yrotate object 3,balla#:position camera 0,10,0:point camera 0,0,0
sync:loop

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 22nd Apr 2007 21:39

Link

Whoops, i forgot to post that this is DBpro only.

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 26th Apr 2007 03:19

Link

guess no one cares...

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

Commander in Chief

18

Years of Service

User Offline

Joined: 15th Apr 2006

Location: Carbondale, PA, USA

Posted: 24th May 2007 02:01

Link

It's nice.. sorry for the bump.

---PARANOID PRODUCTIONS---

Back to top

Profile PM Email Website

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 31st May 2007 00:07

Link

Thanks, *bows*

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 29th Jul 2007 15:57

Link

I can't test this as its DBP, but it looks similar to a pong that I made, the problem is the angle never changes so the balls just bounces round and round. Try and make it so the angle changes depending on where on the bat the ball is hit.
If you have done this already then ignore me.

I am King of the noobs!

Back to top

Profile PM Email

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 30th Jul 2007 17:45

Link

No, the ball angle changes... But you have to slide the bar to make it change... :-\

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

Not_Maindric

16

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 2nd Aug 2007 23:38

Link

Quote: "Whoops, i forgot to post that this is DBpro only."

I have DBC and it works just fine... You need to move the computer's score number over a little bit. It went into the dash when I forced it to get 100+ points. =D

Back to top

Profile PM Email

Insert Name Here

17

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 8th Aug 2007 17:37

Link

Good... But you can just sit for hours on end watching go back and forth etc.

I never tell the truth.
That ain't a paradox.
I always tell lies is though.

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 16th Nov 2007 00:14

Link

Ok, ok. I shall change it.

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 16th Nov 2007 00:30 Edited at: 16th Nov 2007 03:29

Link

This one is a complete remake of the last.

New view, Win and Lose screen, and the ball reflects.

Uncompressed:

_beginning:

global player1score#
global player2score#

hide mouse

sync on

sync rate 40

make object box 1,1,1,3

color object 1,rgb(255,0,0)

make object box 2,1,1,3

color object 2,rgb(0,255,0)

make object sphere 3,1

color object 3,rgb(0,0,50)

make object box 4,10,0.1,10

position object 4,0,-0.55,0

balla#=90

do

if ballx#>6

player2score#=player2score#+1   
    
    ballx#=0
    
    ballz#=0   
    
    balla#=270  
    
    player1pos#=Player1pos#-player1pos#
    
    player2pos#=player2pos#-player2pos#
endif

if ballx#<-6

player1score#=player1score#+1
    
    ballx#=0
    
    ballz#=0
    
    balla#=90
    
    player1pos#=Player1pos#-player1pos#
    
    player2pos#=player2pos#-player2pos#

endif

set cursor 270,20

print "Your Score:"

set cursor 320, 50

print "-"

set cursor 270,80

print "Enemy's score:"

set cursor 390,80

print player2score#

set cursor 370,20

print player1score#

ballx#=newxvalue(ballx#,balla#,0.3)

ballz#=newzvalue(ballz#,balla#,0.3)

if ballx#>4 and ballx#<4.5 
    
    balla# = balla# + rnd(20) - 10
    
endif
    
If rightkey()=1 and player1pos#<3.5

player1pos#=player1pos#+0.4
    
endif

If leftkey()=1 and player1pos#>-3.5 
    
    player1pos#=player1pos#-0.4
    
endif

if rightkey()=1 and ballx#>4 and ballx#<4.5 
    
    balla#=balla#+8
    
endif

if leftkey()=1 and ballx#>4 and ballx#<4.5  
    
    balla#=balla#-8
    
endif

if ballz# > player2pos#

player2pos# = player2pos# + 0.03
    
endif

if ballz# < player2pos#

player2pos# = player2pos# - 0.03
    
endif

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5

balla#=360-balla#
    
endif

if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5

balla#=360-balla#
    
endif

if ballz#>4 or ballz#<-4

balla#=180-balla#
endif

balla#=wrapvalue(balla#)

position object 1,5,0,player1pos#

position object 2,-5,0,player2pos#

position object 3,ballx#,0,ballz#

yrotate object 3,balla#

position camera 10,10,0

point camera 0,0,0

checkwin()

sync

loop

`***********************
`**Check Win Function***
`***********************

function checkwin()

if player1score# = 20 and player1score# > player2score#
    
    showwin()
    
endif

if player2score# = 20 and player2score# > player1score#

showlose()
    
endif

endfunction

`***********************
`*****Win Function******
`***********************

function showwin()

delete object 1
delete object 2
delete object 3
delete object 4

sync

set text size 20

print "Congratulations! You win!"
print ""
print "Final score: "+str$(player1score#)+" to "+str$(player2score#)
print "Press any key to continue..."

sync

wait key

player1score# = 0
player2score# = 0

goto _beginning

endfunction

`***********************
`****Lose Function******
`***********************

function showlose()

delete object 1
delete object 2
delete object 3
delete object 4

sync

set text size 20

print "Game over! You lose!"
print ""
print "Final score: "+str$(player2score#)+" to "+str$(player1score#)
print "Press any key to continue..."

sync

wait key

player1score# = 0
player2score# = 0

goto _beginning

endfunction

+ Code Snippet

_beginning:

global player1score#
global player2score#

hide mouse

sync on

sync rate 40

make object box 1,1,1,3

color object 1,rgb(255,0,0)

make object box 2,1,1,3

color object 2,rgb(0,255,0)

make object sphere 3,1

color object 3,rgb(0,0,50)

make object box 4,10,0.1,10

position object 4,0,-0.55,0

balla#=90

do

if ballx#>6 

    player2score#=player2score#+1   
    
    ballx#=0
    
    ballz#=0   
    
    balla#=270  
    
    player1pos#=Player1pos#-player1pos#
    
    player2pos#=player2pos#-player2pos#
endif

if ballx#<-6 

    player1score#=player1score#+1
    
    ballx#=0
    
    ballz#=0
    
    balla#=90
    
    player1pos#=Player1pos#-player1pos#
    
    player2pos#=player2pos#-player2pos#

endif

set cursor 270,20

print "Your Score:"

set cursor 320, 50

print "-"

set cursor 270,80

print "Enemy's score:"

set cursor 390,80

print player2score#

set cursor 370,20

print player1score#

ballx#=newxvalue(ballx#,balla#,0.3)

ballz#=newzvalue(ballz#,balla#,0.3)

if ballx#>4 and ballx#<4.5 
    
    balla# = balla# + rnd(20) - 10
    
endif
    
If rightkey()=1 and player1pos#<3.5 

    player1pos#=player1pos#+0.4
    
endif

If leftkey()=1 and player1pos#>-3.5 
    
    player1pos#=player1pos#-0.4
    
endif

if rightkey()=1 and ballx#>4 and ballx#<4.5 
    
    balla#=balla#+8
    
endif

if leftkey()=1 and ballx#>4 and ballx#<4.5  
    
    balla#=balla#-8
    
endif

if ballz# > player2pos#

    player2pos# = player2pos# + 0.03
    
endif

if ballz# < player2pos#

    player2pos# = player2pos# - 0.03
    
endif

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5

    balla#=360-balla#
    
endif

if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5

    balla#=360-balla#
    
endif

if ballz#>4 or ballz#<-4

    balla#=180-balla#
endif

balla#=wrapvalue(balla#)

position object 1,5,0,player1pos#

position object 2,-5,0,player2pos#

position object 3,ballx#,0,ballz#

yrotate object 3,balla#

position camera 10,10,0

point camera 0,0,0

checkwin()

sync

loop

`***********************
`**Check Win Function***
`***********************

function checkwin()

if player1score# = 20 and player1score# > player2score#
    
    showwin()
    
endif

if player2score# = 20 and player2score# > player1score#

    showlose()
    
endif

endfunction

`***********************
`*****Win Function******
`***********************

function showwin()

delete object 1
delete object 2
delete object 3
delete object 4

sync

set text size 20

print "Congratulations! You win!"
print ""
print "Final score: "+str$(player1score#)+" to "+str$(player2score#)
print "Press any key to continue..."

sync

wait key

player1score# = 0
player2score# = 0

goto _beginning

endfunction

`***********************
`****Lose Function******
`***********************

function showlose()

delete object 1
delete object 2
delete object 3
delete object 4

sync

set text size 20

print "Game over! You lose!"
print ""
print "Final score: "+str$(player2score#)+" to "+str$(player1score#)
print "Press any key to continue..."

sync

wait key

player1score# = 0
player2score# = 0

goto _beginning

endfunction

Compressed:

_beginning:
global player1score# : global player2score# : hide mouse : sync on : sync rate 40
make object box 1,1,1,3 : color object 1,rgb(255,0,0) : make object box 2,1,1,3  : color object 2,rgb(0,255,0) : make object sphere 3,1 : color object 3,rgb(0,0,50) : make object box 4,10,0.1,10 : position object 4,0,-0.55,0
balla#=90
do : if ballx#>6 : player2score#=player2score#+1 : ballx#=0 : ballz#=0 : balla#=270 : player1pos#=Player1pos#-player1pos# : player2pos#=player2pos#-player2pos# : endif :if ballx#<-6 : player1score#=player1score#+1 : ballx#=0 : ballz#=0 : balla#=90 : player1pos#=Player1pos#-player1pos# : player2pos#=player2pos#-player2pos# : endif
set cursor 270,20:print "Your Score:":set cursor 320, 50:print "-":set cursor 270,80:print "Enemy's score:":set cursor 390,80:print player2score#:set cursor 370,20:print player1score#:ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3):if ballx#>4 and ballx#<4.5 :balla# = balla# + 10:endif
If rightkey()=1 and player1pos#<3.5 :player1pos#=player1pos#+0.4:endif:If leftkey()=1 and player1pos#>-3.5 :player1pos#=player1pos#-0.4:endif:if rightkey()=1 and ballx#>4 and ballx#<4.5 :balla#=balla#+8:endif:if leftkey()=1 and ballx#>4 and ballx#<4.5  :balla#=balla#-8:endif:if ballz# > player2pos#:player2pos# = player2pos# + 0.03:endif:if ballz# < player2pos#:player2pos# = player2pos# - 0.03:endif
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5:balla#=360-balla#:endif:if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5:balla#=360-balla#:endif:if ballz#>4 or ballz#<-4:balla#=180-balla#:endif
balla#=wrapvalue(balla#):position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#:position object 3,ballx#,0,ballz#:yrotate object 3,balla#:position camera 10,10,0:point camera 0,0,0:checkwin():sync:loop
function checkwin():if player1score# = 20 and player1score# > player2score#:showwin():endif:if player2score# = 20 and player2score# > player1score#:showlose():endif:endfunction
function showwin():delete object 1:delete object 2:delete object 3:delete object 4:sync:set text size 20:print "Congratulations! You win!":print "":print "Final score: "+str$(player1score#)+" to "+str$(player2score#):print "Press any key to continue...":sync:wait key:player1score# = 0:player2score# = 0:goto _beginning:endfunction
function showlose():delete object 1:delete object 2:delete object 3:delete object 4:sync:set text size 20:print "Game over! You lose!":print "":print "Final score: "+str$(player2score#)+" to "+str$(player1score#):print "Press any key to continue...":sync:wait key:player1score# = 0:player2score# = 0:goto _beginning:endfunction

+ Code Snippet

_beginning:
global player1score# : global player2score# : hide mouse : sync on : sync rate 40
make object box 1,1,1,3 : color object 1,rgb(255,0,0) : make object box 2,1,1,3  : color object 2,rgb(0,255,0) : make object sphere 3,1 : color object 3,rgb(0,0,50) : make object box 4,10,0.1,10 : position object 4,0,-0.55,0
balla#=90
do : if ballx#>6 : player2score#=player2score#+1 : ballx#=0 : ballz#=0 : balla#=270 : player1pos#=Player1pos#-player1pos# : player2pos#=player2pos#-player2pos# : endif :if ballx#<-6 : player1score#=player1score#+1 : ballx#=0 : ballz#=0 : balla#=90 : player1pos#=Player1pos#-player1pos# : player2pos#=player2pos#-player2pos# : endif
set cursor 270,20:print "Your Score:":set cursor 320, 50:print "-":set cursor 270,80:print "Enemy's score:":set cursor 390,80:print player2score#:set cursor 370,20:print player1score#:ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3):if ballx#>4 and ballx#<4.5 :balla# = balla# + 10:endif
If rightkey()=1 and player1pos#<3.5 :player1pos#=player1pos#+0.4:endif:If leftkey()=1 and player1pos#>-3.5 :player1pos#=player1pos#-0.4:endif:if rightkey()=1 and ballx#>4 and ballx#<4.5 :balla#=balla#+8:endif:if leftkey()=1 and ballx#>4 and ballx#<4.5  :balla#=balla#-8:endif:if ballz# > player2pos#:player2pos# = player2pos# + 0.03:endif:if ballz# < player2pos#:player2pos# = player2pos# - 0.03:endif
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5:balla#=360-balla#:endif:if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5:balla#=360-balla#:endif:if ballz#>4 or ballz#<-4:balla#=180-balla#:endif
balla#=wrapvalue(balla#):position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#:position object 3,ballx#,0,ballz#:yrotate object 3,balla#:position camera 10,10,0:point camera 0,0,0:checkwin():sync:loop
function checkwin():if player1score# = 20 and player1score# > player2score#:showwin():endif:if player2score# = 20 and player2score# > player1score#:showlose():endif:endfunction
function showwin():delete object 1:delete object 2:delete object 3:delete object 4:sync:set text size 20:print "Congratulations! You win!":print "":print "Final score: "+str$(player1score#)+" to "+str$(player2score#):print "Press any key to continue...":sync:wait key:player1score# = 0:player2score# = 0:goto _beginning:endfunction
function showlose():delete object 1:delete object 2:delete object 3:delete object 4:sync:set text size 20:print "Game over! You lose!":print "":print "Final score: "+str$(player2score#)+" to "+str$(player1score#):print "Press any key to continue...":sync:wait key:player1score# = 0:player2score# = 0:goto _beginning:endfunction

(Yea, i used goto, sue me o.o)

Back to top

Profile PM

whipped6

17

Years of Service

User Offline

Joined: 31st Aug 2006

Location:

Posted: 27th Dec 2007 18:37

Link

I like the AI, I'm still trying to learn how to make an AI because im still a stupid nooooooooooooobie. <<<is learning more and more

game creator

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 28th Dec 2007 01:05

Link

Well, pong AI isn't too difficult. It's just aligning thye opponent paddle with the ball, fast enough to be a challenge, and slow enough to allow err.

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / 20-line pong