Computerworld 1996 April/Computerworld_1996-04_cd.bin/cw/demo/adamdemo/cdemo.dir/00220.ls

Text File | 1995-05-04 | 2.8 KB | 128 lines

on buttonMotion upstate, downstate
  global delayTime
  set channelnum to findChannel(upstate)
  if channelnum > 0 then
    puppetSprite(channelnum, 1)
    set the castNum of sprite channelnum to downstate
    updateStage()
    repeat while the mouseDown
    end repeat
    set the castNum of sprite channelnum to upstate
    updateStage()
    puppetSprite(channelnum, 0)
  end if
end

on swapCast upstate, downstate
  set channelnum to findChannel(upstate)
  if channelnum > 0 then
    puppetSprite(channelnum, 1)
    set the castNum of sprite channelnum to downstate
    updateStage()
    puppetSprite(channelnum, 0)
  end if
end

on buttonAction origin8cast, startcast, endcast
  set mychannel to findChannel(origin8cast)
  if mychannel <> 0 then
    repeat with counter = the number of cast startcast to the number of cast endcast
      set the castNum of sprite mychannel to counter
      repeat with delaycount = 1 to 125
      end repeat
      updateStage()
    end repeat
    set counter to the number of cast endcast
    repeat while counter >= the number of cast startcast
      set the castNum of sprite mychannel to counter
      repeat with delaycount = 1 to 200
      end repeat
      updateStage()
      set counter to counter - 1
    end repeat
    set the castNum of sprite mychannel to origin8cast
    updateStage()
  end if
end

on buttonRange origin8cast, startcast, endcast
  set mychannel to findChannel(origin8cast)
  if mychannel <> 0 then
    repeat with counter = the number of cast startcast to the number of cast endcast
      set the castNum of sprite mychannel to counter
      repeat with delaycount = 1 to 120
      end repeat
      updateStage()
    end repeat
    set counter to the number of cast endcast
    repeat while counter >= the number of cast startcast
      set the castNum of sprite mychannel to counter
      repeat with delaycount = 1 to 90
      end repeat
      updateStage()
      set the castNum of sprite mychannel to origin8cast
      updateStage()
    end repeat
  end if
end

on findChannel theCast
  set foundIt to 0
  repeat with counter = 1 to 24
    if the castNum of sprite counter = theCast then
      set foundIt to counter
      exit repeat
    end if
  end repeat
  return foundIt
end

on Layer
  puppetSound("ClickSnd")
  cursor(200)
  go("layer")
  puppetSound(0)
end

on View
  puppetSound("ClickSnd")
  cursor(200)
  go("view")
  puppetSound(0)
end

on Mag
  puppetSound("ClickSnd")
  cursor(200)
  go("mag")
  puppetSound(0)
end

on plr
  puppetSound("ClickSnd")
  cursor(200)
  go("plr")
  puppetSound(0)
end

on CS
  puppetSound("ClickSnd")
  cursor(200)
  go("CSMRI")
  puppetSound(0)
end

on isolate
  puppetSound("ClickSnd")
  cursor(200)
  go("iso")
  puppetSound(0)
end

on radio
  puppetSound("ClickSnd")
  cursor(200)
  go("radio")
  puppetSound(0)
end