PC Direct 1995 September/PCD0995.ISO/files/gallery.dir/00042.ls

Text File | 1994-12-18 | 567 b | 23 lines

on mouseDown
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite WhichSprite to the number of cast "UpTooth lit"
  repeat while the stillDown
    updateStage()
  end repeat
end

on mouseUp
  repeat with x = 28 to 30
    puppetSprite(x, 0)
  end repeat
  set the castNum of sprite the clickOn to the number of cast "UpTooth"
  if the mouseCast = the number of cast "UpTooth" then
    go("PowerUp")
  end if
  if the mouseCast = the number of cast "UpTooth lit" then
    go("PowerUp")
  end if
  puppetSprite(the clickOn, 0)
end