Sorry your browser is not supported!

rem  ------------------
rem | eray's virus pong|
rem  ------------------

hide mouse:sync rate 40
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,20,0.1,10:position object 4,0,-0.55,0:color object 4,rgb(0,0,0)

balla#=90

sync on:do

if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#

ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)

IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
If ballz#>player2pos# then player2pos#=player2pos#+0.11
If ballz#<player2pos# then player2pos#=player2pos#-0.11

IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#

balla#=wrapvalue(balla#)

position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0

sync:loop

rem  ------------------
rem | eray's virus pong|
rem  ------------------
rem | needs arena, win+|
rem | lose,spikey ball,|
rem | sounds, textures,|
rem | a better ai, the |
rem | ball must go at  |
rem | diff angles......|
rem  ------------------

`set up basics
hide mouse:sync rate 40
autocam off

`load + play and loop music files
load music "Scar_B.mid" ,1
play music 1
loop music 1

`make objects
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,20,0.1,10:position object 4,0,-0.55,0:color object 4,rgb(0,0,0)

`add textures

balla#=90
sync on:do

`scoring
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#

ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
`basic controls 
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
If ballz#>player2pos# then player2pos#=player2pos#+0.11
If ballz#<player2pos# then player2pos#=player2pos#-0.11
`main maths
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#

balla#=wrapvalue(balla#)
`camera postion
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0

`winning and losing
if player1score# = 10 then print "you are wiping your opentents hard drive" 
if player2score# = 10 then print "WARNING WARNING your hard drive is being deleted" 
if player1score# > 10 then end
if player2score# > 10 then end
sync:loop

set display mode 800,600,32
sync on
sync rate 60

REM << here we shall initialize the two focus variable
frmfocus = 1
lclfocus = 1

REM <<<<<<< main loop >>>>>>>>
repeat

REM << this is the first group of code, which will be ran at program start
if frmfocus = 1
   REM << use up and down arrow keys to change the local focus which will highlight different options, implemented a key no repeat variable
   if norepeat = 0
      if upkey() = 1 and lclfocus > 1
         norepeat = 1
         dec lclfocus
      endif
      if downkey() = 1 and lclfocus < 4
         norepeat = 1
         inc lclfocus
      endif
   endif
   if upkey() = 0 and downkey() = 0 then norepeat = 0
   REM << draw menu text to screen
   set text size 72
   ink rgb(255,0,0),0
   center text 400,200,"P.O.N.G!"
   set text size 24
   REM << here is where lclfocus comes into play
   if lclfocus = 1
      ink rgb(255,0,0),0
   else
      ink rgb(100,0,0),0
   endif
   center text 400,300,"New Game"
   if lclfocus = 2
      ink rgb(255,0,0),0
   else
      ink rgb(100,0,0),0
   endif
   center text 400,350,"Load Game"
   if lclfocus = 3
      ink rgb(255,0,0),0
   else
      ink rgb(100,0,0),0
   endif
   center text 400,400,"Options"
   if lclfocus = 4
      ink rgb(255,0,0),0
      REM << switch frmfocus to 0 if user presses enter key, to end repeat loop, ending the program
      if returnkey() = 1 then frmfocus = 0
   else
      ink rgb(100,0,0),0
   endif
   center text 400,450,"Quit"
endif

sync
cls
REM << here we use frmfocus to end the program, which is activated by the quit option
until frmfocus = 0
end

set display mode 800,600,32
sync on
sync rate 60

REM << here we shall initialize the two focus variable
frmfocus = 1
lclfocus = 1

REM << main menu text options array
dim menutext$(4)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Quit"

REM <<<<<<< main loop >>>>>>>>
repeat
   REM << if focus is on form # 1(main menu)
   if frmfocus = 1
      REM << print menu text options to screen
      set text size 72
      REM << fade out text if lclfocus = 5
      if lclfocus = 5
         ink rgb(fade,0,0),0
      else
         ink rgb(255,0,0),0
      endif
      center text 400,200,"P.O.N.G!"
      REM << reset offset variable, which places text options below eachother
      offset = 0
      REM << for next loop using text array to make highlighting text effect/and for screen fade out
      set text size 28
      for t = 1 to 4
         REM << fade out text if lclfocus = 5
         if lclfocus = 5
            ink rgb(fade,0,0),0
         else
            if lclfocus = t
               ink rgb(255,0,0),0
            else
               ink rgb(100,0,0),0
            endif
         endif
         center text 400,300 + offset,menutext$(t)
         inc offset,50
      next t

      REM << scroll through text options, with a repeat of kepress not allowed
      if norepeat = 0
         if upkey() = 1 and lclfocus > 1
            REM << decrement lclfocus;the local focus will focus upon option before, highlighting it
            dec lclfocus
            norepeat = 1
         endif
         if downkey() = 1 and lclfocus < 4
            REM << increment lclfocus;the local focus will focus upon option after, highlighting it
            inc lclfocus
            norepeat = 1
         endif
      else
         REM << unlock option scrolling if no arrowkey is pressed
         if upkey() = 0 and downkey() = 0 then norepeat = 0
      endif

      REM << press return key to select highlighted option
      if returnkey() = 1
         REM << if "New Game" is selected then fade out menu screen
         if lclfocus = 1
            lclfocus = 5
            REM << initialize value within fade to 255
            fade = 255
         endif
         REM << if "Load Game" is selected then run form # 2(Load Game Menu)
         if lclfocus = 2 then frmfocus = 2
         REM << if "Options" is selected then run from # 3(Options Menu)
         if lclfocus = 3 then frmfocus = 3
         REM << if "Quit" is selected then run form # 0;quit game
         if lclfocus = 4 then frmfocus = 0
      endif

      REM << fade out menu if lclfocus = 5
      if lclfocus = 5
         dec fade,2
         REM << check for completion of fade and then end game by switching the form focus
         if fade = 1 then frmfocus = 0
      endif
   REM << end of form # 1
   endif

sync
cls

REM << game will end when the form focus = 0
until frmfocus = 0
undim menutext$
end

   REM << if focus is on form # 7(choice to play again menu)
   if frmfocus = 7
      set text size 72
      ink rgb(255,0,0),0
      center text 300,200,"Play Again?"
      set text size 28
      REM << initialize offset
      offset = 0
      REM << for next loop using text array to make highlighting text effect/and for screen fade out
      for t = 5 to 6
         if lclfocus = t
            ink rgb(255,0,0),0
         else
            ink rgb(100,0,0),0
         endif
         center text 250 + offset,400,endtext$(t)
         inc offset,100
      next t

      REM << scroll through text options with a repeat of held keypress not allowed
      if norepeat = 0
         if rightkey() = 1 and lclfocus = 1
            inc lclfocus
            norepeat = 1
         endif
         if leftkey() = 1 and lclfocus = 2
            dec lclfocus
            norepeat = 1
         endif
      else
         if rightkey() = 0 and leftkey() = 0 then norepeat = 0
      endif

      REM << select highlighted option
      if returnkey() = 1
         if lclfocus = 1 then frmfocus = 1
         if lclfocus = 2 then frmfocus = 0
      endif
   REM << end of form # 7
   endif

rem  ------------------
rem | eray's virus pong|
rem  ------------------
rem | needs arena, win+|
rem | lose,spikey ball,|
rem | sounds, textures,|
rem | a better ai, the |
rem | ball must go at  |
rem | diff angles......|
rem  ------------------


`set up basics
HIDE MOUSE:sync rate 40
autocam off
set display mode 800,600,32

