home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00022_CDXDDPTEXT.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  1.2 KB  |  26 lines
  1. on CDXDDPTEXT PosInList
  2.   global WhichInxTopMenuList, CDXDrpMenu, CDXStrip, CDXwhichLine
  3.   if rollOver(CDXDrpMenu) and the mouseDown then
  4.     set BoxDifference to 16
  5.     set the castNum of sprite CDXStrip to the number of member getAt(getAt(WhichInxTopMenuList, PosInList), 9)
  6.     repeat while rollOver(CDXDrpMenu) and the mouseDown
  7.       set whichSprite to the mouseCast
  8.       if (whichSprite = the castNum of sprite CDXDrpMenu) and ((the mouseLine <> CDXwhichLine) or (the mouseLine = 1)) then
  9.         set WhichLibTerm to line the mouseLine of field whichSprite
  10.         set CDXwhichLine to the mouseLine
  11.         if CDXwhichLine <> -1 then
  12.           set the locH of sprite CDXStrip to getAt(getAt(WhichInxTopMenuList, PosInList), 10)
  13.           set the locV of sprite CDXStrip to getAt(getAt(WhichInxTopMenuList, PosInList), 11) + ((CDXwhichLine - 1) * BoxDifference)
  14.           updateStage()
  15.         end if
  16.       end if
  17.     end repeat
  18.     if rollOver(CDXDrpMenu) then
  19.       put line the mouseLine of field whichSprite into field the number of member getAt(getAt(WhichInxTopMenuList, PosInList), 4)
  20.       updateStage()
  21.     end if
  22.     set the locH of sprite CDXStrip to 2000
  23.     updateStage()
  24.   end if
  25. end
  26.