MacFormat 1996 July/macformat-039.iso/MAKERS/MAIN.DIR/00092.ls

Text File | 1996-03-12 | 1.6 KB | 78 lines

on startMovie
  global theSprite, CurrSound, ItemDel, status, ToGo, prevMovie
  if (prevMovie <> "body") or (prevMovie <> "power") then
    set prevMovie to "body"
  end if
  set CurrSound to EMPTY
  set theSprite to 1
  set the volume of sprite 2 to 255
  set the volume of sprite 1 to 255
  set status to []
  if the machineType = 256 then
    set ItemDel to "\"
  else
    set ItemDel to ":"
  end if
  set the itemDelimiter to ","
  set ToGo to "open"
end

on rollOvers
  global theSprite
  if rollOver(11) then
    set theSprite to 3
    go("power")
  else
    if rollOver(12) then
      set theSprite to 4
      go("body")
    else
      if rollOver(9) then
        set theSprite to 9
        go("search")
      else
        if the mouseCast = 135 then
          changeCast(135, 18)
        else
          if the mouseCast = 137 then
            changeCast(137, 19)
          end if
        end if
      end if
    end if
  end if
end

on changeCast theRoll, theSprite
  if not (the name of cast the castNum of sprite theSprite contains "down") then
    set the castNum of sprite theSprite to the castNum of sprite theSprite - 1
    updateStage()
    repeat while (the mouseCast = (theRoll - 1)) and not (the mouseDown)
    end repeat
    set the castNum of sprite theSprite to the castNum of sprite theSprite + 1
  end if
end

on disposeRearWindow
  global rwObj
  if the machineType <> 256 then
    if objectp(rwObj) then
      rwObj(mdispose)
    end if
  end if
end

on stopMovie
  puppetSound(0)
  puppetSound(2, 0)
  sound stop 1
  sound stop 2
  sound stop 3
  sound stop 4
  puppetSound(0)
  puppetSound(2, 0)
  unLoadCast(114)
  updateStage()
  updateStage()
end