REM << here we shall initialize the two focus variable
main:
frmfocus = 1
lclfocus = 1

REM << main menu text options array
dim menutext$(4)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Quit"

REM <<<<<<< main loop >>>>>>>>
repeat
   REM << if focus is on form # 1(main menu)
   if frmfocus = 1
      REM << print menu text options to screen
      set text size 72
      REM << fade out text if lclfocus = 5
      if lclfocus = 5
         ink rgb(fade,0,0),0
      else
         ink rgb(255,0,0),0
      endif
      center text 400,200,"VIRUS PONG"
      REM << reset offset variable, which places text options below eachother
      offset = 0
      REM << for next loop using text array to make highlighting text effect/and for screen fade out
      set text size 28
      for t = 1 to 4
         REM << fade out text if lclfocus = 5
         if lclfocus = 5
            ink rgb(fade,0,0),0
         else
            if lclfocus = t
               ink rgb(255,0,0),0
            else
               ink rgb(100,0,0),0
            endif
         endif
         center text 400,300 + offset,menutext$(t)
         inc offset,50
      next t

      REM << scroll through text options, with a repeat of kepress not allowed
      if norepeat = 0
         if upkey() = 1 and lclfocus > 1
            REM << decrement lclfocus;the local focus will focus upon option before, highlighting it
            dec lclfocus
            norepeat = 1
         endif
         if downkey() = 1 and lclfocus < 4
            REM << increment lclfocus;the local focus will focus upon option after, highlighting it
            inc lclfocus
            norepeat = 1
         endif
      else
         REM << unlock option scrolling if no arrowkey is pressed
         if upkey() = 0 and downkey() = 0 then norepeat = 0
      endif

      REM << press return key to select highlighted option
      if returnkey() = 1
         REM << if "New Game" is selected then fade out menu screen
         if lclfocus = 1
            lclfocus = 5
            REM << initialize value within fade to 255
            fade = 255
         endif
         REM << if "Load Game" is selected then run form # 2(Load Game Menu)
         if lclfocus = 2 then frmfocus = 2
         REM << if "Options" is selected then run from # 3(Options Menu)
         if lclfocus = 3 then frmfocus = 3
         REM << if "Quit" is selected then run form # 0;quit game
         if lclfocus = 4 then frmfocus = 0
      endif

      REM << fade out menu if lclfocus = 5
      if lclfocus = 5
         dec fade,2
         REM << check for completion of fade and then end game by switching the form focus
         if fade = 1 then frmfocus = 0
      endif
   REM << end of form # 1
   endif

sync
cls

REM << game will end when the form focus = 0
until frmfocus = 0
undim menutext$



`make objects
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,20,0.1,10:position object 4,0,-0.55,0:color object 4,rgb(0,0,0)

start:
balla#=90
sync on:do
`scoring
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#

ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
`basic controls 
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
If ballz#>player2pos# then player2pos#=player2pos#+0.11
If ballz#<player2pos# then player2pos#=player2pos#-0.11
`main maths
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#

