Sorry your browser is not supported!

`--------------------
`Button Builder Elite
`--------------------
`--By Irojo----------
`--------------------
sync on:sync rate 30
ink rgb(50,50,50),0
center text 320,240,"Button Builder"
wait 400
ink rgb(155,155,155),0
set text size 40
center text 320,240,"ELITE"
wait 1000
cls
ink rgb(255,255,255),0
print "Please Select The Top Left Hand side of your button."
do
if mouseclick()=1
bx=mousex()
by=mousey()
exit
endif

sync
loop

hide mouse
dot bx,by
wait 100
print "Is this where you wanted it? (y)es/(n)o?"
show mouse
do
  if inkey$()="y" then exit
  if inkey$()="n" then gosub disconnect
 sync
loop
print "Location Accepted."
print "Please click and hold to select Box Width. Then Press (y) to confirm or (n) to exit"
print "Please click to begin."
suspend for mouse
do
 cls
  dot bx,by
  if mouseclick()=1 then nbx=mousex():nby=mousey()
  box bx,by,nbx,nby
  if inkey$()="y" then exit
  if inkey$()="n" then gosub disconnect
 sync
loop
wait 100
print "Button Created. Test? (y)es OR (s)kip to code OR (e)nd and lose data."
do
 if inkey$()="y" then exit
 if inkey$()="s" then gosub button_code
 if inkey$()="e" then gosub disconnect

 sync
loop

print "TEST SELECTED."
print "When You are finished Testing, press 'f' to finish testing, and get your code."
wait 4000
do
 cls
  box bx,by,nbx,nby
  if mousex()>=bx and mousex()<=nbx and mousey()>=by and mousey()<=nby and mouseclick()=1
   print "PRESSED"
  endif
  if inkey$()="f" then exit
 sync
loop


button_code:
print  "Your code is:"
print " "
print "if mousex()>=",bx," and mousex()<=",nbx," and mousey()>=",by," and mousey()<=",nby," and mouseclick()=1"
print " "
print "--------------"
print "Press A Key to exit."
print "Thank You for using Button Builder Elite."
suspend for key
end














disconnect:
cls
Print "Project has been canceled. Press (e) to exit."
repeat

sync
until inkey$()="e"

sync on:sync rate 30
ink rgb(50,50,50),0
center text 320,240,"Button Builder"
wait 400
ink rgb(155,155,155),0
set text size 40
center text 320,240,"ELITE"
wait 1000
cls
ink rgb(255,255,255),0
print "Please Select The Top Left Hand side of your button."
do
if mouseclick()=1
bx=mousex()
by=mousey()
exit
endif

sync
loop

hide mouse
dot bx,by
wait 100
print "Is this where you wanted it? (y)es/(n)o?"
show mouse
do
  if inkey$()="y" then exit
  if inkey$()="n" then gosub disconnect
 sync
loop
print "Location Accepted."
print "Please click and hold to select Box Width. Then Press (y) to confirm or (n) to exit"
print "Please click to begin."
suspend for mouse
do
 cls
  dot bx,by
  if mouseclick()=1 then nbx=mousex():nby=mousey()
  box bx,by,nbx,nby
  if inkey$()="y" then exit
  if inkey$()="n" then gosub disconnect
 sync
loop
wait 100
print "Button Created. Test? (y)es OR (s)kip to code OR (e)nd and lose data."
do
 if inkey$()="y" then exit
 if inkey$()="s" then gosub button_code
 if inkey$()="e" then gosub disconnect

 sync
loop

print "TEST SELECTED."
print "When You are finished Testing, press 'f' to finish testing, and get your code."
wait 4000
do
 cls
  box bx,by,nbx,nby
  if mousex()>=bx and mousex()<=nbx and mousey()>=by and mousey()<=nby and mouseclick()=1
   print "PRESSED"
  endif
  if inkey$()="f" then exit
 sync
loop


button_code:
print  "Your code is:"
print " "
print "if mousex()>=",bx," and mousex()<=",nbx," and mousey()>=",by," and mousey()<=",nby," and mouseclick()=1"
print " "
print "--------------"
print "Press a Key to exit."
print "This code will be written to your clipboard."
print "Once you paste the code to something, highlight the * and press enter."
print "Thank You for using Button Builder Elite."
wait 100
suspend for key
s1$="if mousex()>="
write to clipboard s1$+str$(bx)+" and mousex()<="+str$(nbx)+" and mousey()>="+str$(by)+" and mousey()<="+str$(nby)+" and mouseclick()=1 *box "+str$(bx)+","+str$(by)+","+str$(nbx)+","+str$(nby)
end








disconnect:
cls
Print "Project has been canceled. Press (e) to exit."
repeat

sync
until inkey$()="e"

FOR a=0 TO xpixels
    FOR b=0 TO ypixels
        DOT a,b,imagedata(a,b)
    NEXT b
NEXT a

r#=50
sync on:sync rate 0
center text 380,240,"Generating Sprites %:"
x=461
do
inc r#,.1
if r#>=250 then r#=200
ink rgb(255,255,255),0
center text 380,240,"Generating Sprites %:"
if z=500
ink rgb(r#,0,0),0
inc r#,1
center text x,240,"|":inc x,1:inc r,1:z=0
endif
inc z,5
if r=40 then exit
ink rgb(255,0,0),0
text 498,240,"]"
sync
loop
ink rgb(255,255,255),0
text 320,260,"Completed"
wait 1000
cls
hide mouse
x=320:y=240
for b=1 to 7
 read a
 if a=1 then box x,y,x+1,y+1
 inc x,3
next b
inc y,3
x=320
for c=1 to 7
 read b
 if b=1 then box x,y,x+1,y+1
 inc x,3
next c
inc y,3
x=320
for d=1 to 7
 read c
 if c=1 then box x,y,x+1,y+1
 inc x,3
next d
inc y,3
x=320
for e=1 to 7
 read d
 if d=1 then box x,y,x+1,y+1
 inc x,3
next e
inc y,3
x=320
for f=1 to 7
 read e
 if e=1 then box x,y,x+1,y+1
 inc x,3
next f
inc y,3
x=320
for g=1 to 7
 read f
 if f=1 then box x,y,x+1,y+1
 inc x,3
next g
inc y,3
x=320
for h=1 to 7
 read g
 if g=1 then box x,y,x+1,y+1
 inc x,3
next h
inc y,3
x=320
for i=1 to 7
 read h
 if h=1 then box x,y,x+1,y+1
 inc x,3
next i
inc y,3
x=320
for j=1 to 7
 read i
 if i=1 then box x,y,x+1,y+1
 inc x,3
next j

data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 1,0,1,1,1,0,1
data 0,1,0,1,0,1,0
data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0

get image 1,320,240,341,344
cls

x=320
y=240
for b=1 to 7
  restore pic2
  read a
  if a=1 then box x,y,x+1,y+1
 inc x,3
next b
inc y,3
x=320
for c=1 to 7
  restore pic2
  read b
  if b=1 then box x,y,x+1,y+1
 inc x,3
next c
inc y,3
x=320
for d=1 to 7
  restore pic2
  read c
  if c=1 then box x,y,x+1,y+1
 inc x,3
next d
inc y,3
x=320
for e=1 to 7
  restore pic2
  read d 
  if d=1 then box x,y,x+1,y+1
  inc x,3
next e
inc y,3
x=320
for f=1 to 7
  restore pic2
  read e
  if e=1 then box x,y,x+1,y+1
  inc x,3
next f
inc y,3
x=320
for g=1 to 7
  restore pic2
  read f
  if f=1 then box x,y,x+1,y+1
  inc x,3
next g
inc y,3
x=320
for h=1 to 7
  restore pic2
  read g
  if g=1 then box x,y,x+1,y+1
  inc x,3
next h
inc y,3
x=320
for i=1 to 7
  restore pic2
  read h
  if h=1 then box x,y,x+1,y+1
  inc x,3
next i
inc y,3
x=320
for j=1 to 7
  restore pic2
  read i
  if i=1 then box x,y,x+1,y+1
  inc x,3
next j
inc y,3
x=320
pic2:
data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 1,0,1,1,1,0,0
data 0,1,0,1,0,1,1
data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0

get image 2,320,240,341,344
cls


begin:
cls
for do=1 to 100
sync
ink rgb(0,rnd(200)+55,0),0
sync
box rnd(600),rnd(600),rnd(600),rnd(600)
sync
next do





n#=rnd(400)+50:r#=rnd(400)+50
x#=520:y#=400
ink rgb(255,255,0),0
center text n#,r#,"*"
do
  sprite 1,x#,y#,1
  if x#<n#+5 and x#>n#-5 and y#<r#+5 and y#>n#+5 then goto redo
  if rightkey()=1 then inc x#,.1
  
  if leftkey()=1 then dec x#,.1
  if upkey()=1 then dec y#,.1
  if downkey()=1 then inc y#,.1
 sync
loop




redo:
score#=score#+1
center text 320,240,"You Got The Star!"
print score#
suspend for key
goto begin

function Create_Main_Paddles
ink rgb(255,0,0),0
box 0,0,10,50
get image 1,0,0,10,50
rem REMOVE SUSPEND FOR KEY AFTER VIEWING
suspend for key
cls
ink rgb(0,255,0),0
box 0,0,10,50
get image 2,0,0,10,50
rem REMOVE SUSPEND FOR KEY AFTER VIEWING
suspend for key
cls

endfunction

function create_main_paddles(ALL ARGUMENTS GO HERE SEPARATED BY COMMAS)

function Create_Main_Paddles(image1,image2)
ink rgb(255,0,0),0
box 0,0,10,50
get image image1,0,0,10,50
rem REMOVE SUSPEND FOR KEY AFTER VIEWING
suspend for key
cls
ink rgb(0,255,0),0
box 0,0,10,50
get image image2,0,0,10,50
rem REMOVE SUSPEND FOR KEY AFTER VIEWING
suspend for key
cls

endfunction

function Ball_generate(image3,radius)
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction

Did I actually getcha? :P

`*Main Loop
DO
 input "What do you want to do? "; a$
 if upper$(a$) ="COOK" then gosub cook
