home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  2.2 KB  |  67 lines
  1. on mouseDown
  2.   global glInstallList, gbInstallEinkauf
  3.   set glInstallList to list()
  4.   set nLines to the number of lines in field "InstallFont"
  5.   if line 1 of field "InstallFont" contains "keine Daten gew├ñhlt" then
  6.     set nLines to 0
  7.   end if
  8.   repeat with n = 1 to nLines
  9.     if line n of field "InstallFont" <> EMPTY then
  10.       append(glInstallList, "font" & line n of field "InstallFont")
  11.     end if
  12.   end repeat
  13.   set nLines to the number of lines in field "InstallGame"
  14.   if line 1 of field "InstallGame" contains "keine Daten gew├ñhlt" then
  15.     set nLines to 0
  16.   end if
  17.   repeat with n = 1 to nLines
  18.     if line n of field "InstallGame" <> EMPTY then
  19.       append(glInstallList, "game" & line n of field "InstallGame")
  20.     end if
  21.   end repeat
  22.   set nLines to the number of lines in field "InstallClip"
  23.   if line 1 of field "InstallClip" contains "keine Daten gew├ñhlt" then
  24.     set nLines to 0
  25.   end if
  26.   repeat with n = 1 to nLines
  27.     if line n of field "InstallClip" <> EMPTY then
  28.       append(glInstallList, "clip" & line n of field "InstallClip")
  29.     end if
  30.   end repeat
  31.   set nLines to the number of lines in field "Installfaxe"
  32.   if line 1 of field "Installfaxe" contains "keine Daten gew├ñhlt" then
  33.     set nLines to 0
  34.   end if
  35.   repeat with n = 1 to nLines
  36.     if line n of field "InstallFaxe" <> EMPTY then
  37.       append(glInstallList, "faxe" & line n of field "Installfaxe")
  38.     end if
  39.   end repeat
  40.   set nLines to the number of lines in field "Installdesi"
  41.   if line 1 of field "Installdesi" contains "keine Daten gew├ñhlt" then
  42.     set nLines to 0
  43.   end if
  44.   repeat with n = 1 to nLines
  45.     if line n of field "InstallDesi" <> EMPTY then
  46.       append(glInstallList, "desi" & line n of field "Installdesi")
  47.     end if
  48.   end repeat
  49.   set nLines to the number of lines in field "InstallUtil"
  50.   if line 1 of field "InstallUtil" contains "keine Daten gew├ñhlt" then
  51.     set nLines to 0
  52.   end if
  53.   repeat with n = 1 to nLines
  54.     if line n of field "InstallUtil" <> EMPTY then
  55.       append(glInstallList, "Util" & line n of field "InstallUtil")
  56.     end if
  57.   end repeat
  58.   put glInstallList
  59.   if count(glInstallList) < 1 then
  60.     exit
  61.   end if
  62.   InitWaitWindow()
  63.   StartMrMore(EMPTY, "more wait")
  64.   ResetKorb()
  65.   set gbInstallEinkauf to 1
  66. end
  67.