CD Actual 3/CD ACTUAL 3.iso/demos/rtz/install.dat

Text File | 1996-05-09 | 2.6 KB | 131 lines

/* Installation script for VIS */

@SubDir "C:\\VISDEMO"
@User ""
@Org ""
@DName ""

@Position 1,1
@Print    "\n"
      "                                Instalación del      \n"
      "                          Superscape Visualiser 4.00D\n"
      "                               RTZ Virtual Worlds    \n"

/* Get user name and organisation */

@Position 1,8
@Print "              Por favor, entre su nombre y organización."

@OpenWindow 4,12,72,3,0,15
:GETUSER
@Position 2,2
@Print                  "Entre su organización   : "
@Position 2,1
@GetSString {User}      "Entre su nombre         : "
@IF (ERROR=-1)
  @Goto {GETUSER}
@ENDIF
@Position 2,1
@Print "      s"

:GETORG
@Position 2,2
@GetSString {Org}       "Entre su organización   : "
@IF (ERROR=-1)
  @Goto {GETORG}
@ENDIF
@Position 2,2
@Print "      s"

@Position 2,4
@GetOption [14 "  Es todo correcto ? (S/N)" s
        15 "" S
        16 "" n
        17 "" N]

@IF ((Option 16) || (Option 17))
  @ClearLine 1
  @ClearLine 2
  @ClearLine 4
  @Goto {GETUSER}
@ENDIF

@CloseWindow
@ClearLine 8

:GETDIR

/* Get installation directory */

@OpenWindow 4,13,72,1,0,15
@Position 2,1
@GetString {SubDir}     "Seleccione directorio para instalar : "
@CloseWindow

/* Install program and drivers */

@CreateDir "{SubDir}"
@IF (ERROR=-1)
  @OpenWindow 24,15,32,3,4,15
  @Print " No se puede crear directorio\n
     "      {SubDir}\n\n"
     "      Pulse una tecla"
  @Pause
  @CloseWindow
  @Goto {DONE}
@ENDIF

/* Copy Visualiser files to directory */

@ClearLine 5
@ClearLine 7
@ClearLine 8
@ClearLine 9
@ClearLine 11
@Position  5,9
@Print  "Instalando Visualiser 4.00D en {SubDir}"

@File   ".\\VIS.ARJ"    >       "{SubDir}\\"
@File   ".\\VISDRV.ARJ" >       "{SubDir}\\"
@UnArj  "{SubDir}\\VIS.ARJ"
@UnArj  "{SubDir}\\VISDRV.ARJ"
@Delete "{SubDir}\\VIS.ARJ"
@Delete "{SubDir}\\VISDRV.ARJ"
@BinRep "{SubDir}\\VIS.EXE","{Sys0}","{User}",50
@BinRep "{SubDir}\\VIS.EXE","{Sys1}","{Org}",50
@File   "{SubDir}\\VIS_SVGA.CFG" > "{SubDir}\\VIS.CFG"

@Beep
@ClearLine 5
@ClearLine 6
@ClearLine 7
@ClearLine 8
@ClearLine 9
@ClearLine 10
@ClearLine 11
@Position 1,6

/* Tidy up screen and wait for a key before exit */

:DONE
@Beep
@ClearLine 2
@ClearLine 3
@ClearLine 4
@ClearLine 5
@ClearLine 6
@ClearLine 7
@ClearLine 8
@ClearLine 9
@ClearLine 10
@ClearLine 11
@Position 1,6
@Print   "                          Instalación Finalizada\n\n"
@Print   "            Cambie al directorio {Subdir} y teclee VIS para ejecución \n\n"
@Print   "                             Pulse una tecla"

@Pause

/* Installation finished */