home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 95 / WIN95_CD.ISO / adds / medium / shared.dir / 00652.ls < prev    next >
Encoding:
Text File  |  1995-05-30  |  2.6 KB  |  87 lines
  1. on auszeit
  2.   global mH, mV, z, ticks
  3.   if the lastEvent > (5 * 60) then
  4.     set ticks to 25 * 60
  5.     set oldSound to the soundLevel
  6.     set the soundLevel to 0
  7.     set mH to the mouseH
  8.     set mV to the mouseV
  9.     repeat while (mH = the mouseH) and (mV = the mouseV)
  10.       if (mH <> the mouseH) or (mV <> the mouseV) then
  11.         exit repeat
  12.       end if
  13.       if (mH = the mouseH) and (mV = the mouseV) then
  14.         go(1, "lc")
  15.         repeat with z = 1 to 15
  16.           go(label(line z of the labelList) + 1)
  17.           pausieren(ticks)
  18.           if (mH <> the mouseH) and (mV <> the mouseV) then
  19.             exit repeat
  20.           end if
  21.         end repeat
  22.       end if
  23.       if (mH = the mouseH) and (mV = the mouseV) then
  24.         go(1, "lcd")
  25.         repeat with z = 1 to 9
  26.           go(label(line z of the labelList) + 1)
  27.           pausieren(ticks)
  28.           if (mH <> the mouseH) and (mV <> the mouseV) then
  29.             exit repeat
  30.           end if
  31.         end repeat
  32.       end if
  33.       if (mH = the mouseH) and (mV = the mouseV) then
  34.         go(1, "Flex")
  35.         repeat with z = 1 to 4
  36.           go(label(line z of the labelList) + 1)
  37.           pausieren(ticks)
  38.           if (mH <> the mouseH) and (mV <> the mouseV) then
  39.             exit repeat
  40.           end if
  41.         end repeat
  42.       end if
  43.       if (mH = the mouseH) and (mV = the mouseV) then
  44.         go(1, "Praes")
  45.         repeat with z = 1 to 5
  46.           go(label(line z of the labelList) + 1)
  47.           pausieren(ticks)
  48.           if (mH <> the mouseH) and (mV <> the mouseV) then
  49.             exit repeat
  50.           end if
  51.         end repeat
  52.       end if
  53.       if (mH = the mouseH) and (mV = the mouseV) then
  54.         go(1, "over")
  55.         repeat with z = 1 to 5
  56.           go(label(line z of the labelList) + 1)
  57.           pausieren(ticks)
  58.           if (mH <> the mouseH) and (mV <> the mouseV) then
  59.             exit repeat
  60.           end if
  61.         end repeat
  62.       end if
  63.       if (mH = the mouseH) and (mV = the mouseV) then
  64.         go(1, "Lein")
  65.         repeat with z = 1 to 4
  66.           go(label(line z of the labelList))
  67.           pausieren(ticks)
  68.           if (mH <> the mouseH) and (mV <> the mouseV) then
  69.             exit repeat
  70.           end if
  71.         end repeat
  72.       end if
  73.       if (mH = the mouseH) and (mV = the mouseV) then
  74.         go(1, "Zub")
  75.         repeat with z = 1 to 6
  76.           go(label(line z of the labelList))
  77.           pausieren(ticks)
  78.           if (mH <> the mouseH) and (mV <> the mouseV) then
  79.             exit repeat
  80.           end if
  81.         end repeat
  82.       end if
  83.     end repeat
  84.     set the soundLevel to oldSound
  85.   end if
  86. end
  87.