תקליטור אוסף מעל 200 משחקים מרתקים/over-200-games-micro-a-media.iso/CONNECTD/SHARED.DIR/01000.ls

Text File | 1996-01-12 | 11.8 KB | 506 lines

on center
  set the centerStage to 1
  set the fixStageSize to 1
end

on setLocal
  puppetSprite(48, 1)
  set the castNum of sprite 48 to the number of cast "dot"
end

on mouseCheck
  global ram, invOn, level, invCurs, invMask, plz1Door, plz2Door, cyd2Door, cyd4Door, cyd7Door
  if (the mouseCast = the number of cast "exitL") or (the mouseCast = the number of cast "exitL.alt") then
    cursor([2, 3])
    updateStage()
  else
    if (the mouseCast = the number of cast "exitR") or (the mouseCast = the number of cast "exitR.alt") then
      cursor([4, 5])
      updateStage()
    else
      if the mouseCast = the number of cast "forward" then
        cursor([6, 7])
        updateStage()
      else
        if the mouseCast = the number of cast "back" then
          cursor([8, 9])
          updateStage()
        else
          if the mouseCast = the number of cast "do" then
            if invOn = 1 then
              cursor([invCurs, invMask])
            else
              cursor([10, 11])
            end if
            updateStage()
          else
            if the mouseCast = the number of cast "talk" then
              if invOn = 1 then
                cursor([invCurs, invMask])
              else
                cursor([12, 13])
              end if
              updateStage()
            else
              if the mouseCast = the number of cast "door" then
                if level = 1 then
                  if (the frameLabel = plz1Door) or (the frameLabel = plz2Door) or (the frameLabel = (plz1Door & "b")) or (the frameLabel = (plz2Door & "b")) or (the frameLabel = cyd2Door) or (the frameLabel = cyd4Door) or (the frameLabel = cyd7Door) then
                    cursor([6, 7])
                    updateStage()
                  else
                    cursor([10, 11])
                    updateStage()
                  end if
                else
                  cursor([6, 7])
                  updateStage()
                end if
              else
                if invOn = 0 then
                  cursor(0)
                  updateStage()
                else
                  if invOn = 1 then
                    cursor([invCurs, invMask])
                    updateStage()
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  go(the frame)
end

