home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / popup.dir / 00007_Script_7 < prev    next >
Text File  |  1995-12-06  |  571b  |  25 lines
  1. -- LW wechseln
  2.  
  3. on mouseDown
  4.   global goGBTools
  5.   
  6.   set nList = the clickOn -1
  7.   set nBar = the clickOn -2
  8.   set the puppet of sprite nBar = true
  9.   
  10.   set nTextVPos =  the locV of sprite nList
  11.   set nTextHeight = the textheight of field the castNum of sprite nList
  12.   set n = (the mouseV - nTextVPos) / nTextHeight + 1
  13.   set sDrive = line n of the text of field the castNum of sprite nList
  14.   
  15.   if sDrive <> "" then
  16.     set the locV of sprite nBar = (n-1)*nTextHeight+nTextVPos
  17.     goGBTools(mSetDrive, sDrive)
  18.     ReadWindow()
  19.   end if
  20.   
  21. end
  22.  
  23.  
  24.  
  25.