@DefineProject
 @Name     = "3D-Win"
 @Version  = "Release 0695.1"
 @OutDrive = C
 @Subdir   = "\\SPEA\\3DWIN"
 @Requires @HardDisk
 @Immediate = 1
@EndProject

@BackgroundMode(3, @RGB(0,0,127), @RGB(0,0,127))

@DefineVars
@Drive @ACAD12Drv = C
@Dir @ACAD12Dir = "\\ACADWIN"
@Drive @ACAD13Drv = C
@Dir @ACAD13Dir = "\\ACADR13\\WIN"
@If(@L==1)
@QString @Y = "Yes "
@QString @N = "No  "
@QString @for = "for"
@Endif
@If(@L==2)
@QString @Y = " Ja "
@QString @N = "Nein"
@QString @for = "für"
@Endif
@EndVars

// Introduction
// 1. Seite
@Display@If(@L==2)Herzlich willkommen zur 3D-Win- Installation!

Sie haben die richtige Wahl für SPEA`s schnellen und leistungsstarken 
3D-Viewer unter Windows getroffen.
3D-Win ist ein Grafikkarten-unabhängiges Software-Tool, um Ihre 
3D-Konstruktionszeichnung sehr schnell und einfach zu visualisieren 
und zu animieren.
Um in den Genuß von 3D-Win zu kommen, folgen Sie den 
Installationsanweisungen.
Sie erwartet 
    -   höchste 3D-Funktionalität
    -   sekundenschnelles Flat-, Gouraud- und Phong-Shading
    -   Flic-File-Generierung
    -   das Bearbeiten von DWG-, DXF- und 3DS-Files
    -   leichte Erlernbarkeit und 
    -   SPEA`s guter Name und Qualität im 3D-Bereich @Else@!Welcome to the 3D-Win Installation Routine

Congratulations on your choice for SPEA's fast, high-performance 
3D Viewer for Windows. 
3D-Win is a hardware-independant software tool which is used to 
visualize and animate your 3D constructions.
In order to be able to use 3D-Win fully please read the following 
instructions. 
You can expect the following advantages from 3D-Win:
    -   high-level 3D functionality
    -   high-speed rendering (Gouraud, Phong etc.) per mouse click
    -   Flic file creation
    -   DWG, DXF and 3DS construction processing
    -   user-friendly design
    -   SPEA's reknown quality standards in the field of 3D graphics @Endif @Pause
@EndDisplay

// 2. Seite
@Display@If(@L==2)Wenn Sie eine SPEA FIRE einsetzen, erfolgt die Nutzung der Software 
kostenfrei und eine Registrierung entfällt somit.

3D-Win kann dagegen mit allen anderen SPEA Graphikkarten oder einer 
beliebigen Windows-Beschleunigerkarte (Hersteller-unabhängig!) 
eingesetzt werden, wenn Sie die Software registrieren. Sie können 
die Vorzüge von 3D-Win 10 Tage lang ohne Registrierung kennenlernen. 
Füllen Sie während der Installation das Registrierungsformular mit 
folgenden Angaben aus:
			                - Vor- u. Nachname
        			        - Firma
                			- Straße
	                		- PLZ u. Stadt
Sie erhalten dann eine persönliche Registrierungs-Nummer 
(Personal User ID). @Else@!If you are using the SPEA FIRE board then the use of this software 
is free and the registration therefore not necessary.

3D-Win can however be used with all other SPEA boards or any other 
Windows accelerator (independant of the manufacturer!) once the 
software has been registered. You have 10 days to get to know the 
advantages of 3D-Win without registering it. 
Please fill out the registration form during the installation 
with the following details:
					- first name, name
					- your company's name
					- street
					- ZIP code, town/city
You will then be assigned a personal registration number (Personal 
User ID). @Endif @Pause
@EndDisplay

// 3. Seite
@Display@If(@L==2)Haben Sie sich von 3D-Win überzeugt, so können Sie diese 
Software mittels Ihrer Personal ID-Nr. und der 2. Schlüssel-Nummer 
(Key-Nr.) für 395,- DM freischalten lassen. Wenden Sie sich hierzu 
an den Media Gallery Direkt-Service unter der Tel.- Nr. 
	0180 / 53 56 161	   (BRD) bzw. 
	0049 180 / 53 56 161	(Ausland)
oder verwenden Sie das vorbereitete Fax-Formular REGISTER.TXT.
Somit ist 3D-Win für Sie und einen Arbeitsplatz registriert 
und geschützt. Vervielfältigungen oder Handel sind verboten.
Eine unerlaubte Duplikation der Software ist ein Verstoß gegen das
Urheberrechtgesetz und somit strafbar.
Weitere Informationen finden Sie in der Datei README.TXT.

