Sorry your browser is not supported!

sync on
sync rate 60
autocam off

rem make the ground
make matrix 1,10000,10000,10,10

rem make a cube for the vehicle and set it's collision on
make object cube 1,50
position object 1,5000,25,5000
set object collision to boxes 1

rem make a bunch of cylinders to crash into and set their collision
for n = 2 to 50
   make object cylinder n,100
   position object n,rnd(9900),50,rnd(9900)
   color object n,rgb(rnd(255),rnd(255),rnd(255))
   set object collision to boxes n
next n

rem main loop

do
   gosub _move_cube
   gosub _bang

   sync
loop




rem procedures sub-routines -----------------------------------------------------
_move_cube:

   rem check if arrow keys are pressed and control speed of cube
   if upkey()=1 then inc speed
   if downkey()=1 then dec speed
   if speed >= 30 then speed=30
   if speed <= -30 then speed=-30

   rem slow down cube when accelerator not engaged
   if upkey()=0 and downkey()=0
      speed=speed*.99
   endif

   move object 1,speed

   rem turn vehicle
   if leftkey()=1 then ang=wrapvalue(object angle y(1)-5)
   if rightkey()=1 then ang=wrapvalue(object angle y(1)+5)

   yrotate object 1,ang

   rem follow vehicle with camera
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   cangy#=object angle y(1)

   set camera to follow x#,y#,z#,cangy#,300,100,10,1

return
`-----------------------------------------------------------------------------
_bang:
   rem find out which object has been collided with and move it
   bang = object collision(1,0)
   if bang > 0
      set object to object orientation bang,1
      move object bang,speed*30
   endif
return

rem setup
sync on
sync rate 60
set display mode 1024,768,16
hide mouse
autocam off

rem make floor
make object box 3,500,10,500
position object 3,0,0,0

rem make car
make object cube 2,60
position object 2,0,0,0
fix object pivot 2
color object 2,255

rem position camera
position camera 0,125,-100
xrotate camera 25
move camera -100

rem make sky black
color backdrop 5

rem initiate default conrols
left=30
right=32
forward=17
backward=31

rem values
radius#=100.5

rem main loop
do

rem update car angle
a#=object angle y(2)

rem controls
if keystate(forward)=1 and speed#<3 then inc speed#,.2
if keystate(backward)=1 and speed#>-3 then dec speed#,.2

rem apply friction 
speed#=speed#*0.95

rem turn the vehicle
if keystate(left)=1
   yrotate object 2,wrapvalue(a#-(180*speed#/(3.141*100.5)))
endif
if keystate(right)=1
   yrotate object 2,wrapvalue(a#+(180*speed#/(3.141*100.5)))
endif

` move vehicle
move object 2,speed#

rem update screen
sync

rem end loop
loop

rem **Wooden Hut**
rem CR 2007

rem **Setup**
gosub setup_screen:

gosub setup_variables:

gosub make_objects:

gosub texture_objects:

point camera 0,0,0

rem **Main Loop**
do
	inc fire_loop
	gosub animate_smoke:
	if fire_loop=2 then gosub animate_fire:
	gosub move_camera:
	sync 
loop

rem **Subroutines**

setup_screen:
	set display mode 800,600,32
	cls
	autocam off
	sync on
	position camera -300,0,-200
	point camera -300,100,-200
	set camera range 1,10000
return

setup_variables:
	rem dim carpet arrays
	csize=128
	dim carpet(csize,csize)
	dim oldcarpet(csize,csize)
return

make_objects:

	rem make house outside
	make object cylinder 1,100
	scale object 1,100,50,200
	set object 1,1,0,1

	rem make roof
	for a=2 to 4
		make object sphere a,120+a
		scale object a,100,100,200
		set object a,1,0,1
	next a

	rem make chimney
	make object cylinder 5,20
	position object 5,0,30,50
	scale object 5,75,350,75

	rem make ground
	make object plain 6,2000,2000
	position object 6,0,-26,0
	rotate object 6,90,0,0
	color object 6,rgb(10,20,0)

	rem make smoke
	make object plain 7,20,50
	position object 7,0,75,42+a
	ghost object on 7

	rem make bush
	for a=8 to 20
		make object sphere a,a+5
		set object a,1,0,1
		position object a,-55,-25,50
	next a
	for a=8 to 20
		make object sphere a+13,a+5
		set object a+13,1,0,1
		position object a+13,-55,-25,-50
	next a

	rem make house inside
	make object cylinder 34,-100
	scale object 34,100,50,200
	set object 34,1,0,1

	rem make carpet
	make object plain 35,40,60
	rotate object 35,90,0,30
	position object 35,0,-23,-30

	rem make fireplace
	make object box 36,5,30,30
	position object 36,-15,-15,50
	make object box 37,5,30,30
	position object 37,15,-15,50
	make object box 38,30,30,5
	position object 38,0,-15,65

	rem make fire
	for a=39 to 44
		make object triangle a,rnd(10)-5,rnd(30)-20,40+rnd(10),rnd(10)-5,rnd(30)-20,40,rnd(10)-5,rnd(30)-20,40+rnd(10)
		set object a,1,1,0
	next a

	rem make logs
	for a=45 to 48
		make object box a,4,4,rnd(5)+15
		rotate object a,rnd(10),rnd(360),rnd(90)
		position object a,0,-23,50
	next a

	rem make fire place floor
	make object box 49,30,5,30
	position object 49,0,-25,50

	rem make sky
	make object sphere 50,-9000
	set object 50,1,1,1,1,0,0

	rem make floorboards
	make object plain 51,40,20
	rotate object 51,90,0,0
	position object 51,-25,-25,50

	make object plain 52,60,20
	rotate object 52,90,0,0
	position object 52,-15,25,50

	rem make picture
	make object plain 53,15,10
	position object 53,0,5,-90
	rotate object 53,0,180,0

	rem setup backdrop and lights and fog
	fog on
	fog color rgb(5,5,5)
	fog distance 1000
	color backdrop rgb(0,0,0)
	make light 1
	position light 1,0,0,40
	set spot light 1,90,180
	point light 1,0,0,0
	set ambient light 25

return

