Sorry your browser is not supported!

REM Project: Number Cruncher
REM Created: 2/25/2008 4:30:38 PM
REM
REM ***** Main Source File *****
REM

rem set display
Set Display Mode 800,600,32
Sync On: Sync Rate 60

Load Image "menu.jpg",1
Paste Image 1,0,0
Set Text Opaque

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  If Mc=1 Then Gosub CheckRegion
  Sync
Loop

CheckRegion:
  Rem First Button
  If Mx > 302 and My > 109 And Mx < 445 And My < 159
    add()
    Center Text 400,580,"You Chose to Add!"
    sync
  Endif
  Rem Second Button
  If Mx > 306 and My > 178 And Mx < 448 And My < 222
    sub()
    Center Text 400,580,"You Chose to Subtract!"
  Endif
  Rem Third Button
  If Mx > 303 and My > 235 And Mx < 448 And My < 287
    sqr()
    Center Text 400,580,"You Chose to Square Root!"
  Endif
  Rem Fourth Button
  If Mx > 306 and My > 301 And Mx < 446 And My < 365
    mult()
    Center Text 400,580,"You Chose to Multiply!"
  Endif
  Rem Fifth Button
  If Mx > 309 and My > 376 And Mx < 445 And My < 430
    divi()
    Center Text 400,580,"You Chose to Divide!"
    End
  Endif
return
rem declare functions
function add()
  Load Image "Screen1.jpg",1
  rem set up variable
  number as integer=0
  cls
  input "what is the first number to add? ",number
  wait 500
  cls
  rem set up variable
  number1 as integer=0
  input "what is the second number to add? ",number1
  cls
  rem set up variable
  answer as integer
  rem Do math
  answer=number + number1
  print "The Answer Is... "
  print answer
  sync
  wait key
  cls
  wait 200
  paste image 1,0,0
  gosub checkregion
endfunction add
function sub()
  rem set up variable
  number as integer=0
  print "Prepare to Subtract..."
  wait 1500
  cls
  input "what is the first number to subtract? ",number
  wait 500
  cls
  rem set up variable
  number1 as integer=0
  input "what is the second number to subtract? ",number1
  cls
  rem set up variable
  answer as integer
  rem Do math
  answer=number - number1
  print "The Answer Is... "
  print answer
  sync
  wait key
  end
endfunction sub

function sqr()
  rem set up variable
  number as integer=0
  print "Prepare to Square..."
  wait 1500
  cls
  input "what is the number to Square? ",number
  wait 500
  cls
  rem set up variable and do math
  number1 as float:number1=sqrt(number)
  cls
  print "The Answer Is... "
  print "The square root of "; number; " is "; number1; "."
  sync
  wait key
  end
endfunction sqr

function mult()
  rem set up variable
  number as integer=0
  print "Prepare to Multiply..."
  wait 1500
  cls
  input "what is the first number to Multiply? ",number
  wait 500
  cls
  rem set up variable
  number1 as integer=0
  input "what is the second number to Multiply? ",number1
  cls
  rem set up variable
  answer as integer
  rem Do math
  answer=number * number1
  print "The Answer Is... "
  print answer
  sync
  wait key
  end
endfunction mult

function divi()
  rem set up variable
  number as integer=0
  print "Prepare to Divide..."
  wait 1500
  cls
  input "what is the first number to Divide? ",number
  wait 500
  cls
  rem set up variable
  number1 as integer=0
  input "what is the second number to Divide? ",number1
  cls
  rem set up variable
  answer as integer
  rem Do math
  answer=number / number1
  print "The Answer Is... "
  print answer
  sync
  wait key
  end
endfunction divi

`-------------------------------------------------------------------------------------------------
InitTimers:
`-------------------------------------------------------------------------------------------------
  type rtClock
    iTimer
    iTimerPrev
    iTimeElapsed
  endtype    
  global grClock as rtClock  

  type rtTimer
    iDelayInMSec ` How Long a Duration
    iTimesUp  ` WHEN This Timer Goes Off Next
    iTimerID
  endtype
  global dim garTimer() as rtTimer
  global dim garDelay() as rtTimer
  global dim gaiTimerQueue()
  UpdateClock()