Bei Fragen oder Problemen rufen Sie bitte unsere SPEA ExpertLine an:
	Tel.Nr. 0190 / 51 24 28 
(diese Dienstleitung steht Ihnen für DM 1,15/Minute zur Verfügung) @Else@!Once you have been able to convince yourself of the quality 
of 3D-Win you can proceed by purchasing a secondary key number 
for DM 395,- with which you can unlock the software for future use 
(in connection with your Personal User ID). Please contact the Media 
Gallery Direct-Service to purchase your second key number. Call:
	0049 180 / 53 56 161 
You can also use the enclosed fax form REGISTER.TXT to order the key 
number.
3D-Win is then registered and licensed for use at your workplace.
The unauthorised copying of the software constitutes copyright 
infringement and is also a criminal offence punishable by fines 
and/or imprisonment.
Further information can be found in the file README.TXT.

If you should have any further questions or problems concerning 
3D-Win, please contact the SPEA ExpertLine under tel.
	0190 / 51 24 28 @Endif @Pause
@EndDisplay

WIN3D:
@GetOutDrive @DlgCtrlSize(0, 5, 20, 12, 35)
@If(@L==2)
Auf welchem Laufwerk wollen Sie @Name
installieren?
@Else
On which disk drive do you want to install @Name?
@Endif // @L
@EndOutDrive

@GetSubDir @DlgCtrlSize(0, 5, 0, 6, 50)
@If(@L==2)
In welchem Verzeichnis wollen Sie @Name
installieren?
@Else
In which directory do you want to install @Name?
@Endif // @L
@EndSubDir

