Passport/passport.iso/pc/passport/help.dxr/Script_1.ls

Text File | 1998-02-02 | 1.8 KB | 84 lines

on prepareMovie
  global gHelpStarted
  tell the stage
    getOption("HelpStarted")
  end tell
  if the result <> "TRUE" then
    puppetSprite(40, 1)
    set the memberNum of sprite 40 to 2
    tell the stage
      setOption("HelpStarted", "TRUE")
    end tell
  end if
  set gHelpStarted to 1
  set the puppet of sprite 5 to 1
  repeat with i in [32, 33, 37, 38]
    set the cursor of sprite i to [50, 51]
  end repeat
  set the volume of sound 2 to 0
end

on startMovie
  global myStat
  if the puppet of sprite 40 then
    exit
  end if
  tell the stage
    getProperty("the moviename")
  end tell
  set MovName to char 1 to offset(".", the result) - 1 of the result
  tell the stage
    getProperty("the frame")
  end tell
  set Frm to the result
  case MovName of
    "Topics":
      go(3)
    "Basics", "Grammar":
      go(5)
    "Alphabet", "Calendar", "Family", "Colours", "Numbers", "Time":
      go(6)
    "Words":
      if word 1 of myStat = "Basics" then
        if word 2 of myStat = "W" then
          go(7)
        else
          go(8)
        end if
      else
        if word 2 of myStat = "W" then
          go(10)
        else
          go(11)
        end if
      end if
    "Dialog":
      tell the stage
        getProperty("label(" & QUOTE & "comic" & QUOTE & ")")
      end tell
      if Frm < the result then
        go(13)
      else
        go(14)
      end if
    otherwise:
      if MovName contains "Town" then
        go(4)
      else
        tell the stage
          GetTopic(MovName)
        end tell
        if the result <> "00" then
          tell the stage
            getProperty("label(" & QUOTE & "Info" & QUOTE & ")")
          end tell
          if (the result = 0) or (Frm < the result) then
            go(9)
          else
            go(15)
          end if
        end if
      end if
  end case
end