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

Text File | 1996-01-12 | 19.0 KB | 597 lines

on setStart whichLevel
  global window, scene, chain, invList, inv1, inv2, inv3, inv4, inv5, saveMovie, SavePath, saveGlobal, tempSave, JDspecial, thisnode, thisdir, level, SaveFrame, savePlace, seton, QTon, invOn, invCurs, invMask, Bri, ram, special, pal, savePal, cursorGone, helpOn, dither4b, gears4c, tables4d, temp4d, whence5a, hieCode5c, matches5d, password5d, firstTap4b, tapDone4b, waterRun4c, nolense4c, notecounter4c, demonGone4c, pulpitUp4c, startSound4c, gearSound4c, firstCast4c, firstSprite4c, secondSprite4c, onGear4c, four4c, six4c, eight4c, firstGearNum4c, lastGearNum4c, gear80Num4c, gear60Num4c, gear40Num4c, hunchDown4c, hunchHappy4c, firstEmpty4d, lenseInScope4d, watchSet4d, galileo4d, lunch4d, wrapOn4d, cap4d, JBate4d, gotMap4d, shrinkRap4d, firstMom5a, cupOne5a, cupTwo5a, cupsDone5a, gotLoin5a, gotTherm5a, therm5a, ovenOn5a, atFish5a, fedFish5a, guardrap5b, emptybath5b, pharbathdone5b, slaveGone5c, QTnum5c, matchCount5d, letterCount5d, hoseGone5d, roverCapGone5d, genCapGone5d, doneFaxUp5d, hoseSet5d, arcGone5d, tentQT5d, phone5d, codeInInv5d, codeOnPole5d, genOn5d, state5e, lens5e, sticks5e, mirror5e
  set the exitLock to 1
  set window to EMPTY
  set scene to EMPTY
  set chain to "0,0,0,0,0,0,0,0"
  set invList to "0,0,0,0,0"
  set inv1 to EMPTY
  set inv2 to EMPTY
  set inv3 to EMPTY
  set inv4 to EMPTY
  set inv5 to EMPTY
  set saveMovie to EMPTY
  set SavePath to EMPTY
  set saveGlobal to EMPTY
  set tempSave to EMPTY
  set JDspecial to EMPTY
  set thisnode to EMPTY
  set thisdir to EMPTY
  set level to whichLevel
  set SaveFrame to 0
  set savePlace to 0
  set seton to 0
  set QTon to 0
  set invOn to 0
  set invCurs to 0
  set invMask to 0
  set Bri to 0
  set ram to 2000
  set special to 0
  set pal to 0
  set savePal to 0
  set cursorGone to 0
  set helpOn to 0
  if whichLevel = 4 then
    set dither4b to "R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R"
    set gears4c to "80,60,80,40,60,80,60,40,60"
    set tables4d to "0,1,1,1,1,1,0,1,0"
    set temp4d to "0,0,0,0,0,0,0,0,0"
  else
    if whichLevel = 5 then
      set whence5a to EMPTY
      set hieCode5c to "0,0"
      set matches5d to "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
      set password5d to "0,0,0,0"
    end if
  end if
  if whichLevel = 4 then
    set firstTap4b to 0
    set tapDone4b to 0
    set waterRun4c to 0
    set nolense4c to 0
    set notecounter4c to 0
    set demonGone4c to 0
    set pulpitUp4c to 0
    set startSound4c to 0
    set gearSound4c to 0
    set firstCast4c to 0
    set firstSprite4c to 0
    set secondSprite4c to 0
    set onGear4c to 0
    set four4c to 0
    set six4c to 0
    set eight4c to 0
    set firstGearNum4c to 0
    set lastGearNum4c to 0
    set gear80Num4c to 0
    set gear60Num4c to 0
    set gear40Num4c to 0
    set hunchDown4c to 0
    set hunchHappy4c to 0
    set firstEmpty4d to 0
    set lenseInScope4d to 0
    set watchSet4d to 0
    set galileo4d to 0
    set lunch4d to 0
    set wrapOn4d to 0
    set cap4d to 0
    set JBate4d to 0
    set gotMap4d to 0
    set shrinkRap4d to 0
  else
    if whichLevel = 5 then
      set firstMom5a to 0
      set cupOne5a to 0
      set cupTwo5a to 0
      set cupsDone5a to 0
      set gotLoin5a to 0
      set gotTherm5a to 0
      set therm5a to 1
      set ovenOn5a to 0
      set atFish5a to 0
      set fedFish5a to 0
      set guardrap5b to 0
      set emptybath5b to 0
      set pharbathdone5b to 0
      set slaveGone5c to 0
      set QTnum5c to 1
      set matchCount5d to 0
      set letterCount5d to 0
      set hoseGone5d to 0
      set roverCapGone5d to 0
      set genCapGone5d to 0
      set doneFaxUp5d to 0
      set hoseSet5d to 0
      set arcGone5d to 0
      set tentQT5d to 0
      set phone5d to 0
      set codeInInv5d to 0
      set codeOnPole5d to 0
      set genOn5d to 0
      set state5e to 0
      set lens5e to 0
      set sticks5e to 0
      set mirror5e to 0
    end if
  end if
  repeat with x = 1 to 5
    if whichLevel = x then
      set doPut to "put"
      put x after doPut
      do(doPut)
    end if
  end repeat
  setPups()
end

on put4
  global saveGlobal
  set saveGlobal to "scene,chain,invList,inv1,inv2,inv3,inv4,inv5,saveMovie,savePath,JDspecial,"
  put "thisNode,thisDir,gender," after saveGlobal
  put "dither4b,gears4c,tables4d,temp4d," after saveGlobal
  put "hintsOn,level,saveFrame,savePlace,qtOn,invOn,invCurs,invMask," after saveGlobal
  put "Bri,ram,special,pal,savePal,cursorGone,helpOn," after saveGlobal
  put "firstTap4b,tapDone4b,waterRun4c,nolense4c,notecounter4c,demonGone4c," after saveGlobal
  put "pulpitUp4c,startSound4c,gearSound4c,firstCast4c,firstSprite4c," after saveGlobal
  put "secondSprite4c,onGear4c,four4c,six4c,eight4c,firstGearNum4c,lastGearNum4c," after saveGlobal
  put "gear80Num4c,gear60Num4c,gear40Num4c,hunchDown4c,hunchHappy4c,firstEmpty4d," after saveGlobal
  put "lenseInScope4d,watchSet4d,galileo4d," after saveGlobal
  put "lunch4d,wrapOn4d,cap4d,JBate4d,gotMap4d,shrinkRap4d" after saveGlobal
end

on put5
  global saveGlobal
  set saveGlobal to "scene,chain,invList,inv1,inv2,inv3,inv4,inv5,saveMovie,savePath,JDspecial,"
  put "thisNode,thisDir,gender," after saveGlobal
  put "whence5a,hieCode5c,matches5d,password5d," after saveGlobal
  put "hintsOn,level,saveFrame,savePlace,qtOn,invOn,invCurs,invMask," after saveGlobal
  put "Bri,ram,special,pal,savePal,cursorGone,helpOn," after saveGlobal
  put "firstMom5a,cupOne5a,cupTwo5a,cupsDone5a,gotLoin5a,gotTherm5a,therm5a," after saveGlobal
  put "ovenOn5a,atFish5a,fedFish5a," after saveGlobal
  put "guardrap5b,emptybath5b,pharbathdone5b,slaveGone5c,QTnum5c," after saveGlobal
  put "letterCount5d,hoseGone5d,roverCapGone5d,genCapGone5d,doneFaxUp5d," after saveGlobal
  put "hoseSet5d,arcGone5d,tentQT5d,phone5d,codeInInv5d,codeOnPole5d,genOn5d," after saveGlobal
  put "state5e,lens5e,sticks5e,mirror5e" after saveGlobal
end

on setPups
  repeat with x = 4 to 8
    puppetSprite(x, 1)
    set the castNum of sprite x to the number of cast "dot"
  end repeat
  repeat with x = 10 to 17
    puppetSprite(x, 1)
    set the castNum of sprite x to the number of cast "dot"
  end repeat
  repeat with x = 20 to 22
    puppetSprite(x, 1)
    set the castNum of sprite x to the number of cast "dot"
  end repeat
  puppetSprite(24, 1)
  set the castNum of sprite 24 to the number of cast "dot"
end

on openMIAW whichOne
  global window
  if objectp(window) then
    forget(window)
  end if
  set horzOrigin to the stageLeft + 32
  set vertOrigin to the stageTop + 39
  set windowRect to rect(horzOrigin, vertOrigin, horzOrigin + 486, vertOrigin + 304)
  set window to window "guest"
  set the rect of window to windowRect
  if whichOne = 1 then
    set the fileName of window to "01A"
  else
    if whichOne = 2 then
      set the fileName of window to "02D"
    else
      if whichOne = 3 then
        set the fileName of window to "03B"
      else
        if whichOne = 4 then
          set the fileName of window to "04A"
        else
          if whichOne = 5 then
            set the fileName of window to "05DD"
          end if
        end if
      end if
    end if
  end if
  set the titleVisible of window to 0
  open(window)
end

on stopMovie
  global launcher, window, rwObj, fixpal
  if launcher <> 1 then
    if objectp(window) then
      forget(window)
    end if
    if objectp(rwObj) then
      rwObj(mdispose)
    end if
  end if
end

on hint
  global thisnode
  repeat with x = 1 to 8
    if thisnode = ("1cyd" & x) then
      tell window "guest"
        go("1cydHint")
      end tell
    end if
  end repeat
  if (thisnode = "1thr1") or (thisnode = "1thr2") then
    tell window "guest"
      go("doorHint")
    end tell
  end if
end

on addChain whichIcon
  global level, chain
  cursor(200)
  if level = 4 then
    if (whichIcon = "wrap") and not (chain contains "wrap") then
      puppetSound("scan")
      set the castNum of sprite 10 to the number of cast "cWrap"
      put whichIcon into item 1 of chain
    else
      if (whichIcon = "tapestry") and not (chain contains "tapestry") then
        puppetSound("scan")
        set the castNum of sprite 11 to the number of cast "cTapestry"
        put whichIcon into item 2 of chain
      else
        if (whichIcon = "table") and not (chain contains "table") then
          puppetSound("scan")
          set the castNum of sprite 12 to the number of cast "cTable"
          put whichIcon into item 3 of chain
        else
          if (whichIcon = "boat") and not (chain contains "boat") then
            puppetSound("scan")
            set the castNum of sprite 13 to the number of cast "cBoat"
            put whichIcon into item 4 of chain
          else
            if (whichIcon = "map") and not (chain contains "map") then
              puppetSound("scan")
              set the castNum of sprite 14 to the number of cast "cMap"
              put whichIcon into item 5 of chain
            else
              if (whichIcon = "bible") and not (chain contains "bible") then
                puppetSound("scan")
                set the castNum of sprite 15 to the number of cast "cBible"
                put whichIcon into item 6 of chain
              else
                if (whichIcon = "telescope") and not (chain contains "telescope") then
                  puppetSound("scan")
                  set the castNum of sprite 16 to the number of cast "cTelescope"
                  put whichIcon into item 7 of chain
                else
                  if (whichIcon = "watch") and not (chain contains "watch") then
                    puppetSound("scan")
                    set the castNum of sprite 17 to the number of cast "cWatch"
                    put whichIcon into item 8 of chain
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  else
    if level = 5 then
      if (whichIcon = "teacup") and not (chain contains "teacup") then
        puppetSound("scan")
        set the castNum of sprite 10 to the number of cast "cTeacup"
        put whichIcon into item 1 of chain
      else
        if (whichIcon = "vase") and not (chain contains "vase") then
          puppetSound("scan")
          set the castNum of sprite 11 to the number of cast "cVase"
          put whichIcon into item 2 of chain
        else
          if (whichIcon = "hieroglyphic") and not (chain contains "hieroglyphic") then
            puppetSound("scan")
            set the castNum of sprite 12 to the number of cast "cHiero"
            put whichIcon into item 3 of chain
          else
            if (whichIcon = "thermometer") and not (chain contains "thermometer") then
              puppetSound("scan")
              set the castNum of sprite 13 to the number of cast "cTherm"
              put whichIcon into item 4 of chain
            else
              if (whichIcon = "pi") and not (chain contains "pi") then
                puppetSound("scan")
                set the castNum of sprite 14 to the number of cast "cPi"
                put whichIcon into item 5 of chain
              else
                if (whichIcon = "code") and not (chain contains "code") then
                  puppetSound("scan")
                  set the castNum of sprite 15 to the number of cast "cCode"
                  put whichIcon into item 6 of chain
                else
                  if (whichIcon = "boat") and not (chain contains "boat") then
                    puppetSound("scan")
                    set the castNum of sprite 16 to the number of cast "cBoat5"
                    put whichIcon into item 7 of chain
                  else
                    if (whichIcon = "cellPhone") and not (chain contains "cellPhone") then
                      puppetSound("scan")
                      set the castNum of sprite 17 to the number of cast "cCellPhone"
                      put whichIcon into item 8 of chain
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on setChain
  global level, chain
  if level = 4 then
    if item 1 of chain <> "0" then
      set the castNum of sprite 10 to the number of cast "cWrap"
    end if
    if item 2 of chain <> "0" then
      set the castNum of sprite 11 to the number of cast "cTapestry"
    end if
    if item 3 of chain <> "0" then
      set the castNum of sprite 12 to the number of cast "cTable"
    end if
    if item 4 of chain <> "0" then
      set the castNum of sprite 13 to the number of cast "cBoat"
    end if
    if item 5 of chain <> "0" then
      set the castNum of sprite 14 to the number of cast "cMap"
    end if
    if item 6 of chain <> "0" then
      set the castNum of sprite 15 to the number of cast "cBible"
    end if
    if item 7 of chain <> "0" then
      set the castNum of sprite 16 to the number of cast "cTelescope"
    end if
    if item 8 of chain <> "0" then
      set the castNum of sprite 17 to the number of cast "cWatch"
    end if
  else
    if level = 5 then
      if item 1 of chain <> "0" then
        set the castNum of sprite 10 to the number of cast "cTeacup"
      end if
      if item 2 of chain <> "0" then
        set the castNum of sprite 11 to the number of cast "cVase"
      end if
      if item 3 of chain <> "0" then
        set the castNum of sprite 12 to the number of cast "cHiero"
      end if
      if item 4 of chain <> "0" then
        set the castNum of sprite 13 to the number of cast "cTherm"
      end if
      if item 5 of chain <> "0" then
        set the castNum of sprite 14 to the number of cast "cPi"
      end if
      if item 6 of chain <> "0" then
        set the castNum of sprite 15 to the number of cast "cCode"
      end if
      if item 7 of chain <> "0" then
        set the castNum of sprite 16 to the number of cast "cBoat5"
      end if
      if item 8 of chain <> "0" then
        set the castNum of sprite 17 to the number of cast "cCellPhone"
      end if
    end if
  end if
  updateStage()
end

on addInventory x
  global invList, inv1, inv2, inv3, inv4, inv5
  if not (invList contains x) then
    cursor(200)
    puppetSound("ping")
    if item 1 of invList = "0" then
      put x into item 1 of invList
      set inv1 to item 1 of invList
      setInventory()
      exit
    else
      if item 2 of invList = "0" then
        put x into item 2 of invList
        set inv2 to item 2 of invList
        setInventory()
        exit
      else
        if item 3 of invList = "0" then
          put x into item 3 of invList
          set inv3 to item 3 of invList
          setInventory()
          exit
        else
          if item 4 of invList = "0" then
            put x into item 4 of invList
            set inv4 to item 4 of invList
            setInventory()
            exit
          else
            if item 5 of invList = "0" then
              put x into item 5 of invList
              set inv5 to item 5 of invList
              setInventory()
              exit
            end if
          end if
        end if
      end if
    end if
  end if
end

on setInventory
  global invList, inv1, inv2, inv3, inv4, inv5
  cursor(200)
  if item 1 of invList <> "0" then
    set the castNum of sprite 4 to the number of cast inv1
  end if
  if item 2 of invList <> "0" then
    set the castNum of sprite 5 to the number of cast inv2
  end if
  if item 3 of invList <> "0" then
    set the castNum of sprite 6 to the number of cast inv3
  end if
  if item 4 of invList <> "0" then
    set the castNum of sprite 7 to the number of cast inv4
  end if
  if item 5 of invList <> "0" then
    set the castNum of sprite 8 to the number of cast inv5
  end if
end

on removeInventory x
  global invList
  cursor(200)
  puppetSound("ping")
  repeat with y = 1 to 5
    if item y of invList = x then
      put "0" into item y of invList
      set the castNum of sprite (y + 3) to the number of cast "dot"
    end if
  end repeat
end

on invThing whichView, otherView, yetAnotherView, stillAnotherView
  global seton, invOn, invCurs, invMask
  if seton = 0 then
    tell window "guest"
      set temp to the frameLabel
    end tell
    if (whichView = temp) or (otherView = temp) or (yetAnotherView = temp) or (stillAnotherView = temp) then
      if not (invCurs = (the castNum of sprite the clickOn + 1)) then
        cursor([the castNum of sprite the clickOn + 1, the castNum of sprite the clickOn + 2])
        updateStage()
        set invCurs to the castNum of sprite the clickOn + 1
        set invMask to the castNum of sprite the clickOn + 2
        set invOn to 1
      else
        cursor(0)
        updateStage()
        set invCurs to 0
        set invOn to 0
      end if
    else
      Bri()
    end if
  end if
end

on Bri
  global Bri
  if Bri = 0 then
    puppetSound("not yet")
    updateStage()
    set Bri to 1
  else
    if Bri = 1 then
      puppetSound("not yet2")
      updateStage()
      set Bri to 2
    else
      puppetSound("not yet3")
      updateStage()
      set Bri to 0
    end if
  end if
  checksound(1)
  puppetSound(0)
end

on settingsButton
  global helpOn, seton, QTon, level, SaveFrame, invOn, launcher, winVers, fh
  if helpOn = 0 then
    if seton = 0 then
      tell window "guest"
        if (QTon = 1) and (level = 1) then
          set the visible of sprite 2 to 0
        end if
        cursor(0)
        puppetSound(0)
        set the castNum of sprite 48 to the number of cast "setUp blocker"
        updateStage()
        pause()
        set SaveFrame to the frame
      end tell
      if level = 1 then
        set the castNum of sprite 20 to the number of cast "setUp screen"
      else
        set the castNum of sprite 20 to the number of cast "setUp screen2"
      end if
      set seton to 1
      set invOn to 0
    else
      set the castNum of sprite 20 to the number of cast "dot"
      set the castNum of sprite 21 to the number of cast "dot"
      set the castNum of sprite 22 to the number of cast "dot"
      tell window "guest"
        if (QTon = 1) and (level = 1) then
          set the visible of sprite 2 to 1
        end if
        continue()
        go(value(SaveFrame))
        set the castNum of sprite 48 to the number of cast "dot"
      end tell
      set seton to 0
      if (launcher = 1) and (winVers <> 1) then
        fh(mUpdateBorder)
      end if
    end if
  end if
end

on soundUp
  if the mouseDown then
    repeat while the stillDown
      if the locH of sprite 21 < 318 then
        set the locH of sprite 21 to the locH of sprite 21 + 12
        set the soundLevel to the soundLevel + 1
        set the volume of sound 1 to the soundLevel * 36
        set the volume of sound 2 to the soundLevel * 36
        puppetSound("beep")
        updateStage()
        startTimer()
        repeat while the timer < 20
          nothing()
        end repeat
      end if
    end repeat
  end if
end

on soundDown
  if the mouseDown then
    repeat while the stillDown
      if the locH of sprite 21 > 245 then
        set the locH of sprite 21 to the locH of sprite 21 - 12
        set the soundLevel to the soundLevel - 1
        set the volume of sound 1 to the soundLevel * 36
        set the volume of sound 2 to the soundLevel * 36
        puppetSound("beep")
        updateStage()
        startTimer()
        repeat while the timer < 20
          nothing()
        end repeat
      end if
    end repeat
  end if
end