on navLeft altNode
  global seton, invOn, invCurs, thisnode, thisdir
  set invOn to 0
  set invCurs to 0
  if seton = 0 then
    set thisnode to chars(the frameLabel, 1, 5)
    set thisdir to chars(the frameLabel, 6, 6)
    if thisdir = "N" then
      preLoadCast(thisnode & "NW")
      preLoadCast(thisnode & "W")
      if altNode = "a" then
        go(thisnode & "NWa")
        go(thisnode & "Wa")
      else
        if altNode = "b" then
          go(thisnode & "NWb")
          go(thisnode & "Wb")
        else
          go(thisnode & "NW")
          go(thisnode & "W")
        end if
      end if
    else
      if thisdir = "W" then
        preLoadCast(thisnode & "SW")
        preLoadCast(thisnode & "S")
        if altNode = "a" then
          go(thisnode & "SWa")
          go(thisnode & "Sa")
        else
          if altNode = "b" then
            go(thisnode & "SWb")
            go(thisnode & "Sb")
          else
            go(thisnode & "SW")
            go(thisnode & "S")
          end if
        end if
      else
        if thisdir = "S" then
          preLoadCast(thisnode & "SE")
          preLoadCast(thisnode & "E")
          if altNode = "a" then
            go(thisnode & "SEa")
            go(thisnode & "Ea")
          else
            if altNode = "b" then
              go(thisnode & "SEb")
              go(thisnode & "Eb")
            else
              go(thisnode & "SE")
              go(thisnode & "E")
            end if
          end if
        else
          if thisdir = "E" then
            preLoadCast(thisnode & "NE")
            preLoadCast(thisnode & "N")
            if altNode = "a" then
              go(thisnode & "NEa")
              go(thisnode & "Na")
            else
              if altNode = "b" then
                go(thisnode & "NEb")
                go(thisnode & "Nb")
              else
                go(thisnode & "NE")
                go(thisnode & "N")
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on navRight altNode
  global seton, invOn, invCurs, thisnode, thisdir
  set invOn to 0
  set invCurs to 0
  if seton = 0 then
    set thisnode to chars(the frameLabel, 1, 5)
    set thisdir to chars(the frameLabel, 6, 6)
    if thisdir = "N" then
      preLoadCast(thisnode & "NE")
      preLoadCast(thisnode & "E")
      if altNode = "a" then
        go(thisnode & "NEa")
        go(thisnode & "Ea")
      else
        if altNode = "b" then
          go(thisnode & "NEb")
          go(thisnode & "Eb")
        else
          go(thisnode & "NE")
          go(thisnode & "E")
        end if
      end if
    else
      if thisdir = "E" then
        preLoadCast(thisnode & "SE")
        preLoadCast(thisnode & "S")
        if altNode = "a" then
          go(thisnode & "SEa")
          go(thisnode & "Sa")
        else
          if altNode = "b" then
            go(thisnode & "SEb")
            go(thisnode & "Sb")
          else
            go(thisnode & "SE")
            go(thisnode & "S")
          end if
        end if
      else
        if thisdir = "S" then
          preLoadCast(thisnode & "SW")
          preLoadCast(thisnode & "W")
          if altNode = "a" then
            go(thisnode & "SWa")
            go(thisnode & "Wa")
          else
            if altNode = "b" then
              go(thisnode & "SWb")
              go(thisnode & "Wb")
            else
              go(thisnode & "SW")
              go(thisnode & "W")
            end if
          end if
        else
          if thisdir = "W" then
            preLoadCast(thisnode & "NW")
            preLoadCast(thisnode & "N")
            if altNode = "a" then
              go(thisnode & "NWa")
              go(thisnode & "Na")
            else
              if altNode = "b" then
                go(thisnode & "NWb")
                go(thisnode & "Nb")
              else
                go(thisnode & "NW")
                go(thisnode & "N")
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on forward stepFrame, toWhere
  global thisnode, seton, invOn, invCurs
  set invOn to 0
  set invCurs to 0
  set thisnode to chars(toWhere, 1, 5)
  if seton = 0 then
    cursor(4)
    unLoad()
    if stepFrame = 1 then
      preLoadCast("to" & toWhere)
    end if
    cursor(0)
    if stepFrame = 1 then
      go("to" & toWhere)
    else
      puppetTransition(23)
    end if
    go(toWhere)
  end if
end

on doSound whichSound
  puppetSound(whichSound)
  updateStage()
end