LOOP

`------------------------
` Subroutines
`------------------------
cook:
 input "What shall we cook? "; food$
 food$= upper$(food$)
 if food$ ="CAKE" then duration= 3
 if food$ ="MACARONI CHEESE" then duration= 4
 if food$ ="ROAST CHICKEN" then duration= 6

 rem Call the oven function
 oven(food$,duration)
return

`------------------------
` Functions
`------------------------
Function oven(food$,duration)
 print "Cooking, please wait."
 for n= 1 to duration*4
   print "|";
   wait 250
 next n

 print
 print "Your "; food$; " is cooked!"
Endfunction

`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400

x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
print "    Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " The Arrow keys are used to set the pensize."
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" On the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."

do
  if returnkey()=1 then gosub the_program
 sync
loop




the_program:
cls
programsbegin:
currentx=320
currenty=240


do

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1


line 600,400,700,400
line 600,400,600,600



    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#


 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop





do
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif



set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

remend
 sync
loop

sync on:sync rate 30
ink rgb(50,50,50),0
center text 320,240,"Button Builder"
wait 400
ink rgb(155,155,155),0
set text size 40
center text 320,240,"ELITE"
wait 1000
cls
ink rgb(255,255,255),0
print "Please Select The Top Left Hand side of your button."
do
if mouseclick()=1
bx=mousex()
by=mousey()
exit
endif

sync
loop

hide mouse
dot bx,by
wait 100
print "Is this where you wanted it? (y)es/(n)o?"
show mouse
do
  if inkey$()="y" then exit
  if inkey$()="n" then gosub disconnect
 sync
loop
print "Location Accepted."
print "Please click and hold to select Box Width. Then Press (y) to confirm or (n) to exit"
print "Please click to begin."
suspend for mouse
do
 cls
  dot bx,by
  if mouseclick()=1 then nbx=mousex():nby=mousey()
  box bx,by,nbx,nby
  if inkey$()="y" then exit
  if inkey$()="n" then gosub disconnect
 sync
loop
wait 100
print "Button Created. Test? (y)es OR (s)kip to code OR (e)nd and lose data."
do
 if inkey$()="y" then exit
 if inkey$()="s" then gosub button_code
 if inkey$()="e" then gosub disconnect

 sync
loop

print "TEST SELECTED."
print "When You are finished Testing, press 'f' to finish testing, and get your code."
wait 4000
do
 cls
  box bx,by,nbx,nby
  if mousex()>=bx and mousex()<=nbx and mousey()>=by and mousey()<=nby and mouseclick()=1
   print "PRESSED"
  endif
  if inkey$()="f" then exit
 sync
loop


button_code:
print  "Your code is:"
print " "
print "if mousex()>=",bx," and mousex()<=",nbx," and mousey()>=",by," and mousey()<=",nby," and mouseclick()=1"
print " "
print "--------------"
print "Press a Key to exit."
print "This code will be written to your clipboard."
print "Once you paste the code to something, highlight the * and press enter."
print "Thank You for using Button Builder Elite."
wait 100
suspend for key
s1$="if mousex()>="
write to clipboard s1$+str$(bx)+" and mousex()<="+str$(nbx)+" and mousey()>="+str$(by)+" and mousey()<="+str$(nby)+" and mouseclick()=1 *box "+str$(bx)+","+str$(by)+","+str$(nbx)+","+str$(nby)
end






disconnect:
cls
Print "Project has been canceled. Press (e) to exit."
repeat

sync
until inkey$()="e"

   
y=240
sync on:sync rate 0:hide mouse
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row

`--Standard--
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 1,0,1,1,1,0,1,0
data 0,1,0,1,0,1,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0
get image 1,320,233,349,270
y=240
cls
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row
set text  opaque
`x=320 349
`y=233 270
get image 2,320,233,349,270
cls
`--Jumping--
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,1,1,1,1,1,0,0
data 1,0,1,1,1,0,1,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0

 

y=240
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row

`--Idle--

data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,1,1,1,1,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0
get image 3,320,233,349,270







sync rate 70
x#=320
y#=240 
cls 
do
  cls
    oy#=y#
  if ground=0 and timer=0 then inc y#,4

