home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Jargonb.dxr / 00031_tabRefresh.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  2.1 KB  |  63 lines
  1. global tabx, tabname, index, blanklist1, blanklist2, linecount1, linecount2, firstLetter, secondLetter, checkprev, ready
  2.  
  3. on mouseUp
  4.   if (the rollOver < 2) or (the rollOver > 15) then
  5.     exit
  6.   end if
  7.   set the member of sprite 20 to "blankPic"
  8.   set checkprev to index
  9.   set tabx to the rollOver
  10.   set tabname to the name of the member of sprite tabx
  11.   set index to tabname
  12.   delete char 1 of index
  13.   set tablist to ["cover", "AB", "CD", "EF", "GH", "IJ", "KL", "MN", "OP", "QR", "ST", "UV", "WX", "YZ"]
  14.   if char 1 of tabname = "r" then
  15.     repeat with n = tabx to 14
  16.       set the locH of sprite n to 11
  17.       set tabname to the name of the member of sprite n
  18.       delete char 1 of tabname
  19.       put "l" before tabname
  20.       set the member of sprite n to member tabname
  21.     end repeat
  22.     if index = checkprev then
  23.       exit
  24.     end if
  25.   else
  26.     set currentPos to getPos(tablist, index)
  27.     set index to getAt(tablist, currentPos)
  28.     repeat with n = tabx down to 2
  29.       set the locH of sprite n to 627
  30.       set tabname to the name of the member of sprite n
  31.       delete char 1 of tabname
  32.       put "r" before tabname
  33.       set the member of sprite n to member tabname
  34.     end repeat
  35.     if index = checkprev then
  36.       exit
  37.     end if
  38.   end if
  39.   if index <> "cover" then
  40.     go(5)
  41.     set firstLetter to char 1 of index
  42.     set secondLetter to char 2 of index
  43.     set the member of sprite 16 to the number of member ("ind" & firstLetter)
  44.     set the member of sprite 17 to the number of member ("ind" & secondLetter)
  45.     puppetSprite(16, 1)
  46.     puppetSprite(17, 1)
  47.     puppetSprite(18, 1)
  48.     puppetSprite(19, 1)
  49.     set linecount1 to 0
  50.     set linecount2 to 0
  51.     set the visible of sprite 18 to 0
  52.     set the visible of sprite 19 to 0
  53.     set the scrollTop of member "blanklist1" to 1
  54.     set the scrollTop of member "blanklist2" to 1
  55.     put the text of member ("list" & firstLetter) into field "blankList1"
  56.     put the text of member ("list" & secondLetter) into field "blankList2"
  57.     set the visible of sprite 16 to 1
  58.     set the visible of sprite 17 to 1
  59.     set the visible of sprite 18 to 1
  60.     set the visible of sprite 19 to 1
  61.   end if
  62. end
  63.