texture_objects:

	rem make bitmaps
	create bitmap 1,256,256
	create bitmap 2,16,32

	rem texture building
	set current bitmap 1
	cls rgb(50,50,0)
	ink rgb(40,40,0),0
	for x=0 to 256 step 32
		for y=0 to 256 step 64
			line x,y,x,y+64
			line x,y,x+64,y
		next y
	next x
	ink rgb(0,0,0),0
	for x=59 to 69
		for y=100 to 256
			dot x,y
		next y
	next x
	
	get image 1,0,0,256,256
	flip bitmap 1
	mirror bitmap 1
	get image 34,0,0,256,256
	texture object 1,1
	texture object 34,34

	rem texture roof
	for a=2 to 4
		cls rgb(0,0,0)
		for x=0 to 256
			for y=0 to 100 step a-1
				ink rgb(80+rnd(30),60+rnd(40),0),0
				line x,y,x,y+rnd(1+3*a)
			next y
		next x
		blur bitmap 1,1
		get image a,0,0,256,256
		texture object a,a
		set object a,1,0,0
		if a>2 then ghost object on a
	next a

	rem texture chimney
	cls rgb(70,70,70)
	get image 5,0,0,2,2
	texture object 5,5

	rem texture bush
	cls rgb(0,0,0)
	ink rgb(0,50,0),0
	for b=20 to 8 step -1
		for a=0 to 800
			dot rnd(128),rnd(128)
		next a
		ink rgb(0,75,0),0
		for a=0 to 800
			dot rnd(128),rnd(128)
		next a
		get image b,0,0,128,128
	next b
	
	for a=8 to 20
		texture object a,a
	next a
	
	for a=8 to 20
		texture object a+13,a
	next a

	rem texture carpet
	for a=0 to 200
		for x=2 to csize-2
			for y=2 to csize-2
				sum=oldcarpet(x-1,y)+oldcarpet(x+1,y)+oldcarpet(x,y-1)+oldcarpet(x,y+1)
				if sum>0 and sum<4 then carpet(x,y)=0			
				if sum=0 or sum=4 then carpet(x,y)=1
			next y
		next x
		for x=1 to csize-1
			for y=1 to csize-1
				oldcarpet(x,y)=carpet(x,y)
			next y
		next x
	next a

	cls rgb(50,0,0)
	for x=0 to csize
		for y=0 to csize
			if x>csize-(csize/10) or x<csize/10 then border=1
			if y>csize-(csize/10) or y<csize/10 then border=1
			if border=1 then ink rgb(0,0,50),0 else ink rgb(0,20,0),0
			border=0
			if carpet(x,y)=1 then dot x,y
		next y
	next x
	get image 35,0,0,csize,csize
	texture object 35,35

	rem texture fireplace
	cls rgb(70,70,70)
	get image 36,0,0,1,1
	texture object 36,36
	texture object 37,36
	texture object 38,36
	texture object 49,36

	rem texture logs
	cls rgb(20,20,0)
	get image 45,0,0,2,2
	for a=45 to 48
		texture object a,45
	next a

	rem texture sky
	cls rgb(0,0,0)
	ink rgb(200,200,200),0
	for a=0 to 25
		dot rnd(128),rnd(128)
	next a
	get image 50,0,0,128,128
	texture object 50,50
	scale object texture 50,10,10

	rem texture floorboard
	cls rgb(50,50,0)
	get image 51,0,0,2,2
	texture object 51,51
	cls rgb(15,15,0)
	get image 52,0,0,2,2
	texture object 52,52

	rem texture picture
	cls rgb(100,75,0)
	text 5,5,"Home Sweet"
	text 25,20,"Home"
	get image 53,0,0,95,45
	texture object 53,53


		
	set current bitmap 0
return

