PC/CD Gamer UK 39/PCGAMER39.bin/games/amber/amberhub.dxr/00014_cPuppeteer.ls

Text File | 1996-11-08 | 13.0 KB | 352 lines

property lsMachineProfile, lsLocations, lsLiveHotspots, lsAllHotspots, lsOnstage, lsEarshot, purgeList, lsAlwaysOnstage, sharedSprite, puppetTrans, lsInventory, lsInventoryData, inventoryStatus, lsForegroundData, lsMultiframes, loadedLocations, locationSublists, gHotSublist, basePalette, queuedSound, cursorQuality, ancestor

on birth me
  global gTransQuality, gCPU, gOriginPoint, gMenuBottomY, gInventoryTopY
  set lsMachineProfile to [#machineType: [#Mac, #powerMac, #PC], #horsePower: 0, #cursors: [#chevette, #yugo, #cadillac], #transitions: [#turnRight: "02,1,16,TRUE", #turnLeft: "01,1,16,TRUE", #forward: "26,2,0,TRUE", #lookAt: "26,2,0,TRUE", #backOff: "26,2,0,TRUE", #lookUp: "03,1,16,TRUE", #lookDown: "04,1,16,TRUE", #fadeIn: "26,2,0,TRUE", #slowMontage: "26,3,0,TRUE", #nextPage: "2,2,16,TRUE", #prevPage: "1,2,16,TRUE"], #sound: [#stradivarius, #closeAndPlay]]
  set ancestor to birth(script "cPuppeteer.2")
  set gTransQuality to #Best
  set cursorQuality to #cadillac
  set lsLocations to [:]
  set locationSublists to []
  set lsAllHotspots to []
  set lsLiveHotspots to []
  set lsOnstage to []
  set lsEarshot to []
  set purgeList to []
  set sharedSprite to 0
  set puppetTrans to #None
  set lsInventory to [#None, #None, #None, #None, #None, #None, #None]
  set lsInventoryData to [:]
  set inventoryStatus to #cool
  set loadedLocations to []
  set basePalette to "ROXY base"
  set queuedSound to #None
  if gCPU = #mistakenNotionOfaPC then
    set gOriginPoint to point(the stageLeft, the stageTop)
    set originY to getAt(gOriginPoint, 2)
    set gMenuBottomY to originY + 30
    set gInventoryTopY to originY + 380
  else
    set gOriginPoint to point(0, 0)
    set gMenuBottomY to 30
    set gInventoryTopY to 380
  end if
  return me
end

on enterNewDomain me, castList, multiFrameData, foregroundData, inventoryData
  set oldFreeMem to the freeBytes
  set tempVar to EMPTY
  repeat with i in castList
    put i after tempVar
  end repeat
  set lsLocations to value(tempVar)
  REPORT2("Puppeteer: I've initialized lsLocations (from text cast) at " & the timer & " ticks")
  set loadedLocations to []
  if listp(lsLocations) then
    set locationSublists to []
    set loadedLocations to []
    repeat with i = 1 to count(lsLocations)
      append(locationSublists, getPropAt(lsLocations, i))
    end repeat
    REPORT2("Puppeteer: I've initialized LocationSublists (the room-by-room 'hotlist') at " & the timer & " ticks")
  end if
  set tempVar to 0
  if the paramCount > 2 then
    set lsMultiframes to value(field multiFrameData)
    REPORT2("Puppeteer: I've initialized lsMultiframes at " & the timer & " ticks")
  end if
  if the paramCount > 3 then
    set lsForegroundData to value(field foregroundData)
    REPORT2("Puppeteer: I've initialized lsForegroundData at " & the timer & " ticks")
  end if
  if the paramCount > 4 then
    set lsInventoryData to value(field inventoryData)
    REPORT2("Puppeteer: I've initialized lsInventory at " & the timer & " ticks")
  end if
  initMultiFrames()
  REPORT2("Puppeteer: initMultiframes() complete at " & the timer & " ticks")
  set purgeList to []
end

on moveToLocation me
  global oStoryteller, g16bit, oFixPal, gCurrentPalette, oMemory
  repeat with z in purgeList
    unLoadCast(z)
  end repeat
  set purgeList to []
  set newLocation to getState(oStoryteller, #currentLocation)
  if getLocationStatus(me, newLocation) = #stored then
    loadLocationData(me, newLocation)
    REPORT(">> location-data (lists) for ΓÇó" & newLocation & "ΓÇó just loaded (" & the timer & " ticks)")
  else
    REPORT(">> location-data (lists) for ΓÇó" & newLocation & "ΓÇó already loaded (" & the timer & " ticks)")
  end if
  set locList to getLocationPointer(me, newLocation)
  set lsAllHotspots to getProp(locList, #Hotspots)
  set lsOnstage to getProp(locList, #onStage)
  set newSounds to getaProp(locList, #earShot)
  if voidp(newSounds) then
  else
    set lsEarshot to newSounds
  end if
  REPORT(">> location hotlist-pointers updated (" & the timer & " ticks)")
  if the colorDepth = 8 then
    set newPalette to 0
    set firstOnstageCast to 0
    if count(lsOnstage) then
      set firstOnstageCast to getProp(getAt(lsOnstage, 1), #castNum)
    end if
    if firstOnstageCast > 0 then
      set newPalette to the palette of cast firstOnstageCast
    end if
    if (newPalette <> basePalette) and (newPalette <> 0) and (newPalette <> gCurrentPalette) then
      set gCurrentPalette to newPalette
      puppetPalette(newPalette, 60)
      updateStage()
      oFixPal(mPatchIt)
      REPORT(">> palette changed and patched (" & the timer & " ticks)")
    else
    end if
  end if
  updateDisplay(me)
  REPORT(">> 'updateDisplay()' done (" & the timer & " ticks)")
end

on getLocationPointer me, locName, sublistFlag
  set mySublist to #None
  if string(locName) starts string(gHotSublist) then
    set mySublist to gHotSublist
  end if
  repeat with j in locationSublists
    if string(locName) starts string(j) then
      set mySublist to j
      set gHotSublist to j
    end if
  end repeat
  if mySublist = #None then
    put "Hmm, couldn't find an appropriate sublist for location #" & locName
    return #None
  else
    if the paramCount = 3 then
      if sublistFlag = #sublist then
        return mySublist
      end if
    else
      return getProp(getProp(lsLocations, mySublist), locName)
    end if
  end if
end

on getLocationStatus me, locName
  global oStoryteller
  set testLoc to getLocationPointer(me, locName)
  if ilk(testLoc, #propList) then
    return #loaded
  end if
  if ilk(testLoc, #linearList) then
    return #stored
  end if
  if voidp(testLoc) then
    setAt(getProp(the lsStateData of oStoryteller, #currentLocation), 1, getAt(getProp(the lsStateData of oStoryteller, #previousLocation), 1))
    alert("getLocationStatus : Hey! This location (#" & locName & ") isn't a stub-number OR a list..")
    abort()
  end if
  return #error
end

on loadLocationData me, locName
  global builderwindow, gLocData
  set stubNumber to getLocationPointer(me, locName)
  if not ilk(stubNumber, #linearList) then
    alert("Invalid stub-number! Perhaps this list is already loaded..")
    return #error
  end if
  if voidp(gLocData) then
    setProp(getProp(lsLocations, gHotSublist), locName, value(field getAt(stubNumber, 1)))
  else
    setProp(getProp(lsLocations, gHotSublist), locName, value(char getAt(stubNumber, 2) to getAt(stubNumber, 3) of getProp(gLocData, gHotSublist)))
  end if
  setaProp(getaProp(getProp(lsLocations, gHotSublist), locName), #storageCast, stubNumber)
  append(loadedLocations, [locName, stubNumber])
  REPORT(">>> New list assigned value (" & the timer & " ticks)")
  if (count(loadedLocations) > 12) and not getPos(the windowList, builderwindow) then
    set firstBorn to getAt(loadedLocations, 1)
    set locName to getAt(firstBorn, 1)
    setProp(getProp(lsLocations, getLocationPointer(me, locName, #sublist)), locName, getAt(firstBorn, 2))
    deleteAt(loadedLocations, 1)
    REPORT(">>> oldest location purged.. (" & the timer & " ticks)")
  end if
  return #OK
end

on purgeLocationData me, locName
  set stubNumber to getaProp(getaProp(getProp(lsLocations, gHotSublist), locName), #storageCast)
  if voidp(stubNumber) then
    alert("No #storageCast for this location. A new location, perhaps?")
    return #error
  end if
  setProp(getProp(lsLocations, gHotSublist), locName, stubNumber)
end

on updateDisplay me, optionSwitch
  global lastScoreSprite, oStoryteller, gSoundPath, gOriginPoint, gSndStart, gSoundDelay
  if queuedSound <> #None then
    soundEffect(queuedSound)
    updateStage()
    set queuedSound to #None
    set sndFlag to 1
  else
    set sndFlag to 0
  end if
  set useLocalBeds to #on
  set lsLiveHotspots to []
  REPORT(">>> 'updateDisplay()' started ( " & the timer & " ticks )")
  if listp(lsEarshot) then
    if count(lsEarshot) then
      if getState(oStoryteller, #currentDomain) = "ROXY" then
        set houseHumVol to getAt(lsEarshot, 1)
        if houseHumVol > 0 then
          setLoop(#houseHum, houseHumVol)
        else
          endLoop(#houseHum)
        end if
        set phoneVol to getAt(lsEarshot, 2)
        if (getState(oStoryteller, #ghostlyPhoneCall) = #ringingNow) and (phoneVol <> 0) then
          setLoop(#phoneRinging, phoneVol)
        end if
        if getState(oStoryteller, #AMBERVISION) = #on then
          playDomainEntrySound()
        end if
      end if
    end if
  end if
  repeat with i in lsOnstage
    if evaluate(oStoryteller, getProp(i, #showIF)) then
      set assignedCast to getProp(i, #castNum)
      if not integerp(assignedCast) then
        set triggerVar to getAt(assignedCast, 1)
        set frameStack to getaProp(lsMultiframes, getAt(assignedCast, 2))
        if voidp(frameStack) then
          alert("Whoa, grabbed a void from lsMultiframes, trying to get: " & getAt(assignedCast, 2))
          exit
        end if
        if triggerVar = #AMBERVISION then
          if getState(oStoryteller, #AMBERVISION) <> #on then
            set assignedCast to getaProp(frameStack, #off)
          else
            set assignedCast to getaProp(frameStack, getState(oStoryteller, triggerVar))
          end if
        else
          set assignedCast to getaProp(frameStack, getState(oStoryteller, triggerVar))
        end if
        if voidp(assignedCast) then
          alert("Whoa, grabbed a void from the framestack, trying to get prop ' " & getState(oStoryteller, triggerVar) & "' from the state-var '#" & triggerVar & "'")
          exit
        end if
      end if
      append(purgeList, assignedCast)
      if integerp(getProp(i, #channel)) or (getProp(i, #channel) = #shared) then
        if getProp(i, #channel) <> #shared then
          set sharedSprite to lastScoreSprite + getProp(i, #channel)
        end if
        puppetSprite(sharedSprite, 1)
        set the castNum of sprite sharedSprite to assignedCast
        set the ink of sprite sharedSprite to getProp(i, #ink)
        set the loc of sprite sharedSprite to getProp(i, #coords) + gOriginPoint
      else
        if (getProp(i, #channel) = #sound) and (useLocalBeds = #on) then
          set sndVolume to getProp(i, #earShot)
          if sndVolume < 0 then
            endLoop(value(getProp(i, #castName)))
          else
            setLoop(value(getProp(i, #castName)), sndVolume)
          end if
        end if
        if getProp(i, #channel) = #video then
          set videoSprite to 44
          if the castNum of sprite videoSprite = 7 then
            puppetSprite(videoSprite, 1)
            set the castNum of sprite videoSprite to assignedCast
            set vidCoords to getProp(i, #coords) + gOriginPoint
            if optionSwitch = #fastVideo then
              set the loc of sprite videoSprite to vidCoords
            else
              set the video of member assignedCast to 0
            end if
          end if
        end if
      end if
      next repeat
    end if
    if integerp(getProp(i, #channel)) then
      set unwantedSprite to lastScoreSprite + getProp(i, #channel)
    end if
    set the castNum of sprite unwantedSprite to 6
    set the loc of sprite unwantedSprite to point(320, -360) + gOriginPoint
  end repeat
  REPORT(">>> onstage cast evaluated and placed on-stage ( " & the timer & " ticks )   [through sprite " & sharedSprite & "]")
  repeat with i = sharedSprite + 1 to 37
    set the castNum of sprite i to 6
    set the loc of sprite i to point(320, -360) + gOriginPoint
  end repeat
  REPORT(">>> remaining sprites placed off-screen ( " & the timer & " ticks )")
  repeat with i in lsAllHotspots
    if evaluate(oStoryteller, getAt(i, 4)) then
      append(lsLiveHotspots, i)
    end if
  end repeat
  REPORT(">>> hot-spots evaluated and placed on-stage ( " & the timer & " ticks )")
  if puppetTrans <> #None then
    do("puppetTransition " & puppetTrans)
  end if
  REPORT(">>> puppetTransition done ( " & the timer & " ticks )")
  set myMem to the freeBytes
  if sndFlag = 1 then
    set startT to getAt(gSndStart, 2)
    repeat while the ticks < (startT + gSoundDelay)
    end repeat
  end if
  updateStage()
  if optionSwitch <> #fastVideo then
    set the loc of sprite videoSprite to vidCoords
    set the video of member the castNum of sprite 44 to 1
  end if
  REPORT(">>> updateStage done ( " & the timer & " ticks )")
  set loadSize to (myMem - the freeBytes) / 1024
  REPORT("    (loaded " & loadSize & " K, then performed transition [" & puppetTrans & "] )")
  set puppetTrans to #None
end

on setTransition me, transitionID
  global gStopTransitions
  if gStopTransitions then
    exit
  end if
  if stringp(transitionID) then
    set puppetTrans to transitionID
  else
    set transList to getProp(lsMachineProfile, #transitions)
    set puppetTrans to getProp(transList, transitionID)
  end if
end

on DoHotspots me
  global gCurrentHotspot, thisCursor, domainIsReady
  if domainIsReady = 0 then
    exit
  end if
  if listp(gCurrentHotspot) then
    disablePeekAlert()
    set cmdList to getAt(gCurrentHotspot, 3)
    set howManyLines to count(cmdList)
    repeat with i = 1 to howManyLines
      if i = howManyLines then
        enablePeekAlert()
      end if
      do(getAt(cmdList, i))
    end repeat
  end if
  set gCurrentHotspot to #None
end