home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1996 June / PCOnline_06_1996.iso / mrmore / mrmore.dir / 00652_Script_652 < prev    next >
Text File  |  1996-04-11  |  878b  |  31 lines
  1. -- Ordner init
  2.  
  3. on exitFrame
  4.   global goGBTools, gsOldDir, gsPopupType
  5.   
  6.   if gsPopupType = "faxe" then 
  7.     set s = "Fax"
  8.   else if gsPopupType = "desi" then
  9.     set s = "Design"
  10.   else if gsPopupType = "clip" then
  11.     set s = "Clip Art"
  12.   end if
  13.   
  14.   set the text of cast "InstDirTitle"  = "Bitte geben Sie ein Zielverzeichnis fⁿr "&s&"-Dateien an!"
  15.   
  16.   set  gsOldDir = goGBTools(mGetCurPath)
  17.   set the text of cast "Laufwerke" = ""
  18.   repeat with i = 2 to 25
  19.     if goGBTools(mSetDrive, NumToChar(CharToNum("A")+i)) then
  20.       set the text of cast "Laufwerke" = the text of cast "Laufwerke" & NumToChar(CharToNum("A")+i) & ":"&return
  21.       goGBTools(mChDir, "\")  
  22.     end if
  23.   end repeat
  24.   
  25.   goGBTools(mSetDrive, line 1 of field "Laufwerke")
  26.   
  27.   ReadWindow()
  28.   
  29.   set the puppet of sprite 41 = false
  30.   set the puppet of sprite 42 = false
  31. end