Computer Buyer 1995 November/SHOWCASE.ISO/files/vision.dir/00009_Script_9

Text File | 1995-06-14 | 573b | 20 lines

on mousedown
  put the clickOn into whichSprite
  puppetSprite whichSprite, TRUE
  set the castnum of sprite whichSprite = ¼
    the number of cast (the name of cast (the castnum of sprite whichSprite) && "lit")
  repeat while the stilldown
    updatestage
  end repeat
end

on mouseUp
  put the clickOn into whichSprite
  set the castnum of sprite whichSprite = ¼
    the number of cast (word 1 of the name of cast (the castnum of sprite whichSprite))
  updatestage
  puppetSprite whichSprite, FALSE
  clearpuppets
  go previous
  puppettransition 0
end