Mundo do CD-ROM 2/CDROM02.iso/tlapse/tloview.exe/OVERVIEW.DXR/00104.ls

Text File | 1996-04-26 | 503 b | 23 lines

on mouseUp
  set the castNum of sprite the clickOn to 108
  puppetSprite(the clickOn, 0)
  if (the mouseCast = 108) or (the mouseCast = 109) then
    FadeAllAudio()
    go("end")
  end if
  updateStage()
end

on mouseDown
  set snum to the clickOn
  puppetSprite(snum, 1)
  repeat while the mouseDown
    if (the mouseCast = 108) or (the mouseCast = 109) then
      set the castNum of sprite snum to 109
    else
      set the castNum of sprite snum to 108
    end if
    updateStage()
  end repeat
end