Computer Buyer 1995 November/SHOWCASE.ISO/files/vision.dir/00208_Script_208

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

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

on mouseUp
  repeat with x = 5 to 7
    puppetSprite x, 0
  end repeat
  puppetSprite (the clickon), 0
  --  set the castNum of sprite the clickon = the number of cast "UpTooth"
  --  if the mousecast = the number of cast "UpTooth" then go "DropScreen"
  --  if the mousecast = the number of cast "UpTooth lit" then go "DropScreen"
  go "DropScreen"
end