home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00129.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  687 b   |  28 lines
  1. on mouseUp
  2.   cursor(200)
  3.   set txt to EMPTY
  4.   sound close 1
  5.   puppetSound("telex")
  6.   set txt2 to the text of cast "TelexText"
  7.   set the text of cast "Textticker" to txt
  8.   set the visible of sprite 21 to 1
  9.   repeat with sd = 1 to the number of chars in txt2
  10.     set txt to txt & char sd of txt2
  11.     if the number of chars in txt > 111 then
  12.       set txt to char 2 to the number of chars in txt of txt
  13.     end if
  14.     repeat with zz = 1 to 60
  15.       nothing()
  16.     end repeat
  17.     set the text of cast "Textticker" to txt
  18.     updateStage()
  19.   end repeat
  20.   sound close 1
  21.   repeat with zz = 1 to 2000
  22.     nothing()
  23.   end repeat
  24.   set the visible of sprite 21 to 0
  25.   cursor(-1)
  26.   CheckSound()
  27. end
  28.