Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nct06015.geo/00028_MC LOGIC.ls

Text File | 1997-03-19 | 3.8 KB | 197 lines

on initMC
  set_NumOfTries(0)
  set_showMeSP(41)
  set_nowPressedAns(0)
  if get_practiceNum() = 1 then
    set_MCScore(4)
    set_rightAns(6)
    UpdateAnsCurs(17, 24, 3)
  else
    if get_practiceNum() = 2 then
      set_MCScore(4)
      set_rightAns(18)
      UpdateAnsCurs(17, 37, 3)
    else
      if get_practiceNum() = 3 then
        set_MCScore(4)
        set_rightAns(4)
        UpdateAnsCurs(17, 25, 3)
      else
        if get_practiceNum() = 4 then
          set_MCScore(3)
          set_rightAns(1)
          UpdateAnsCurs(17, 19, 3)
        end if
      end if
    end if
  end if
  UpdateCursors(get_showMeSP(), 3)
end

on updateThisMCScore
  if get_MCScore() > 0 then
    if (get_NumOfTries() * 1.5) > (get_MCScore() + 1.5) then
      set_MCScore(0)
    else
      set_MCScore(get_MCScore() + 1.5 - (get_NumOfTries() * 1.5))
    end if
  end if
  updateScore(get_MCScore(), get_practiceNum())
end

on pressAns theAns
  sound stop 2
  if get_nowPressedAns() <> 0 then
    UpdateCursors(get_nowPressedAns() + 16, 3)
  end if
  UpdateCursors(theAns + 16, 0)
  updateStage()
  set_NumOfTries(get_NumOfTries() + 1)
  do("pressAns" & get_practiceNum() && theAns)
  set_nowPressedAns(theAns)
end

on pressAns1 theAns
  if theAns = get_rightAns() then
    UpdateAnsCurs(17, 24, 0)
    updateThisMCScore()
    go("t10-rightAns")
  else
    go("fb1." & item theAns of "7,1,2,3,4,0,5,6")
  end if
end

on pressAns2 theAns
  if theAns <> get_nowPressedAns() then
    if theAns = get_rightAns() then
      UpdateAnsCurs(17, 37, 0)
      updateThisMCScore()
      go("t11-rightAns")
    else
      go("fb2." & item theAns of "6,6,1,2,6,6,6,6,3,6,6,6,6,4,6,6,6,0,5,6,6")
    end if
  end if
end

on pressAns3 theAns
  if theAns <> get_nowPressedAns() then
    if theAns = get_rightAns() then
      UpdateAnsCurs(17, 25, 0)
      updateThisMCScore()
      go("t12-rightAns")
    else
      go("fb3." & item theAns of "4,1,2,0,3,4,5,6,7")
    end if
  end if
end

on pressAns4 theAns
  if theAns = get_rightAns() then
    UpdateAnsCurs(17, 19, 0)
    updateThisMCScore()
    go("t13-rightAns")
  else
    go("fb4")
  end if
end

on UpdateAnsCurs bottomVal, topVal, whichCurs
  repeat with i = bottomVal to topVal
    UpdateCursors(i, whichCurs)
  end repeat
end

on handleShowMe
  set the castNum of sprite get_showMeSP() to cast "SHOWME"
  updateStage()
  sound stop 2
  if get_NumOfTries() = 3 then
    updateScore(0, get_practiceNum())
  else
    updateScore(99, get_practiceNum())
  end if
  if get_practiceNum() = 1 then
    go("t10-rightAns")
  else
    if get_practiceNum() = 2 then
      go("t11-rightAns")
    else
      if get_practiceNum() = 3 then
        go("t12-rightAns")
      else
        if get_practiceNum() = 4 then
          go("t13-rightAns")
        end if
      end if
    end if
  end if
end

on updateScore theScore, taskInChapter
  global scoreOrderList, ScoreByTasksList
  set cellLocInList to getAt(scoreOrderList, integer(Get_CurrentTool()))
  set subList to getAt(ScoreByTasksList, cellLocInList)
  setAt(subList, taskInChapter, theScore)
  setAt(ScoreByTasksList, cellLocInList, subList)
end

on set_NumOfTries int
  global NumOfTries
  set NumOfTries to int
end

on get_NumOfTries
  global NumOfTries
  return NumOfTries
end

on set_rightAns theAns
  global RightAns
  set RightAns to theAns
end

on get_rightAns
  global RightAns
  return RightAns
end

on set_nowPressedAns int
  global nowPressedAns
  set nowPressedAns to int
end

on get_nowPressedAns
  global nowPressedAns
  return nowPressedAns
end

on set_showMeSP int
  global showMeSP
  set showMeSP to int
end

on get_showMeSP
  global showMeSP
  return showMeSP
end

on set_practiceNum int
  global practiceNum
  set practiceNum to int
end

on get_practiceNum
  global practiceNum
  return practiceNum
end

on set_MCScore int
  global MCScore
  set MCScore to int
end

on get_MCScore
  global MCScore
  return MCScore
end