home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1996 June / PCOnline_06_1996.iso / mrmore / mrmore.dir / 00129_Script_129 < prev    next >
Text File  |  1996-04-11  |  745b  |  27 lines
  1. on mouseUp
  2.   cursor 200
  3.   set txt = EMPTY
  4.   sound close 1
  5.   puppetsound "telex"
  6.   set txt2 =the text of cast "TelexText"
  7.   set the text of cast "Textticker" = txt
  8.   set the visible of sprite 21 = true
  9.   repeat with sd = 1 to (the number of chars in txt2)
  10.     set txt= txt & char sd of txt2
  11.     if the number of chars in txt>111 then
  12.       set txt = char 2 to (the number of chars in txt) of txt
  13.     end if
  14.     repeat with zz = 1 to 60   -- Zeitverz÷gerung
  15.       nothing
  16.     end repeat
  17.     set the text of cast "Textticker" = txt
  18.     updatestage
  19.   end repeat 
  20.   sound close 1
  21.   repeat with zz = 1 to 2000   -- Zeitverz÷gerung
  22.     nothing
  23.   end repeat
  24.   set the visible of sprite 21 = false
  25.   cursor -1
  26.   CheckSound()
  27. end