Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/ch06_med/1bitgrph/andromed.dcr/00034.ls

Text File | 1996-12-02 | 300 b | 17 lines

on mouseDown
  puppetSprite(7, 1)
  repeat while the stillDown
    if rollOver(7) then
      set the castNum of sprite 7 to cast "highliteLeft"
    else
      set the castNum of sprite 7 to cast "Left"
    end if
    updateStage()
  end repeat
  puppetSprite(7, 0)
end

on mouseUp
  go("spokes")
end