RETURN
`-------------------------------------------------------------------------------------------------


`-------------------------------------------------------------------------------------------------
function iAddTimer(p_iTimerID, p_iDelayInMSec)
`-------------------------------------------------------------------------------------------------
  ARRAY INSERT AT BOTTOM garTimer(0)
  INDEX = ARRAY COUNT (garTimer(0))
  garTimer(INDEX).iDelayInMSec = p_iDelayInMSec
  garTimer(INDEX).iTimerID = p_iTimerID
  garTimer(INDEX).iTimesUp = grClock.iTimer+p_iDelayInMSec
endfunction INDEX
`-------------------------------------------------------------------------------------------------
  
`-------------------------------------------------------------------------------------------------
function iAddDelay(p_iDelayInMSec)
`-------------------------------------------------------------------------------------------------
  ARRAY INSERT AT BOTTOM garDelay(0)
  INDEX = ARRAY COUNT (garDelay(0))
  garDelay(INDEX).iDelayInMSec = p_iDelayInMSec
  garDelay(INDEX).iTimesUp = grClock.iTimer+p_iDelayInMSec
endfunction INDEX
`-------------------------------------------------------------------------------------------------

`-------------------------------------------------------------------------------------------------
Function bDelayPassed(p_iWhichDelay)
`-------------------------------------------------------------------------------------------------
  bResult = False
  If grClock.iTimer>=garDelay(p_iWhichDelay).iTimesUp 
    bResult=True
    ` RESET THIS DELAY for Next Go Round
    garDelay(p_iWhichDelay).iTimesUp=grClock.iTimer+garDelay(p_iWhichDelay).iDelayInMSec
  endif        
endfunction bResult
`-------------------------------------------------------------------------------------------------

`-------------------------------------------------------------------------------------------------
Function UpdateClock()
`-------------------------------------------------------------------------------------------------
  grClock.iTimerPrev = grClock.iTimer
  grClock.iTimer = Timer()
  grClock.iTimeElapsed = grClock.iTimer - grClock.iTimerPrev


endfunction
`-------------------------------------------------------------------------------------------------

`-------------------------------------------------------------------------------------------------
Function UpdateTimerQueue() ` Make sure Updateclock Gets Called Prior to this in a loop
`-------------------------------------------------------------------------------------------------
  for i = 0 to array count (garTimer(0))
    If grClock.iTimer>=garTimer(i).iTimesUp 
      Add to Queue gaiTimerQueue(0)
      INDEX = Array Count (gaiTimerQueue(0))
      gaiTimerQueue(INDEX)=garTimer(i).iTimerID
      ` RESET THIS TIMER for Next Go Round
      garTimer(i).iTimesUp=grClock.iTimer+garTimer(i).iDelayInMSec 
    endif        
  next i
endfunction
`-------------------------------------------------------------------------------------------------

`-------------------------------------------------------------------------------------------------
function iGetTimerOffQueue ` Returns -1 if nothing on Queue
`-------------------------------------------------------------------------------------------------
  iArrayCount = Array Count (gaiTimerQueue())
  If iArrayCount>-1 
    iTimerID = gaiTimerQueue(0)
    Remove From Queue gaiTimerQueue()
  else
    iTimerID=-1
  endif  