balla#=wrapvalue(balla#)
`camera postion
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0

if player1score# > 10 then goto win
if player2score# > 10 then goto lose

rem then put this under the loop
win:
center text 320,240,"you have wiped there hard drive and win!!!!!!"
center text 320,260,"press p to dual again"
center text 320,280,"press Q to get back to the main frame"
wait key
if inkey$="p" then goto start else end
if inkey$="q" then goto main else goto start

lose:
center text 320,240,"Your HARD DRIVE IS BEING ERASED............"
center text 320,260,"press p to play again"
center text 320,280,"press Q to get back to the main frame"
wait key
if inkey$="p" then goto start else end
if inkey$="q" then goto main else goto start


sync:loop

if frmfocus = 1
   paste image 1,(screen width() - image width(1)) / 2,(screen height() - image height(1)) / 2
   REM << next lines hold this form as the form focused upon for a period of time
   inc count
   if count = 300 then frmfocus = 2
endif

set display mode 800,600,32
sync on
sync rate 60

REM << initialize frmfocus to 1,which will run the first group of code
frmfocus = 1

REM <<<<<<< main loop >>>>>>>>
repeat

REM --------------------------------

REM << start of first group(form 1;frmfocus must = 1 for this group of code to be ran)
if frmfocus = 1
    REM << press downkey to move to to next form
    if downkey() = 1
        inc frmfocus
        wait 1000
    endif
    print "Press down arrow to go to next form"
endif
REM << end of first group(form 1)

REM -------------------------

REM << start of second group(form 2;frmfocus must = 2 for this group of code to be ran)
if frmfocus = 2
    REM << press downkey to move to to next form
    if downkey() = 1
        inc frmfocus
        wait 1000
    endif
    REM << press upkey() to move to previous form
    if upkey() = 1
        dec frmfocus
        wait 1000
    endif
    print "Press up arrow to go to previous form"
    print "Press down arrow to go to next form"
endif
REM << end of second group(form 2)

REM -------------------------

REM << start of third group(form 3;frmfocus must = 3 for this group of code to be ran)
if frmfocus = 3
    REM << press upkey to move to to previous form
    if upkey() = 1 
        dec frmfocus
        wait 1000
    endif
    print "Press up arrow to go to previous form"
endif
REM << end of third group(form 3)

REM -------------------------
print "You are in form # ",frmfocus

sync
cls
until mouseclick() = 1 
end

rem  ------------------
rem | eray's virus pong|
rem  ------------------
rem | needs arena, win+|
rem | lose,spikey ball,|
rem | sounds, textures,|
rem | a better ai, the |
rem | ball must go at  |
rem | diff angles......|
rem  ------------------


`set up basics
HIDE MOUSE:sync rate 40
autocam off
set display mode 800,600,32

REM << here we shall initialize the two focus variable
main:
frmfocus = 1
lclfocus = 1

REM << main menu text options array
dim menutext$(4)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Quit"

REM <<<<<<< main loop >>>>>>>>
repeat
   REM << if focus is on form # 1(main menu)
   if frmfocus = 1
      REM << print menu text options to screen
      set text size 72
      REM << fade out text if lclfocus = 5
      if lclfocus = 5
         ink rgb(fade,0,0),0
      else
         ink rgb(255,0,0),0
      endif
      center text 400,200,"VIRUS PONG"
      REM << reset offset variable, which places text options below eachother
      offset = 0
      REM << for next loop using text array to make highlighting text effect/and for screen fade out
      set text size 28
      for t = 1 to 4
         REM << fade out text if lclfocus = 5
         if lclfocus = 5
            ink rgb(fade,0,0),0
         else
            if lclfocus = t
               ink rgb(255,0,0),0
            else
               ink rgb(100,0,0),0
            endif
         endif
         center text 400,300 + offset,menutext$(t)
         inc offset,50
      next t

      REM << scroll through text options, with a repeat of kepress not allowed
      if norepeat = 0
         if upkey() = 1 and lclfocus > 1
            REM << decrement lclfocus;the local focus will focus upon option before, highlighting it
            dec lclfocus
            norepeat = 1
         endif
         if downkey() = 1 and lclfocus < 4
            REM << increment lclfocus;the local focus will focus upon option after, highlighting it
            inc lclfocus
            norepeat = 1
         endif
      else
         REM << unlock option scrolling if no arrowkey is pressed
         if upkey() = 0 and downkey() = 0 then norepeat = 0
      endif

      REM << press return key to select highlighted option
      if returnkey() = 1
         REM << if "New Game" is selected then fade out menu screen
         if lclfocus = 1
            lclfocus = 5
            REM << initialize value within fade to 255
            fade = 255
         endif
         REM << if "Load Game" is selected then run form # 2(Load Game Menu)
         if lclfocus = 2 then frmfocus = 2
         REM << if "Options" is selected then run from # 3(Options Menu)
         if lclfocus = 3 then frmfocus = 3
         REM << if "Quit" is selected then run form # 0;quit game
         if lclfocus = 4 then frmfocus = 0
      endif

      REM << fade out menu if lclfocus = 5
      if lclfocus = 5
         dec fade,2
         REM << check for completion of fade and then end game by switching the form focus
         if fade = 1 then frmfocus = 0
      endif
   REM << end of form # 1
   endif

sync
cls

REM << game will end when the form focus = 0
until frmfocus = 0
undim menutext$



`make objects
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,20,0.1,10:position object 4,0,-0.55,0:color object 4,rgb(0,0,0)

start:
balla#=90
sync on:do
`scoring
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#

ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
`basic controls 
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
If ballz#>player2pos# then player2pos#=player2pos#+0.11
If ballz#<player2pos# then player2pos#=player2pos#-0.11
`main maths
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#

