home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Jargonb.dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  1.1 KB  |  42 lines
  1. global index, rolled1, rolled2
  2.  
  3. on exitFrame
  4.   if rollOver(18) then
  5.     set L1 to the mouseLine
  6.     if (L1 <> rolled1) and (L1 <> -1) then
  7.       set the foreColor of line rolled1 of field "blanklist1" to 255
  8.       set the foreColor of line L1 of field "blanklist1" to 213
  9.       updateStage()
  10.       set rolled1 to L1
  11.     end if
  12.   else
  13.     if rolled1 <> 0 then
  14.       set the foreColor of line rolled1 of field "blanklist1" to 255
  15.       set rolled1 to 0
  16.     end if
  17.   end if
  18.   if rollOver(19) then
  19.     set L2 to the mouseLine
  20.     if (L2 <> rolled2) and (L2 <> -1) then
  21.       set the foreColor of line rolled2 of field "blanklist2" to 255
  22.       set the foreColor of line L2 of field "blanklist2" to 213
  23.       updateStage()
  24.       set rolled2 to L2
  25.     end if
  26.   else
  27.     if rolled2 <> 0 then
  28.       set the foreColor of line rolled2 of field "blanklist2" to 255
  29.       set rolled2 to 0
  30.     end if
  31.   end if
  32.   if rollOver(40) then
  33.     set the member of sprite 40 to member "menublak"
  34.   else
  35.     set the member of sprite 40 to member "menured"
  36.   end if
  37.   go(the frame)
  38. end
  39.  
  40. on rightMouseDown
  41. end
  42.