on qtButton whichOne
  global QTon, savePlace, JDspecial, special, level, pal, winVers, helpOn
  if QTon = 0 then
    set QTon to 1
    if helpOn = 0 then
      set savePlace to the frame
      set pal to the framePalette
      puppetSound(0)
      sound stop 2
      if JDspecial <> EMPTY then
        set holdit to JDspecial
        killSpecial()
        set JDspecial to holdit
      end if
      repeat with x = 1 to 12
        if special = x then
          set temp to special
          set killThing to "killSpecial"
          put x after killThing
          do(killThing)
          set special to temp
        end if
      end repeat
    end if
  end if
  set helpOn to 0
  if level = 4 then
    if whichOne = "wrap" then
      go("CQT1")
    else
      if whichOne = "tapestry" then
        go("CQT2")
      else
        if whichOne = "table" then
          go("CQT3")
        else
          if whichOne = "boat" then
            go("CQT4")
          else
            if whichOne = "map" then
              go("CQT5")
            else
              if whichOne = "bible" then
                go("CQT6")
              else
                if whichOne = "telescope" then
                  go("CQT7")
                else
                  if whichOne = "watch" then
                    go("CQT8")
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  else
    if level = 5 then
      if whichOne = "teacup" then
        go("CQT1")
      else
        if whichOne = "vase" then
          go("CQT2")
        else
          if whichOne = "hiero" then
            go("CQT3")
          else
            if whichOne = "therm" then
              go("CQT4")
            else
              if whichOne = "pi" then
                go("CQT5")
              else
                if whichOne = "code" then
                  go("CQT6")
                else
                  if whichOne = "boat" then
                    go("CQT7")
                  else
                    if whichOne = "cellPhone" then
                      go("CQT8")
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  tell the stage
    if (the colorDepth = 8) and (winVers <> 1) then
      fixpal(mPatchIt)
    end if
    if level = 1 then
      puppetPalette("system")
    else
      set palThing to "preloadCast" && QUOTE & "pal lev"
      put level after palThing
      put " + System" & QUOTE after palThing
      do(palThing)
      set palThing to "puppetPalette" && QUOTE & "pal lev"
      put level after palThing
      put " + System" & QUOTE after palThing
      put ", 60" after palThing
      do(palThing)
    end if
    go("QT" & level)
  end tell
end

on closeQT
  go(the frame + 1)
end

on closeQT2
  global pal, level, JDspecial, special, savePlace, QTon, saveQT
  tell the stage
    if pal = -1 then
      puppetPalette("system", 60)
    else
      preLoadCast(pal)
      puppetPalette(pal, 60)
    end if
    go("main" & level)
  end tell
  if JDspecial <> EMPTY then
    setSpecial(JDspecial)
  end if
  repeat with x = 1 to 12
    if special = x then
      set setThing to "setSpecial"
      put x after setThing
      do(setThing)
    end if
  end repeat
  go(value(savePlace))
  set QTon to 0
  set saveQT to EMPTY
end

on goQt whichSequence, whichPalette
  global invOn, invCurs, QTc, winVers
  set invOn to 0
  set invCurs to 0
  cursor(200)
  tell the stage
    cursor(200)
  end tell
  set QTc to whichSequence & ".c"
  if whichPalette <> 0 then
    tell the stage
      preLoadCast(whichPalette)
      puppetPalette(whichPalette, 60)
    end tell
  end if
  if (the colorDepth = 8) and (winVers <> 1) then
    tell the stage
      fixpal(mPatchIt)
    end tell
  end if
  if (the colorDepth = 16) and (winVers <> 1) then
    go(whichSequence & ".16")
    exit
  else
    if winVers = 1 then
      sound stop 1
      sound stop 2
    end if
    go(whichSequence & ".8")
  end if
end

on goto whichFrame
  global invOn, ram
  set invOn to 0
  go(whichFrame)
end

on gotoU whichFrame
  global invOn
  set invOn to 0
  unLoad()
  go(whichFrame)
end

on goto.alt whichFrame
  global seton, ram
  if seton = 0 then
    if ram < 4000 then
      set ram to ram + 150
    else
      unLoad()
      set ram to 0
    end if
    go(whichFrame)
  end if
end

on ram howmuch
  global ram
  set ram to ram + howmuch
end

on checksound whichChannel
  cursor(200)
  repeat while the soundBusy of whichChannel
    nothing()
  end repeat
  cursor(0)
  updateStage()
end

on wait howLong
  startTimer()
  repeat while the timer < howLong
    go(the frame)
  end repeat
end

on repeatQT whichChannel
  repeat while the movieTime of sprite whichChannel < the stopTime of sprite whichChannel
    go(the frame)
  end repeat
end

on wr
  puppetTransition(1, 0, 60)
end

on wl
  puppetTransition(2, 0, 60)
end

on dp
  puppetTransition(23)
end

on wu
  puppetTransition(4, 0, 60)
end

on wd
  puppetTransition(3, 0, 60)
end