endfunction iTimerID
`-------------------------------------------------------------------------------------------------

Case RBG(250,000,000)

rem set up menu
gosub menu

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
sync
  ColNum = CheckRegion(Mx,My)
sync
  If ColNum <> 0 And Mc=1 Then Gosub HandleButton
  Sync
rem Text 10,0,"Zone Colour: "+Str$(ColNum)+"                         "
sync
Loop
End

HandleButton:
  Rem If we are here then we clicked on a button and a colour was returned
  Select ColNum
    Case 16384000
      Rem Zone (Button) 1
      Center Text 400,580,"You Clicked On Button 1"
      End
    EndCase
    Case 5156156
      Rem Zone (Button) 2
      Center Text 400,580,"You Clicked On Button 2"
    EndCase
    Case 255
      Rem Zone (Button) 3
      Center Text 400,580,"You Clicked On Button 3"
    EndCase
    Case 16776960
      Rem Zone (Button) 4
      Center Text 400,580,"You Clicked On Button 4"
    EndCase
    Case 16711935
      Rem Zone (Button) 5
      Center Text 400,580,"You Clicked On Button 5"
    EndCase
    Case 65535
      Rem Zone (Button) 6
      Center Text 400,580,"You Clicked On Button 6"
    EndCase
  EndSelect
Return


menu:
 Sync On: Sync Rate 60
  Load Image "media/menu.bmp",10
  Paste Image 10,0,0
  Sync
  Load Bitmap "media/secondbmp.bmp",1
  Set Current Bitmap 0
  Set Text Opaque
  sync
Return

ColNum = CheckRegion(Mx,My)

Function CheckRegion(X,Y)
  Set Current Bitmap 1
  Retval = Point(X,Y)
  Set Current Bitmap 0
EndFunction Retval

Rem Example 6 - Sprite Buttons
Rem From TDK_Man's Tutorial On Menu Screens

Gosub Setup

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  Sprite 100,Mx,My,100
  OverButton = Sprite Collision(100,0)
  If OverButton <> 0 Then Gosub HandleButton
  Sync
Loop
End

HandleButton:
  Rem If we are here then a collision was detected
  Select OverButton
    Case 1
      Rem Button 1
      If Mc=1
        Center Text 400,580,"You Clicked On Button 1"
      Endif
    EndCase
    Case 2
      Rem Button 2
      If Mc=1
        Center Text 400,580,"You Clicked On Button 2"
      Endif
    EndCase
    Case 3
      Rem Button 3
      If Mc=1
        Center Text 400,580,"You Clicked On Button 3"
      Endif
    EndCase
    Case 4
      Rem Button 4
      If Mc=1
        Center Text 400,580,"You Clicked On Button 4"
      Endif
    EndCase
    Case 5
      Rem Button 5
      If Mc=1
        Center Text 400,580,"You Clicked On Button 5"
      Endif
    EndCase
    Case 6
      Rem Button 6
      If Mc=1
        Center Text 400,580,"You Clicked On Button 6"
      Endif
    EndCase
  EndSelect
Return

Setup:
  Set Display Mode 800,600,32
  Sync On: Sync Rate 60
  Load Image "C:\Documents and Settings\neilo\My Documents\Screen4.jpg",10
  Load Image "C:\Documents and Settings\neilo\My Documents\M3B1.jpg",1
  Load Image "C:\Documents and Settings\neilo\My Documents\M3B2.jpg",2
  Load Image "C:\Documents and Settings\neilo\My Documents\M3B3.jpg",3
  Load Image "C:\Documents and Settings\neilo\My Documents\M3B4.jpg",4
  Load Image "C:\Documents and Settings\neilo\My Documents\M3B5.jpg",5
  Load Image "C:\Documents and Settings\neilo\My Documents\M3B6.jpg",6
  Set Text Opaque

  Rem Create and place button sprites
  SprNum = 1
  For Ny=0 To 2
    For Nx=0 To 1
      Sprite SprNum,Nx*300+130,Ny*100+200,SprNum
      Inc SprNum
    Next Nx
  Next Ny

  Rem Get Image For Hidden Sprite
  CLS 141241: Get Image 100,0,0,2,2

  Rem Create Hidden Sprite
  Sprite 100,400,300,100
  Hide Sprite 100
  Ink RGB(255,255,255),0
  Paste Image 10,0,0
  Sync
Return

If Overbutton <> 0 AND Mc=1 Then Gosub HandleButton

Gosub Setup

Do
  Sync
Loop
End

Setup:
  Set Display Mode 800,600,32
  Sync On: Sync Rate 60
  Load Image "C:\Documents and Settings\neilo\My Documents\MR_Brown\Screen4.jpg",10
  Load Image "C:\Documents and Settings\neilo\My Documents\MR_Brown\M3B1.jpg",1
  Set Text Opaque
  Paste Image 10,0,0
  sprite 1,100,200,1
  Sync
Return

sync
  Load Image "media/bg.jpg",10
  Load Image "media/button1.jpg",1
  Load Image "media/button2.jpg",2
  Load Image "media/button3.jpg",3
sync
  Set Text Opaque

  Rem Create and place button sprites
  SprNum = 1
  For Ny=0 To 2
    For Nx=0 To 1
    [ic:crossbones]  Sprite SprNum,Nx*300+130,Ny*100+200,SprNum [ic:crossbones]
      Inc SprNum
    Next Nx
  Next Ny