@If(@Exists("@OutDrive:@SubDir"))
@ClearOption(10)
@ClearOption(0)
@GetOption @DlgCtrlSize(0, 6, 20, 8, 26)
@If(@L==2)
Verzeichnis @OutDrive:@SubDir existiert bereits.
Wollen Sie die Installation in diesem Verzeichnis fortsetzen?
@Else
Directory @OutDrive:@SubDir already exists.
Do you want to continue installing in this directory?
@Endif // @L
@Option 0 =  "@N"
@Option 10 = "@Y"
@EndOption
@If (0 [= @Option) @Goto WIN3D @Endif
@Endif // @Exists

ACAD12OR13:
@GetOption @CheckBox @DlgCtrlSize(0, 8, 10, 10, 45)
@If(@L==2)
Welche Version von AutoCAD für Windows wollen Sie
installieren?
Klicken Sie zur Auswahl auf die gewünschte(n) Version(en).
Um die Auswahl rückgängig zu machen,
klicken Sie nochmals darauf.
@Else
Which version of AutoCAD for Windows do you want
to install?
Klick on the appropriate version(s) to select.
To undo a selection, klick again on it.
@Endif // @L
@Option 12 = "AutoCAD Release 12 @for Windows"
@Option 13 = "AutoCAD Relesae 13 @for Windows"
@EndOption

@If(12 [! @Option && 13 [! @Option) @Goto ACAD12OR13 @Endif

ACAD12:
@If(12 [= @Option)
@GetOutDrive @ACAD12Drv @DlgCtrlSize(0, 5, 20, 13, 35)
@If(@L==2)
Auf welchem Laufwerk ist AutoCAD 12 für Windows installiert?
@Else
On which disk drive is AutoCAD 12 for Windows installed?
@Endif // @L
@EndOutDrive

@GetSubDir @ACAD12Dir @DlgCtrlSize(0, 5, 0, 6, 50)
@If(@L==2)
In welchem Verzeichnis ist AutoCAD 12 für Windows installiert?
@Else
In which directory is AutoCAD 12 for Windows installed?
@Endif // @L
@EndSubDir

@If(@Exists("@ACAD12Drv:@ACAD12Dir\\ACAD.EXE")) @Else
@ClearOption(10)
@ClearOption(0)
@GetOption @DlgCtrlSize(0, 6, 20, 8, 26)
@If(@L==2)
ACAD.EXE nicht gefunden in Verzeichnis @ACAD12Drv:@ACAD12Dir.
Wollen Sie die Installation in diesem Verzeichnis fortsetzen?
@Else
ACAD.EXE not found in directory @ACAD12Drv:@ACAD12Dir.
Do you want to continue installing in this directory?
@Endif // @L
@Option 0 =  "@N"
@Option 10 = "@Y"
@EndOption
@If (0 [= @Option) @Goto ACAD12 @Endif
@Endif // @Exists
@Endif // 12

ACAD13:
@If(13 [= @Option)
@GetOutDrive @ACAD13Drv @DlgCtrlSize(0, 5, 20, 13, 35)
@If(@L==2)
Auf welchem Laufwerk ist AutoCAD 13 für Windows installiert?
@Else
On which disk drive is AutoCAD 13 for Windows installed?
@Endif // @L
@EndOutDrive

@GetSubDir @ACAD13Dir @DlgCtrlSize(0, 5, 0, 6, 50)
@If(@L==2)
In welchem Verzeichnis ist AutoCAD 13 für Windows installiert?
@Else
In which directory is AutoCAD 13 for Windows installed?
@Endif // @L
@EndSubDir

@If(@Exists("@ACAD13Drv:@ACAD13Dir\\ACAD.EXE")) @Else
@ClearOption(10)
@ClearOption(0)
@GetOption @DlgCtrlSize(0, 6, 20, 8, 26)
@If(@L==2)
ACAD.EXE nicht gefunden in Verzeichnis @ACAD13Drv:@ACAD13Dir.
Wollen Sie die Installation in diesem Verzeichnis fortsetzen?
@Else
ACAD.EXE not found in directory @ACAD13Drv:@ACAD13Dir.
Do you want to continue installing in this directory?
@Endif // @L
@Option 0 =  "@N"
@Option 10 = "@Y"
@EndOption
@If (0 [= @Option) @Goto ACAD13 @Endif
@Endif // @Exists
@Endif // 13

// Dateien kopieren
@DefineDisk
 @Label = "Disk 1 of 2"

@If(@L==2)
 @F README.GER @O README.TXT
@Else
 @F README.ENG @O README.TXT
@Endif // @L

  @BeginLib W3D1.LIF
@If(@L==2)
 @F REGISTER.GER @O REGISTER.TXT
 @F REGISTER.GER @O REGFORM.TXT
 @F W3DHLP_D.HLP @O W3DVIEW.HLP
 @F W3DVIEWD.EXE @O W3DVIEW.EXE
@Else
 @F REGISTER.ENG @O REGISTER.TXT
 @F REGISTER.ENG @O REGFORM.TXT
 @F W3DHLP_E.HLP @O W3DVIEW.HLP
 @F W3DVIEWE.EXE @O W3DVIEW.EXE
@Endif // @L
  @EndLib
//@EndDisk

//@Chain ("Disk 2 of 2")

//@DefineDisk
// @Label = "Disk 2 of 2"
  @BeginLib W3D2.LIF
 @F CADNEWPL.ENG
 @F  DWGWINR.DLL
 @F  READDWG.DLL
 @F   DXFWIN.ENG
 @F  DXFWINR.DLL
 @F   ENGWIN.DLL
 @F WIN3D_32.DLL
 @F  VIEWWIN.EXE @Option 12
 @F  VIEWW13.EXE @Option 13

 @F   CPYDRV.DLL @O @WindowsDrive:@WindowsDir\\CPYDRV.DLL
 @F  W3DVIEW.INI @O @WindowsDrive:@WindowsDir\\W3DVIEW.INI
  @EndLib
@EndDisk

// modify W3DVIEW.INI
@SetINI("viewer", "startdir", "@OutDrive:@SubDir",	"w3dview.ini")
@If(12 [= @Option)
 @SetINI("viewer", "acaddir",	"@ACAD12Drv:@ACAD12Dir",	"w3dview.ini")
 @SetINI("viewer", "Acad12",	"1",				"w3dview.ini")
@Else // 12
 @SetINI("viewer", "Acad12",	"0",				"w3dview.ini")
@Endif // 12
@If(13 [= @Option)
 @SetINI("viewer", "acad13dir",	"@ACAD13Drv:@ACAD13Dir",	"w3dview.ini")
 @SetINI("viewer", "Acad13",	"1",				"w3dview.ini")
@Else // 13
 @SetINI("viewer", "Acad13",	"0",				"w3dview.ini")
@Endif // 13

// Program Manager
@DefineVars
@QString @AI0 = "[CreateGroup(SPEA 3D-Win)]"
@QString @AI1 = "[AddItem(@OutDrive:@SubDir\\W3DVIEW.EXE, 3D-Win,,0)]"
@QString @AI2 = "[AddItem(@WindowsDrive:@WindowsDir\\NOTEPAD.EXE @OutDrive:\\@SubDir\\README.TXT, README,,0)]"
@QString @AI3 = "[AddItem(@WindowsDrive:@WindowsDir\\NOTEPAD.EXE @OutDrive:\\@SubDir\\REGISTER.TXT, REGISTER,,0)]"
@EndVars

@ProgramManager("@AI0@AI1@AI2@AI3")

@FileAttr("@OutDrive:\\@Subdir\\REGFORM.TXT", "h+")

@Finish
@If(@L==2)
Die Installation ist beendet.
@Else // @L
The installation is complete.
@Endif // @L
@Pause
@Exit
@EndFinish
