home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / autocad / geniuscz / install.dat < prev    next >
Text File  |  1996-11-25  |  40KB  |  1,119 lines
  1. /*
  2. */
  3. /*
  4. */
  5. @DefineProject
  6.         @InDiskBell     = 1
  7.         @Name = "Genius LT"
  8.         @Version = "1.5 Windows"
  9.         @SubDir         = "\\GENLT"
  10.         @OutDrive       = C
  11.         @immediate      = 1       
  12.         @requires @harddisk
  13. @EndProject
  14.  
  15. @DefineVars
  16.         @dir     @WinDir = @WindowsDir
  17.         @drive   @WinDrv = @WindowsDrive
  18.         @dir     @WinSysDir = ""
  19.         @drive   @WinSysDrv = @WindowsDrive
  20.         @qstring @WinSysStr = ""
  21.         @Integer @Win32sReason = 0
  22.         @Drive   @OutDrive2  = @OutDrive
  23.         @Integer @cdinstall = 0
  24.         @Integer @win95     = 0  
  25.         @Qstring @GenSrcLabel = "Genius LT 1/5"
  26.         @QString @DriversBoot = ""
  27.         @Qstring @expend    ="exe"
  28.         @Dir     @SubDir2    = "\\ACLTWIN"
  29.         @qstring @sgenipfad =""
  30.         @Qstring @acadofini =""
  31.         @Integer @Need      = 0
  32.         @Integer @Needur    = 0
  33.         @integer @SInr = 1
  34.         @integer @oleclidate = 0
  35.         @Qstring @SIname = ""
  36.         @dir @backupdir = ""
  37.         @drive @backupdrive = @Windowsdrive
  38.         @qstring @COMSPECvar = "0123456789012345678901234567890123456789012345678901234567891234567890"
  39.     @qstring @PM = ""
  40. @EndVars
  41.  
  42. @If ("@indrive" == "A" || 
  43.      "@indrive" == "B")
  44. @else
  45.    @cdinstall = 1
  46.    @GenSrcLabel = "Genius LT CD"    
  47. @endif
  48.  
  49. @FlushOptions()
  50. @COMSPECvar = @getenv("COMSPEC")
  51.  
  52. @Display
  53. Genius CAD Software GmbH D-92224 Amberg, Germany
  54.  
  55. Tento program instaluje @Name @Version
  56.  
  57. Vybrßnφm [ZRUèIT] nebo stisknutφm klßvesy [ESC] ukonΦφte instalaci.         
  58.  
  59. @Pause
  60. @EndDisplay
  61.  
  62. //@chain ("@GenSrcLabel","@indrive:\\install.dat","start")
  63.  
  64. start:
  65. @If (@WindowsVersion < 301 )
  66. @Display
  67. @Name vy₧aduje Windows verze 3.1 nebo vyÜÜφ.
  68. Nynφ pou₧φvßte verzi @WindowsMajor.@WindowsMinor.
  69. @Pause
  70. @EndDisplay
  71. @EndIf
  72.  
  73. @Win32sReason = @StrToInt(@getini (
  74.    "GENIUS CAD SOFTWARE","InstallWin32sReason") )
  75. @WinSysStr = @StrToken( 
  76.    @getini("GENIUS CAD SOFTWARE","WindowsSystemDirectory"),0)
  77. @SetIni("GENIUS CAD SOFTWARE","InstallWin32sReason")
  78. @SetIni("GENIUS CAD SOFTWARE","WindowsSystemDirectory")
  79.  
  80. @if ("@WinSysStr" != "")
  81.    @WinSysDir = @WinSysStr
  82.    @WinSysDrv = @StrIndex(@WinSysStr,0)
  83. @else
  84.    @WinSysDir = "@WinDir\\system"
  85.    @WinSysDrv = @WinDrv
  86. @endif
  87.  
  88. @If(@WindowsMajor > 2 && @WindowsMinor > 94) 
  89.    @Win32sReason = 0
  90.    @win95 = 1
  91. @endif
  92.  
  93. /* check for 32s */
  94. @If (@Win32sReason == 3) /* kein win32s gefunden */
  95.    @SetOption(30)
  96.    @SetOption(34) // nicht nochmal fragen
  97. @elseif (@Win32sReason == 2) /* ältere Version gefunden */
  98.   @DlgCtrlSize(0,8,0,11,@MAX(@Strlen("Instalujte jej"),@Strlen("Neinstalujte to"))+10)
  99.   @GetOption
  100.   @Option 33 = "Instalujte jej" /*Installieren*/
  101.   @Option 31 = "Neinstalujte to" /*Cancel*/
  102.   WIN32S, instalovan² ve vaÜem poΦφtaΦi,
  103.   je starÜφ ne₧ ten, dodan² firmou
  104.   @name. Mß b²t aktualizovßn (nenφ vy₧adovßno)?
  105.   @EndOption
  106.   @Dlgctrlsize(0,-1,-1,0,0)
  107.   @if (31 [= @Option) @setOption(34) @EndIf // nicht nochmal fragen 
  108. @elseif  (@Win32sReason == 1) /* nicht laufende Version */
  109. @display
  110. Nenφ k dispozici informace o verzi programu WIN32S,
  111. instalovanΘ na vaÜem poΦφtaΦi, proto₧e WIN32S neb∞₧φ.
  112. Instalace m∙₧e pokraΦovat, ale @name
  113. nebude pracovat, dokud nepob∞₧φ WIN32S.
  114. DalÜφ informace najdete v souboru win32s.txt na tomto disku
  115. @pause
  116. @enddisplay
  117. @else
  118.    @SetOption(34) // anscheinend lauffähiges win32s vorhanden
  119. @EndIf
  120. @if (33 [= @option) @SetOption(30)
  121. @EndIf
  122. @GetGroups
  123. @Set Y = "Instalovat @Name verze @Version"/*"Installation von @Name Version @Version Vollversion"*/
  124. @Set V = "Instalovat dalÜφ normu"/*"Installation weiterer Norm*/
  125. @if (34 [! @Option) 
  126. @Set W = "(Instalovat Microsoft WIN32S)"
  127. @EndIf 
  128. Prosφm, vyberte jednu z polo₧ek:/*Bitte wählen Sie eine Option aus:*/
  129. @DlgCtrlSize(0,3,0,6,@MAX(@Strlen("Instalovat @Name verze @Version"),@Strlen("Instalovat dalÜφ normu"))+2)
  130. @EndGroups
  131. @DlgCtrlSize(0,-1,-1,0,0) // Achtung:Trick!
  132. @if ('W' [= @Group)
  133.    @goto win32sonly
  134. @EndIf
  135. NORM:
  136.  
  137.   @GetOption
  138. Prosφm, vyberte alespo≥ jednu normu:/*Welche Normen sollen installiert werden:*/
  139. @DlgCtrlSize(0,3,@eval((@StrLen("Prosφm, vyberte alespo≥ jednu normu:") / 2 ) - 5 ),13,@eval((@StrLen("Prosφm, vyberte alespo≥ jednu normu:") / 2 ) + 5 ))
  140. @Checkbox
  141. /* @Option 48 = "AS" */
  142. @Option 22 = "ANSI"
  143. @Option 42 = "BS"
  144. @Option 41 = "CNS"
  145. @Option 20 = "DIN"
  146. @Option 21 = "ISO"
  147. @Option 19 = "JIS" 
  148. @Option 40 = "KS" 
  149. @Option 44 = "NF" 
  150. @Option 46 = "NSF"
  151. @Option 43 = "PN"
  152. @Option 47 = "SFS"
  153. @Option 45 = "SS"
  154. @Option 18 = "UNI"
  155. @Option 49 = "CSN"
  156. @EndOption
  157. @DlgCtrlSize(0,-1,-1,0,0)
  158. @if (20 [! @Option && 21 [! @Option && 22 [! @Option && 18 [! @Option &&
  159.       19 [! @Option && 40 [! @Option && 41 [! @Option && 42 [! @Option &&
  160.       43 [! @Option && 44 [! @Option && 45 [! @Option && 46 [! @Option && 
  161.       47 [! @Option && 48 [! @Option && 49 [! @Option)
  162.         @goto norm
  163. @EndIf        
  164.  
  165. genipfad:
  166. /* -------------------------------------- Zielverzeichnis fuer Genius  --*/
  167. @GetOutDrive
  168.         @Cls
  169.         Prosφm, vyberte disk, kam chcete umφstit @Name.
  170.           @Suppress A
  171.           @Suppress B
  172. @EndOutDrive
  173.  
  174. @GetSubDir
  175. Prosφm, napiÜte adresß°, kam chcete umφstit @Name?/*In welches Verzeichnis wollen Sie @Name installieren ?*/
  176.  
  177. @EndSubDir
  178. @If (@StrFind ("@SubDir",":") == -1)
  179. @Else
  180.   @SubDir = "\\GENLT"
  181.   @Display
  182. Prosφm, napiÜte adresß° bez oznaΦenφ disku!/*Bitte geben Sie das Verzeichnis ohne Laufwerksbezeichnung an!*/
  183.   @Pause
  184.   @EndDisplay  
  185.   @Goto genipfad
  186. @EndIf
  187. /*---- if only standards =V check if correct directory */
  188. @If ('V' [= @Group)
  189.   @If (@Exists "@OutDrive:@SubDir\\genlt.exe")
  190.   @Else
  191.     @Display
  192. Genius LT nebyl nainstalovan²
  193.         nebo
  194. Üpatn² disk nebo adresß° pro Genius LT.
  195. Zadejte znova adresß°.
  196.     @Pause
  197.     @EndDisplay
  198.     @Goto genipfad
  199.   @EndIf
  200. @EndIf
  201. /* -------------------------------------- testen ob diskspace genuegt --
  202. */
  203. @If ('Y' [= @Group) //gen und fullversion
  204.   @If (@Exists "@OutDrive:@SubDir\\genlt.@expend")
  205.   @Else
  206.         @Needur=@Eval(@Needur+700000)
  207.   @EndIf
  208. @EndIf
  209.  
  210. /* win32s installieren */
  211.   @if (30 [= @Option) 
  212.         @Needur=@Eval(@Needur+1800000)
  213.   @EndIf
  214. //single file or single standard
  215. @if (20 [= @Option) /*din*/
  216.   @If (@DirExists("@OutDrive:@SubDir\\norm\\din"))
  217.   @Else
  218.         @Needur=@Eval(@Needur+850000)
  219.   @EndIf
  220. @EndIf
  221. @if (21 [= @Option) /*iso*/
  222.   @If (@DirExists("@OutDrive:@SubDir\\norm\\iso"))
  223.   @Else
  224.         @Needur=@Eval(@Needur+500000)
  225.   @EndIf
  226. @EndIf
  227. @if (22 [= @Option) /* ansi*/
  228.   @If (@DirExists("@OutDrive:@SubDir\\norm\\ansi"))
  229.   @Else
  230.         @Needur=@Eval(@Needur+900000)
  231.   @EndIf
  232. @EndIf
  233. @if (19 [= @Option) /* jis*/
  234.   @If (@DirExists("@OutDrive:@SubDir\\norm\\jis"))
  235.   @Else
  236.         @Needur=@Eval(@Needur+850000)
  237.   @EndIf
  238. @EndIf
  239. @if (44 [= @Option) /* NF*/
  240.   @If (@DirExists("@OutDrive:@SubDir\\norm\\NF"))
  241.   @Else
  242.         @Needur=@Eval(@Needur+850000)
  243.   @EndIf
  244. @EndIf
  245. @if (43 [= @Option) /* pn*/
  246.   @If (@DirExists("@OutDrive:@SubDir\\norm\\pn"))
  247.   @Else
  248.         @Needur=@Eval(@Needur+850000)
  249.   @EndIf
  250. @EndIf
  251. @if (18 [= @Option) /* uni*/
  252.   @If (@DirExists("@OutDrive:@SubDir\\norm\\uni"))
  253.   @Else
  254.         @Needur=@Eval(@Needur+850000)
  255.   @EndIf
  256. @EndIf
  257. @if (40 [= @Option) /* ks*/
  258.   @If (@DirExists("@OutDrive:@SubDir\\norm\\ks"))
  259.   @Else
  260.         @Needur=@Eval(@Needur+850000)
  261.   @EndIf
  262. @EndIf
  263. @if (41 [= @Option) /* cns*/
  264.   @If (@DirExists("@OutDrive:@SubDir\\norm\\cns"))
  265.   @Else
  266.         @Needur=@Eval(@Needur+850000)
  267.   @EndIf
  268. @EndIf
  269. @if (42 [= @Option) /*bs*/
  270.   @If (@DirExists("@OutDrive:@SubDir\\norm\\bs"))
  271.   @Else
  272.         @Needur=@Eval(@Needur+850000)
  273.   @EndIf
  274. @EndIf
  275. @if (45 [= @Option) /*ss*/
  276.   @If (@DirExists("@OutDrive:@SubDir\\norm\\ss"))
  277.   @Else
  278.         @Needur=@Eval(@Needur+850000)
  279.   @EndIf
  280. @EndIf
  281. @if (46 [= @Option) /*nsf*/
  282.   @If (@DirExists("@OutDrive:@SubDir\\norm\\nsf"))
  283.   @Else
  284.         @Needur=@Eval(@Needur+850000)
  285.   @EndIf
  286. @EndIf
  287. @if (47 [= @Option) /*sfs*/
  288.   @If (@DirExists("@OutDrive:@SubDir\\norm\\sfs"))
  289.   @Else
  290.         @Needur=@Eval(@Needur+850000)
  291.   @EndIf
  292. @EndIf
  293. @if (48 [= @Option) /*as*/
  294.   @If (@DirExists("@OutDrive:@SubDir\\norm\\as"))
  295.   @Else
  296.         @Needur=@Eval(@Needur+850000)
  297.   @EndIf
  298. @EndIf
  299. @if (49 [= @Option) /*csn*/
  300.   @If (@DirExists("@OutDrive:@SubDir\\norm\\csn"))
  301.   @Else
  302.         @Needur=@Eval(@Needur+850000)
  303.   @EndIf
  304. @EndIf
  305. //jetzt zentrale abfrage     
  306.  @If (@DiskFree @OutDrive < @Needur)
  307.  
  308.     @Display
  309. Na vybranΘm disku je k dispozici prostor: @Diskfree(@OutDrive) Bytes.
  310. @Name verze @Version vy₧aduje alespo≥
  311. @Needur Bytes volnΘho mφsta na pevnΘm disku 
  312. @Pause 
  313. @Abort
  314.    @EndDisplay
  315. @EndIf /* diskfree */
  316.  
  317. @definevars
  318.   @dir   @SubDir3 = @SubDir
  319.   @dir   @AciniDir = @SubDir
  320.   @drive @CfgDrive = @OutDrive
  321.   @dir   @SubDir5 = @SubDir
  322.   @Qstring @acadgrp = ""
  323.   @drive @AciniDrv = @OutDrive
  324. @endvars
  325. @If ('Y' [= @Group) //fullversion
  326. /* --------------------- acad definition -----------------*/
  327. @acadgrp = "Autocad LT"
  328. @getstring @acadgrp
  329. Kterou programovou skupinu budete chtφt pou₧φt pro @Name?// Aus welcher Programmgruppe soll @Name aufgerufen werden?
  330.  
  331. @endstring
  332.  
  333. acad:
  334. @GetOutDrive @OutDrive2
  335.        Prosφm, vyberte disk, na kterΘm je instalovßn AutoCAD LT.
  336.        @Suppress A
  337.        @Suppress B
  338.  
  339. @EndOutDrive
  340.  
  341. @GetSubDir @SubDir2
  342.         Prosφm, napiÜte adresß°, ve kterΘm je instalovßn AutoCAD LT.
  343.         @Prompt = "adresß° ([enter] = @Subdir2) ? "
  344. @EndSubDir
  345. @If (@StrFind ("@SubDir2",":") == -1)
  346. @Else
  347.   @SubDir2    = "\\ACLTWIN"
  348.   @Display
  349. Prosφm, napiÜte adresß° bez oznaΦenφ disku!/*Bitte geben Sie das Verzeichnis ohne Laufwerksbezeichnung an!*/
  350.   @Pause
  351.   @EndDisplay  
  352.   @Goto acad
  353. @EndIf
  354. /*--------- support path in acad.ini had to be less than 128 chrs---*/
  355. @If (@StrLen("@OutDrive:@SubDir;@OutDrive:@SubDir\\ACLT;@OutDrive2:@SubDir2") > 128)
  356.   @Display
  357. @OutDrive:@SubDir;@OutDrive:@SubDir\\ACLT;@OutDrive2:@SubDir2
  358. VaÜe cesta je p°φliÜ dlouhß, instalujte, prosφm, v jinΘm adresß°i
  359.   @Pause
  360.   @Abort
  361.   @EndDisplay  
  362. @EndIf
  363.  
  364. @If (@Exists "@OutDrive2:@SubDir2\\ACLT.EXE")
  365. @Else 
  366.     @Display
  367.         @Cls
  368.  
  369.               AutoCAD LT nebyl nainstalovan²
  370.                       nebo
  371.               Üpatn² disk nebo adresß° pro AutoCAD LT.
  372.  
  373.               Zadejte znova adresß°.
  374.  
  375.         @Pause
  376.         @Goto acad
  377.     @EndDisplay
  378. @EndIf
  379. /*----------------------LT1.0 and LT2.0 -------*/
  380. @If (@Exists "@OutDrive2:@SubDir2\\ACLT2.MNU" ||
  381.      @Exists "@OutDrive2:@SubDir2\\ORIGINAL\\ACLT2.MNU")
  382.   @Else 
  383.   @If (@Exists "@OutDrive2:@SubDir2\\ACLT.MNU")
  384.     @Copy("@OutDrive2:@SubDir2\\aclt.mnu",
  385.       "@OutDrive2:@SubDir2\\aclt2.mnu")
  386.   @EndIf
  387. @Endif
  388. /*--------------------- mnu problematik -------------------------------*/
  389. @If (@Exists "@OutDrive2:@SubDir2\\ORIGINAL\\ACLT.MNU" &&
  390.      @Exists "@OutDrive2:@SubDir2\\ORIGINAL\\ACLT2.MNU")
  391.   //if exists everything ok
  392. @Else
  393.   //if original exist
  394.   @If (@DirExists("@OutDrive2:@SubDir2\\ORIGINAL"))
  395.     //jetzt aclt.mnu vorhanden aber nicht in original
  396.     @If (@Exists "@OutDrive2:@SubDir2\\ORIGINAL\\ACLT.MNU")
  397.     @Else
  398.        @If (@Exists "@OutDrive2:@SubDir2\\ACLT.MNU")
  399.          @Copy("@OutDrive2:@SubDir2\\aclt.mnu",
  400.                "@OutDrive2:@SubDir2\\Original\\aclt.mnu")
  401.          @if ("CZ" != "S")
  402.             @Delete("@OutDrive2:@SubDir2\\aclt.mnu")
  403.          @endif
  404.        @Else
  405.          @Display
  406. @outdrive2:@subdir2\aclt.mnu neexistoval
  407. Prosφm, instalujte znovu AutoCAD LT
  408.          @Pause
  409.          @Abort
  410.          @EndDisplay
  411.        @EndIf //if aclt.mnu exist
  412.     @EndIf // original/aclt.mnu exists
  413.     @If (@Exists "@OutDrive2:@SubDir2\\ORIGINAL\\ACLT2.MNU")
  414.     @Else
  415.        @If (@Exists "@OutDrive2:@SubDir2\\ACLT2.MNU")
  416.          @Copy("@OutDrive2:@SubDir2\\aclt2.mnu",
  417.                "@OutDrive2:@SubDir2\\Original\\aclt2.mnu")
  418.          @if ("CZ" != "S")
  419.             @Delete("@OutDrive2:@SubDir2\\aclt2.mnu")
  420.          @EndIf 
  421.        @Else
  422.          @Display
  423. @outdrive2:@subdir2\aclt2.mnu neexistoval
  424. Prosφm, instalujte znovu AutoCAD LT
  425.          @Pause
  426.          @Abort
  427.          @EndDisplay
  428.        @EndIf //if aclt2.mnu exist
  429.     @EndIf // original/aclt2.mnu exists
  430.   @Else //original does not exist
  431.     @MkDir("@OutDrive2:@SubDir2\\ORIGINAL") 
  432.     @If (@Exists "@OutDrive2:@SubDir2\\ACLT.MNU")
  433.        @Copy("@OutDrive2:@SubDir2\\aclt.mnu",
  434.                "@OutDrive2:@SubDir2\\Original\\aclt.mnu")
  435.        @Delete("@OutDrive2:@SubDir2\\aclt.mnu")
  436.     @Else
  437.        @Display
  438. @subdir2:@subdir\aclt.mnu neexistoval
  439. Prosφm, instalujte znovu AutoCAD LT
  440.        @Pause
  441.        @Abort
  442.        @EndDisplay
  443.     @EndIf //if aclt.mnu exist
  444.     @If (@Exists "@OutDrive2:@SubDir2\\ACLT2.MNU")
  445.        @Copy("@OutDrive2:@SubDir2\\aclt2.mnu",
  446.              "@OutDrive2:@SubDir2\\Original\\aclt2.mnu")
  447.        @Delete("@OutDrive2:@SubDir2\\aclt2.mnu")
  448.     @Else
  449.        @Display
  450. @subdir2:@subdir\aclt2.mnu neexistoval
  451. Prosφm, instalujte znovu AutoCAD LT
  452.        @Pause
  453.        @Abort
  454.        @EndDisplay
  455.     @EndIf //if aclt2.mnu exist
  456.   @EndIf //direxists original
  457. @EndIf //aclt,aclt2.mnu exist
  458. /* delete mnx-files */
  459. @If (@Exists "@OutDrive2:@SubDir2\\ACLT.MNX")
  460.          @Delete("@OutDrive2:@SubDir2\\aclt.mnx")
  461. @EndIf
  462. @If (@Exists "@OutDrive2:@SubDir2\\ACLT2.MNX")
  463.          @Delete("@OutDrive2:@SubDir2\\aclt2.mnx")
  464. @EndIf
  465. /* Immer Meldungs infs. löschen, schadet nie */
  466. @delete("@OutDrive:@SubDir\\genlt.inf")
  467. @delete("@OutDrive:@SubDir\\stand.inf")
  468. @delete("@OutDrive:@SubDir\\genspr.inf")
  469. @EndIf // vollversion
  470.  
  471. /* ---------------------------- Basic version ---------------------- */
  472. @If ('Y' [= @Group)
  473. /* jetzt sichern genlt */
  474.  @If (@Exists "@OutDrive:@SubDir\\genlt.@expend")
  475.       @Display
  476.  
  477.  
  478.  @Name version @Version existuje.
  479.  
  480. Budete-li pokraΦovat stisknutφm OK, @Name bude instalovßn.
  481.  @pause
  482.       @EndDisplay
  483.       @Display
  484. NovΘ soubory pro @Name budou kopφrovßny do adresß°e @OUTdrive:@Subdir.
  485.         
  486. Pokud jste zm∞nil(a) n∞kterΘ soubory v adresß°i
  487. @OUTdrive:@Subdir, m∙₧ete nynφ zruÜit instalaci
  488. a soubory sßm (sama) okopφrovat.
  489. V ka₧dΘm p°φpad∞ instalaΦnφ vytvo°φ adresß°
  490.      @OutDrive:@SubDir\OLD12
  491. a okopφruje vybranΘ soubory do tohoto adresß°e.
  492. Mezi vybranΘ soubory  pat°φ:
  493.      @OutDrive:@SubDir\*.DWG
  494.      @OutDrive:@SubDir\*.MNU
  495.  
  496. @Pause
  497.       @EndDisplay
  498.  @If (@DirExists ("@OutDrive:@SubDir\\OLD12"))
  499. @DlgCtrlSize(0,3,0,6,@MAX(@Strlen("Nem∞nit starΘ soubory."),@Strlen("P°epsat starΘ soubory."))+2)
  500.    @GetOption
  501. @OutDrive:@SubDir\OLD12 existuje.
  502. @Option 15 = "Nem∞nit starΘ soubory."
  503. @Option 16 = "P°epsat starΘ soubory."
  504.  
  505. @EndOption
  506. @Dlgctrlsize(0,-1,-1,0,0)
  507.  @EndIf /* exist old12 */
  508.  
  509.  /* @Option 15 heisst old12 existiert und nicht sichern */
  510.  @If (15 [! @Option)
  511.   @Display
  512.    @Cls
  513.    Copy files to @OutDrive:@SubDir\OLD12:
  514.     @MkDir("@OutDrive:@SubDir\\OLD12") 
  515.     @If (@DirExists ("@OutDrive:@SubDir\\OLD12"))
  516.      Copy @OutDrive:@SubDir\*.mnu to @OutDrive:@SubDir\OLD12
  517.      @Copy("@OutDrive:@SubDir\\*.mnu","@OutDrive:@SubDir\\OLD12")
  518.      Copy @OutDrive:@SubDir\*.dwg to @OutDrive:@SubDir\OLD12
  519.      @Copy("@OutDrive:@SubDir\\*.dwg","@OutDrive:@SubDir\\OLD12")
  520.     @EndIf
  521.   @EndDisplay
  522.  @EndIf /* 15 */
  523.  @EndIf /* if exist genlt.exe */
  524. @EndIf /* full version,standard,basic */
  525.  
  526. /* -------------------------define disk ----------------------------*/
  527. @If ('Y' [= @Group)   /* define disk if */
  528. /* Geniso.shx kopieren*/
  529.     @mkdir("@outdrive:@subdir")
  530.     @delete("@outdrive:@subdir\\geniso.shx") /* eventuell altes löschen */
  531.     @If (@Exists "@OutDrive2:@SubDir2\\ISO9.SHX")
  532.       @Copy("@OutDrive2:@SubDir2\\iso9.shx"
  533.            ,"@OutDrive:@SubDir\\geniso.shx")
  534.     @elseif (@Exists "@OutDrive2:@SubDir2\\FONTS\\ISO9.SHX")
  535.       @Copy("@OutDrive2:@SubDir2\\FONTS\\iso9.shx"
  536.            ,"@OutDrive:@SubDir\\geniso.shx") 
  537.     @elseif (@Exists "@OutDrive2:@SubDir2\\ISO.SHX")
  538.       @Copy("@OutDrive2:@SubDir2\\iso.shx"
  539.            ,"@OutDrive:@SubDir\\geniso.shx") 
  540.     @elseif (@Exists "@OutDrive2:@SubDir2\\FONTS\\ISO.SHX")
  541.       @Copy("@OutDrive2:@SubDir2\\FONTS\\iso.shx"
  542.            ,"@OutDrive:@SubDir\\geniso.shx") 
  543.     @EndIf
  544. /* Aus Monotxt.shx Monotxt8.shx kopieren*/
  545.     @delete("@outdrive:@subdir\\monotxt8.shx") /* eventuell altes löschen */
  546.     @If (@Exists "@OutDrive2:@SubDir2\\MONOTXT.SHX")
  547.       @Copy("@OutDrive2:@SubDir2\\monotxt.shx"
  548.            ,"@OutDrive:@SubDir\\monotxt8.shx")
  549.     @elseif (@Exists "@OutDrive2:@SubDir2\\FONTS\\MONOTXT.SHX")
  550.       @Copy("@OutDrive2:@SubDir2\\FONTS\\monotxt.shx"
  551.            ,"@OutDrive:@SubDir\\monotxt8.shx") 
  552.     @EndIf
  553. /* Aus Txt.shx Txt8.shx kopieren*/
  554.     @delete("@outdrive:@subdir\\txt8.shx") /* eventuell altes löschen */
  555.     @If (@Exists "@OutDrive2:@SubDir2\\TXT.SHX")
  556.       @Copy("@OutDrive2:@SubDir2\\txt.shx"
  557.            ,"@OutDrive:@SubDir\\txt8.shx")
  558.     @elseif (@Exists "@OutDrive2:@SubDir2\\FONTS\\TXT.SHX")
  559.       @Copy("@OutDrive2:@SubDir2\\FONTS\\txt.shx"
  560.            ,"@OutDrive:@SubDir\\txt8.shx") 
  561.     @EndIf
  562. /* Aus Simplex.shx Simplex8.shx kopieren*/
  563.     @delete("@outdrive:@subdir\\simplex.shx") /* eventuell altes löschen */
  564.     @If (@Exists "@OutDrive2:@SubDir2\\SIMPLEX.SHX")
  565.       @Copy("@OutDrive2:@SubDir2\\simplex.shx"
  566.            ,"@OutDrive:@SubDir\\simplex8.shx")
  567.     @elseif (@Exists "@OutDrive2:@SubDir2\\FONTS\\SIMPLEX.SHX")
  568.       @Copy("@OutDrive2:@SubDir2\\FONTS\\simplex.shx"
  569.            ,"@OutDrive:@SubDir\\simplex8.shx") 
  570.     @EndIf
  571. /* Aus Italic.shx italic8.shx kopieren*/
  572.     @delete("@outdrive:@subdir\\italic8.shx") /* eventuell altes löschen */
  573.     @If (@Exists "@OutDrive2:@SubDir2\\ITALIC.SHX")
  574.       @Copy("@OutDrive2:@SubDir2\\italic.shx"
  575.            ,"@OutDrive:@SubDir\\italic8.shx")
  576.     @elseif (@Exists "@OutDrive2:@SubDir2\\FONTS\\ITALIC.SHX")
  577.       @Copy("@OutDrive2:@SubDir2\\FONTS\\italic.shx"
  578.            ,"@OutDrive:@SubDir\\italic8.shx") 
  579.     @EndIf
  580.     
  581. @DefineDisk
  582.     @Label = "@GenSrcLabel"
  583.     @BeginLib GENLT.001
  584.        @F *.EXE                @O *.*
  585.        @F *.INF                @O *.*
  586.        @F *.LIN                @O aclt\*.*
  587.        @F *.DWG                @O aclt\*.*
  588.        @F *.SLB                @O aclt\*.*
  589.        @F *.BMP                @O bmp\*.*
  590.     @EndLib
  591.      @If (@Exists "@InDrive:LICENCE.WRI")
  592.         @F LICENCE.WRI     @O *.* 
  593.      @EndIf
  594.       /*sprachabhängige sachen nicht komprimiert */
  595.       /* spezifikation mit * nur im lib erlaubt */
  596.       @F SOURCE\GENPRESE.SHX     @O *.* 
  597.       @F SOURCE\GENISO.SHX     @O *.* @Nooverwrite
  598.       @F SOURCE\GENLT.VER      @O *.*
  599.       @F SOURCE\README.TXT     @O *.*
  600.       @F SOURCE\GEV.MLD        @O MLD\*.*
  601.       @F SOURCE\GENLT.MLD      @O MLD\*.*
  602.       @if (22 [= @Option) /* ansi*/
  603.         @F SOURCE\ANSI_LT.MLD  @O MLD\*.*
  604.       @EndIf
  605.       @F SOURCE\GENMENU.TXT    @O ACLT\*.*
  606.       @F SOURCE\GENACLT.MM     @O ACLT\*.*
  607. //      @F SOURCE\GENACLT.MM     @O aclt.mnu
  608. //      @F SOURCE\GENACLT.MM     @O aclt2.mnu
  609.       @F SOURCE\GENLT.MNU      @O *.*
  610.       @F SOURCE\GENLT.TXT      @O *.*
  611.       @F SOURCE\GENLT.HLP      @O *.*
  612.       @F SOURCE\GENINFO.DWG    @O aclt\*.*
  613.       @F SOURCE\GENPOS.DWG     @O aclt\*.*
  614.       @F SOURCE\GENLTA4.DWG    @O aclt\*.*
  615.       @F SOURCE\GENLTA3.DWG    @O aclt\*.*
  616.       @F SOURCE\GENLTA3.DWG    @O aclt\GENUSER.DWG
  617.       @F SOURCE\GENLTA2.DWG    @O aclt\*.*
  618.       @F SOURCE\GENLTA1.DWG    @O aclt\*.*
  619.       @F SOURCE\GENLTA0.DWG    @O aclt\*.*
  620.       @F SOURCE\GENLTIA.DWG    @O aclt\*.*
  621.       @F SOURCE\GENLTIB.DWG    @O aclt\*.*
  622.       @F SOURCE\GENLTIC.DWG    @O aclt\*.*
  623.       @F SOURCE\GENLTID.DWG    @O aclt\*.*
  624.       @F SOURCE\GENLTIE.DWG    @O aclt\*.*
  625.       @F SOURCE\GENLTIB.DWG    @O aclt\GENUSER.DWG
  626.       @F SOURCE\VCCEP.DWG      @O aclt\*.*
  627.       @F SOURCE\VCCPR.DWG      @O aclt\*.*
  628.       @F SOURCE\VCCRR.DWG      @O aclt\*.*
  629.       @F SOURCE\VCCSCHR.DWG    @O aclt\*.*
  630.       @F SOURCE\PLEUEL.DXF     @O user\*.*
  631.       @F SOURCE\PLEUEL.SLD     @O user\*.*
  632.       @F SOURCE\PLEUEL.VAL     @O user\*.*
  633.       @F SOURCE\835_S.DXF      @O user\*.*
  634.       @F SOURCE\835_S.SLD      @O user\*.*
  635.       @F SOURCE\835.VAL        @O user\*.*
  636.       @F SOURCE\GENIUS.DWG     @O *.*
  637.       @F SOURCE\GENIUSI.DWG    @O *.*
  638.       /* to make a copy and to open tmp */
  639.       @F SOURCE\GENIUS.DWG     @O TMP\*.*
  640.       @F SOURCE\GENIUSI.DWG    @O TMP\*.*
  641.       /*language part for standards */
  642.       @F SOURCE\STAND.MLD @O MLD\*.*
  643.       @If (@Exists "@InDrive:SOURCE\\UNI_LT.HLP")
  644.         @F SOURCE\UNI_LT.HLP @O *.*
  645.       @EndIf
  646.      @If (@Exists "@InDrive:SOURCE\\JIS_LT.HLP")
  647.        @F SOURCE\JIS_LT.HLP @O *.*
  648.      @EndIf
  649.      @If (@Exists "@InDrive:SOURCE\\DIN_LT.HLP")
  650.        @F SOURCE\DIN_LT.HLP @O *.*
  651.      @EndIf
  652.      @If (@Exists "@InDrive:SOURCE\\ISO_LT.HLP")
  653.        @F SOURCE\ISO_LT.HLP @O *.*
  654.      @EndIf
  655.      @If (@Exists "@InDrive:SOURCE\\BS_LT.HLP")
  656.        @F SOURCE\BS_LT.HLP @O *.*
  657.      @EndIf
  658.      @If (@Exists "@InDrive:SOURCE\\AS_LT.HLP")
  659.        @F SOURCE\BS_LT.HLP @O *.*
  660.      @EndIf
  661.      @If (@Exists "@InDrive:SOURCE\\ANSI_LT.HLP")
  662.        @F SOURCE\ANSI_LT.HLP @O *.*
  663.      @EndIf
  664.      @If (@Exists "@InDrive:SOURCE\\KS_LT.HLP")
  665.        @F SOURCE\KS_LT.HLP @O *.*
  666.      @EndIf
  667.      @If (@Exists "@InDrive:SOURCE\\CNS_LT.HLP")
  668.        @F SOURCE\CNS_LT.HLP @O *.*
  669.      @EndIf
  670.      @If (@Exists "@InDrive:SOURCE\\PN_LT.HLP")
  671.        @F SOURCE\PN_LT.HLP @O *.*
  672.      @EndIf
  673.      @If (@Exists "@InDrive:SOURCE\\SS_LT.HLP")
  674.        @F SOURCE\SS_LT.HLP @O *.*
  675.      @EndIf
  676.      @If (@Exists "@InDrive:SOURCE\\NF_LT.HLP")
  677.        @F SOURCE\NF_LT.HLP @O *.*
  678.      @EndIf
  679.      @If (@Exists "@InDrive:SOURCE\\SFS_LT.HLP")
  680.        @F SOURCE\SFS_LT.HLP @O *.*
  681.      @EndIf
  682.      @If (@Exists "@InDrive:SOURCE\\NSF_LT.HLP")
  683.        @F SOURCE\NSF_LT.HLP @O *.*
  684.      @EndIf                           
  685.      @If (@Exists "@InDrive:SOURCE\\CSN_LT.HLP")
  686.        @F SOURCE\CSN_LT.HLP @O *.*
  687.      @EndIf
  688.  
  689. @EndDisk
  690. @EndIf     /* define disk if */
  691. win32sonly:
  692. @If ('W' [= @Group) /*win32s*/
  693.    @SetOption(30)
  694.    @SetOption(33)
  695. @backupdir = "@WinSysDir\\win32s.old"
  696. @GetSubdir @backupdir
  697.     @Cls
  698.         Prosφm, zadejte zßlo₧nφ adresß° pro soubory,
  699.         kterΘ mohou b²t p°epsßny nebo zm∞n∞ny.
  700.     @Prompt = "([Enter] = @backupdir) ?"
  701. @EndSubdir
  702.    @backupdrive = @WinSysDrv
  703. @else
  704.    @backupdir = "@subdir\\win32s.old"
  705.    @backupdrive = @outdrive
  706. @EndIf /*win32s*/
  707. @if (30 [= @Option)  /*win32s:  never been installed*/
  708.    @if ("CZ" == "J")
  709.       @oleclidate = @StrToDate("1993/9/6")
  710.    @else
  711.       @oleclidate = @StrToDate("1993/11/1")
  712.    @endif
  713.    @if ("@WinSysStr" != "") /*winsysstr*/
  714. @Display
  715. Je-li vaÜe instalace Windows sdφlenß, prosφm, nastavte sdφlen² atribut na
  716. nov∞ instalovanΘ soubory 
  717.    @WinSysDrv:@WinSysDir
  718. a 
  719.    @WinSysDrv:@WinSysDir\win32s
  720. po ukonΦenφ instalace!
  721. @pause
  722. @endDisplay
  723.    @endif /*winsysstr*/
  724. @endif /*win32s:  never been installed*/
  725.  
  726. @if ('Y' [= @Group) 
  727. // batch creation moved to here
  728.   /*create batch file copyaclt */
  729.   @Write("@OutDrive:@Subdir\\copyaclt.bat","wt",
  730.    "@OutDrive:\n")
  731.   @Write("@OutDrive:@Subdir\\copyaclt.bat","at",
  732.    "cd @SubDir\n")
  733.   @Write("@OutDrive:@Subdir\\copyaclt.bat","at",
  734.    "genltmld CZ aclt\\genaclt.mm aclt\\genaclt.mnu mld\n")
  735.   @Write("@OutDrive:@Subdir\\copyaclt.bat","at",
  736.    "Copy aclt\\genaclt.mnu aclt.mnu\n")
  737.   @Write("@OutDrive:@Subdir\\copyaclt.bat","at",
  738.    "Copy aclt\\genaclt.mnu aclt2.mnu\n")
  739.   @Write("@OutDrive:@Subdir\\copyaclt.bat","at",
  740.    "copy aclt.mnu+@OutDrive2:@Subdir2\\original\\aclt.mnu aclt.mnu\n")
  741.   @Write("@OutDrive:@Subdir\\copyaclt.bat","at",
  742.    "copy aclt2.mnu+@OutDrive2:@Subdir2\\original\\aclt2.mnu aclt2.mnu\n")
  743.  
  744.   /*create batch file langmnu1 */
  745.   @Write("@OutDrive:@Subdir\\langmnu1.bat","wt",
  746.    "@OutDrive:\n")
  747.   @Write("@OutDrive:@Subdir\\langmnu1.bat","at",
  748.    "cd @SubDir\n")
  749.   @Write("@OutDrive:@Subdir\\langmnu1.bat","at",
  750.    "genltmld CZ aclt\\genaclt.mm aclt\\genaclt.mnu mld\n")
  751.  
  752.   /*create batch file copyacl2 */
  753.   @Write("@OutDrive:@Subdir\\copyacl2.bat","wt",
  754.    "@OutDrive:\n")
  755.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  756.    "cd @SubDir\n")
  757.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  758.    "genltmld CZ aclt\\genaclt.mm aclt\\genaclt.mnu mld\n")
  759.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  760.    "Copy aclt\\genaclt.mnu aclt.mnu\n")
  761.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  762.    "Copy aclt\\genaclt.mnu aclt2.mnu\n")
  763.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  764.    "copy aclt.mnu+@OutDrive2:@Subdir2\\original\\aclt.mnu aclt.mnu\n")
  765.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  766.    "copy aclt2.mnu+@OutDrive2:@Subdir2\\original\\aclt2.mnu aclt2.mnu\n")
  767.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  768.    "genltmld CZ aclt\\genmenu.txt aclt\\temp.txt mld\n")
  769.   @Write("@OutDrive:@Subdir\\copyacl2.bat","at",
  770.    "genmio -Fgenmenu.inf -Iaclt\\temp.txt\n")
  771.  
  772.   /*create batch file langmnu2 */
  773.   @Write("@OutDrive:@Subdir\\langmnu2.bat","wt",
  774.    "@OutDrive:\n")
  775.   @Write("@OutDrive:@Subdir\\langmnu2.bat","at",
  776.    "cd @SubDir\n")
  777.   @Write("@OutDrive:@Subdir\\langmnu2.bat","at",
  778.    "genltmld CZ aclt\\genaclt.mm aclt\\genaclt.mnu mld\n")
  779.   @Write("@OutDrive:@Subdir\\langmnu2.bat","at",
  780.    "genltmld CZ aclt\\genmenu.txt aclt\\temp.txt mld\n")
  781.   @Write("@OutDrive:@Subdir\\langmnu2.bat","at",
  782.    "genmio -Fgenmenu.inf -Iaclt\\temp.txt\n")
  783.   @Write("@OutDrive:@Subdir\\langmnu2.bat","at",
  784.    "copy aclt\\genaclt.mnu genaclt.mnu\n")
  785. // end batch creation code
  786. @endif
  787. // chain.dat include
  788. @if (71 [! @Option && ( 
  789.       (30 [= @Option) ||
  790.       (20 [= @Option)    ) ) // Win32s DIN 
  791.    @if (@cdinstall) 
  792.        @chain("@GenSrcLabel","@indrive:install1.dat")
  793.    @else
  794.        @chain("Genius LT 2/5","@indrive:install1.dat")
  795.    @endif
  796. @elseif(72 [! @Option && (
  797.          (42 [= @Option) ||
  798.          (44 [= @Option) || 
  799.          (21 [= @Option) ||
  800.          (18 [= @Option)   ) ) // BS NF ISO UNI
  801.    @if (@cdinstall) 
  802.        @chain("@GenSrcLabel","@indrive:install2.dat")
  803.    @else
  804.        @chain("Genius LT 3/5","@indrive:install1.dat")
  805.    @endif
  806. @elseif(73 [! @Option && (
  807.          (22 [= @Option) ||
  808.          (41 [= @Option) ||
  809.          (40 [= @Option) || 
  810.          (19 [= @Option) ||
  811.          (48 [= @Option)  )) // ANSI CNS KS JIS AS
  812.    @if (@cdinstall) 
  813.        @chain("@GenSrcLabel","@indrive:install3.dat")
  814.    @else
  815.        @chain("Genius LT 4/5","@indrive:install1.dat")
  816.    @endif
  817. @elseif(74 [! @Option && (
  818.          (49 [= @Option) || 
  819.          (43 [= @Option) || 
  820.          (45 [= @Option) || 
  821.          (46 [= @Option) ||
  822.          (47 [= @Option)   )) // CSN PN SS NSF SFS
  823.    @if (@cdinstall) 
  824.        @chain("@GenSrcLabel","@indrive:install4.dat")
  825.    @else
  826.        @chain("Genius LT 5/5","@indrive:install1.dat")
  827.    @endif
  828. @else @chain("@gensrclabel","@indrive:install.dat","labfinish")
  829. @endif
  830. // chain.dat ende    
  831.  
  832. labfinish:
  833. @Finish
  834.  
  835.      @ChDrive (@OutDrive)
  836.      @Chdir  ("@SubDir")
  837.  
  838.  /* requirements only for full versions */
  839.  @If ('Y' [= @Group)  /*full version requirements*/
  840.  
  841.     /* erase genius.err, could exist from previous installations*/
  842.     @If (@Exists "@OutDrive:\\GENIUS.ERR") 
  843.       @Delete("@OutDrive:\\GENIUS.ERR")
  844.     @EndIf
  845.   /*----- translate genaclt.mm */
  846.   @If (@Exists "@OutDrive:@SubDir\\aclt\\genaclt.mm")
  847.   @Else 
  848.      @Write("@OutDrive:\\GENIUS.ERR","wt","Error: @OutDrive:@subdir\\aclt\\genaclt.mm not found\n")
  849.      @Write("@OutDrive:\\GENIUS.ERR","at","Please start @OutDrive:@subdir\\copyaclt.bat again.\n")
  850.      @Write("@OutDrive:\\GENIUS.ERR","at","----------------------------------\n")
  851.   @EndIf
  852.   /* ---- check aclt.mnu,aclt2.mnu is already checked ----*/
  853.   /*----- translate genmenu.txt */
  854.   /*----- only with the first installation*/
  855.   @If (@Exists "@OutDrive:@SubDir\\genmenu.inf")
  856.   @Else
  857.    @If (@Exists "@OutDrive:@SubDir\\aclt\\genmenu.txt")
  858.    @Else 
  859.       @If (@Exists "@OutDrive:\\GENIUS.ERR") 
  860.         @Write("@OutDrive:\\GENIUS.ERR","at","Error: @OutDrive:@subdir\\aclt\\genmenu.txt not found\n")
  861.       @ELSE
  862.         @Write("@OutDrive:\\GENIUS.ERR","wt","Error: @OutDrive:@subdir\\aclt\\genmenu.txt not found\n")
  863.       @EndIf
  864.       @Write("@OutDrive:\\GENIUS.ERR","at","Please start @OutDrive:@subdir\\copyacl2.bat again.\n")
  865.       @Write("@OutDrive:\\GENIUS.ERR","at","----------------------------------\n")
  866.    @EndIf /*genmenu.txt exist*/
  867.   @EndIf /*genmenu.inf does not exist*/
  868. // batch creation code moved from here
  869.  
  870.   /*start of batch-even if an error occurred*/
  871.   /*one batch file is better only one dos-shell*/
  872.   @setenv("COMSPEC","@COMSPECvar")
  873. // removed Swedish switch
  874. //  @if ("t-l~" == "S")
  875. //    @If (@Exists "@OutDrive:@SubDir\\genmenu.inf")
  876. //      @System ("@OutDrive:@SubDir\\langmnu1")
  877. //    @Else
  878. //      @System ("@OutDrive:@SubDir\\langmnu2")
  879. //    @EndIf
  880. //  @Else
  881.     @If (@Exists "@OutDrive:@SubDir\\genmenu.inf")
  882.       @System ("@OutDrive:@SubDir\\copyaclt")
  883.     @Else
  884.       @System ("@OutDrive:@SubDir\\copyacl2")
  885.     @EndIf
  886. //  @EndIf
  887.  
  888. @Cls
  889. /* ACLT.INI is in the Autocad dir outdrive2:subdir2 */
  890. Set aclt.ini
  891.    //copy of aclt.ini to original
  892.    @If (@Exists "@OutDrive2:@SubDir2\\ORIGINAL\\ACLT.INI")
  893.    @Else
  894.      @Copy("@OutDrive2:@SubDir2\\aclt.ini",
  895.            "@OutDrive2:@SubDir2\\ORIGINAL\\aclt.ini")
  896.    @EndIf
  897.    @SetIni("AutoCAD LT General","SUPPORT"
  898.       ,"@OutDrive:@SubDir;@OutDrive:@SubDir\\ACLT;@OutDrive2:@SubDir2"
  899.       ,"@OutDrive2:@SubDir2\\aclt.ini")   
  900.    //start mit Iso-mode ausser USA dort mit inches measure=1 standard
  901.    @If ("CZ" != "USA")
  902.     @SetIni("AutoCAD LT General","Measure","0"
  903.       ,"@OutDrive2:@SubDir2\\aclt.ini")   
  904.    @EndIf
  905.    //length clines
  906.    @SetIni("AutoCAD LT General","GENCLINLEN","200"
  907.       ,"@OutDrive2:@SubDir2\\aclt.ini")   
  908.    //Diameter of balloon
  909.    @SetIni("AutoCAD LT General","GENPOSSIZE","1.0"
  910.       ,"@OutDrive2:@SubDir2\\aclt.ini")   
  911.    //Prototype dwg
  912.    @SetIni("AutoCAD LT General", "ISOPrototype","@Outdrive:@SubDir\\genius.dwg"
  913.       ,"@OutDrive2:@SubDir2\\aclt.ini")   
  914.    //Prototype dwg
  915.    @SetIni("AutoCAD LT General", "ANSIPrototype","@Outdrive:@SubDir\\geniusi.dwg"
  916.       ,"@OutDrive2:@SubDir2\\aclt.ini")   
  917.  
  918.    /* Create genlt.ini in the windows directory */
  919. Set genlt.ini
  920.    @If (@Exists "@windrv:@WinDir\\genlt.ini")
  921.          @Delete("@windrv:@WinDir\\genlt.ini")
  922.    @EndIf
  923.    @Copy("@Outdrive:@Subdir\\genlt.ini","@windrv:@Windir\\genlt.ini")   
  924.    //set where aclt.exe has to be called
  925.    @SetIni("Settings","ACLT.EXE","@Outdrive2:@SubDir2\\ACLT.EXE","@windrv:@Windir\\genlt.ini")
  926.    //Windowspfad
  927.    @SetIni("Settings","ACLT.INI","@Outdrive2:@SubDir2\\","@windrv:@Windir\\genlt.ini")
  928.    //fonts
  929.    @SetIni("Fonts","Dialogs",",,,,system","@windrv:@Windir\\genlt.ini")
  930.    //Sprache
  931.    @SetIni("Settings","Language","CZ","@windrv:@Windir\\genlt.ini")
  932.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  933.    "GenLt installed at @DateToStr(@SystemDate()))\n")
  934. @EndIf /*Vollversion*/
  935.  
  936.  //with any additional Standard (new or additional standard)
  937.  
  938.  @If (18 [= @Option)
  939.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  940.    "Standard UNI installed at @DateToStr(@SystemDate()))\n")
  941.      @SetIni("Files","UNI_LT.MNU","","@windrv:@Windir\\genlt.ini")
  942.      @SetIni("Settings","$Standard","uni_lt","@windrv:@Windir\\genlt.ini")
  943.  @EndIf
  944.  @If (19 [= @Option)
  945.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  946.    "Standard JIS installed at @DateToStr(@SystemDate()))\n")
  947.      @SetIni("Files","JIS_LT.MNU","","@windrv:@Windir\\genlt.ini")
  948.      @SetIni("Settings","$Standard","jis_lt","@windrv:@Windir\\genlt.ini")
  949.  @EndIf
  950.  @If (20 [= @Option)
  951.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  952.    "Standard DIN installed at @DateToStr(@SystemDate()))\n")
  953.      @SetIni("Files","DIN_LT.MNU","","@windrv:@Windir\\genlt.ini")
  954.      @SetIni("Settings","$Standard","din_lt","@windrv:@Windir\\genlt.ini")
  955.  @EndIf
  956.  @If (21 [= @Option)
  957.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  958.    "Standard ISO installed at @DateToStr(@SystemDate()))\n")
  959.      @SetIni("Files","ISO_LT.MNU","","@windrv:@Windir\\genlt.ini")
  960.      @SetIni("Settings","$Standard","iso_lt","@windrv:@Windir\\genlt.ini")
  961.  @EndIf
  962.  @If (22 [= @Option)
  963.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  964.    "Standard ANSI installed at @DateToStr(@SystemDate()))\n")
  965.      @SetIni("Files","ANSI_LT.MNU","","@windrv:@Windir\\genlt.ini")
  966.      @SetIni("Settings","$Standard","ansi_lt","@windrv:@Windir\\genlt.ini")
  967.  @EndIf
  968.  @If (40 [= @Option)
  969.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  970.    "Standard KS installed at @DateToStr(@SystemDate()))\n")
  971.      @SetIni("Files","KS_LT.MNU","","@windrv:@Windir\\genlt.ini")
  972.      @SetIni("Settings","$Standard","ks_lt","@windrv:@Windir\\genlt.ini")
  973.  @EndIf
  974.  @If (41 [= @Option)
  975.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  976.    "Standard CNS installed at @DateToStr(@SystemDate()))\n")
  977.      @SetIni("Files","CNS_LT.MNU","","@windrv:@Windir\\genlt.ini")
  978.      @SetIni("Settings","$Standard","cns_lt","@windrv:@Windir\\genlt.ini")
  979.  @EndIf
  980.  @If (42 [= @Option)
  981.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  982.    "Standard BS installed at @DateToStr(@SystemDate()))\n")
  983.      @SetIni("Files","BS_LT.MNU","","@windrv:@Windir\\genlt.ini")
  984.      @SetIni("Settings","$Standard","bs_lt","@windrv:@Windir\\genlt.ini")
  985.  @EndIf
  986.  @If (43 [= @Option)
  987.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  988.    "Standard PN installed at @DateToStr(@SystemDate()))\n")
  989.      @SetIni("Files","PN_LT.MNU","","@windrv:@Windir\\genlt.ini")
  990.      @SetIni("Settings","$Standard","pn_lt","@windrv:@Windir\\genlt.ini")
  991.  @EndIf
  992.  @If (44 [= @Option)
  993.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  994.    "Standard NF installed at @DateToStr(@SystemDate()))\n")
  995.      @SetIni("Files","NF_LT.MNU","","@windrv:@Windir\\genlt.ini")
  996.      @SetIni("Settings","$Standard","nf_lt","@windrv:@Windir\\genlt.ini")
  997.  @EndIf
  998.  @If (45 [= @Option)
  999.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  1000.    "Standard SS installed at @DateToStr(@SystemDate()))\n")
  1001.      @SetIni("Files","SS_LT.MNU","","@windrv:@Windir\\genlt.ini")
  1002.      @SetIni("Settings","$Standard","ss_lt","@windrv:@Windir\\genlt.ini")
  1003.  @EndIf
  1004.  @If (46 [= @Option)
  1005.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  1006.    "Standard NSF installed at @DateToStr(@SystemDate()))\n")
  1007.      @SetIni("Files","NSF_LT.MNU","","@windrv:@Windir\\genlt.ini")
  1008.      @SetIni("Settings","$Standard","nsf_lt","@windrv:@Windir\\genlt.ini")
  1009.  @EndIf
  1010.  @If (47 [= @Option)
  1011.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  1012.    "Standard SFS installed at @DateToStr(@SystemDate()))\n")
  1013.      @SetIni("Files","SFS_LT.MNU","","@windrv:@Windir\\genlt.ini")
  1014.      @SetIni("Settings","$Standard","sfs_lt","@windrv:@Windir\\genlt.ini")
  1015.  @EndIf
  1016.  @If (48 [= @Option)
  1017.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  1018.    "Standard AS installed at @DateToStr(@SystemDate()))\n")
  1019.      @SetIni("Files","AS_LT.MNU","","@windrv:@Windir\\genlt.ini")
  1020.      @SetIni("Settings","$Standard","as_lt","@windrv:@Windir\\genlt.ini")
  1021.  @EndIf
  1022.  @If (49 [= @Option)
  1023.   @Write("@OutDrive:@Subdir\\genlt.ver","at",
  1024.    "Standard CSN installed at @DateToStr(@SystemDate()))\n")
  1025.      @SetIni("Files","CSN_LT.MNU","","@windrv:@Windir\\genlt.ini")
  1026.      @SetIni("Settings","$Standard","csn_lt","@windrv:@Windir\\genlt.ini")
  1027.  @EndIf
  1028.  
  1029.  //which standard is the default depends on language
  1030.  @If ("CZ" == "F" && @Exists "@outdrive:@subdir\\nf_lt.mnu")
  1031.    @SetIni("Settings","$Standard","nf_lt","@windrv:@Windir\\genlt.ini")
  1032.  @EndIf  
  1033.  @If ("CZ" == "PL" && @Exists "@outdrive:@subdir\\pn_lt.mnu")
  1034.    @SetIni("Settings","$Standard","pn_lt","@windrv:@Windir\\genlt.ini")
  1035.  @EndIf  
  1036.  @If ("CZ" == "I" && @Exists "@outdrive:@subdir\\uni_lt.mnu")
  1037.    @SetIni("Settings","$Standard","uni_lt","@windrv:@Windir\\genlt.ini")
  1038.  @EndIf  
  1039.  @If ("CZ" == "ROK" && @Exists "@outdrive:@subdir\\ks_lt.mnu")
  1040.    @SetIni("Settings","$Standard","ks_lt","@windrv:@Windir\\genlt.ini")
  1041.  @EndIf  
  1042.  @If ("CZ" == "RC" && @Exists "@outdrive:@subdir\\cns_lt.mnu")
  1043.    @SetIni("Settings","$Standard","cns_lt","@windrv:@Windir\\genlt.ini")
  1044.  @EndIf  
  1045.  @If ("CZ" == "D" && @Exists "@outdrive:@subdir\\din_lt.mnu")
  1046.    @SetIni("Settings","$Standard","din_lt","@windrv:@Windir\\genlt.ini")
  1047.  @EndIf  
  1048.  @If ("CZ" == "GB" && @Exists "@outdrive:@subdir\\bs_lt.mnu")
  1049.    @SetIni("Settings","$Standard","bs_lt","@windrv:@Windir\\genlt.ini")
  1050.  @EndIf  
  1051.  @If (("CZ" == "J" || "CZ" == "AS") && @Exists "@outdrive:@subdir\\ss_lt.mnu")  
  1052.    @SetIni("Settings","$Standard","jis_lt","@windrv:@Windir\\genlt.ini")
  1053.  @EndIf  
  1054.  @If ("CZ" == "USA" && @Exists "@outdrive:@subdir\\ansi_lt.mnu")
  1055.    @SetIni("Settings","$Standard","ansi_lt","@windrv:@Windir\\genlt.ini")
  1056.  @EndIf  
  1057.  @If ("CZ" == "S" && @Exists "@outdrive:@subdir\\ss_lt.mnu")
  1058.    @SetIni("Settings","$Standard","ss_lt","@windrv:@Windir\\genlt.ini")
  1059.  @EndIf  
  1060.  @If ("CZ" == "N" && @Exists "@outdrive:@subdir\\nfs_lt.mnu")
  1061.    @SetIni("Settings","$Standard","nfs_lt","@windrv:@Windir\\genlt.ini")
  1062.  @EndIf  
  1063.  @If ("CZ" == "SF" && @Exists "@outdrive:@subdir\\sfs_lt.mnu")
  1064.    @SetIni("Settings","$Standard","sfs_lt","@windrv:@Windir\\genlt.ini")
  1065.  @EndIf  
  1066.  @If ("CZ" == "CZ" && @Exists "@outdrive:@subdir\\csn_lt.mnu")
  1067.    @SetIni("Settings","$Standard","csn_lt","@windrv:@Windir\\genlt.ini")
  1068.  @EndIf  
  1069.  @If ("CZ" == "DK" && @Exists "@outdrive:@subdir\\iso_lt.mnu")
  1070.    @SetIni("Settings","$Standard","iso_lt","@windrv:@Windir\\genlt.ini")
  1071.  @EndIf  
  1072.  
  1073.  @Cls
  1074.  @If (@Exists "@OutDrive:\\GENIUS.ERR") 
  1075.  
  1076.      @Name verze @Version byl s chybami instalovßn na :/*@Name version @Version wurde mit Fehlern installiert auf:*/
  1077.               @OutDrive:@SubDir
  1078.  
  1079.      Instalujte znova nebo po₧ßdejte dodavatele o pomoc./*Versuchen Sie die Installation erneut oder*/
  1080.      @Outdrive:\\Genius.err obsahuje dalÜφ informace./*bitten Sie ihren Händler um Hilfe*/
  1081.    @pause
  1082.   @ELSE
  1083.  
  1084.      @Name verze @Version byl ·sp∞Ün∞ instalovßn na :/*@Name sucessfully installed*/
  1085.               @OutDrive:@SubDir
  1086.    @pause
  1087.   @EndIf
  1088.  
  1089.  
  1090. @ChDrive (@OutDrive)
  1091. @Chdir  ("\\")
  1092.  
  1093. /* ------ Message, please restart win -------------- */
  1094.  @cls
  1095.  Prosφm, po UKON╚EN═ instalace restartujte WINDOWS!
  1096.  @pause
  1097.  
  1098. /* necessary, only with full version */
  1099.  @If ('Y' [= @Group)
  1100.    /* at the end, focus stays with that group */
  1101.    @If (@Exists "@Outdrive:@subdir\\LICENCE.WRI")
  1102.       @if (@win95)
  1103.          @ProgramManager("[CreateGroup(@acadgrp)][AddItem(@OutDrive:@SubDir\\genlt.exe,GeniusLT,@OutDrive:@SubDir\\genlt.exe,0,,,@OutDrive:@SubDir\\)][AddItem(@OutDrive:@SubDir\\licence.wri,Genius LT LICENCE,,0,20,20,@OutDrive:@SubDir\\)]")
  1104.       @else
  1105.          @ProgramManager("[CreateGroup(@acadgrp)][AddItem(@OutDrive:@SubDir\\genltrun.exe,GeniusLT,@OutDrive:@SubDir\\genltrun.exe,0,,,@OutDrive:@SubDir\\)][AddItem(@OutDrive:@SubDir\\licence.wri,Genius LT LICENCE,,0,20,20,@OutDrive:@SubDir\\)]")
  1106.       @endif
  1107.    @else 
  1108.       @if (@win95)
  1109.          @ProgramManager("[CreateGroup(@acadgrp)][AddItem(@OutDrive:@SubDir\\genlt.exe,GeniusLT,@OutDrive:@SubDir\\genlt.exe,0,,,@OutDrive:@SubDir\\)]")
  1110.       @else
  1111.          @ProgramManager("[CreateGroup(@acadgrp)][AddItem(@OutDrive:@SubDir\\genltrun.exe,GeniusLT,@OutDrive:@SubDir\\genltrun.exe,0,,,@OutDrive:@SubDir\\)]")
  1112.       @endif
  1113.    @EndIf
  1114.  
  1115.  @EndIf
  1116.  
  1117.  
  1118. @EndFinish
  1119.