Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nc_mm030.geo/00039.ls

Text File | 1997-03-19 | 9.1 KB | 492 lines

on startMovie
  global WasIN_MM030
  set WasIN_MM030 to 1
  CheckForTagWd()
  initLesson()
  TheinitCursor()
  Set_CurrentTool("00")
end

on stopMovie
  sound stop 2
  sound stop 1
  setEmptyCursor()
end

on TheinitCursor
  initCursorCastNum()
  initCursorList(1)
  set CursorCastNum to getCursor(2)
  cursor([CursorCastNum, CursorCastNum + 1])
end

on InitMenu
  set_NumOfAnswers(11)
  Set_AnsSprite(10)
  Set_PressedLast(EMPTY)
  InitBtns()
  setRollName(EMPTY)
end

on InitBtns
  set numOfBtn to Get_NumOfAnswers()
  repeat with i = 1 to numOfBtn
    set the puppet of sprite (Get_AnsSprite() + i - 1) to 1
  end repeat
end

on checkScreenStatus
  CheckRollOver()
  go(the frame)
end

on PressBtn theBtn
  Set_PressedLast(theBtn)
  switchButt(Get_AnsSprite() + theBtn - 1, "down" & theBtn, "HandleBtn" && theBtn)
end

on HandleBtn theBtn
  global ReturnToMenu
  set ReturnToMenu to "SUBJECT"
  if theBtn = 1 then
    Set_ScreenSubject("01")
  else
    if theBtn = 2 then
      Set_ScreenSubject("02")
    else
      if theBtn = 3 then
        Set_ScreenSubject("03")
      else
        if theBtn = 4 then
          Set_ScreenSubject("04")
        else
          if theBtn = 5 then
            Set_ScreenSubject("05")
          else
            if theBtn = 6 then
              Set_ScreenSubject("06")
            else
              if theBtn = 7 then
                Set_ScreenSubject("07")
              else
                if theBtn = 8 then
                  Set_ScreenSubject("08")
                else
                  if theBtn = 9 then
                    Set_ScreenSubject("09")
                  else
                    if theBtn = 10 then
                      Set_ScreenSubject("10")
                    else
                      if theBtn = 11 then
                        Set_ScreenSubject("11")
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  set the castNum of sprite (Get_AnsSprite() + get_PressedLast() - 1) to the number of cast ("ANS" & get_PressedLast())
  if Get_ScreenSubject() = "01" then
    go(1, "NCS01010.GEO")
  else
    if Get_ScreenSubject() = "02" then
      go(1, "NCS02010.GEO")
    else
      if Get_ScreenSubject() = "03" then
        go(1, "NCS03010.GEO")
      else
        if Get_ScreenSubject() = "04" then
          go(1, "NCS04010.GEO")
        else
          if Get_ScreenSubject() = "05" then
            go(1, "NCS05010.GEO")
          else
            if Get_ScreenSubject() = "06" then
              go(1, "NCS06010.GEO")
            else
              if Get_ScreenSubject() = "07" then
                go(1, "NCS07010.GEO")
              else
                if Get_ScreenSubject() = "08" then
                  go(1, "NCS08010.GEO")
                else
                  if Get_ScreenSubject() = "09" then
                    go(1, "NCS09010.GEO")
                  else
                    if Get_ScreenSubject() = "10" then
                      go(1, "NCS10010.GEO")
                    else
                      if Get_ScreenSubject() = "11" then
                        go(1, "NCS11010.GEO")
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on Set_CDcounter theNum
  global CDcounter
  set CDcounter to theNum
end

on Add_CDcounter theNum
  global CDcounter
  set CDcounter to theNum
end

on Get_CDcounter
  global CDcounter
  return CDcounter
end

on Set_AnsSprite theNum
  global AnsSprite
  set AnsSprite to theNum
end

on Get_AnsSprite
  global AnsSprite
  return AnsSprite
end

on set_NumOfAnswers theNum
  global NumOfAnswers
  set NumOfAnswers to theNum
end

on Get_NumOfAnswers
  global NumOfAnswers
  return NumOfAnswers
end

on Set_PressedLast theNum
  global PressedLast
  set PressedLast to theNum
end

on get_PressedLast
  global PressedLast
  return PressedLast
end

on Set_ScreenSubject theNum
  global ScreenSubject
  set ScreenSubject to theNum
end

on Get_ScreenSubject
  global ScreenSubject
  return ScreenSubject
end

on Set_ScreensTool01 theMode
  global ScreensTool01
  set ScreensTool01 to theMode
end

on Get_ScreensTool01
  global ScreensTool01
  return ScreensTool01
end

on Set_ScreensTool02 theMode
  global ScreensTool02
  set ScreensTool02 to theMode
end

on Get_ScreensTool02
  global ScreensTool02
  return ScreensTool02
end

on Set_ScreensTool03 theMode
  global ScreensTool03
  set ScreensTool03 to theMode
end

on Get_ScreensTool03
  global ScreensTool03
  return ScreensTool03
end

on Set_ScreensTool04 theMode
  global ScreensTool04
  set ScreensTool04 to theMode
end

on Get_ScreensTool04
  global ScreensTool04
  return ScreensTool04
end

on Set_ScreensTool05 theMode
  global ScreensTool05
  set ScreensTool05 to theMode
