home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 September / macgaichiban199609.bin / MOVIES / COMPUTER / 00273.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  379 b   |  17 lines
  1. on modem
  2.   set castNum to 0
  3.   cursor(-1)
  4.   puppetSound("modem")
  5.   updateStage()
  6.   repeat while soundBusy(1)
  7.     if castNum = 0 then
  8.       set castNum to 1
  9.       set the castNum of sprite clickOn() to the number of cast "waku,0"
  10.     else
  11.       set castNum to 0
  12.       set the castNum of sprite clickOn() to the number of cast "waku,1"
  13.     end if
  14.     updateStage()
  15.   end repeat
  16. end
  17.