Sorry your browser is not supported!

sync on

Type VEC
   X as Float
   Y as Float
EndType

#constant True=1
#Constant False=0

Dim Boxes(200) as VEC

For MyBox=1 to 200

   Boxes(MyBox).x=rnd(3000)
   Boxes(MyBox).y=rnd(3000)

Next MyBox


`Holds the Map position of the center point of our camera
Global Camera as VEC
Global GlobalVec as VEC

`Set our Initial Camera Position
Camera.x=screen width()/2
Camera.y=screen height()/2

Do

   For MyBox=1 to 200

      MaptoCamera(Boxes(MyBox).x,Boxes(MyBox).y)
      Box GlobalVec.x,GlobalVec.y,GlobalVec.x+40,GlobalVec.y+40

   Next MyBox

   CameratoMap(Mousex(),Mousey())

   Print "MouseCords:",GlobalVec.x,",",GlobalVec.y


   CameraUpdate()



   sync
   cls
Loop


function MaptoCamera(XPos as Float,YPos as Float)

      `Create a local variable to hold the TopLeft camera corner
      CameraTL as Vec

      `Find where the TopLeft Camera Corner is on the Map
      `This is done by getting the Camera's map position and then subtracting half the screen Length and Width
      CameraTL.x=Camera.x-(Screen Width()/2)
      CameraTL.y=Camera.y-(Screen Height()/2)

      `Get the objects Map position and subtract it by our Camera Corner
      `This will tell us where to render our object on the screen or if off the screen where not to render it
      GlobalVec.x=XPos-CameraTL.x
      GlobalVec.y=YPos-CameraTL.y

      `We have sent the Camera Cordinantes back through the GlobalVec variable
endfunction

function CameratoMap(XPos as Float,YPos as Float)

      `Create a local variable for the TopLeft camera corner
      CameraTL as Vec

      `Find where the TopLeft Camera Corner is on the Map
      `This is done by getting the Camera's map position and then subtracting half the screen Length and Width
      CameraTL.x=Camera.x-(Screen Width()/2)
      CameraTL.y=Camera.y-(Screen Height()/2)

      `Add our position of where our the cordinantes are to ouor topLeft corner
       GlobalVec.x=CameraTL.x+XPos
       GlobalVec.y=CameraTL.y+YPos

      `We have sent the Camera Cordinantes back through the GlobalVec variable
endfunction

function CameraUpdate()

   `Create variables for the camera corners
   CameraTL as Vec
   CameraBR as Vec

   `Find the TopLeft and BottomRight of our Camera
   CameraTL.x=camera.x-(Screen Width()/2)
   CameraTL.y=camera.y-(Screen Height()/2)
   CameraBR.x=camera.x+(Screen Width()/2)
   CameraBR.y=camera.y+(Screen Height()/2)

   `Move our camera when the mouse reaches the edge of the screen
   MoveTop=False
   MoveBottom=False
   MoveLeft=False
   MoveRight=False

   `Check if our Mouse is On the edge of the screen
   if mousey()=<0+5 then MoveLeft=True
   if mousey()=>Screen Height()-5 then MoveRight=True
   if mousex()=<0+5 then MoveTop=True
   if mousex()=>Screen Width()-5 then MoveBottom=True

   `If Mouse is in the Top Left
   if MoveTop=True and MoveLeft=True
      Camera.y=Camera.y-0.6
      Camera.x=Camera.x-0.6
      MoveTop=False
      MoveLeft=False
   endif

   `If Mouse is in the Top Right
   if MoveTop=True and MoveRight=True
      Camera.y=Camera.y+0.6
      Camera.x=Camera.x-0.6
      MoveTop=False
      MoveRight=False
   endif

   `If Mouse is in the Bottom Right
   if MoveBottom=True and MoveRight=True
      Camera.y=Camera.y+0.6
      Camera.x=Camera.x+0.6
      MoveBottom=False
      MoveRight=False
   endif

   `If Mouse is in the Bottom Left
   if MoveTop=True and MoveRight=True
      Camera.y=Camera.y-0.6
      Camera.x=Camera.x+0.6
      MoveBottom=False
      MoveLeft=False
   endif

   if MoveLeft=True then Camera.y=Camera.y-1
   if MoveRight=True then Camera.y=Camera.y+1
   if MoveTop=True then Camera.x=Camera.x-1
   if MoveBottom=True then Camera.x=Camera.x+1



endfunction

If Mousex()>ScreenWidth() then position mouse ScreenWidth(),MousePosY 
If Mousey()>ScreenHeight() then position mouse MousePosX,ScreenHeight()

If Mousex()>Screen Width() then position mouse Screen Width(),MouseY()
If Mousey()>Screen Height() then position mouse MouseX(),Screen Height()
If Mousex()<0 then position mouse 0,MouseY()
If Mousey()<0 then position mouse MouseX(),0

sync on
sync rate 60
speed = 350
load = 1
disable escapekey
do
  cls
  if load > 0
    text 0, 0, "Loading..."
    dec speed
    inc load, speed
    box 0, 20, load/100.0, 30
  else
    text 0, 0, "HAHAHAHA!!!!!!!"
    text 0, 10, "Your calculator is locked up"
    text 0, 20, "Take that, cheater!  Good luck on the test with no calculator."
    for t = 30 to 400 step 10
      text 0, t, " }:> }:> }:> }:> }:> }:> }:> }:> }:> }:> }:> }:> }:> }:> }:> }:>"
    next t
  endif
  sync
loop