home *** CD-ROM | disk | FTP | other *** search
/ 75 Years of the BBC - Sound On Vision On / BBC.iso / pc / 75yrs / a-z.dxr / intscript_61.ls < prev    next >
Encoding:
Text File  |  1997-08-21  |  1.1 KB  |  17 lines
  1. global gTime, gWhere
  2.  
  3. on dotimechange
  4.   if gWhere = "tv" then
  5.     set gTime to [6, 5, 7, 9, 8, 8, 6, 6, 8, 5, 8, 6, 6, 8, 9, 7, 9, 7, 7, 7, 7, 6, 5, 5, 7, 7, 7, 6, 5, 9, 3, 5, 8, 9, 7, 9, 5, 6, 7, 5, 4, 7, 5, 8, 6, 8, 7, 4, 6, 9, 8, 9, 5, 7, 7, 9, 3, 6, 8, 5, 3, 9, 5, 3, 8, 8, 6, 4, 5, 4, 6, 5, 9, 9, 5, 4, 4, 3, 4, 6, 6, 9, 6, 4, 5, 6, 9, 8, 7, 5, 6]
  6.   end if
  7.   if gWhere = "radio" then
  8.     set gTime to [2, 6, 3, 5, 5, 3, 4, 3, 8, 5, 9, 4, 4, 8, 7, 3, 4, 3, 2, 4, 3, 5, 4, 9, 3, 3, 8, 4, 4, 4, 9, 8, 5, 2, 3, 2, 9, 2, 2, 3, 2, 3, 5, 2, 9, 5, 2, 4, 3, 8, 8, 7, 5, 4, 7, 6, 3, 4, 5, 6, 7, 4, 5, 8, 9, 7, 8, 3, 4, 2, 2, 3, 9, 6, 7, 3, 2, 7, 8, 4, 2, 9, 6, 9, 8, 4, 6, 2, 6, 3, 2, 5, 4, 6, 3, 9, 2, 5, 3, 2, 5, 6, 9, 6, 3, 2, 5, 4, 7, 4, 6, 9]
  9.   end if
  10.   if gWhere = "tech" then
  11.     set gTime to [9, 6, 3, 7, 6, 2, 3, 9, 3, 8, 4, 3, 8, 3, 8, 7, 7, 4, 2, 2, 6, 5, 5, 9, 4]
  12.   end if
  13.   if gWhere = "behind" then
  14.     set gTime to [4, 7, 9, 2, 7, 5, 5, 9, 3, 7, 5, 4, 6, 8, 5, 8, 6, 7, 6, 4, 6, 8, 4, 9, 3, 9, 5, 2, 8, 7, 6, 4, 9, 9, 2, 9, 2, 2, 5, 3, 6, 5, 8, 6, 4, 6]
  15.   end if
  16. end
  17.