balla#=wrapvalue(balla#)
`camera postion
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0

if player1score# > 10 then goto win
if player2score# > 10 then goto lose

rem then put this under the loop
win:
center text 320,240,"you have wiped there hard drive and win!!!!!!"
center text 320,260,"press p to dual again"
center text 320,280,"press Q to get back to the main frame"
wait key
if inkey$="p" then goto start else end
if inkey$="q" then goto main else goto start

lose:
center text 320,240,"Your HARD DRIVE IS BEING ERASED............"
center text 320,260,"press p to play again"
center text 320,280,"press Q to get back to the main frame"
wait key
if inkey$="p" then goto start else end
if inkey$="q" then goto main else goto start


sync:loop

[img]address of image[/img]

[img]http://xs28.xs.to/pics/05190/p_inship2.png[/img]

Here is some psuedo code for you

1.) run main menu
2.) if 'new game' is clicked upon within the main menu then frmfocus = 2
3.) if frmfocus = 2
   if setup = 0
      load images and make sprites and objects for the first level
      setup = 1
   endif

run game
endif

set display mode 800,600,32
sync on
sync rate 60

REM <<<<<<<< preparations >>>>>>>>>
REM << create menu options text array
dim menutext$(5)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Instructions"
menutext$(5) = "Quit"
REM << set the text options
set text font "Copperplate Gothic"
set text to bold
set text size 20

REM << the images do not cover the screen, so we will blend the main color of them with the background
backdrop on
color backdrop rgb(103,153,128)

REM << load images
load image "mainmenu_bg1.jpg",1
load image "mainmenu_bg2.jpg",2
load image "mmenu_button_off.jpg",3
load image "mmenu_button_on.jpg",4

REM << make and place option button image sprites
for t = 300 to 500 step 50
   inc count
   sprite count,50,t,3
next t

REM << load 3D objects
load object "vrspnglogo.x",1

REM << make red texture as image to texture surface logo with
ink rgb(255,0,0),0
box 0,0,1,1
get image 5,0,0,1,1
cls
REM << texture logo with created red image
texture object 1,5

REM << set camera to show logo at top-right corner of screen
position camera -2.5,-1,-9





REM <<<<<<<< main loop >>>>>>>>>
repeat

REM << paste main menu backgrounds to screen, behind any 3d objects
paste image 1,0,94
paste image 2,464,358
text 5,5,str$(screen fps())


REM << check for mouseover options buttons, on/off effect, also type related option text next to sprite image
space = 300
for t = 1 to 5
   REM << check if mouse is within sprite 'box' area
   mx = mousex()
   my = mousey()
   if mx => sprite x(t) and mx =< sprite x(t) + 50 and my => sprite y(t) and my =< sprite y(t) + 49
      REM << if mouseover then turn text bright red, use 'on' button image
      imgnum = 4
      ink rgb(255,0,0),0
   else
      REM << if mouse not over then turn text dull red, us 'off' button image
      imgnum = 3
      ink rgb(150,0,0),0
   endif
   sprite t,50,space,imgnum
   REM << print text to right side of image
   text 105,space + 12,menutext$(t)
   inc space,50
next t

REM << indefinitely spin logo
yrotate object 1,angle
angle = wrapvalue(angle + 1)

sync
until mouseclick() = 1
end

REM << create menu options text array
dim menutext$(5)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Instructions"
menutext$(5) = "Quit"
REM << set the text options
set text font "Copperplate Gothic"
set text to bold
set text size 20

REM << make and place option button image sprites
for t = 300 to 500 step 50
   inc count
   sprite count,50,t,3
next t

REM << paste main menu backgrounds to screen, behind any 3d objects
paste image 1,0,94
paste image 2,464,358
text 5,5,str$(screen fps())

REM << check for mouseover options buttons, on/off effect, also type related option text next to sprite image
space = 300
for t = 1 to 5
   REM << check if mouse is within sprite 'box' area
   mx = mousex()
   my = mousey()
   if mx => sprite x(t) and mx =< sprite x(t) + 50 and my => sprite y(t) and my =< sprite y(t) + 49
      REM << if mouseover then turn text bright red, use 'on' button image
      imgnum = 4
      ink rgb(255,0,0),0
   else
      REM << if mouse not over then turn text dull red, use 'off' button image
      imgnum = 3
      ink rgb(150,0,0),0
   endif
   REM << position sprite using image number(imgnum) specified
   sprite t,50,space,imgnum
   REM << print text to right side of image
   text 105,space + 12,menutext$(t)
   inc space,50
next t

rem  ------------------
rem | eray's virus pong|
rem  ------------------
rem | needs arena, win+|
rem | lose,spikey ball,|
rem | sounds, textures,|
rem | a better ai, the |
rem | ball must go at  |
rem | diff angles......|
rem  ------------------


set display mode 800,600,32
sync on
sync rate 60

REM <<<<<<<< preparations >>>>>>>>>
REM << create menu options text array
dim menutext$(5)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Instructions"
menutext$(5) = "Quit"
REM << set the text options
set text font "Copperplate Gothic"
set text to bold
set text size 20

REM << the images do not cover the screen, so we will blend the main color of them with the background
backdrop on
color backdrop rgb(103,153,128)

REM << load images
load image "mainmenu_bg1.jpg",1
load image "mainmenu_bg2.jpg",2
load image "mmenu_button_off.jpg",3
load image "mmenu_button_on.jpg",4

REM << make and place option button image sprites
for t = 300 to 500 step 50
   inc count
   sprite count,50,t,3
next t

REM << load 3D objects
load object "vrspnglogo.x",1

REM << make red texture as image to texture surface logo with
ink rgb(255,0,0),0
box 0,0,1,1
get image 5,0,0,1,1
cls
REM << texture logo with created red image
texture object 1,5

REM << set camera to show logo at top-right corner of screen
position camera -2.5,-1,-9





REM <<<<<<<< main loop >>>>>>>>>
repeat

REM << paste main menu backgrounds to screen, behind any 3d objects
paste image 1,0,94
paste image 2,464,358
text 5,5,str$(screen fps())


REM << check for mouseover options buttons, on/off effect, also type related option text next to sprite image
space = 300
for t = 1 to 5
   REM << check if mouse is within sprite 'box' area
   mx = mousex()
   my = mousey()
   if mx => sprite x(t) and mx =< sprite x(t) + 50 and my => sprite y(t) and my =< sprite y(t) + 49
      REM << if mouseover then turn text bright red, use 'on' button image
      imgnum = 4
      ink rgb(255,0,0),0
   else
      REM << if mouse not over then turn text dull red, us 'off' button image
      imgnum = 3
      ink rgb(150,0,0),0
   endif
   sprite t,50,space,imgnum
   REM << print text to right side of image
   text 105,space + 12,menutext$(t)
   inc space,50
next t

REM << indefinitely spin logo
yrotate object 1,angle
angle = wrapvalue(angle + 1)

sync
until mouseclick() = 1
end
HIDE MOUSE

`make objects
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,0,255)
make object sphere 3,1:color object 3,rgb(0,255,0)
make object box 4,20,0.1,10:position object 4,0,-0.55,0:color object 4,rgb(0,0,0)

start:
balla#=90
sync on:do
`scoring
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#

ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
`basic controls 
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
If ballz#>player2pos# then player2pos#=player2pos#+0.11
If ballz#<player2pos# then player2pos#=player2pos#-0.11
`main maths
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#

balla#=wrapvalue(balla#)
`camera postion
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0

if player1score# > 10 then print "you have won"
if player2score# > 10 then print "you lose"


sync:loop

set display mode 800,600,32
sync on
sync rate 60

REM <<<<<<<< preparations >>>>>>>>>
REM << create menu options text array
dim menutext$(5)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Instructions"
menutext$(5) = "Quit"
REM << set the text options
set text font "Copperplate Gothic"
set text to bold
set text size 20

REM << the images do not cover the screen, so we will blend the main color of them with the background
backdrop on
color backdrop rgb(103,153,128)

REM << load images
load image "mainmenu_bg1.jpg",1
load image "mainmenu_bg2.jpg",2
load image "mmenu_button_off.jpg",3
load image "mmenu_button_on.jpg",4

REM << make and place option button image sprites
for t = 300 to 500 step 50
   inc count
   sprite count,50,t,3
next t

REM << load sounds
load sound "sounds/msover.wav",1
load sound "sounds/select.wav",2

REM << load 3D objects
load object "vrspnglogo.x",1

REM << make red texture as image to texture surface logo with
ink rgb(255,0,0),0
box 0,0,1,1
get image 5,0,0,1,1
cls
REM << texture logo with created red image
texture object 1,5

REM << set camera to show logo at top-right corner of screen
position camera -2.5,-1,-9


REM <<<<<<<<<<<<<<<<<<<< MAIN LOOP(nest all code inside this loop) >>>>>>>>>>>>>>>>>>>>>>>>>
repeat
REM <<<<<<<< main menu setup >>>>>>>>>
if frmfocus = 0
   REM << main menu will need to be setup after gameplay to make menu objects visible again
   if setup$ = "true"
      for t = 1 to 5
         show sprite t
      next t
      show object 1
      position camera -2.5,-1,-9
      point camera 0,0,0
      show mouse
      setup$ = "false"
   endif
   REM <<<<<<<<< main menu loop >>>>>>>>>>
   repeat

REM << paste main menu backgrounds to screen, behind any 3d objects
paste image 1,0,94
paste image 2,464,358

REM << check for mouseover options buttons, on/off effect, also type related option text next to sprite image
space = 300
for t = 1 to 5
   REM << check if mouse is within sprite 'box' area
   mx = mousex()
   my = mousey()
   if mx => sprite x(t) and mx =< sprite x(t) + 50 and my => sprite y(t) and my =< sprite y(t) + 49
      REM << if mouseover then turn text bright red, use 'on' button image
      imgnum = 4
      ink rgb(255,0,0),0
      REM << compare last sprite mouse was over to current sprite mouseover,if different the play beep sound
      if t <> spritenum then play sound 1
      REM << record current sprite the mouse is over for comparison on next loop
      spritenum = t
      REM << check for mouseclick and change frmfocus to equal the current sprite number and play select sound
      if mouseclick() = 1
         frmfocus = spritenum
         play sound 2
         REM << clear the screen of all objects
         for s = 1 to 5
            hide sprite s
         next s
         hide object 1
         cls
         REM << the variable below will tell the program that the next form needs to be setup to be playable
         setup$ = "true"
      endif
   else
      REM << if mouse not over then turn text dull red, us 'off' button image
      imgnum = 3
      ink rgb(150,0,0),0
      REM << increment spritecheck each time mouse is not over a sprite
      inc spritecheck
      REM << set spritenum to 0 if spritecheck equals 5, this allows for the last sprite touched to play sound if mouseovered first next
      if spritecheck = 5 then spritenum = 0
   endif
   REM << initialize spritcheck for next loop
   if t = 5 then spritecheck = 0
   sprite t,50,space,imgnum
   REM << print text to right side of image
   text 105,space + 12,menutext$(t)
   inc space,50
next t

REM << indefinitely spin logo
yrotate object 1,angle
angle = wrapvalue(angle + 1)

sync
REM << when frmfocus is given any new value other than 0, this repeat until loop will end and the rest of the code will be checked
until frmfocus > 0
hide mouse
endif
REM <<<<<<<< end of main menu loop >>>>>>>>

REM <<<<<<<< setup main gameplay >>>>>>>>>
if frmfocus = 1
   REM << here is where the program will create your objects before running the repeat loop inside this IF statement
   if setup$ = "true" and nosetup$ <> "true"
      REM << make gameplay objects
      make object box 2,1,1,3:color object 2,rgb(255,0,0)
      make object box 3,1,1,3:color object 3,rgb(0,0,255)
      make object sphere 4,1:color object 4,rgb(0,255,0)
      make object box 5,20,0.1,10:position object 5,0,-0.55,0:color object 4,rgb(0,0,0)
      REM << initialize some variables
      balla#=90
      player1score# = 0
      player2score# = 0
      REM << reset setup$
      setup$ = "false"
      REM << this variable keeps the program from trying to create already created objects after the first game
      nosetup$ = "true"
   endif
   REM <<<<<<<<< main gameplay loop >>>>>>>>>>>
   repeat
      REM << scoring
      if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
      if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
      set cursor 300,50:print player2score#
      set cursor 320,50:print "-"
      set cursor 340,50:print player1score#

      ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)

      REM << basic controls
      IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
      IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
      If ballz#>player2pos# then player2pos#=player2pos#+0.11
      If ballz#<player2pos# then player2pos#=player2pos#-0.11

      REM << main maths
      IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
      IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
      if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
      if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

      if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
      if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
      if ballz#>4 or ballz#<-4 then balla#=180-balla#

      balla#=wrapvalue(balla#)

      REM << camera postion
      position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
      position object 3,ballx#,0,ballz#:yrotate object 3,balla#
      position camera 0,10,-10:point camera 0,0,0

      REM << end game and return back to main menu
      if player1score# > 10
         for t = 2 to 5
            hide object t
         next t
         cls
         text 0,0,"you have won"
         wait 3000
         cls
         frmfocus = 0
         setup$ = "true"
      endif
      if player2score# > 10
         for t = 2 to 5
            hide object t
         next t
         cls
         text 0,0,"you lose"
         wait 3000
         cls
         frmfocus = 0
         setup$ = "true"
      endif
      sync
   until frmfocus <> 1
endif
REM <<<<<<<<<<<<<<<< END OF MAIN LOOP >>>>>>>>>>>>>>>>>
until frmfocus = 10

      if mouseclick() = 1
         frmfocus = spritenum
         play sound 2
         REM << clear the screen of all objects
         for s = 1 to 5
            hide sprite s
         next s
         hide object 1
         cls
         REM << the variable below will tell the program that the next form needs to be setup to be playable
         setup$ = "true"
      endif

REM <<<<<<<<<<<<<<<<<<<< MAIN LOOP(nest all code inside this loop) >>>>>>>>>>>>>>>>>>>>>>>>>
repeat
REM <<<<<<<< main menu setup >>>>>>>>>
if frmfocus = 0
   REM << main menu will need to be setup after gameplay to make menu objects visible again
   if setup$ = "true"
      for t = 1 to 5
         show sprite t
      next t
      show object 1
      position camera -2.5,-1,-9
      point camera 0,0,0
      show mouse
      setup$ = "false"
   endif
   REM <<<<<<<<< main menu loop >>>>>>>>>>
   repeat

set display mode 800,600,32
sync on
sync rate 60

REM <<<<<<<< preparations >>>>>>>>>
REM << create menu options text array
dim menutext$(5)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Instructions"
menutext$(5) = "Quit"
REM << set the text options
set text font "Copperplate Gothic"
set text to bold
set text size 20

REM << the images do not cover the screen, so we will blend the main color of them with the background
backdrop on
color backdrop rgb(103,153,128)

REM << load images
load image "mainmenu_bg1.jpg",1
load image "mainmenu_bg2.jpg",2
load image "mmenu_button_off.jpg",3
load image "mmenu_button_on.jpg",4

REM << make and place option button image sprites
for t = 300 to 500 step 50
   inc count
   sprite count,50,t,3
next t

REM << load sounds
load sound "sounds/msover.wav",1
load sound "sounds/select.wav",2

REM << load 3D objects
load object "vrspnglogo.x",1

REM << make red texture as image to texture surface logo with
ink rgb(255,0,0),0
box 0,0,1,1
get image 5,0,0,1,1
cls
REM << texture logo with created red image
texture object 1,5

REM << set camera to show logo at top-right corner of screen
position camera -2.5,-1,-9

<<<<< main program loop >>>>>
repeat
    <<< first form(main menu) >>>
    if frmfocus = 0
        <<< setup for first form(main menu) >>>>
        if setup$ = "true"
            runsetup code
        endif
        <<<< main menu repeat loop >>>>
        repeat
            code to run main menu(my code) goes here
        until frmfocus > 0
    <<<< end of main menu focus
    endif

    <<<< second form(gameplay)
    if frmfocus = 1
        <<<< setup for second form >>>>>
        if setup$ = "true"
            run setup code
        endif
        <<<<< second form repeat loop(gameplay)
        repeat
            code to run gameplay(your code) goes here
        until frmfocus <> 1
    <<<< end of gameplay focus and return to main menu focus
<<<< end of entire program loop >>>>>>>>
until frmfocus = 10
end

set display mode 800,600,32
sync on
sync rate 60

REM <<<<<<<< preparations >>>>>>>>>
REM << create menu options text array
dim menutext$(5)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Instructions"
menutext$(5) = "Quit"
REM << set the text options
set text font "Copperplate Gothic"
set text to bold
set text size 20

REM << the images do not cover the screen, so we will blend the main color of them with the background
backdrop on
color backdrop rgb(103,153,128)

REM << load images
load image "mainmenu_bg1.jpg",1
load image "mainmenu_bg2.jpg",2
load image "mmenu_button_off.jpg",3
load image "mmenu_button_on.jpg",4

REM << make and place option button image sprites
for t = 300 to 500 step 50
   inc count
   sprite count,50,t,3
next t

REM << load sounds
load sound "msover.wav",1
load sound "select.wav",2

REM << load 3D objects
load object "vrspnglogo.x",1

REM << make red texture as image to texture surface logo with
ink rgb(255,0,0),0
box 0,0,1,1
get image 5,0,0,1,1
cls
REM << texture logo with created red image
texture object 1,5

REM << set camera to show logo at top-right corner of screen
position camera -2.5,-1,-9


REM <<<<<<<<<<<<<<<<<<<< MAIN LOOP(nest all code inside this loop) >>>>>>>>>>>>>>>>>>>>>>>>>
repeat
REM <<<<<<<< main menu setup >>>>>>>>>
if frmfocus = 0
   REM << main menu will need to be setup after gameplay to make menu objects visible again
   if setup$ = "true"
      for t = 1 to 5
         show sprite t
      next t
      show object 1
      position camera -2.5,-1,-9
      point camera 0,0,0
      show mouse
      setup$ = "false"
   endif
   REM <<<<<<<<< main menu loop >>>>>>>>>>
   repeat

REM << paste main menu backgrounds to screen, behind any 3d objects
paste image 1,0,94
paste image 2,464,358

REM << check for mouseover options buttons, on/off effect, also type related option text next to sprite image
space = 300
for t = 1 to 5
   REM << check if mouse is within sprite 'box' area
   mx = mousex()
   my = mousey()
   if mx => sprite x(t) and mx =< sprite x(t) + 50 and my => sprite y(t) and my =< sprite y(t) + 49
      REM << if mouseover then turn text bright red, use 'on' button image
      imgnum = 4
      ink rgb(255,0,0),0
      REM << compare last sprite mouse was over to current sprite mouseover,if different the play beep sound
      if t <> spritenum then play sound 1
      REM << record current sprite the mouse is over for comparison on next loop
      spritenum = t
      REM << check for mouseclick and change frmfocus to equal the current sprite number and play select sound
      if mouseclick() = 1
         frmfocus = spritenum
         play sound 2
         REM << clear the screen of all objects
         for s = 1 to 5
            hide sprite s
         next s
         hide object 1
         cls
         REM << the variable below will tell the program that the next form needs to be setup to be playable
         setup$ = "true"
      endif
   else
      REM << if mouse not over then turn text dull red, us 'off' button image
      imgnum = 3
      ink rgb(150,0,0),0
      REM << increment spritecheck each time mouse is not over a sprite
      inc spritecheck
      REM << set spritenum to 0 if spritecheck equals 5, this allows for the last sprite touched to play sound if mouseovered first next
      if spritecheck = 5 then spritenum = 0
   endif
   REM << initialize spritcheck for next loop
   if t = 5 then spritecheck = 0
   sprite t,50,space,imgnum
   REM << print text to right side of image
   text 105,space + 12,menutext$(t)
   inc space,50
next t

REM << indefinitely spin logo
yrotate object 1,angle
angle = wrapvalue(angle + 1)

sync
REM << when frmfocus is given any new value other than 0, this repeat until loop will end and the rest of the code will be checked
until frmfocus > 0
hide mouse
endif
REM <<<<<<<< end of main menu loop >>>>>>>>

REM <<<<<<<< setup main gameplay >>>>>>>>>
if frmfocus = 1
   REM << here is where the program will create your objects before running the repeat loop inside this IF statement
   if setup$ = "true" and nosetup$ <> "true"
      REM << make gameplay objects
      make object box 2,1,1,3:color object 2,rgb(255,0,0)
      make object box 3,1,1,3:color object 3,rgb(0,0,255)
      make object sphere 4,1:color object 4,rgb(0,255,0)
      make object box 5,20,0.1,10:position object 5,0,-0.55,0:color object 4,rgb(0,0,0)
      REM << initialize some variables
      balla#=90
      player1score# = 0
      player2score# = 0
      REM << reset setup$
      setup$ = "false"
      REM << this variable keeps the program from trying to create already created objects after the first game
      nosetup$ = "true"
   endif
   REM <<<<<<<<< main gameplay loop >>>>>>>>>>>
   repeat
      REM << scoring
      if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
      if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
      set cursor 300,50:print player2score#
      set cursor 320,50:print "-"
      set cursor 340,50:print player1score#

      ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)

      REM << basic controls
      IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
      IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
      If ballz#>player2pos# then player2pos#=player2pos#+0.11
      If ballz#<player2pos# then player2pos#=player2pos#-0.11

      REM << main maths
      IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
      IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
      if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
      if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

      if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
      if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
      if ballz#>4 or ballz#<-4 then balla#=180-balla#

      balla#=wrapvalue(balla#)

      REM << camera postion
      position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
      position object 3,ballx#,0,ballz#:yrotate object 3,balla#
      position camera 0,10,-10:point camera 0,0,0

      REM << end game and return back to main menu
      if player1score# > 10
         for t = 2 to 5
            hide object t
         next t
         cls
         text 0,0,"YOUR VIRUS HAS DESTROYED THE ENEMYS HARD DRIVE"
         wait 3000
         cls
         frmfocus = 0
         setup$ = "true"
      endif
      if player2score# > 10
         for t = 2 to 5
            hide object t
         next t
         cls
         text 0,0,"VIRUS AT 100% HARD DRIVE WIPED"
         wait 3000
         cls
         frmfocus = 0
         setup$ = "true"
      endif
      sync
   until frmfocus <> 1
endif
REM <<<<<<<<<<<<<<<< END OF MAIN LOOP >>>>>>>>>>>>>>>>>
until frmfocus = 10

set display mode 800,600,32
sync on
sync rate 60

REM <<<<<<<< preparations >>>>>>>>>
REM << create menu options text array
dim menutext$(5)
menutext$(1) = "New Game"
menutext$(2) = "Load Game"
menutext$(3) = "Options"
menutext$(4) = "Instructions"
menutext$(5) = "Quit"
REM << set the text options
set text font "Copperplate Gothic"
set text to bold
set text size 20

REM << the images do not cover the screen, so we will blend the main color of them with the background
backdrop on
color backdrop rgb(103,153,128)

REM << load images
load image "mainmenu_bg1.jpg",1
load image "mainmenu_bg2.jpg",2
load image "mmenu_button_off.jpg",3
load image "mmenu_button_on.jpg",4

REM << make and place option button image sprites
for t = 300 to 500 step 50
   inc count
   sprite count,50,t,3
next t

REM << load sounds
load sound "sounds/msover.wav",1
load sound "sounds/select.wav",2

REM << load 3D objects
load object "vrspnglogo.x",1

REM << make red texture as image to texture surface logo with
ink rgb(255,0,0),0
box 0,0,1,1
get image 5,0,0,1,1
cls
REM << texture logo with created red image
texture object 1,5

REM << set camera to show logo at top-right corner of screen
position camera -2.5,-1,-9


REM <<<<<<<<<<<<<<<<<<<< MAIN LOOP(nest all code inside this loop) >>>>>>>>>>>>>>>>>>>>>>>>>
repeat
REM <<<<<<<< main menu setup >>>>>>>>>
if frmfocus = 0
   REM << main menu will need to be setup after gameplay to make menu objects visible again
   if setup$ = "true"
      for t = 1 to 5
         show sprite t
      next t
      show object 1
      position camera -2.5,-1,-9
      point camera -2.5,-1,-9
      show mouse
      setup$ = "false"
   endif
   REM <<<<<<<<< main menu loop >>>>>>>>>>
   repeat
   text 0,0,str$(frmfocus)
REM << paste main menu backgrounds to screen, behind any 3d objects
paste image 1,0,94
paste image 2,464,358

REM << check for mouseover options buttons, on/off effect, also type related option text next to sprite image
space = 300
for t = 1 to 5
   REM << check if mouse is within sprite 'box' area
   mx = mousex()
   my = mousey()
   if mx => sprite x(t) and mx =< sprite x(t) + 50 and my => sprite y(t) and my =< sprite y(t) + 49
      REM << if mouseover then turn text bright red, use 'on' button image
      imgnum = 4
      ink rgb(255,0,0),0
      REM << compare last sprite mouse was over to current sprite mouseover,if different the play beep sound
      if t <> spritenum then play sound 1
      REM << record current sprite the mouse is over for comparison on next loop
      spritenum = t
      REM << check for mouseclick and change frmfocus to equal the current sprite number and play select sound
      if mouseclick() = 1
         frmfocus = spritenum
         play sound 2
         REM << clear the screen of all objects
         for s = 1 to 5
            hide sprite s
         next s
         hide object 1
         cls
         REM << the variable below will tell the program that the next form needs to be setup to be playable
         setup$ = "true"
      endif
   else
      REM << if mouse not over then turn text dull red, us 'off' button image
      imgnum = 3
      ink rgb(150,0,0),0
      REM << increment spritecheck each time mouse is not over a sprite
      inc spritecheck
      REM << set spritenum to 0 if spritecheck equals 5, this allows for the last sprite touched to play sound if mouseovered first next
      if spritecheck = 5 then spritenum = 0
   endif
   REM << initialize spritcheck for next loop
   if t = 5 then spritecheck = 0
   sprite t,50,space,imgnum
   REM << print text to right side of image
   text 105,space + 12,menutext$(t)
   inc space,50
next t

REM << indefinitely spin logo
yrotate object 1,angle
angle = wrapvalue(angle + 1)

sync
REM << when frmfocus is given any new value other than 0, this repeat until loop will end and the rest of the code will be checked
until frmfocus > 0
hide mouse
endif
REM <<<<<<<< end of main menu loop >>>>>>>>

REM <<<<<<<< setup main gameplay >>>>>>>>>
if frmfocus = 1
   REM << here is where the program will create your objects before running the repeat loop inside this IF statement
   if setup$ = "true" and nosetup$ <> "true"
      REM << make gameplay objects
      make object box 2,1,1,3:color object 2,rgb(255,0,0)
      make object box 3,1,1,3:color object 3,rgb(0,0,255)
      make object sphere 4,1:color object 4,rgb(0,255,0)
      make object box 5,20,0.1,10:color object 4,rgb(0,0,0)
      REM << reset setup$
      setup$ = "false"
      REM << this variable keeps the program from trying to create already created objects after the first game
      nosetup$ = "true"
   endif
   for t = 2 to 5
      show object t
   next t

   position object 5,0,-0.55,0

   REM << initialize some variables;always initialize upon each repeated gameplay!
      balla#=90
      player1score# = 0
      player2score# = 0
   REM <<<<<<<<< main gameplay loop >>>>>>>>>>>
   repeat
      REM << scoring
      if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
      if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=90
      center text 400,100,str$(player1score#) + "   -   " + str$(player2score#)

      ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)

      REM << basic controls
      IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
      IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
      If ballz#>player2pos# then player2pos#=player2pos#+0.11
      If ballz#<player2pos# then player2pos#=player2pos#-0.11

      REM << main maths
      IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
      IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
      if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
      if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8

      if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
      if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
      if ballz#>4 or ballz#<-4 then balla#=180-balla#

      balla#=wrapvalue(balla#)

      REM << camera postion
      position object 2,5,0,player1pos#:position object 3,-5,0,player2pos#
      position object 4,ballx#,0,ballz#:yrotate object 4,balla#
      position camera 0,10,-10:point camera 0,0,0

      REM << end game and return back to main menu
      if player1score# > 10
         cls
         for t = 2 to 5
            hide object t
         next t
         REM << initialize the counter;write text to screen
         starttime = timer()
         repeat
            time = counttime(timer(),starttime)
            center text 400,300,"YOUR VIRUS HAS DESTROYED THE ENEMY'S HARD DRIVE!"
         until time > 5
         cls
         frmfocus = 0
         setup$ = "true"
      endif
      if player2score# > 10
         cls
         for t = 2 to 5
            hide object t
         next t
         REM << initialize the counter;write text to screen
         starttime = timer()
         repeat
            time = counttime(timer(),starttime)
            center text 400,300,"VIRUS AT 100%!  YOUR HARD DRIVE IS WIPED!"
         until time > 5
         cls
         frmfocus = 0
         setup$ = "true"
      endif
      sync
   until frmfocus <> 1
endif
REM <<<<<<<<<<<<<<<< END OF MAIN LOOP >>>>>>>>>>>>>>>>>
until frmfocus = 5
end


REM <<<<<<<<<<<<< FUNCTIONS >>>>>>>>>>>>>>>
function counttime(timer,stime)
   time$ = str$(timer - stime)
   REM << last three numbers of time$ are less than seconds
   time = val(left$(time$,len(time$) - 3))
endfunction time

center text 400,100,str$(player1score#) + "   -   " + str$(player2score#)