if ground=1 and rightkey()=1 then inc x#,1:sprite 1,x#,y#,3:reveal=1:recent=2
if ground=1 and leftkey()=1 then dec x#,1:sprite 1,x#,y#,3:reveal=1:recent=1
if ground=0 and rightkey()=1 then inc x#,.5:recent=2
if ground=0 and leftkey()=1 then dec x#,.5:recent=1
  if shiftkey()=1 and rightkey()=1 then inc x#,1:recent=2
  if shiftkey()=1 and leftkey()=1 then dec x#,1:recent=1
  if spacekey()=1 and ground=1
      line 0,478,800,478
     do
      text 0,0,"current y:"+str$(y#)
      box 0,440,80,478
      dec y#,1.1
   sprite 1,x#,y#,2
      if rightkey()=1 then inc x#,.5
      if leftkey()=1 then dec x#,.5
      inc y#,.1
      sync
      if y#=oy#-40 then exit
      line 0,478,800,478
     loop
   begin_timer=1
  endif
  
  sprite 1,x#,y#,1


  if y#<=401 then gravity=0
  if y#>=440 then ground=1 else ground=0
  line 0,478,800,478

  if begin_timer=1
   inc timer,1
   if timer=5
    timer=0
    begin_timer=0
   endif
  endif
  
  if reveal=1
   inc revtime,1
   sprite 1,x#,y#,3
   if revtime=1
    revtime=0
    reveal=0
   endif
  endif

  if scancode()=207 and recent=2
   `Attack -->
  print "----------------------->"
  endif

  if scancode()=207 and recent=1
   `<-- Attack
  print "<-----------------------"
  endif
  if scancode()=207 and recent=0
   `Do Nothing
  endif
`text 0,0,"current y:"+str$(y#)
  box 0,440,80,478
  sync
loop

Function MovePaddles()

movey=(upkey()*3)+(downkey()*3)

rem Ai - I'm still writing it...
rem for now, just a basic true false routine should do... 

if bally=>player2y then Aimovey=3
if bally=<player2y then Aimovey=-3
if bally=player2y then Aimovey=0

endfunction

Function DisplayPaddles()
rem i'm guessing that the ball will be sprite 1, right??


sprite 2,player1x,player1y+movey,paddle1img
sprite 3,player2x,player2y+Aimovey,paddle2img


endfunction 

Function Move_ball()
sprite 1,ballx,bally,ballimg

Rem get direction...
if d=0 then d=1

ballx=ballx+d*2

`might need to be "sprite hit"...
if sprite collision(0,1)=1 and d=1 then d=-1 
if sprite collision(0,1)=1 and d=0 then d=1 
if sprite collision(0,1)=1 and d=-1 then d=1 

if bally=<5 then speedy=Rnd(3)+1
if bally=>300 then speedy=Rnd(3)+1 : speedy=speedy*-1

rem this is for ball animation..
inc a
if a=>totalballframes then a=startballframe  

sprite 1,ballx,bally,Ballimages(a)

endfunction

sync on
`Score Display for Pong
set text font "Times new roman"
set text size 12
do:cls
  set text size 12
  ink rgb(255,255,255),0
  oldscore#=pscore#

    `game actions here:
     if mouseclick()=1 then inc pscore#,1
    `------------------

  set text size 18
  text 150,0,"Player 1 Score:"+str$(pscore#)
  text 450,0,"CPU Score:"+str$(cpuscore#)
  set text size 12
  `Score Display
  if pscore#>oldscore#
   scores_beginning_trigger=1
  endif
  if scores_beginning_trigger=1
   if timerforscore>=20 then scores_beginning_trigger=0:timerforscore=-1
   if timerforscore<20 then inc timerforscore,1
  endif
  if timerforscore>0 
   ink rgb(255,0,0),0
  `Different Images At Different Times
   if timerforscore=1 then set text size 12:center text 320,0,"Player SCORE!"
   if timerforscore=2 then set text size 13:center text 320,0,"Player SCORE!"
   if timerforscore=4 then set text size 14:center text 320,0,"Player SCORE!"
   if timerforscore=6 then set text size 16:center text 320,0,"Player SCORE!"
   if timerforscore=8 then set text size 18:center text 320,0,"Player SCORE!"
   if timerforscore=10 then set text size 20:center text 320,0,"Player SCORE!"
   if timerforscore=12 then set text size 24:center text 320,0,"Player SCORE!"
   if timerforscore=14 then set text size 28:center text 320,0,"Player SCORE!"
   if timerforscore=16 then set text size 32:center text 320,0,"Player SCORE!"
   if timerforscore=18 then set text size 36:center text 320,0,"Player SCORE!"
  endif
  sync
loop

sync rate 0

direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1

Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1


do:cls
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  bx#=bx#*direct
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1

  if upkey()=1 then dec p1y#,.5
  if downkey()=1 then inc p1y#,.5

  if r=1 then inc bx#,1
  if r=2 then dec bx#,1
  if returnkey()=1 then dec cy#,1
  sync
loop













function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction

`-------------------------------------
`The Noob Game Devolopement Team: Pong
`-------------------------------------








`Intro:



center text 320,240,"Loading Sprites..."
wait 400





sync rate 0

direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1

Generate_Pong_Image
Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1
sync rate 0

do:cls rgb(15,25,15)
  sprite 4,280,0,4
  if p1y#>=420 then disable=1 else disable=0
  if p1y#<=0 then disable_2=1 else disable_2=0
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  if bx#>=638 then bx#=320:r=2:by#=240
  bx#=bx#*direct
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1
  if bx#<=1 then bx#=320:r=1
  if upkey()=1 and disable_2=0 then dec p1y#,.5
  if downkey()=1 and disable=0 then inc p1y#,.5
  if returnkey()=1 then inc cy#,1
  if r=1 then inc bx#,1
  if r=2 then dec bx#,1

 ` Determine Sprite Collision and flip "Pong" symbol.
  if sprite collision(2,1) then oldp#=p1y#:start=1:inc pscore#:flip sprite 4
  if sprite collision(3,1) then oldp#=cy#:start=1:inc cpuscore#:flip sprite 4

  if start=1
   if oldp#<by# then dec by#,.05
   if oldp#>by# then inc by#,.05
   if by#<oldp# and bx#>200 then inc by#,.09
   if oldp#=by# then start=0
  endif

  `--Handle CPU--
  perfection=rnd(1)
  if by#>cy# and perfection=1 then inc cy#,.06
  if by#<cy# and perfection=1 then dec cy#,.06

  `--|Handle CPU|--


  ink rgb(255,10,0),0
  set text size 20
  center text 140,0,"P1 Score:"+str$(pscore#)
  ink rgb(10,255,10),0
  set text size 20
  center text 500,0,"CPU Score:"+str$(cpuscore#)
  ink rgb(255,255,255),0
  text 280,100,"   Score to win: 50"
  if pscore#=50 then end
  if cpuscore#=50 then end

  sync
loop










`----------FUNCTIONS---------


function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction




function Generate_Pong_Image
sync on:sync rate 0
y=0
sync
for row=0 to 8
   inc y,8
   x=0
   for col=0 to 16
      sync
      ink rgb(0,255,0),0
      inc x,6
      read somedata
      if somedata=1
         box x,y,x+4,y+4
      endif
     sync
   next col
sync
next row


data 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0
data 0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0
data 0,0,1,0,0,1,1,1,0,1,0,1,0,1,1,1,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0
get image 4,0,0,200,70


cls






sync rate 30
ink rgb(255,255,255),0
endfunction

`-------------------------------------
`The Noob Game Devolopement Team: Pong
`-------------------------------------







`Intro:



center text 320,240,"Loading Sprites..."
wait 400





sync rate 0

direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1

Generate_Pong_Image
Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1
sync rate 0

do:cls rgb(15,25,15)
  sprite 4,280,0,4
  if p1y#>=420 then disable=1 else disable=0
  if p1y#<=0 then disable_2=1 else disable_2=0
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  `--Reset if Ball passes Player's side---
    if bx#>=638 then bx#=320:r=2:by#=240:wait 1000
    if bx#<=1 then bx#=320:r=1:y#=240:wait 1000
  `--|Reset if Ball passes Player's side|---
  `Change Directions for ball maintenance
  bx#=bx#*direct
  `--------
  `Sprite collision to check sides
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1

  if upkey()=1 and disable_2=0 then dec p1y#,.5
  if downkey()=1 and disable=0 then inc p1y#,.5
  if returnkey()=1 then inc cy#,1
  if r=1 then inc bx#,1
  if r=2 then dec bx#,1

 ` Determine Sprite Collision and flip "Pong" symbol.
  if sprite collision(2,1) then oldp#=p1y#:start=1:inc pscore#:flip sprite 4
  if sprite collision(3,1) then oldp#=cy#:start=1:inc cpuscore#:flip sprite 4

  if start=1
   if oldp#<by# then dec by#,.05
   if oldp#>by# then inc by#,.05
   if by#<oldp# and bx#>200 then inc by#,.09
   if oldp#=by# then start=0
  endif

  `--Handle CPU--
  perfection=rnd(1)
  if by#>cy# and perfection=1 then inc cy#,.06
  if by#<cy# and perfection=1 then dec cy#,.06

  `--|Handle CPU|--


  ink rgb(255,10,0),0
  set text size 20
  center text 140,0,"P1 Score:"+str$(pscore#)
  ink rgb(10,255,10),0
  set text size 20
  center text 500,0,"CPU Score:"+str$(cpuscore#)
  ink rgb(255,255,255),0
  text 280,100,"   Score to win: 30"
  if pscore#=30 then gosub pwin
  if cpuscore#=30 then gosub cpuwin

  sync
loop










`----------FUNCTIONS---------


function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction




function Generate_Pong_Image
sync on:sync rate 0
y=0
sync
for row=0 to 8
   inc y,8
   x=0
   for col=0 to 16
      sync
      ink rgb(0,255,0),0
      inc x,6
      read somedata
      if somedata=1
         box x,y,x+4,y+4
      endif
     sync
   next col
sync
next row


data 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0
data 0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0
data 0,0,1,0,0,1,1,1,0,1,0,1,0,1,1,1,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0
get image 4,0,0,200,70


cls






sync rate 30
ink rgb(255,255,255),0
endfunction







pwin:
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
repeat
  cls rgb(0,255,0):ink rgb(0,255,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  cls rgb(0,0,0):ink rgb(0,0,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  ten=ten+1
  sync
until ten=10
ink rgb(255,255,255),0
  center text 320,240,"You beat the CPU!"
end

cpuwin:
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
cls
center text 320,240,"Failure."
suspend for key
end

`-------------------------------------
`The Noob Game Devolopement Team: Pong
`-------------------------------------

`hide mouse





`Intro:
center text 320,240,"Loading Music..."
wait 400
load sound "hitball.wav",1
load sound "ping.wav",2
cls

center text 320,240,"Loading Sprites..."
wait 400





sync rate 0

direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1

Generate_Pong_Image

Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1
sync rate 0

do:cls rgb(15,25,15)
  sprite 4,280,0,4
  if p1y#>=420 then disable=1 else disable=0
  if p1y#<=0 then disable_2=1 else disable_2=0
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  `--Reset if Ball passes Player's side---
    if bx#>=638 then bx#=320:r=2:by#=240:t=0:wait 1000
    if bx#<=1 then bx#=320:r=1:y#=240:t=0:wait 1000
  `--|Reset if Ball passes Player's side|---
  `Change Directions for ball maintenance
  bx#=bx#*direct
  `--------
  `Sprite collision to check sides
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1

  if upkey()=1 and disable_2=0 then dec p1y#,.5
  if downkey()=1 and disable=0 then inc p1y#,.5
  if returnkey()=1 then inc cy#,1
  if r=1 then inc bx#,1
  if r=2 then dec bx#,1

 ` Determine Sprite Collision and flip "Pong" symbol. + play sound
  if sprite collision(2,1) then oldp#=p1y#:start=1:inc pscore#:flip sprite 4:play sound 1
  if sprite collision(3,1) then oldp#=cy#:start=1:inc cpuscore#:flip sprite 4:play sound 1

  if start=1
   if oldp#<by# then dec by#,.05
   `if oldp#+1<by# then mega_curve=1:play sound 2
   if oldp#>by# then inc by#,.05
   if by#<oldp#  then inc by#,.09
   if oldp#=by# then start=0
  endif

  `--Making Mega_curve

   If mega_curve=1
    if by#<478 then inc by#,curve#
    if curve#<2 then inc curve#,.4 
   endif

  `--|Making Mega_curve|--
  if by#>=479 then t=1
  if by#<=2 then t=2
print t

  if t=1 then dec by#,1
  if t=2 then inc by#,1

  `--Handle CPU--
  perfection=rnd(1)
  if by#>cy# and perfection=1 then inc cy#,.8
  if by#<cy# and perfection=1 then dec cy#,.8

  `--|Handle CPU|--


  ink rgb(255,10,0),0
  set text size 20
  center text 140,0,"P1 Score:"+str$(pscore#)
  ink rgb(10,255,10),0
  set text size 20
  center text 500,0,"CPU Score:"+str$(cpuscore#)
  ink rgb(255,255,255),0
  text 280,100,"   Score to win: 30"
  if pscore#=30 then gosub pwin
  if cpuscore#=30 then gosub cpuwin

  sync
loop










`----------FUNCTIONS---------


function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction




function Generate_Pong_Image
sync on:sync rate 0
y=0
sync
for row=0 to 8
   inc y,8
   x=0
   for col=0 to 16
      sync
      ink rgb(0,255,0),0
      inc x,6
      read somedata
      if somedata=1
         box x,y,x+4,y+4
      endif
     sync
   next col
sync
next row


data 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0
data 0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0
data 0,0,1,0,0,1,1,1,0,1,0,1,0,1,1,1,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0
get image 4,0,0,200,70


cls






sync rate 30
ink rgb(255,255,255),0
endfunction














`GAME ENDING VARIABLES
pwin:
play sound 2
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
repeat
  cls rgb(0,255,0):ink rgb(0,255,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  cls rgb(0,0,0):ink rgb(0,0,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  ten=ten+1
  play sound 2
  sync
until ten=10
ink rgb(255,255,255),0
  center text 320,240,"You beat the CPU!"

suspend for key
stop sound 2
end

cpuwin:
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
cls
center text 320,240,"Failure."
suspend for key
end

`-------------------------------------
`The Noob Game Devolopment Team: Pong
`-------------------------------------

hide mouse





`Intro:
center text 320,240,"Loading Music..."
wait 400
 `Rem these out if you don't have the sounds. They can be found under Media>Media Browser
 load sound "hitball.wav",1
 load sound "ping.wav",2
 load music "Dodge This.mid",3
cls

center text 320,240,"Loading Sprites..."
wait 400













sync rate 0
gree=155
direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1

Generate_Pong_Image

Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1
sync rate 0
create_mouse(5)
cls
generate_menu_sprites

ink rgb(0,255,0),0
`show mouse
do
  if music=0 and music_stop=0 then play music 3
  if music_stop=1 then stop music 3
  sprite 5,280,40,4
  sprite 6,mousex(),mousey(),5
  sprite 7,300,200,7
  sprite 8,300,230,8
  sprite 9,300,260,9
  `Scale the sprites to normal
  scale sprite 7,100:scale sprite 8,100:scale sprite 9,100
  if sprite collision(6,7) and mouseclick()=1 then exit
  if sprite collision(6,7) then scale sprite 7,120
  if sprite collision(6,8) and mouseclick()=1 then gosub Instructions
  if sprite collision(6,8) then scale sprite 8,120
  if sprite collision(6,9) and mouseclick()=1 then gosub Options
  if sprite collision(6,9) then scale sprite 9,120
  sync
loop

`Hide the Menu,cls and stop music
if music=0 then stop music 3:hide sprite 6:hide sprite 5:hide sprite 7:hide sprite 8:hide sprite 9:cls
`|Hide the Menu,cls and stop music|


hide mouse









do:cls rgb(15,25,15)
  sprite 4,280,0,4
  if p1y#>=420 then disable=1 else disable=0
  if p1y#<=0 then disable_2=1 else disable_2=0
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  `--Reset if Ball passes Player's side---
    if bx#>=638 then bx#=320:r=2:by#=240:t=0:wait 1000
    if bx#<=1 then bx#=320:r=1:y#=240:t=0:wait 1000
  `--|Reset if Ball passes Player's side|---
  `Change Directions for ball maintenance
  bx#=bx#*direct
  `--------
  `Sprite collision to check sides
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1

  if upkey()=1 and disable_2=0 then dec p1y#,.5
  if downkey()=1 and disable=0 then inc p1y#,.5
  if returnkey()=1 then inc cy#,1
  if r=1 then inc bx#,1
  if r=2 then dec bx#,1

 ` Determine Sprite Collision and flip "Pong" symbol. + play sound
  if sprite collision(2,1) then oldp#=p1y#:start=1:inc pscore#:flip sprite 4:if sound=0 then play sound 1
  if sprite collision(3,1) then oldp#=cy#:start=1:inc cpuscore#:flip sprite 4:if sound=0 then play sound 1

  if start=1
   if oldp#<by# then dec by#,.05
   if oldp#+1<by# then mega_curve=1:`play sound 2
   if oldp#>by# then inc by#,.05
   if by#<oldp#  then inc by#,.09
   if oldp#=by# then start=0
  endif

  `--Making Mega_curve

   If mega_curve=1
    if by#<478 then inc by#,curve#
    if curve#<1 then inc curve#,.01
   endif

  `--|Making Mega_curve|--
  if by#>=479 then t=1
  if by#<=2 then t=2
print t

  if t=1 then dec by#,1
  if t=2 then inc by#,1

  `--Handle CPU--
  perfection=rnd(1)
  if by#>cy# and perfection=1 then inc cy#,.8
  if by#<cy# and perfection=1 then dec cy#,.8

  `--|Handle CPU|--

  ink rgb(255,10,0),0
  set text size 20
  center text 140,0,"P1 Score:"+str$(pscore#)
  ink rgb(10,255,10),0
  set text size 20
  center text 500,0,"CPU Score:"+str$(cpuscore#)
  ink rgb(255,255,255),0
  text 280,100,"   Score to win: 30"
  if pscore#=30 then gosub pwin
  if cpuscore#=30 then gosub cpuwin

  sync
loop










`----------FUNCTIONS---------


function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction




function Generate_Pong_Image
sync on:sync rate 0
y=0
sync
for row=0 to 8
   inc y,8
   x=0
   for col=0 to 16
      sync
      ink rgb(0,255,0),0
      inc x,6
      read somedata
      if somedata=1
         box x,y,x+4,y+4
      endif
     sync
   next col
sync
next row


data 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0
data 0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0
data 0,0,1,0,0,1,1,1,0,1,0,1,0,1,1,1,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0
get image 4,0,0,200,70


cls






sync rate 30
ink rgb(255,255,255),0
endfunction






function create_mouse(radius)

ink rgb(100,g,100),0
  while radius>0
    ink rgb(100,gre,100),0
    dec gre,10
    dec radius,1
    circle 320,240,radius
    sync
  endwhile
get image 5,300,200,340,260


endfunction


function generate_menu_sprites
ink rgb(100,200,50),0
text 0,0,"Play"
get image 7,0,0,50,50
cls
ink rgb(20,100,200),0
text 0,0,"Instructions"
get image 8,0,0,100,50
cls
ink rgb(255,20,20),0
text 0,0,"Options"
get image 9,0,0,80,50
cls
endfunction






`GAME ENDING VARIABLES
pwin:
if sound=0 then play sound 2
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
repeat
  cls rgb(0,255,0):ink rgb(0,255,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  cls rgb(0,0,0):ink rgb(0,0,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  ten=ten+1
  if sound=0 then play sound 2
  sync
until ten=10
ink rgb(255,255,255),0
  center text 320,240,"You beat the CPU!"

suspend for key
stop sound 2
end

cpuwin:
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
cls
center text 320,240,"Failure."
suspend for key
end
`|GAME ENDING VARIABLES|



`MENU
  Instructions:
  cls
  print "Use your paddle to Keep the Ball alive.. and get it past your opponent!"
  print "Press a Key to Begin."
  suspend for key
  cls
  return
  Options:
  cls
  print "Sound On?"
  print "(y)es (n)o"
   do
     if inkey$()="y" then sound=0:cls:exit
     if inkey$()="n" then sound=1:music_stop=1:cls:return
    sync
   loop
   if music_stop=1 then music_stop=0:play music 3
  return
`|MENU|
end

`-------------------------------------
`The Noob Game Devolopment Team: Pong
`-------------------------------------

hide mouse



`set this to 1 if you don't have the music/sound
`You cannot enter Options if you don't have music/sound
music=0
`Intro:
center text 320,240,"Loading Music..."
wait 400
 `Rem these out if you don't have the sounds. Then set music to 1. They can be found under Media>Media Browser
 load sound "hitball.wav",1
 load sound "ping.wav",2
 load music "Dodge This.mid",3
 load music "wind.wav",1: `This is actually found under Sound, but it doesn't repeat it so much if i label it music
cls

center text 320,240,"Loading Sprites..."
wait 400













sync rate 0
gree=155
direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1

Generate_Pong_Image

Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1
sync rate 0
create_mouse(5)
cls
generate_menu_sprites

ink rgb(0,255,0),0

do
  if music=0 then play music 3
  if music_stop=1 then stop music 3
  sprite 5,280,40,4
  sprite 6,mousex(),mousey(),5
  sprite 7,300,200,7
  sprite 8,300,230,8
  sprite 9,300,260,9
  `Scale the sprites to normal
  scale sprite 7,100:scale sprite 8,100:scale sprite 9,100
  if sprite collision(6,7) and mouseclick()=1 then exit
  if sprite collision(6,7) then scale sprite 7,120
  if music=0 and sprite collision(6,7) then play music 1
  if sprite collision(6,8) and mouseclick()=1 then gosub Instructions
  if sprite collision(6,8) then scale sprite 8,120
  if music=0 and sprite collision(6,8) then play music 1
  if sprite collision(6,9) and mouseclick()=1 then gosub Options
  if sprite collision(6,9) then scale sprite 9,120
  if music=0 and sprite collision(6,9) then play music 1
  if music=0 then stop music 1


  sync
loop

`Hide the Menu,cls and stop music
if music=1 then stop music 3
hide sprite 6:hide sprite 5:hide sprite 7:hide sprite 8:hide sprite 9:cls
`|Hide the Menu,cls and stop music|


hide mouse









do:cls rgb(15,25,15)
  `if music=0 then loop music 3
  print screen fps()
  sprite 4,280,0,4
  if p1y#>=420 then disable=1 else disable=0
  if p1y#<=0 then disable_2=1 else disable_2=0
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  `--Reset if Ball passes Player's side---
    if bx#>=638 then bx#=320:r=2:by#=240:t=0:wait 1000
    if bx#<=1 then bx#=320:r=1:y#=240:t=0:wait 1000
  `--|Reset if Ball passes Player's side|---
  `Change Directions for ball maintenance
  bx#=bx#*direct
  `--------
  `Sprite collision to check sides
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1

  if upkey()=1 and disable_2=0 then dec p1y#,.5
  if downkey()=1 and disable=0 then inc p1y#,.5
  if returnkey()=1 then inc cy#,1
  if r=1 then inc bx#,1
  if r=2 then dec bx#,1

 ` Determine Sprite Collision and flip "Pong" symbol. + play sound
  if sprite collision(2,1) then oldp#=p1y#:start=1:inc pscore#:flip sprite 4
  if sprite collision(3,1) then oldp#=cy#:start=1:inc cpuscore#:flip sprite 4
  if sprite collision(2,1) and music=0 then play sound 1
  if sprite collision(3,1) and music=0 then play sound 1

  if start=1
   if oldp#<by# then dec by#,.05
   if oldp#+1<by# then mega_curve=1:`play sound 2
   if oldp#>by# then inc by#,.05
   if by#<oldp#  then inc by#,.09
   if oldp#=by# then start=0
  endif

  `--Making Mega_curve

   If mega_curve=1 and hit=0
    if by#<478 then inc by#,curve#
    if curve#<1 then inc curve#,.01
   endif
    if by#<=400 then hit=1
  `--|Making Mega_curve|--
  if by#>=479 then t=1
  if by#<=2 then t=2
print t

  if t=1 then dec by#,1
  if t=2 then inc by#,1

  `--Handle CPU--
  perfection=rnd(1)
  if by#>cy# and perfection=1 then inc cy#,.8
  if by#<cy# and perfection=1 then dec cy#,.8

  `--|Handle CPU|--

  ink rgb(255,10,0),0
  set text size 20
  center text 140,0,"P1 Score:"+str$(pscore#)
  ink rgb(10,255,10),0
  set text size 20
  center text 500,0,"CPU Score:"+str$(cpuscore#)
  ink rgb(255,255,255),0
  text 280,100,"   Score to win: 30"
  if pscore#=30 then gosub pwin
  if cpuscore#=30 then gosub cpuwin

  sync
loop










`----------FUNCTIONS---------


function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction




function Generate_Pong_Image
sync on:sync rate 0
y=0
sync
for row=0 to 8
   inc y,8
   x=0
   for col=0 to 16
      sync
      ink rgb(0,255,0),0
      inc x,6
      read somedata
      if somedata=1
         box x,y,x+4,y+4
      endif
     sync
   next col
sync
next row


data 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0
data 0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0
data 0,0,1,0,0,1,1,1,0,1,0,1,0,1,1,1,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0
get image 4,0,0,200,70


cls






sync rate 30
ink rgb(255,255,255),0
endfunction






function create_mouse(radius)

ink rgb(100,g,100),0
  while radius>0
    ink rgb(100,gre,100),0
    dec gre,10
    dec radius,1
    circle 320,240,radius
    sync
  endwhile
get image 5,300,200,340,260


endfunction


function generate_menu_sprites
ink rgb(100,200,50),0
text 0,0,"Play"
get image 7,0,0,50,50
cls
ink rgb(20,100,200),0
text 0,0,"Instructions"
get image 8,0,0,100,50
cls
ink rgb(255,20,20),0
text 0,0,"Options"
get image 9,0,0,80,50
cls
endfunction






`GAME ENDING VARIABLES
pwin:
if sound=0 and music=0 then play sound 2
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
repeat
  cls rgb(0,255,0):ink rgb(0,255,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  cls rgb(0,0,0):ink rgb(0,0,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  ten=ten+1
  if sound=0 and music=0 then play sound 2
  sync
until ten=10
ink rgb(255,255,255),0
  center text 320,240,"You beat the CPU!"

suspend for key
stop sound 2
end

cpuwin:
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
cls
center text 320,240,"Failure."
suspend for key
end
`|GAME ENDING VARIABLES|



`MENU
  Instructions:
  cls
  print "Use your paddle to Keep the Ball alive.. and get it past your opponent!"
  print "Press a Key to Begin."
  suspend for key
  cls
  return
  Options:
  cls
  print "Sound On?"
  print "(y)es (n)o"
   do
     if inkey$()="y" then sound=0:cls:exit
     if inkey$()="n" then sound=1:music_stop=1:cls:return
    sync
   loop
   if music_stop=1 then music_stop=0:play music 3
  return
`|MENU|
end

`Project Goals:
`-Better Physics
`-Powerups (after physics)
`-Intro/Team Logo
`-Credits
`-Levels
`-Bosses






`-------------------------------------
`The Noob Game Devolopment Team: Pong
`-------------------------------------

hide mouse



`set this to 1 if you don't have the music/sound
`You cannot enter Options if you don't have music/sound
music=0
`Intro:
center text 320,240,"Loading Music..."

 `Rem these out if you don't have the sounds. Then set music to 1. They can be found under Media>Media Browser
 load sound "hitball.wav",1
 load sound "ping.wav",2
 load music "Dodge This.mid",3
 load music "wind.wav",1: `This is actually found under Sound, but it doesn't repeat it so much if i label it music
 load music "Guess.mid",2
cls

center text 320,240,"Loading Numerals.."

cls












sync rate 0
gree=155
direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1
center text 320,240,"Loading Sprites..."
Generate_Pong_Image

Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1
sync rate 0
create_mouse(5)
cls
generate_menu_sprites

ink rgb(0,255,0),0
redo:
`!-------=========---=THE MAIN LOOP FOR MENU---========------!
do
  if music=0 then play music 3
  if music_stop=1 then stop music 3
  sprite 5,280,40,4
  sprite 6,mousex(),mousey(),5
  sprite 7,300,200,7
  sprite 8,300,230,8
  sprite 9,300,260,9
  `Scale the sprites to normal
  scale sprite 7,100:scale sprite 8,100:scale sprite 9,100
  if sprite collision(6,7) and mouseclick()=1 then exit
  if sprite collision(6,7) then scale sprite 7,120
  if music=0 and sprite collision(6,7) then play music 1
  if sprite collision(6,8) and mouseclick()=1 then gosub Instructions
  if sprite collision(6,8) then scale sprite 8,120
  if music=0 and sprite collision(6,8) then play music 1
  if sprite collision(6,9) and mouseclick()=1 then gosub Options
  if sprite collision(6,9) then scale sprite 9,120
  if music=0 and sprite collision(6,9) then play music 1
  if music=0 then stop music 1
  

  sync
loop
`!-------=========---=|THE MAIN LOOP FOR MENU|---========------!
`Hide the Menu,cls and stop music
if music=1 then stop music 3
hide sprite 6:hide sprite 5:hide sprite 7:hide sprite 8:hide sprite 9:cls
`|Hide the Menu,cls and stop music|


hide mouse







`-------=========---=THE MAIN LOOP FOR PONG---========------

do:cls rgb(15,25,15)
  `if music=0 then loop music 3
  print screen fps()
  sprite 4,280,0,4
  if p1y#>=420 then disable=1 else disable=0
  if p1y#<=0 then disable_2=1 else disable_2=0
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  `--Reset if Ball passes Player's side---
    if bx#>=638 then bx#=320:r=2:by#=240:t=0:wait 1000
    if bx#<=1 then bx#=320:r=1:y#=240:t=0:wait 1000
  `--|Reset if Ball passes Player's side|---
  `Change Directions for ball maintenance
  bx#=bx#*direct
  `--------
  `Sprite collision to check sides
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1

  if upkey()=1 and disable_2=0 then dec p1y#,.5
  if downkey()=1 and disable=0 then inc p1y#,.5
  if returnkey()=1 then inc cy#,1
  if r=1 then inc bx#,1
  if r=2 then dec bx#,1

 ` Determine Sprite Collision and flip "Pong" symbol. + play sound
  if sprite collision(2,1) then oldp#=p1y#:start=1:flip sprite 4:scorewait_1=1
  if sprite collision(3,1) then oldp#=cy#:start=1:flip sprite 4:scorewait_2=1
  if sprite collision(2,1) and music=0 then play sound 1
  if sprite collision(3,1) and music=0 then play sound 1
  if sprite collision(2,1) and scorewait=0 and waiting1=0 then inc pscore#,1
  if sprite collision(3,1) and scorewait2=0 and waiting2=0 then inc cpuscore#,1
  if start=1
   if oldp#<by# then dec by#,.05
   if oldp#+1<by# then mega_curve=1:`play sound 2
   if oldp#>by# then inc by#,.05
   if by#<oldp#  then inc by#,.09
   if oldp#=by# then start=0
  endif
  print "waiting1:",waiting1
  print "waiting2:",waiting2
  if scorewait_1=1
   if waiting1<490 then inc waiting1,1 else scorewait=0:waiting1=0:scorewait_1=0
  endif

  if scorewait_2=1
   if waiting2<500 then inc waiting2,1 else scorewait2=0:waiting2=0:scorewait_2=0
  endif
  `--Making Mega_curve

   If mega_curve=1 and hit=0
    if by#<478 then inc by#,curve#
    if curve#<1 then inc curve#,.01
   endif
    if by#<=400 then hit=1
  `--|Making Mega_curve|--
  if by#>=479 then t=1
  if by#<=2 then t=2
print t

  if t=1 then dec by#,1
  if t=2 then inc by#,1

  `--Handle CPU--
  perfection=rnd(1)
  if by#>cy# and perfection=1 then inc cy#,.8
  if by#<cy# and perfection=1 then dec cy#,.8

  `--|Handle CPU|--

  ink rgb(255,10,0),0
  set text size 20
  center text 140,0,"P1 Score:"+str$(pscore#)
  ink rgb(10,255,10),0
  set text size 20
  center text 500,0,"CPU Score:"+str$(cpuscore#)
  ink rgb(255,255,255),0
  text 280,100,"   Score to win: 30"
  if pscore#=30 then gosub pwin
  if cpuscore#=30 then gosub cpuwin

  sync
loop
`-------=========---=|THE MAIN LOOP FOR PONG|---========------









`----------FUNCTIONS---------


function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction




function Generate_Pong_Image
sync on:sync rate 0
y=0
sync
for row=0 to 8
   inc y,8
   x=0
   for col=0 to 16
      sync
      ink rgb(0,255,0),0
      inc x,6
      read somedata
      if somedata=1
         box x,y,x+4,y+4
      endif
     sync
   next col
sync
next row


data 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0
data 0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0
data 0,0,1,0,0,1,1,1,0,1,0,1,0,1,1,1,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0
get image 4,0,0,200,70


cls






sync rate 30
ink rgb(255,255,255),0
endfunction






function create_mouse(radius)

ink rgb(100,g,100),0
  while radius>0
    ink rgb(100,gre,100),0
    dec gre,10
    dec radius,1
    circle 320,240,radius
    sync
  endwhile
get image 5,300,200,340,260


endfunction


function generate_menu_sprites
ink rgb(100,200,50),0
text 0,0,"Play"
get image 7,0,0,50,50
cls
ink rgb(20,100,200),0
text 0,0,"Instructions"
get image 8,0,0,100,50
cls
ink rgb(255,20,20),0
text 0,0,"Options"
get image 9,0,0,80,50
cls
endfunction






`GAME ENDING VARIABLES
pwin:
if sound=0 and music=0 then play sound 2
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
repeat
  cls rgb(0,255,0):ink rgb(0,255,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  cls rgb(0,0,0):ink rgb(0,0,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  ten=ten+1
  if sound=0 and music=0 then play sound 2
  sync
until ten=10
ink rgb(255,255,255),0
  center text 320,240,"You beat the CPU!"

suspend for key
stop sound 2
end

cpuwin:
if sound=0 and music=0 then stop music 3
if sound=0 and music=0 then play music 2
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
cls
center text 320,240,"Failure."
suspend for key
end
`|GAME ENDING VARIABLES|



`MENU
  Instructions:
5yy=40
5xx=280
7xx=300
7yy=200
8xx=300
8yy=230
9xx=300
9yy=260
  flip sprite 7
  mirror sprite 9
bigger=100
smaller#=100
smallval#=.005
do:cls
  if smaller#>=1 then dec smaller#,smallval# else exit
  if bigger<200 then inc bigger,1
  if bigger=200 and 8yy>40 then dec 8yy,1
  if bigger=200 and 8yy=40 and 8xx>220 then dec 8xx,1
  if music=0 then play music 3
  if music_stop=1 then stop music 3
  sprite 5,5xx,5yy,4
  sprite 6,mousex(),mousey(),5
  sprite 7,7xx,7yy,7
  sprite 8,8xx,8yy,8
  sprite 9,9xx,9yy,9
  7xx=7xx+2
  if 9xx<0 then 9xx=9xx-1
  if 9yy<500 then 9yy=9yy+1
  scale sprite 8,bigger
  scale sprite 5,smaller#
  
  inc smallval#,.002
  sync
loop

sync

  cls
  print
  print
  print
  print
  print
  print
  print "                              Use your paddle to Keep the Ball alive.. and get it past your opponent!"
  print "                                                       Press a Key to Begin."
  suspend for key
  cls
  flip sprite 7
  mirror sprite 9
  scale sprite 5,100
  gosub redo
  

  Options:
  sprite_x#=280
  huge_=100
  do
      sprite 5,sprite_x#,40,4
      scale sprite 5,huge_
      if huge_<500 then inc huge_,1 else exit
      dec sprite_x#,.5
    sync
  loop
  hide sprite 7
  hide sprite 8
  hide sprite 9
  cls
  ink rgb(255,0,0),0
  center text 490,290,"Sound On?"
  center text 490,310,"(y)es (n)o"
  set text size 80
  center text 490,90,"Options"
   do
     if inkey$()="y" then sound=0:cls:exit
     if inkey$()="n"
      sound=1:music_stop=1:cls
      set text size 10
      show sprite 7
      show sprite 8
      show sprite 9
      scale sprite 5,100
      return
     endif
    sync
   loop
   if music_stop=1 then music_stop=0:play music 3
      show sprite 7
      show sprite 8
      show sprite 9
      scale sprite 5,100
  set text size 10
  return
`|MENU|
end

`Project Goals:
`-Better Physics
`-Powerups (after physics)
`-Intro/Team Logo
`-Credits
`-Levels
`-Bosses



`--------PROBLEM!--------
`+====Ball doesn't go down after superbounce====+




`-------------------------------------
`The Noob Game Devolopment Team: Pong
`-------------------------------------

hide mouse



`set this to 1 if you don't have the music/sound
`You cannot enter Options if you don't have music/sound
music=1
`Intro:
center text 320,240,"Loading Music..."

 `Rem these out if you don't have the sounds. Then set music to 1. They can be found under Media>Media Browser

cls

center text 320,240,"Loading Numerals.."

cls












sync rate 0
gree=155
direct=0
p1y#=240
bx#=320
by#=240
cy#=240
direct=1
center text 320,240,"Loading Sprites..."
Generate_Pong_Image

Create_Main_Paddles(2,3)
Ball_Generate(1,3)
r=rnd(1)+1
sync rate 0
create_mouse(5)
cls
generate_menu_sprites

ink rgb(0,255,0),0
redo:
mega_curve=0
`!-------=========---=THE MAIN LOOP FOR MENU---========------!
do
  if music=0 then play music 3
  if music_stop=1 then stop music 3
  sprite 5,280,40,4
  sprite 6,mousex(),mousey(),5
  sprite 7,300,200,7
  sprite 8,300,230,8
  sprite 9,300,260,9
  `Scale the sprites to normal
  scale sprite 7,100:scale sprite 8,100:scale sprite 9,100
  if sprite collision(6,7) and mouseclick()=1 then exit
  if sprite collision(6,7) then scale sprite 7,120
  if music=0 and sprite collision(6,7) then play music 1
  if sprite collision(6,8) and mouseclick()=1 then gosub Instructions
  if sprite collision(6,8) then scale sprite 8,120
  if music=0 and sprite collision(6,8) then play music 1
  if sprite collision(6,9) and mouseclick()=1 then gosub Options
  if sprite collision(6,9) then scale sprite 9,120
  if music=0 and sprite collision(6,9) then play music 1
  if music=0 then stop music 1
  

  sync
loop
`!-------=========---=|THE MAIN LOOP FOR MENU|---========------!
`Hide the Menu,cls and stop music
if music=0 then stop music 3
hide sprite 6:hide sprite 5:hide sprite 7:hide sprite 8:hide sprite 9:cls
`|Hide the Menu,cls and stop music|


hide mouse







`-------=========---=THE MAIN LOOP FOR PONG---========------

do:cls rgb(15,25,15)
  if by#>455 then up=1
  if by#<2 then down=1:up=0
  oldby#=by#
  
  print screen fps()
  sprite 4,280,0,4
  if p1y#>=420 then disable=1 else disable=0
  if p1y#<=0 then disable_2=1 else disable_2=0
  sprite 2,40,p1y#,2
  sprite 1,bx#,by#,1
  sprite 3,600,cy#,3
  `--Reset if Ball passes Player's side---
    if bx#>=638 then bx#=320:r=2:by#=240:t=0:wait 1000
    if bx#<=1 then bx#=320:r=1:y#=240:t=0:wait 1000
  `--|Reset if Ball passes Player's side|---
  `Change Directions for ball maintenance
  bx#=bx#*direct
  `--------
  `Sprite collision to check sides
  if sprite collision(3,1) then r=2
  if sprite collision(2,1) then r=1

  if upkey()=1 and disable_2=0 then dec p1y#,.5
  if downkey()=1 and disable=0 then inc p1y#,.5
  if returnkey()=1 then inc cy#,1
  if r=1 then inc bx#,1
  if r=2 then dec bx#,1

 ` Determine Sprite Collision and flip "Pong" symbol. + play sound
  if sprite collision(2,1) then oldp#=p1y#:start=1:flip sprite 4:scorewait_1=1
  if sprite collision(3,1) then oldp#=cy#:start=1:flip sprite 4:scorewait_2=1
  if sprite collision(2,1) and music=0 then play sound 1
  if sprite collision(3,1) and music=0 then play sound 1
  if sprite collision(2,1) and scorewait=0 and waiting1=0 then inc pscore#,1
  if sprite collision(3,1) and scorewait2=0 and waiting2=0 then inc cpuscore#,1
  if start=1
   if oldp#<by# then dec by#,.05
   if oldp#+3<by# then mega_curve=1:`play sound 2
   if oldp#>by# then inc by#,.05
   if by#<oldp#  then inc by#,.09
   if oldp#=by# then start=0
  endif
  print "waiting1:",waiting1
  print "waiting2:",waiting2
  if scorewait_1=1
   if waiting1<490 then inc waiting1,1 else scorewait=0:waiting1=0:scorewait_1=0
  endif

  if scorewait_2=1
   if waiting2<500 then inc waiting2,1 else scorewait2=0:waiting2=0:scorewait_2=0
  endif
  `--Making Mega_curve

   If mega_curve=1
    if by#<478 then inc by#,curve#
    if curve#<1 then inc curve#,.01
   endif
    if by#<=400 then hit=1
  `--|Making Mega_curve|--
  if by#>=479 then t=1
  if by#<=2 then t=2
print t

  if t=1 then dec by#,1
  if t=2 then inc by#,1

  `--Handle CPU--
  perfection=rnd(1)
  if by#>cy# and perfection=1 then inc cy#,.8
  if by#<cy# and perfection=1 then dec cy#,.8

  `--|Handle CPU|--

  ink rgb(255,10,0),0
  set text size 20
  center text 140,0,"P1 Score:"+str$(pscore#)
  ink rgb(10,255,10),0
  set text size 20
  center text 500,0,"CPU Score:"+str$(cpuscore#)
  ink rgb(255,255,255),0
  text 280,100,"   Score to win: 30"
  if pscore#=30 then gosub pwin
  if cpuscore#=30 then gosub cpuwin
  if up=1 then change#=oldby#+by#
  if down=1 then change#=oldby#-by#
  
  if up=1 then dec by#,slowchange#+.2
  if down=1 then dec by#,slowchange#+.2
  if ctimer<300 then slowchange#=change#/300 else ctimer=0:slowchange#=0:up=0:down=0:mega_curve=0
  



  sync
loop
`-------=========---=|THE MAIN LOOP FOR PONG|---========------









`----------FUNCTIONS---------


function Create_Main_Paddles(image1,image2)
ink rgb(255,10,0),0
box 10,10,20,80
get image image1,10,10,20,70


cls
ink rgb(10,255,0),0
box 10,10,20,80
get image image2,10,10,20,70

cls

endfunction


function Ball_generate(image3,radius)
  ink rgb(10,0,255),0
  sync on:sync rate 0
  radius#=radius
  oldradius#=radius

  while radius#>0
    dec radius#,1
    circle 320,240,radius#
    sync
  endwhile
  get image image3,300,200,340,280
  cls
endfunction




function Generate_Pong_Image
sync on:sync rate 0
y=0
sync
for row=0 to 8
   inc y,8
   x=0
   for col=0 to 16
      sync
      ink rgb(0,255,0),0
      inc x,6
      read somedata
      if somedata=1
         box x,y,x+4,y+4
      endif
     sync
   next col
sync
next row


data 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0
data 0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0
data 0,0,1,0,0,1,1,1,0,1,0,1,0,1,1,1,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0
get image 4,0,0,200,70


cls






sync rate 30
ink rgb(255,255,255),0
endfunction






function create_mouse(radius)

ink rgb(100,g,100),0
  while radius>0
    ink rgb(100,gre,100),0
    dec gre,10
    dec radius,1
    circle 320,240,radius
    sync
  endwhile
get image 5,300,200,340,260


endfunction


function generate_menu_sprites
ink rgb(100,200,50),0
text 0,0,"Play"
get image 7,0,0,50,50
cls
ink rgb(20,100,200),0
text 0,0,"Instructions"
get image 8,0,0,100,50
cls
ink rgb(255,20,20),0
text 0,0,"Options"
get image 9,0,0,80,50
cls
endfunction






`GAME ENDING VARIABLES
pwin:
if sound=0 and music=0 then play sound 2
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
repeat
  cls rgb(0,255,0):ink rgb(0,255,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  cls rgb(0,0,0):ink rgb(0,0,0),0:wait 100
  center text 320,240,"You beat the CPU!"
  ten=ten+1
  if sound=0 and music=0 then play sound 2
  sync
until ten=10
ink rgb(255,255,255),0
  center text 320,240,"You beat the CPU!"

suspend for key
stop sound 2
end

cpuwin:
if sound=0 and music=0 then stop music 3
if sound=0 and music=0 then play music 2
hide sprite 4:hide sprite 1:hide sprite 2:hide sprite 3
cls
center text 320,240,"Failure."
suspend for key
end
`|GAME ENDING VARIABLES|



`MENU
  Instructions:
5yy=40
5xx=280
7xx=300
7yy=200
8xx=300
8yy=230
9xx=300
9yy=260
  flip sprite 7
  mirror sprite 9
bigger=100
smaller#=100
smallval#=.005
do:cls
  if smaller#>=1 then dec smaller#,smallval# else exit
  if bigger<200 then inc bigger,1
  if bigger=200 and 8yy>40 then dec 8yy,1
  if bigger=200 and 8yy=40 and 8xx>220 then dec 8xx,1
  if music=0 then play music 3
  if music_stop=1 then stop music 3
  sprite 5,5xx,5yy,4
  sprite 6,mousex(),mousey(),5
  sprite 7,7xx,7yy,7
  sprite 8,8xx,8yy,8
  sprite 9,9xx,9yy,9
  7xx=7xx+2
  if 9xx<0 then 9xx=9xx-1
  if 9yy<500 then 9yy=9yy+1
  scale sprite 8,bigger
  scale sprite 5,smaller#
  
  inc smallval#,.002
  sync
loop

sync

  cls
  print
  print
  print
  print
  print
  print
  print "                              Use your paddle to Keep the Ball alive.. and get it past your opponent!"
  print "                                                       Press a Key to Begin."
  suspend for key
  cls
  flip sprite 7
  mirror sprite 9
  scale sprite 5,100
  gosub redo
  

  Options:
  sprite_x#=280
  huge_=100
  do
      sprite 5,sprite_x#,40,4
      scale sprite 5,huge_
      if huge_<500 then inc huge_,1 else exit
      dec sprite_x#,.5
    sync
  loop
  hide sprite 7
  hide sprite 8
  hide sprite 9
  cls
  ink rgb(255,0,0),0
  center text 490,290,"Sound On?"
  center text 490,310,"(y)es (n)o"
  set text size 80
  center text 490,90,"Options"
   do
     if inkey$()="y" then sound=0:cls:exit
     if inkey$()="n"
      sound=1:music_stop=1:cls
      set text size 10
      show sprite 7
      show sprite 8
      show sprite 9
      scale sprite 5,100
      return
     endif
    sync
   loop
   if music_stop=1 then music_stop=0:play music 3
      show sprite 7
      show sprite 8
      show sprite 9
      scale sprite 5,100
  set text size 10
  return
`|MENU|
end

`System Settings
sync on
sync rate 0
hide mouse
`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,30
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cone 101,30
position camera x#,y#+50,z#-100
do
position object 101,x#,y#,z#
if leftkey()=1 and x#>0 then dec x#,.3
if rightkey()=1 and x#<385 then inc x#,.3
if leftkey()=1 then n#=n#+14
if rightkey()=1 then n#=n#-14
rotate object 101,0,14+n#,0
position camera x#,y#+50,z#-100
set cursor 0,0
print n#
n#=0
inc z#,1
sync
loop

`work out the angle of the object being chased
   yAng#=wrapvalue(object angle y(id)+180)

   `grab the cameras current position bases....
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)


   `other variables
   camDist=25
   camHeight=35

   `work out new position
   xCamPos#=newxvalue(xPos#,200,camDist) ` still calculate in case it's needed 
   zCamPos#=newZvalue(zPos#,yAng#,camDist)

   `work out camera height
   yCamPos#=camHeight+yPos#
  
   `update camera position
   position camera 80,yCamPos#,zpos#

sync on
backdrop on
color backdrop rgb(0,0,0)
make object cube 102,4
make object cube 103,3
make object cube 104,3
make object cube 105,3
make object cube 106,3
position object 103,-10,0,0
position object 104,10,0,0
position object 105,20,0,0
position object 106,-20,0,0
color object 102,rgb(50,100,50)
ink rgb(255,0,0),0
y=100
do
  position object 102,ox#,oy#,oz#
  position camera 0,oy#,oz#-50
  if rightkey()=1 then ox#=ox#+1
  if leftkey()=1 then ox#=ox#-1


  if object collision(102,104)>0
   center text 325,y,"Instructions"
   gosub Instructions
  endif
  if object collision(102,103)>0
   center text 325,100,"Play"
   if spacekey()=1 then exit
  endif
  if object collision(102,105)>0
   center text 325,100,"Load"
  endif
  if object collision(102,106)>0
   center text 325,100,"Quit"
   if spacekey()=1 then end
  endif
  
sync
loop

for n=102 to 106
delete object n
next n




















`System Settings
sync on
sync rate 0
hide mouse
 
`load image "cliff01.bmp",1

`Matrix
make matrix 1,430,10000,10,100
position matrix 1,-20,-15,0
`prepare matrix texture 1,1,4,4
update matrix 1
set mipmap mode 2


`Backdrop
backdrop on
color backdrop rgb(54,54,54)

`Fog
fog on
fog distance 1000
fog color rgb(64,64,64)
for x=1 to 100

set camera range 1,1000
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(10000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(10000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
make object cone 101,30
position camera x#,y#+50,z#-100
z#=-200
do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>10500 then gosub round2
  sync
loop




Instructions:



center text 320,260,"Dodge the cubes"
center text 320,280,"Hit the small objects to get new items"

return


function make image()
cls rgb(255,0,0)
get image 1,0,0,10,10
endfunction











round2:




for all=1 to 102
delete object all
next all
cls
backdrop off
ink rgb(255,255,255),0
if shrinker=1
 print "You obtained an Item: Shrinker Outfit"
 print "Info: Suit-Reduces size"
 wait key
else
 print "You made it to round 2!"

endif
cls
if shrinker=1
 print "Equip Shrinker? (y)es or (n)o?"
 do
  if inkey$()="y" then wearshrinker=1:exit
  if inkey$()="n" then wearshrinker=0:exit
 sync
 loop
endif

center text 320,240,"Round 2!"
cls
backdrop on
color backdrop rgb(54,54,54)
delete matrix 1
make matrix 1,430,1000,10,100
position matrix 1,-20,-15,0
prepare matrix texture 1,1,4,4
update matrix 1




for x=1 to 100
make object cube x,60
color object x,rgb(0,rnd(155)+60,0)
position object x,rnd(400),0,rnd(1000)
if object collision(x,0)>0 
 repeat
  position object x,rnd(400),0,rnd(1000)
 until object collision(x,0)=0
endif
next x
make object cylinder 102,10
position object 102,rnd(400),0,rnd(5000)

while object collision(102,0)>0
  position object 102,rnd(400),0,rnd(5000)
endwhile
color object 102,rgb(255,255,0)
if wearshrinker=1
make object cone 101,20
color object 101,rgb(255,255,0)
endif
if wearshrinker=0
make object cone 101,40
color object 101,rgb(255,255,255)
endif
position camera x#,y#+50,z#-100
z#=-200

do
  position object 101,x#,y#,z#
  if leftkey()=1 and x#>0 then dec x#,5
  if rightkey()=1 and x#<385 then inc x#,5
  if leftkey()=1 then n#=n#+14
  if rightkey()=1 then n#=n#-14
  if object collision(101,102)>0 then dec damage,2:shrinker=1
  if object collision(101,0)>0 then inc damage,1

  color object 101,rgb(255-dmg,255-dmg,255-dmg)
  rotate object 101,0,14+n#,0
  position camera x#,y#+50,z#-100
  set cursor 0,0
  if object collision(101,0)>0
    ink rgb(255,0,0),0
   else
    ink rgb(200,0,0),0
  endif
  box 0,0,100-damage,20
  if damage>=100 then end
  n#=0
  inc z#,15
  dmg=damage*2
  if z#=>1500 then gosub round3
  sync
loop


round3: