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

Text File | 1996-01-12 | 14.1 KB | 390 lines

on saveGame
  global window, scene, chain, invList, inv1, inv2, inv3, inv4, inv5, saveMovie, SavePath, saveGlobal, tempSave, JDspecial, thisnode, thisdir, saveRootPath, saveWinPath, gender, holdBin, CD, hintsOn, 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, winVers
  cursor(4)
  set tempSave to EMPTY
  if QTon = 1 then
    set savePal to pal
  else
    set savePal to the framePalette
  end if
  tell window "guest"
    set SaveFrame to the frame
    set saveMovie to the movie
    set SavePath to the pathName
  end tell
  repeat with c = 1 to the number of items in saveGlobal
    put RETURN & value(item c of saveGlobal) after tempSave
  end repeat
  delete line 1 of tempSave
  if winVers = 1 then
    set savedFile to FileIO(mnew, "?Write", "name")
  else
    set savedFile to FileIO(mnew, "?Write", "Connections 1")
  end if
  if not objectp(savedFile) then
    set theProblem to string(savedFile)
    if not (theProblem = -43) then
      alert("Sorry, save did not work.  Be sure to save to an unlocked volume.")
    end if
    cursor(200)
    cursor(0)
    updateStage()
    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
    cursor(200)
    cursor(0)
    updateStage()
    exit
  end if
  put "**DCI LEVEL " & level & "**" & RETURN before tempSave
  savedFile(mWriteString, string(tempSave))
  if not (winVers = 1) then
    savedFile(mSetFinderInfo, "TEXT", "LUMI")
  end if
  savedFile(mdispose)
  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"
    continue()
    go(value(SaveFrame))
    set the castNum of sprite 48 to the number of cast "dot"
  end tell
  set seton to 0
  cursor(200)
  cursor(0)
  updateStage()
end

on loadGame
  global window, scene, chain, invList, inv1, inv2, inv3, inv4, inv5, saveMovie, SavePath, saveGlobal, tempSave, JDspecial, thisnode, thisdir, saveRootPath, saveWinPath, gender, holdBin, CD, hintsOn, 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, saveJDspecial, saveSpecial, winVers
  set saveJDspecial to JDspecial
  set saveSpecial to special
  sound stop 1
  sound stop 2
  if winVers = 1 then
    set savedFile to FileIO(mnew, "?Read", "TXT")
  else
    set savedFile to FileIO(mnew, "?Read", "TEXT")
  end if
  if not objectp(savedFile) then
    set theProblem to string(savedFile)
    if not (theProblem = -43) then
      alert("Sorry, load did not work.")
    end if
    cursor(200)
    cursor(0)
    updateStage()
    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"
      continue()
      go(value(SaveFrame))
      set the castNum of sprite 48 to the number of cast "dot"
    end tell
    set seton to 0
    cursor(200)
    cursor(0)
    updateStage()
    exit
  end if
  cursor(4)
  tell window "guest"
    updateStage()
  end tell
  updateStage()
  set holdBin to savedFile(mReadLine)
  if holdBin starts "**DCI LEVEL" then
    put savedFile(mReadFile) after holdBin
    if (holdBin starts "**DCI LEVEL 1") or (holdBin starts "**DCI LEVEL 2") or (holdBin starts "**DCI LEVEL 3") then
      tell window "guest"
        go(1, saveRootPath & "000")
      end tell
      go("swapCD", saveRootPath & "launcher")
      savedFile(mdispose)
      cursor(200)
      cursor(0)
      updateStage()
      exit
    end if
    if holdBin starts "**DCI LEVEL 4" then
      set endRepeat to 18
      put4()
    else
      if holdBin starts "**DCI LEVEL 5" then
        set endRepeat to 18
        put5()
      end if
    end if
    set saveDispose to saveGlobal
    delete line 1 of holdBin
    repeat with c = 1 to endRepeat
      set doThing to "set" && item 1 of saveDispose && "= "
      put QUOTE & line 1 of holdBin & QUOTE after doThing
      do(string(doThing))
      delete item 1 of saveDispose
      delete line 1 of holdBin
    end repeat
    set loopCount to the number of items in saveDispose
    repeat with c = 1 to loopCount
      set doThing to "put value(" & line 1 of holdBin & ") into" && item 1 of saveDispose
      do(string(doThing))
      delete item 1 of saveDispose
      delete line 1 of holdBin
    end repeat
    set seton to 0
    setPups()
    set restoreJDspecial to JDspecial
    set restoreSpecial to special
    if saveJDspecial <> EMPTY then
      tell window "guest"
        killSpecial()
      end tell
      set saveJDspecial to EMPTY
    end if
    repeat with x = 1 to 12
      if saveSpecial = x then
        set killThing to "killSpecial"
        put x after killThing
        tell window "guest"
          do(killThing)
        end tell
        set saveSpecial to 0
      end if
    end repeat
    set JDspecial to restoreJDspecial
    set special to restoreSpecial
    tell window "guest"
      go("loadFrame")
    end tell
    sound stop 1
    sound stop 2
    go("loading")
    tell window "guest"
      go("setUp", SavePath & saveMovie)
    end tell
    if savePal = -1 then
      puppetPalette("System", 60)
    else
      preLoadCast(savePal)
      puppetPalette(savePal, 60)
    end if
    go("main" & level)
    setChain()
    setInventory()
    savedFile(mdispose)
    cursor(200)
    cursor(0)
    updateStage()
    exit
  else
    alert("This is not a proper Connections Game File.")
    savedFile(mdispose)
    cursor(200)
    cursor(0)
    updateStage()
    continue()
    exit
  end if
end

on setUp
  global JDspecial, special, QTon, saveQT, savePlace, SaveFrame, helpOn
  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
  if QTon = 1 then
    set SaveFrame to savePlace
    set QTon to 0
    set saveQT to EMPTY
  end if
  if helpOn = 1 then
    set SaveFrame to savePlace
    set helpOn to 0
  end if
  go(value(SaveFrame))
  setLocal()
end

on resumeLoad
  global window, scene, chain, invList, inv1, inv2, inv3, inv4, inv5, saveMovie, SavePath, saveGlobal, tempSave, JDspecial, thisnode, thisdir, saveRootPath, saveWinPath, gender, holdBin, CD, hintsOn, 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, saveJDspecial, saveSpecial
  if holdBin starts "**DCI LEVEL 4" then
    set endRepeat to 18
    put4()
  else
    if holdBin starts "**DCI LEVEL 5" then
      set endRepeat to 18
      put5()
    end if
  end if
  set saveDispose to saveGlobal
  delete line 1 of holdBin
  repeat with c = 1 to endRepeat
    set doThing to "set" && item 1 of saveDispose && "= "
    put QUOTE & line 1 of holdBin & QUOTE after doThing
    do(string(doThing))
    delete item 1 of saveDispose
    delete line 1 of holdBin
  end repeat
  set loopCount to the number of items in saveDispose
  repeat with c = 1 to loopCount
    set doThing to "put value(" & line 1 of holdBin & ") into" && item 1 of saveDispose
    do(string(doThing))
    delete item 1 of saveDispose
    delete line 1 of holdBin
  end repeat
  set seton to 0
  setPups()
  tell window "guest"
    go("setUp", SavePath & saveMovie)
  end tell
  if savePal = -1 then
    puppetPalette("System", 60)
  else
    preLoadCast(savePal)
    puppetPalette(savePal, 60)
  end if
  go("main" & level)
  setChain()
  setInventory()
  cursor(200)
  cursor(0)
  updateStage()
end

on testInit 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 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
end