animate_smoke:

	inc rise,3
	set current bitmap 2
	cls rgb(0,0,0)
	ink rgb(100,100,100),0
	for x=0 to 16
		for y=0 to 32
			smoke_angle#=(18*y)+rise
			smoke=100*sin(smoke_angle#)+25*ABS(cos(2*smoke_angle#))+50*cos(4*smoke_angle#)+55*sin(smoke_angle#)^2
			dec smoke, ABS(8-x)*20
			dec smoke, (32-y)*5
			if smoke<0 then smoke=0
			if smoke>255 then smoke=255
			ink rgb(smoke,smoke,smoke),0
			dot x,y
		next y
	next x
	get image 7,0,0,16,32

	texture object 7,7
	point object 7,camera position x(),object position y(7),camera position z()

return

animate_fire:
	fire_loop=0
	color light 1,rgb(rnd(100)+155,rnd(150),0)
	set current bitmap 1
	rem texture fire
	for a=39 to 44
		cls rgb(rnd(100)+155,rnd(150),0)
		get image a,0,0,2,2
		texture object a,a
		scale object a,125-rnd(50),150-rnd(100),125-rnd(50)
		position object a,rnd(10)-5,-17,rnd(4)+2
	next a
set current bitmap 0
return

hide_bush:
	for a=8 to 33
		hide object a
	next a
return

show_bush:
	for a=8 to 33
		show object a
	next a
return
	
move_camera:
	if camera position x()>0 then gosub hide_bush:
	if object visible(8)=0 and camera position x()<0 then gosub show_bush:
	if leftkey()=1 or mousex()<screen width()/10 then yrotate camera wrapvalue(camera angle y()-3)
	if rightkey()=1 or mousex()>screen width()-screen width()/10 then yrotate camera wrapvalue(camera angle y()+3)
	if upkey()=1 then move camera 4
	if downkey()=1 then move camera -4
	if mousey()>screen height()-screen height()/10 and wrapvalue(camera angle x()+90)<170 then xrotate camera wrapvalue(camera angle x()+2)
	if mousey()<screen height()/10 and wrapvalue(camera angle x()+90)>0 then xrotate camera wrapvalue(camera angle x()-2)
	position camera camera position x(),0,camera position z()
	rem move earth and sky
	position object 50,camera position x(),camera position y(), camera position z()
	position object 6,camera position x(),camera position y()-26, camera position z()
return
	

sync on : hide mouse
disable escapekey

perform checklist for fonts

for i=1 to checklist quantity()
	if checklist string$(i)="Showcard Gothic" then set text font "Showcard Gothic" : goto end_font_search
next i

for i=1 to checklist quantity()
	if checklist string$(i)="AgateSSK" then set text font "AgateSSK" : goto end_font_search
next i

for i=1 to checklist quantity()
	if checklist string$(i)="AverDisplaySSK" then set text font "AverDisplaySSK" : goto end_font_search
next i

set text font "Courier"

end_font_search:

`load sound "wav/bounce.wav",1
`load sound "wav/hollow.wav",2
`load sound "wav/win.wav",3
`load sound "wav/loss.wav",4
`load music "mp3/Prodigy - Out of Space.mp3",1
`set sound volume 1,100
`set sound volume 2,100
`set sound volume 3,100
`set sound volume 4,100
`set sound speed 2,500
dim hi(1)
so=1
mu=1

`set gamma 255,255,255
`cls
`load animation "wmv/Mega Media.wmv",1
`place animation 1,5,5,635,475
`play animation 1
`sleep 4000
`delete animation 1
`cls

`loop music 1

`set gamma 255,255,255
`cls
`load animation "wmv/Bounce.wmv",1
``place animation 1,5,5,635,475
`play animation 1
`sleep 3000
`delete animation 1
`cls

gosub Clic2con

Re2:
if file exist("hi.sam")=1 then load array "hi.sam",hi(1)
sc=0
e=0

x=rnd(420)+220
y=rnd(50)+215
w=rnd(3)+1

myx=450
myy=480
myy=myy-1
l=3

a=0
s=2

as=20

dim st(as,2)
for i=1 to as
	st(i,1)=rnd(420)+220
	st(i,2)=rnd(480)
next i

`for ga=0 to 255 step 8
`	r=255-ga
`	g=255-ga
`	b=255-ga
`	set gamma r,g,b
`next ga
`cls

set text size 100
ink rgb(255,0,0),0
for i=1 to 3
cls
set gamma 0,0,0
center text 320,190,str$(4-i)
for ga=0 to 255 step 8
	r=ga
	g=ga
	b=ga
	set gamma r,g,b
next ga
sleep 500
for ga=0 to 255 step 8
	r=255-ga
	g=255-ga
	b=255-ga
	set gamma r,g,b
next ga
next i
cls
ink rgb(0,255,0),0
center text 320,190,"GO!"
set gamma 0,0,0
for ga=0 to 255 step 15
	r=ga
	g=ga
	b=ga
	set gamma r,g,b
next ga
for ga=0 to 255 step 15
	r=255-ga
	g=255-ga
	b=255-ga
	set gamma r,g,b
next ga
cls
set gamma 255,255,255

for i=1 to as
	dot st(i,1),st(i,2)
next i

do

	cls

	if f=1
		ink rgb(255,255,255),0
		for i=1 to as
			st(i,2)=st(i,2)+10
			if st(i,2)>479 then st(i,2)=0
			dot st(i,1),st(i,2)
		next i
	else
		ink rgb(255,255,255),0
		for i=1 to as
			dot st(i,1),st(i,2)
		next i
	endif
	
	if f=1 then a=a+2
	if f=1 then b=b+2
	if b>5998 then b=0 : d=d+1
	if f=1 then c=c+2
	if c>98 then c=0
	ink rgb(255,0,0),0
	set text size 20
	text 0,0,"Time: "+str$(d)+":"+str$(b/100)+":"+str$(c)
	text 0,20,"Level: "+str$(s-1)
	text 0,40,"Score: "+str$(sc)
	text 0,60,"Hi-score: "+str$(hi(1))
	text 0,80,"Lives: "
	set cursor 52,82
	if text font$()="Courier" then set cursor 72,82
	for i=1 to l
	print "-- ";
	next i
	print " "

	ink rgb(0,255,0),0
	set text size 25
	text 0,110,"Instuctions:"
	set text size 15
	text 0,140,"Move the two lines"
	text 0,160,"using the arrow keys"
	text 0,180,"and bounce the ball ."
	text 0,200,"After 30 seconds"
	text 0,220,"you will 'Level up'."
	text 0,240,"Each level the ball"
	text 0,260,"will go faster."
	text 0,280,"You have three lives."
	text 0,300,"See if you can get"
	text 0,320,"the highest score."
	text 0,340,"Press 'r' to resart."
	text 0,360,"Press 'p' to pause."
	text 0,380,"Press 'p' again to unpause."
	text 0,400,"Press 'm' to turn music on/off. "
	text 0,420,"Press 's' to turn sounds on/off. "
	text 0,440,"Press the escape key to quit"
	if f=0
		text 0,460,"Press space..."
	endif
	if f=0 and spacekey()=1 then f=1

	if inkey$()="r" then gosub Re
	h=h-1
	if inkey$()="s" and h<0 and so=1 then so=0 : h=25
	if inkey$()="s" and h<0 and so=0 then so=1 : h=25
	k=k-1
	if inkey$()="m" and k<0 and mu=1 then mu=0 : k=25 : rem pause music 1
	if inkey$()="m" and k<0 and mu=0 then mu=1 : k=25 : rem resume music 1

	if e>0 then sc=sc+(((s-1)*100)/50) : e=e-(((s-1)*100)/50) : rem if so=1 then play sound 2

	`if y<6 and w=1 then w=3 : if s=1 then play sound 1
	`if y<6 and w=4 then w=2 : if s=1 then play sound 1
	if x<226 and w=1 then w=4 : rem if so=1 then play sound 1
	if x<226 and w=3 then w=2 : rem if so=1 then play sound 1

	`if x>295 and y>95 and x<350 and y<205 then x=295 
	`if x>350 and y>95 and x<405 and y<205 then x=405 
	`if x>295 and y>95 and x<405 and y<150 then x=295 
	`if x>295 and y>150 and x<405 and y<205 then x=295 

	if y>475 and x>myx-35 and x<myx+35 and w=3 
		w=1
		e=e+(s-1)*100
		`if so=1 then play sound 1
	else
		if y>475 and x>myx-35 and x<myx+35 and w=2
			w=4
			e=e+(s-1)*100
			`if so=1 then play sound 1
		else
			if y>480
				l=l-1
				`if so=1 then play sound 4
				aa=1
				y=rnd(50)+215
			endif
		endif
	endif

	if y<5 and x>myx-35 and x<myx+35 and w=1 
		w=3
		e=e+(s-1)*100
		`if so=1 then rem play sound 1
	else
		if y<5 and x>myx-35 and x<myx+35 and w=4
			w=2
			e=e+(s-1)*100
			`if so=1 then play sound 1
		else
			if y<0
				l=l-1
				`if so=1 then play sound 4
				aa=1
				y=rnd(50)+215
			endif
		endif
	endif

	if x>635 and w=4 then w=1 : rem if so=1 then play sound 1
	if x>635 and w=2 then w=3 : rem if so=1 then play sound 1

	if w=1 and f=1 then x=x-s : y=y-s
	if w=2 and f=1 then x=x+s : y=y+s
	if w=3 and f=1 then x=x-s : y=y+s
	if w=4 and f=1 then x=x+s : y=y-s

	if l<1
		if sc>hi(1)
			hi(1)=sc
			save array "hi.sam",hi(1)
			gosub NewRec
		endif
		recon=2
		gosub Re
	endif

	if rightkey()=1 then myx=myx+(s+1)
	if leftkey()=1 then myx=myx-(s+1)

	if inkey$()="z" then aa=1
	if inkey$()="\" then end
	if inkey$()="1" then a=2999

	if escapekey()=1 then gosub ending

	if myx-30<220 then myx=220+30
	if myx+30>640 then myx=640-30
	
	`set cursor x,y : print w

	ink rgb(255,0,0),0
	circle x,y,5
	circle x,y,4
	circle x,y,3
	circle x,y,2
	circle x,y,1
	dot x,y
	dot x-4,y-4
	dot x+4,y+4
	dot x-4,y+4
	dot x+4,y-4
	ink rgb(255,255,255),0
	dot x-2,y-2
	ink rgb(255,150,150),0
	dot x-2,y-1
	dot x-2,y-3
	dot x-1,y-2
	dot x-3,y-2
	ink rgb(255,100,100),0
	dot x-1,y-1
	dot x-1,y-3
	dot x-0,y-2
	ink rgb(0,0,255),0
	line myx-30,myy,myx+30,myy
	line myx-30,0,myx+30,0
	line 220,0,220,480
	line 0,105,220,105
	`box 300,100,400,200
	g=g-1

	if aa=1
		`ink rgb(255,255,255),0
		circle x,y,10
		sleep 1000
		aa=0
	endif

	if inkey$()="p" and g<0
		sleep 500
		repeat

			if inkey$()="z" then aa=1
			if inkey$()="\" then end
			`if escapekey()=1 then gosub ending
			`if inkey$()="r" then gosub Re
			h=h-1
			if inkey$()="s" and h<0 and so=1 then so=0 : h=25
			if inkey$()="s" and h<0 and so=0 then so=1 : h=25
			k=k-1
			if inkey$()="m" and k<0 and mu=1 then mu=0 : k=25 : rem pause music 1
			if inkey$()="m" and k<0 and mu=0 then mu=1 : k=25 : rem resume music 1

		until inkey$()="p"
		g=25
	endif

	if a>2998
		s=s+1
		e=e+(s-1)*100
		a=0
		`if so=1 then play sound 3
		ink rgb(255,0,0),0
		set text size 100
		center text 320,200,"Level up!"
		sleep 1000
		aa=1
	endif

	sync

loop


Clic2con:

	dim stst(as+100,2)
	for i=1 to as+100
		stst(i,1)=rnd(640)
		stst(i,2)=rnd(480)
	next i

	stx=rnd(640)
	sty=rnd(480)
	stw=rnd(3)+1

	set gamma 255,255,255

	while mouseclick()=0

		cls

		set text size 50
		ink rgb(0,255,0),0
		center text 320,190,"Click to continue..."

		ink rgb(255,255,255),0
		for i=1 to as+100
			stst(i,2)=stst(i,2)+10
			if stst(i,2)>479 then stst(i,2)=0
			dot stst(i,1),stst(i,2)
		next i

		ink rgb(255,0,0),0
		circle stx,sty,5
		circle stx,sty,4
		circle stx,sty,3
		circle stx,sty,2
		circle stx,sty,1
		dot stx,sty
		dot stx-4,sty-4
		dot stx+4,sty+4
		dot stx-4,sty+4
		dot stx+4,sty-4
		ink rgb(255,255,255),0
		dot stx-2,sty-2
		ink rgb(255,150,150),0
		dot stx-2,sty-1
		dot stx-2,sty-3
		dot stx-1,sty-2
		dot stx-3,sty-2
		ink rgb(255,100,100),0
		dot stx-1,sty-1
		dot stx-1,sty-3
		dot stx-0,sty-2

		if stx>635 and stw=4 then stw=1 : rem play sound 1
		if stx>635 and stw=2 then stw=3 : rem play sound 1
		if stx<5 and stw=1 then stw=4 : rem play sound 1
		if stx<5 and stw=3 then stw=2 : rem play sound 1

		if sty>475 and stw=3 then stw=1 : rem play sound 1
		if sty>475 and stw=2 then stw=4 : rem play sound 1
		if sty<5 and stw=1 then stw=3 : rem play sound 1
		if sty<5 and stw=4 then stw=2 : rem play sound 1

		if stw=1 then stx=stx-5 : sty=sty-5
		if stw=2 then stx=stx+5 : sty=sty+5
		if stw=3 then stx=stx-5 : sty=sty+5
		if stw=4 then stx=stx+5 : sty=sty-5

		sync

	endwhile

return

Re:

	cls

	ink rgb(0,0,255),0
	box 150,150,477,347
	ink rgb(0,0,0),0
	box 151,151,476,346
	ink rgb(0,0,255),0
	line 150,200,477,200

	box 170,290,290,330
	box 330,290,450,330
	ink rgb(0,0,0),0
	box 171,291,289,329
	box 331,291,449,329

	ink rgb(0,255,0),0
	`set text font "Showcard Gothic"
	set text size 40
	text 155,155,"Restart?"

	ink rgb(255,0,0),0
	set text size 30
	text 160,210,"Do you want to" 
	text 160,240,"restart?"

	set text size 30
	center text 230,295,"yes"
	center text 390,295,"no"

	show mouse

	do

		if mouseclick()=1 and mousex()>170 and mousey()>290 and mousex()<290 and mousey()<330 then goto Re2 : hide mouse
		if mouseclick()=1 and mousex()>330 and mousey()>290 and mousex()<450 and mousey()<330
			if recon=2
				end
			else
				hide mouse
				return
			endif
		endif

		sync

	loop

return

ending:

	cls
	
	ink rgb(0,0,255),0
	box 150,150,477,347
	ink rgb(0,0,0),0
	box 151,151,476,346
	ink rgb(0,0,255),0
	line 150,200,477,200

	box 170,290,290,330
	box 330,290,450,330
	ink rgb(0,0,0),0
	box 171,291,289,329
	box 331,291,449,329

	ink rgb(0,255,0),0
	`set text font "Showcard Gothic"
	set text size 40
	text 155,155,"Quit?"

	ink rgb(255,0,0),0
	set text size 30
	text 160,210,"Are you sure you" 
	text 160,240,"want to quit?"

	set text size 30
	center text 230,295,"yes"
	center text 390,295,"no"

	show mouse

	do

		if mouseclick()=1 and mousex()>170 and mousey()>290 and mousex()<290 and mousey()<330 then end : hide mouse
		if mouseclick()=1 and mousex()>330 and mousey()>290 and mousex()<450 and mousey()<330 then return : hide mouse

		sync

	loop

return

NewRec:

	cls
	
	ink rgb(0,0,255),0
	box 150,150,477,347
	ink rgb(0,0,0),0
	box 151,151,476,346
	ink rgb(0,0,255),0
	line 150,200,477,200

	box 170,290,290,330
	box 330,290,450,330
	ink rgb(0,0,0),0
	box 171,291,289,329
	box 331,291,449,329

	ink rgb(0,255,0),0
	`set text font "Showcard Gothic"
	set text size 40
	text 155,155,"Quit?"

	ink rgb(255,0,0),0
	set text size 30
	text 160,210,"Congratulations!" 
	text 160,240,"You set a new record!"

	set text size 30
	center text 230,295,"OK"
	center text 390,295,"Quit"

	show mouse

	do

		if mouseclick()=1 and mousex()>170 and mousey()>290 and mousex()<290 and mousey()<330 then return : hide mouse
		if mouseclick()=1 and mousex()>330 and mousey()>290 and mousex()<450 and mousey()<330 then end : hide mouse

		sync

	loop

return

Sync On
Autocam Off
hide mouse

rem make the menu
cls 
text 100,100,"3D PONG"
wait 2000
cls 
text 100,100,"Its fun, bounce off the walls."
wait 3000
cls
wait 1000
text 100,100,"Much thanks to Skyler Goodell for giving a good example."
wait key
cls
text 100,100,"I modded the program with all the things i know how to do so far."
wait key
cls

`Make The Side Walls
	Make Object Cube 10,50
	Position Object 10,-100,-10,45
   color object 10,rgb(200,0,0)

	Make Object Cube 11,50
	Position Object 11,-100,-10,95
   color object 11,rgb(20,0,20)

	Make Object Cube 12,50
	Position Object 12,-100,-10,145
   color object 12,rgb(0,200,0)

	Make Object Cube 13,50
	Position Object 13,-100,-10,195
   color object 13,rgb(0,0,200)

	Make Object Cube 14,50
	Position Object 14,-100,-10,245
   color object 14,rgb(0,20,40)

	Make Object Cube 15,50
	Position Object 15,-100,-10,295
   color object 15,rgb(20,40,0)

	Make Object Cube 20,50
	Position Object 20,100,-10,45
   color object 20,rgb(20,0,20)

	Make Object Cube 21,50
	Position Object 21,100,-10,95
   color object 21,rgb(200,100,0)

	Make Object Cube 22,50
	Position Object 22,100,-10,145
   color object 22,rgb(0,200,0)

	Make Object Cube 23,50
	Position Object 23,100,-10,195
   color object 23,rgb(100,0,0)

	Make Object Cube 24,50
	Position Object 24,100,-10,245
	color object 24,rgb(0,20,60)

	Make Object Cube 25,50
	Position Object 25,100,-10,295
   color object 25,rgb(20,50,0)

`Make the Paddles
	Make Object cone 1,20
	position object 1,0,-10,20
   color object 1,rgb(200,0,0)
	make object collision box 1,-10,-11,-11,11,10,10,0

	Make Object cone 2,20
	Position Object 2,-85,-10,270
   color object 2,rgb(200,0,0)
	make object collision box 2,-10,-11,-11,11,10,10,0

`Make Ball
	Make Object Sphere 3,10
	Position Object 3,0,-10,10
   color object 3,rgb(0,200,0)
	make object collision box 3,-5,-5,-5,5,5,5,0
	position camera 0,30,-80

`Start the Movement
	h_speed#=Rnd(3)+.2
	z_speed#=3
	set object collision on 3
	side#=0
	COMside#=-10
	z#=50

`Main Game Loop
Do

	position camera 0,30,-80

`Move Paddles and Ball
	inc x#,h_speed#
	inc z#,z_speed#

	position object 3,x#,-10,z#

	position object 1,side#,-10,20
	position object 2,COMside#,-10,295

`Bouncing Math
	if object collision(3,1)>0
		z_speed#=3
		if speed#=3 or speed#=-3
		h_speed#=h_speed#+speed#
	endif
	endif

	if object collision(3,2)>0
		z_speed#=-3
	if speed#=3 or speed#=-3
		h_speed#=h_speed#+speed#
	endif
	endif

	if x#<-60 or x#>60
		h_speed#=h_speed#*-1
		endif



`Mis.
set cursor 200,30:print names$
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
set cursor 355,30:print name$


`Paddle Movement
	if rightkey()=1 
	side#=side#+3
	speed#=3
	else
	speed#=0
	endif

	if leftkey()=1
	side#=side#-3
	speed#=-3
	else
	speed#=0
	endif

	if side#<-55 then side#=-55
	if side#>55 then side#=55

	if COMside#<-55 then COMside#=-55
	if COMside#>55 then COMside#=55



`Paddle Movement
	if rightkey()=1 
	side#=side#+3
	speed#=3
	else
	speed#=0
	endif

	if leftkey()=1
	side#=side#-3
	speed#=-3
	else
	speed#=0
	endif

	if side#<-55 then side#=-55
	if side#>55 then side#=55

	if COMside#<-55 then COMside#=-55
	if COMside#>55 then COMside#=55

`COM AI
		if COMside#<x#
		if z#>120
		COMside#=COMside#+3.3
		endif
		endif

	if COMside#>x#
	if z#>120
	COMside#=COMside#-3.3
	endif
	endif 

`End Main Game
		sync 
	loop

rem Pong 3D
rem CR 2007

Rem **Cheat code: spacebar advances to the next level**

Rem ***Game Settings - Change these to customize the difficulty of the game***

rem ai_speed# is the speed of the computer paddle *on the first level*
ai_speed#=2.65

rem speed_inc# is the rate the ball speeds up during a rally
speed_inc#=0.2

rem reaction_time is the reaction speed of the computer paddle
rem ranges from 200 (instant reaction) to -200 (no reaction)
reaction_time=100

rem gravity# is the force of gravity on the ball
gravity#=0.2

rem deflect# is the amount the ball deflects when it hits the side of the paddle
rem ranges from 1 (very big deflection) to 100 (no deflection)
rem normal values are between 5 and 20
deflect#=8

gosub setup:

gosub make_objects:

gosub table_image:

gosub reset_positions:

gosub red_bat_image:

gosub blue_bat_image:

color backdrop rgb(0,0,0)

rem ***main loop***

do

	gosub update_scores:
	if start_level=1 then gosub start_level:
	gosub move_ball:
	gosub move_bat:
	gosub table_image:
	gosub red_bat_image:
	gosub blue_bat_image:
	if red=5 then gosub lose:
	if blue=5 then gosub next_level:
	if spacekey()=1 then gosub next_level:
	sync
loop

setup:
	cls
	autocam off
	hide mouse
	sync on
	position camera 0,350,50
	point camera 0,0,50
	yrotate camera 0
	create bitmap 1,256,256
	create bitmap 2,128,128
	create bitmap 3,128,128
	create bitmap 4,64,64
	create bitmap 5,64,64
	set text size 30
	start_level=1
	level=1
return

reset_positions:
	position object 1,0,100,100
	position object 3,0,200,30
	position object 4,0,-200,30
	momx#=0
	momx#=0
	momy#=-5.0
	momz#=0.0
	offset=0
return

make_objects:
	make object sphere 1,10

	make object plain 2,211,400

	make object plain 3,35,35
	ghost object on 3
	color object 3,rgb(0,30,60)
	xrotate object 3,90

	make object plain 4,35,35
	ghost object on 4
	color object 4,rgb(60,30,0)
	xrotate object 4,90

	make object plain 5,400,100
	position object 5,-105,0,50
	yrotate object 5,270
	xrotate object 5,90
	color object 5,rgb(0,100,0)

	make object plain 6,400,100
	position object 6,105,0,50
	yrotate object 6,90
	xrotate object 6,90
	color object 6,rgb(0,100,0)

return

table_image:
	set current bitmap 1
	cls rgb(0,100,0)
	posx#=(100+object position x(1))/200
	posy#=(200-object position y(1))/400
	ink rgb(10,10,10),0
	shadow_size=12-(object position z(1)/10)
	for a=0 to shadow_size
		circle posx#*256,posy#*256,a
	next a
	get image 2,0,0,256,256
	texture object 2,2
	set current bitmap 0
return

blue_bat_image:
	set current bitmap 2
	cls rgb(0,0,100)
	if blue_bounce>0
		dec blue_bounce
		ink rgb(0,0,100+blue_bounce*6),0
		for a=0 to 20
			circle 128*bluex#,128*bluey#,a
		next a
	endif
	get image 3,0,0,128,128
	texture object 3,3
	set current bitmap 0
return

red_bat_image:
	set current bitmap 3
	cls rgb(100,0,0)
	if red_bounce>0
		ink rgb(100+red_bounce*6,0,0),0
		for a=0 to 20
			circle 128*redx#,128*redy#,a
		next a
		dec red_bounce
	endif
	get image 4,0,0,128,128
	texture object 4,4
	set current bitmap 0
return

update_scores:
	set current bitmap 4
	cls rgb(0,100,0)
	ink rgb(0,0,255),0
	center text 32,32,str$(blue)
	get image 5,0,0,64,64
	texture object 5,5
	cls rgb(0,100,0)
	ink rgb(255,0,0),0
	center text 32,32,str$(red)
	get image 6,0,0,64,64
	texture object 6,6
	set current bitmap 0
return

	move_ball:
	dec momz#,gravity#
	position object 1,object position x(1)+momx#,object position y(1)+momy#,object position z(1)+momz#
	if object position z(1)<0
		position object 1,object position x(1),object position y(1),0-object position z(1)
		momz#=0-momz#
	endif
	if object position y(1)>200
		rem hit bat
		if ABS(object position x(1)-object position x(3))<20 and ABS(object position z(1)-object position z(3))<20
			position object 1,object position x(1),200+(object position y(1)-200),object position z(1)
			momy#=0-momy#
			momx#=momx#+((object position x(1)-object position x(3))/deflect#)
			blue_bounce=20
			bluex#=(20+object position x(1)-object position x(3))/40
			bluey#=(20+object position z(3)-object position z(1))/40
		else
			rem miss bat
			gosub red_score:
		endif
	endif
	if object position y(1)<-200
		rem hit bat
		if ABS(object position x(1)-object position x(4))<20 and ABS(object position z(1)-object position z(4))<20
			position object 1,object position x(1),200+(object position y(1)-200),object position z(1)
			momy#=0-momy#
			momx#=momx#+((object position x(1)-object position x(4))/deflect#)
			red_bounce=20
			redx#=(20+object position x(1)-object position x(4))/40
			redy#=(20+object position z(4)-object position z(1))/40
			inc momy#,speed_inc#
			offset=0
		else
			rem miss bat
			gosub blue_score:
		endif
	endif
	if object position x(1)<-100
		position object 1,-100-(object position x(1)+100),object position y(1),object position z(1)
		momx#=0-momx#
	endif
	if object position x(1)>100
		position object 1,100-(object position x(1)-100),object position y(1),object position z(1)
		momx#=0-momx#
	endif
return
	
move_bat:
	position object 3,object position x(3)+mousemovex()/2, 200, object position z(3)-mousemovey()/2

	rem move AI bat
	dx#=0
	dz#=0
	if offset=0 and level>1 and object position y(1)<(reaction_time-150) and ABS(momx#)<2
		offset=rnd(32)-16
		if ABS(offset)>level*4 then offset=0
	endif		
	if momy#<0 and object position y(1)<reaction_time
		if ABS(object position x(4)-object position x(1)+offset)>ai_speed#
			if object position x(4)>object position x(1)+offset then dx#=0-ai_speed#
			if object position x(4)<object position x(1)+offset then dx#=ai_speed#
		else
			dx#=object position x(1)+offset-object position x(4)
		endif
		if ABS(object position z(4)-object position z(1))>ai_speed#
			if object position z(4)>object position z(1) then dz#=0-ai_speed#
			if object position z(4)<object position z(1) then dz#=ai_speed#
		else
			dz#=object position z(1)-object position z(4)
		endif
	else
		if object position x(4)>0 then dx#=-1
		if object position x(4)<0 then dx#=1
		if object position z(4)>50 then dz#=-1
		if object position z(4)<50 then dz#=1
	endif
	position object 4, object position x(4)+dx#,-200,object position z(4)+dz#
return

red_score:
	inc red
	gosub reset_positions:
return

blue_score:
	inc blue
	gosub reset_positions:
return

start_level:
	set current bitmap 0
	ink rgb(255,255,255),0
	repeat
		ink rgb(255,255,255),0
		center text screen width()/2,screen height()/2,"Level "+str$(level)
		center text screen width()/2,110+screen height()/2,"Click to begin"
		if level=1
			ink rgb(50,50,255),0
			center text screen width()/2,-150+screen height()/2,"3D Ping Pong"
			ink rgb(100,100,100),0
			center text screen width()/2,50+screen height()/2,"Hit the ball past your opponent to score"
			center text screen width()/2,80+screen height()/2,"Reach 5 points first to progress"
		endif
		sync
	until mouseclick()=1
	start_level=0
return

lose:
	set current bitmap 0
	ink rgb(255,255,255),0
	repeat
		ink rgb(255,255,255),0
		center text screen width()/2,screen height()/2,"You reached Level "+str$(level)
		center text screen width()/2,80+screen height()/2,"Click to restart"
		center text screen width()/2,100+screen height()/2,"or press Esc to quit"
		sync
	until mouseclick()=1
	wait 500
	level=1
	start_level=1
	blue=0
	red=0
return

next_level:
	start_level=1
	inc level
	inc ai_speed#,0.2
	inc speed_inc#,0.15
	if level>3 
		inc speed_inc#,0.1
		inc ai_speed#,0.15
	endif
	blue=0
	red=0
	gosub reset_positions:
return

Sync On
Autocam Off
hide mouse

rem make the menu

load cdmusic 15,1
play music 1 
 
cls 
text 100,100,"3D PONG"
wait 3000
cls 
text 100,100,"Its fun, bounce off the walls"
wait 3000
cls
wait 1000
text 100,100,"Much thanks to Skyler Goodell for giving a good example."
wait 3000
cls
text 100,100,"I modded the program with all the things i know how to do so far."
wait 3000
cls



`Make The Side Walls
	Make Object Cube 10,50
	Position Object 10,-100,-10,45
   color object 10,rgb(200,0,0)

	Make Object Cube 11,50
	Position Object 11,-100,-10,95
   color object 11,rgb(20,0,20)

	Make Object Cube 12,50
	Position Object 12,-100,-10,145
   color object 12,rgb(0,200,0)

	Make Object Cube 13,50
	Position Object 13,-100,-10,195
   color object 13,rgb(0,0,200)

	Make Object Cube 14,50
	Position Object 14,-100,-10,245
   color object 14,rgb(0,20,40)

	Make Object Cube 15,50
	Position Object 15,-100,-10,295
   color object 15,rgb(20,40,0)

	Make Object Cube 20,50
	Position Object 20,100,-10,45
   color object 20,rgb(20,0,20)

	Make Object Cube 21,50
	Position Object 21,100,-10,95
   color object 21,rgb(200,100,0)

	Make Object Cube 22,50
	Position Object 22,100,-10,145
   color object 22,rgb(0,200,0)

	Make Object Cube 23,50
	Position Object 23,100,-10,195
   color object 23,rgb(100,0,0)

	Make Object Cube 24,50
	Position Object 24,100,-10,245
	color object 24,rgb(0,20,60)

	Make Object Cube 25,50
	Position Object 25,100,-10,295
   color object 25,rgb(20,50,0)

`Make the Paddles
	Make Object cone 1,20
	position object 1,0,-10,20
   color object 1,rgb(200,0,0)
	make object collision box 1,-10,-11,-11,11,10,10,0

	Make Object cone 2,20
	Position Object 2,-85,-10,270
   color object 2,rgb(200,0,0)
	make object collision box 2,-10,-11,-11,11,10,10,0

`Make Ball
	Make Object Sphere 3,10
	Position Object 3,0,-10,10
   color object 3,rgb(0,200,0)
	make object collision box 3,-5,-5,-5,5,5,5,0
	position camera 0,30,-80

`Start the Movement
	h_speed#=Rnd(3)+.2
	z_speed#=3
	set object collision on 3
	side#=0
	COMside#=-10
	z#=50


`Main Game Loop
 

Do

	position camera 0,30,-80

`Move Paddles and Ball
	inc x#,h_speed#
	inc z#,z_speed#

	position object 3,x#,-10,z#

	position object 1,side#,-10,20
	position object 2,COMside#,-10,295

`Bouncing Math
	if object collision(3,1)>0
		z_speed#=3
		if speed#=3 or speed#=-3
		h_speed#=h_speed#+speed#
	endif
	endif

	if object collision(3,2)>0
		z_speed#=-3
	if speed#=3 or speed#=-3
		h_speed#=h_speed#+speed#
	endif
	endif

	if x#<-60 or x#>60
		h_speed#=h_speed#*-1
		endif



`Mis.
set cursor 200,30:print names$
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
set cursor 355,30:print name$


`Paddle Movement
	if rightkey()=1 
	side#=side#+3
	speed#=3
	else
	speed#=0
	endif

	if leftkey()=1
	side#=side#-3
	speed#=-3
	else
	speed#=0
	endif

	if side#<-55 then side#=-55
	if side#>55 then side#=55

	if COMside#<-55 then COMside#=-55
	if COMside#>55 then COMside#=55



`Paddle Movement
	if rightkey()=1 
	side#=side#+3
	speed#=3
	else
	speed#=0
	endif

	if leftkey()=1
	side#=side#-3
	speed#=-3
	else
	speed#=0
	endif

	if side#<-55 then side#=-55
	if side#>55 then side#=55

	if COMside#<-55 then COMside#=-55
	if COMside#>55 then COMside#=55

`COM AI
		if COMside#<x#
		if z#>120
		COMside#=COMside#+1.5
		endif
		endif

	if COMside#>x#
	if z#>120
	COMside#=COMside#-1.5
	endif
	endif 

`End Main Game
		sync 
	loop

Sync On
Autocam Off
hide mouse

rem make the menu

`load cdmusic 15,1
`play music 1

cls
text 100,100,"3D PONG"
wait 3000
cls
text 100,100,"Its fun, bounce off the walls"
wait 3000
cls
wait 1000
text 100,100,"Much thanks to Skyler Goodell for giving a good example."
wait 3000
cls
text 100,100,"I modded the program with all the things i know how to do so far."
wait 3000
cls
remend


`Make The Side Walls
   Make Object Cube 10,50
   Position Object 10,-100,-10,45
   color object 10,rgb(200,0,0)

   Make Object Cube 11,50
   Position Object 11,-100,-10,95
   color object 11,rgb(20,0,20)

   Make Object Cube 12,50
   Position Object 12,-100,-10,145
   color object 12,rgb(0,200,0)

   Make Object Cube 13,50
   Position Object 13,-100,-10,195
   color object 13,rgb(0,0,200)

   Make Object Cube 14,50
   Position Object 14,-100,-10,245
   color object 14,rgb(0,20,40)

   Make Object Cube 15,50
   Position Object 15,-100,-10,295
   color object 15,rgb(20,40,0)

   Make Object Cube 20,50
   Position Object 20,100,-10,45
   color object 20,rgb(20,0,20)

   Make Object Cube 21,50
   Position Object 21,100,-10,95
   color object 21,rgb(200,100,0)

   Make Object Cube 22,50
   Position Object 22,100,-10,145
   color object 22,rgb(0,200,0)

   Make Object Cube 23,50
   Position Object 23,100,-10,195
   color object 23,rgb(100,0,0)

   Make Object Cube 24,50
   Position Object 24,100,-10,245
   color object 24,rgb(0,20,60)

   Make Object Cube 25,50
   Position Object 25,100,-10,295
   color object 25,rgb(20,50,0)

`Make the Paddles
   Make Object cone 1,20
   position object 1,0,-10,20
   color object 1,rgb(200,0,0)
   make object collision box 1,-10,-11,-11,11,10,10,0

   Make Object cone 2,20
   Position Object 2,-85,-10,270
   color object 2,rgb(200,0,0)
   make object collision box 2,-10,-11,-11,11,10,10,0

`Make Ball
   Make Object Sphere 3,10
   Position Object 3,0,-10,10
   color object 3,rgb(0,200,0)
   make object collision box 3,-5,-5,-5,5,5,5,0
   position camera 0,30,-80

`Start the Movement
   `h_speed#=Rnd(3)+.2
   `z_speed#=3
   set object collision on 3
   `side#=0
   `COMside#=-10
   `z#=50


`Main Game Loop
main:
   h_speed#=Rnd(3)+.2
   z_speed#=3
   side#=0
   COMside#=-10
   z#=50

Do

   position camera 0,30,-80

`Move Paddles and Ball
   inc x#,h_speed#
   inc z#,z_speed#

   position object 3,x#,-10,z#

   position object 1,side#,-10,20
   position object 2,COMside#,-10,295

`Bouncing Math
   if object collision(3,1)>0
      z_speed#=3
      if speed#=3 or speed#=-3
      h_speed#=h_speed#+speed#
   endif
   endif

   if object collision(3,2)>0
      z_speed#=-3
   if speed#=3 or speed#=-3
      h_speed#=h_speed#+speed#
   endif
   endif

   if x#<-60 or x#>60
      h_speed#=h_speed#*-1
      endif



`Mis.
set cursor 200,30:print names$
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
set cursor 355,30:print name$


`Paddle Movement
   if rightkey()=1
   side#=side#+3
   speed#=3
   else
   speed#=0
   endif

   if leftkey()=1
   side#=side#-3
   speed#=-3
   else
   speed#=0
   endif

   if side#<-55 then side#=-55
   if side#>55 then side#=55

   if COMside#<-55 then COMside#=-55
   if COMside#>55 then COMside#=55



`Paddle Movement
   if rightkey()=1
   side#=side#+3
   speed#=3
   else
   speed#=0
   endif

   if leftkey()=1
   side#=side#-3
   speed#=-3
   else
   speed#=0
   endif

   if side#<-55 then side#=-55
   if side#>55 then side#=55

   if COMside#<-55 then COMside#=-55
   if COMside#>55 then COMside#=55

`COM AI
      if COMside#<x#
      if z#>120
      COMside#=COMside#+1.5
      endif
      endif

   if COMside#>x#
   if z#>120
   COMside#=COMside#-1.5
   endif
   endif

rem score routine
   if object position z(3) > 300
      player1score#=player1score#+1
      gosub main
   endif

   if object position z(3) < 0
      player2score#=player2score#+1
      gosub main
   endif

`End Main Game
      sync
   loop

Autocam Off
hide mouse
sync on 
sync rate 50


cls
text 100,100,"3D PONG"
wait 3000
cls
text 40,200,"Its fun, bounce off the walls"
wait 3000
cls
wait 1000
text 100,100,"Much thanks to Skyler Goodell for giving a good example."
wait 3000
cls
text 100,100,"I modded the program with all the things i know how to do so far."
wait 3000
cls
text 100,300,"Instructions:"
wait 1500
cls
text 100,100,"Its pong, you know the rules, lol. First to three wins. Have fun!"
wait 2000
cls

`Make The Side Walls
   Make Object Cube 10,50
   Position Object 10,-100,-10,45
   color object 10,rgb(200,0,0)

   Make Object Cube 11,50
   Position Object 11,-100,-10,95
   color object 11,rgb(20,0,20)

   Make Object Cube 12,50
   Position Object 12,-100,-10,145
   color object 12,rgb(0,200,0)

   Make Object Cube 13,50
   Position Object 13,-100,-10,195
   color object 13,rgb(0,0,200)

   Make Object Cube 14,50
   Position Object 14,-100,-10,245
   color object 14,rgb(0,20,40)

   Make Object Cube 15,50
   Position Object 15,-100,-10,295
   color object 15,rgb(20,40,0)

   Make Object Cube 20,50
   Position Object 20,100,-10,45
   color object 20,rgb(20,0,20)

   Make Object Cube 21,50
   Position Object 21,100,-10,95
   color object 21,rgb(200,100,0)

   Make Object Cube 22,50
   Position Object 22,100,-10,145
   color object 22,rgb(0,200,0)

   Make Object Cube 23,50
   Position Object 23,100,-10,195
   color object 23,rgb(100,0,0)

   Make Object Cube 24,50
   Position Object 24,100,-10,245
   color object 24,rgb(0,20,60)

   Make Object Cube 25,50
   Position Object 25,100,-10,295
   color object 25,rgb(20,50,0)

`Make the Paddles
   Make Object cone 1,20
   position object 1,0,-10,20
   color object 1,rgb(200,0,0)
   make object collision box 1,-10,-11,-11,11,10,10,0

   Make Object cone 2,20
   Position Object 2,-85,-10,270
   color object 2,rgb(200,0,0)
   make object collision box 2,-10,-11,-11,11,10,10,0

`Make Ball
   Make Object Sphere 3,10
   Position Object 3,0,-10,10
   color object 3,rgb(0,200,0)
   make object collision box 3,-5,-5,-5,5,5,5,0
   position camera 0,30,-80

`Start the Movement
   `h_speed#=Rnd(3)+.2
   `z_speed#=3
   set object collision on 3
   `side#=0
   `COMside#=-10
   `z#=50


`Main Game Loop
main:
   h_speed#=Rnd(3)+.2
   z_speed#=3
   side#=0
   COMside#=-10
   z#=50

Do

   position camera 0,30,-80

`Move Paddles and Ball
   inc x#,h_speed#
   inc z#,z_speed#

   position object 3,x#,-10,z#

   position object 1,side#,-10,20
   position object 2,COMside#,-10,295

`Bouncing Math
   if object collision(3,1)>0
      z_speed#=3
      if speed#=3 or speed#=-3
      h_speed#=h_speed#+speed#
   endif
   endif

   if object collision(3,2)>0
      z_speed#=-3
   if speed#=3 or speed#=-3
      h_speed#=h_speed#+speed#
   endif
   endif

   if x#<-60 or x#>60
      h_speed#=h_speed#*-1
      endif



`Mis.
set cursor 200,30:print names$
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
set cursor 355,30:print name$


`Paddle Movement
   if rightkey()=1
   side#=side#+3
   speed#=3
   else
   speed#=0
   endif

   if leftkey()=1
   side#=side#-3
   speed#=-3
   else
   speed#=0
   endif

   if side#<-55 then side#=-55
   if side#>55 then side#=55

   if COMside#<-55 then COMside#=-55
   if COMside#>55 then COMside#=55



`Paddle Movement
   if rightkey()=1
   side#=side#+3
   speed#=3
   else
   speed#=0
   endif

   if leftkey()=1
   side#=side#-3
   speed#=-3
   else
   speed#=0
   endif

   if side#<-55 then side#=-55
   if side#>55 then side#=55

   if COMside#<-55 then COMside#=-55
   if COMside#>55 then COMside#=55

`COM AI
      if COMside#<x#
      if z#>120
      COMside#=COMside#+2.2
      endif
      endif

   if COMside#>x#
   if z#>120
   COMside#=COMside#-2.2
   endif
   endif

rem score routine
   if object position z(3) > 300
      player1score#=player1score#+1
      gosub main
   endif

   if object position z(3) < 0
      player2score#=player2score#+1
      gosub main
   endif

if player1score#=(3)
x#=0
y#=0
z#=0

text 100,100,"YOU WIN!!!"
text 300,100,"Thanks for playing!"
endif
   
if player2score#=(3)
x#=0
y#=0
z#=0

text 100,100,"Computer Wins! PHTTTTT!!!!!"
text 300,100,"Thanks for playing!"
endif


sync
   loop

`set up enviroment
sync on
sync rate 40
hide mouse
gosub setup
balla#=rnd(45)+5
bluescore=0
redscore=0
do
   `set up sub routines
   gosub writing
   `if up or down is pressed move the paddles
   i$=lower$(inkey$())
   If i$="d" then bluepos#=bluepos#+.5
   if i$="a" then bluepos#=bluepos#-.5
   if i$="l" then redpos#=redpos#+.5
   if i$="j" then redpos#=redpos#-.5
   `restrict paddles
   if I$="d" and bluepos#>10
      bluepos#=bluepos#-.5
   endif
   if I$="a" and bluepos#<0
      bluepos#=bluepos#+.5
   endif
   if I$="l" and redpos#>10
      redpos#=redpos#-.5
   endif
   if I$="j" and redpos#<0
      redpos#=redpos#+.5
   endif
   `bounce the ball back from blue paddle
   if ballx#<-8.5 and ballx#>-9 and abs(bluepos#-ballz#)<2.5
      balla#=360-balla#
   endif
   `bounce the ball back from red paddle
   if ballx#>8.5 and ballx#<9 and abs(redpos#-ballz#)<2.5
      balla#=360-balla#
   endif
   `curve the ball when paddle moving
   if i$="a" and ballx#<-8.5 and ballx#>-9 then balla#=balla#-11
   if i$="d" and ballx#<-8.5 and ballx#>-9 then balla#=balla#+11
   if i$="j" and ballx#>8.5 and ballx#<9 then balla#=balla#-11
   if i$="l" and ballx#>8.5 and ballx#<9 then balla#=balla#+11
   `bounce from top and bottom walls
   if ballz#>10 or ballz#<0 then balla#=180-balla#
   ` WHAT TO DO IF BLUE WINS
   if ballx#>11
      balla#=45
      ballx#=0
      inc bluescore
   endif
   `WHAT TO DO IF RED WINS
   if ballx#<-11
      balla#=-45
      ballx#=0
      inc redscore
   endif
   if redscore>bluescore then color object 3,16711680
   if bluescore>redscore then color object 3,255
   if redscore=bluescore then color object 3,9868950
   `ball movement
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
   balla#=wrapvalue(balla#)
   yrotate object 3,balla#
   `position paddles and ball
   position object 1,9.5,1,redpos#
   position object 2,-9.5,1,bluepos#
   position object 3,ballx#,1,ballz#
   position object 4,0,-1,7
   position object 5,0,0,15
   sync
loop
end
setup:
`make right side paddle color it red
make object box 1,1,1,3
color object 1,16711680
`make left side padde and color it blue
make object box 2,1,1,3
color object 2,255
`make the ball color it grey
make object sphere 3,1
color object 3,9868950
`make the floor color it green
make object box 4,23,1,15
color object 4,65280
make object box 5,23,7,1
color object 5,65280
`background white
color backdrop 0
`put camera in position
position camera 0,8,-15
return
`scoretable sub routine
writing:
   `put the title in various colors
   ink 255,0
   set text size 30
   text 230,20,"3D"
   ink 16711680,0
   set text size 40
   text 270,20,"Pong"
   ink 16777215,0
   `set score table
   set cursor 20,10
   ink 255,0
   print "Blue Score: ";bluescore
   set cursor 540,10
   ink 16711680,0
   print "Red Score: ";redscore
return