end

on Get_ScreensTool05
  global ScreensTool05
  return ScreensTool05
end

on Set_ScreensTool06 theMode
  global ScreensTool06
  set ScreensTool06 to theMode
end

on Get_ScreensTool06
  global ScreensTool06
  return ScreensTool06
end

on Set_ScreensTool07 theMode
  global ScreensTool07
  set ScreensTool07 to theMode
end

on Get_ScreensTool07
  global ScreensTool07
  return ScreensTool07
end

on Set_ScreensTool08 theMode
  global ScreensTool08
  set ScreensTool08 to theMode
end

on Get_ScreensTool08
  global ScreensTool08
  return ScreensTool08
end

on Set_ScreensTool09 theMode
  global ScreensTool09
  set ScreensTool09 to theMode
end

on Get_ScreensTool09
  global ScreensTool09
  return ScreensTool09
end

on Set_ScreensTool10 theMode
  global ScreensTool10
  set ScreensTool10 to theMode
end

on Get_ScreensTool10
  global ScreensTool10
  return ScreensTool10
end

on Set_ScreensTool11 theMode
  global ScreensTool11
  set ScreensTool11 to theMode
end

on Get_ScreensTool11
  global ScreensTool11
  return ScreensTool11
end

on Set_ScreensTool12 theMode
  global ScreensTool12
  set ScreensTool12 to theMode
end

on Get_ScreensTool12
  global ScreensTool12
  return ScreensTool12
end

on Set_ScreensTool13 theMode
  global ScreensTool13
  set ScreensTool13 to theMode
end

on Get_ScreensTool13
  global ScreensTool13
  return ScreensTool13
end

on Set_WasInPathTool01 theMode
  global WasInPathTool01
  set WasInPathTool01 to theMode
end

on Get_WasInPathTool01
  global WasInPathTool01
  return WasInPathTool01
end

on Set_WasInPathTool02 theMode
  global WasInPathTool02
  set WasInPathTool02 to theMode
end

on Get_WasInPathTool02
  global WasInPathTool02
  return WasInPathTool02
end

on Set_WasInPathTool03 theMode
  global WasInPathTool03
  set WasInPathTool03 to theMode
end

on Get_WasInPathTool03
  global WasInPathTool03
  return WasInPathTool03
end

on Set_WasInPathTool04 theMode
  global WasInPathTool04
  set WasInPathTool04 to theMode
end

on Get_WasInPathTool04
  global WasInPathTool04
  return WasInPathTool04
end

on Set_WasInPathTool05 theMode
  global WasInPathTool05
  set WasInPathTool05 to theMode
end

on Get_WasInPathTool05
  global WasInPathTool05
  return WasInPathTool05
end

on Set_WasInPathTool06 theMode
  global WasInPathTool06
  set WasInPathTool06 to theMode
end

on Get_WasInPathTool06
  global WasInPathTool06
  return WasInPathTool06
end

on Set_WasInPathTool07 theMode
  global WasInPathTool07
  set WasInPathTool07 to Get_SeenINPath()
end

on Get_WasInPathTool07
  global WasInPathTool07
  return WasInPathTool07
end

on Set_WasInPathTool08 theMode
  global WasInPathTool08
  set WasInPathTool08 to Get_SeenINPath()
end

on Get_WasInPathTool08
  global WasInPathTool08
  return WasInPathTool08
end

on Set_WasInPathTool09 theMode
  global WasInPathTool09
  set WasInPathTool09 to Get_SeenINPath()
end

on Get_WasInPathTool09
  global WasInPathTool09
  return WasInPathTool09
end

on Set_WasInPathTool10 theMode
  global WasInPathTool10
  set WasInPathTool10 to Get_SeenINPath()
end

on Get_WasInPathTool10
  global WasInPathTool10
  return WasInPathTool10
end

on Set_WasInPathTool11 theMode
  global WasInPathTool11
  set WasInPathTool11 to Get_SeenINPath()
end

on Get_WasInPathTool11
  global WasInPathTool11
  return WasInPathTool11
end

on Set_WasInPathTool12 theMode
  global WasInPathTool12
  set WasInPathTool12 to Get_SeenINPath()
end

on Get_WasInPathTool12
  global WasInPathTool12
  return WasInPathTool12
end

on Set_WasInPathTool13 theMode
  global WasInPathTool13
  set WasInPathTool13 to Get_SeenINPath()
end

on Get_WasInPathTool13
  global WasInPathTool13
  return WasInPathTool13
end

on Set_CurrentTool theMode
  global CurrentTool
  set CurrentTool to theMode
end

on Get_CurrentTool
  global CurrentTool
  return CurrentTool
end

on Set_CurrentSnakeScreens theMode
  global CurrentSnakeScreens
  set CurrentSnakeScreens to theMode
end

on Get_CurrentSnakeScreens
  global CurrentSnakeScreens
  return CurrentSnakeScreens
end

on Set_SeenINPath theNum, theItem
  global SEENINPath
  if paramCount() = 2 then
    put theNum into item theItem of SEENINPath
  else
    set SEENINPath to theNum
  end if
end

on Get_SeenINPath theItem
  global SEENINPath
  if paramCount() = 1 then
    return item theItem of SEENINPath
  else
    return SEENINPath
  end if
end