home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computer Studio 2000 May / ACS_CoverCD_5-00.iso / kliknij_mnie! < prev    next >
Text File  |  1999-11-14  |  1KB  |  57 lines
  1. Failat 21
  2.  
  3. IF EXISTS ENV:ACS
  4.  
  5.     ACS:Assign >NIL: Z: REMOVE
  6.     ACS:Assign >NIL: LIBS: ACS:libs REMOVE
  7.     ACS:Assign >NIL: REXX: ACS: REMOVE
  8.     ACS:Assign >NIL: LOCALE: ACS: REMOVE
  9.     ACS:Assign >NIL: LIBS: SYS:Classes REMOVE
  10.     ACS:Assign >NIL: HELP: ACS: REMOVE
  11.     ACS:Assign >NIL: C: ACS: REMOVE
  12.     _Tools/Assign >NIL: ACS: _Tools REMOVE
  13.  
  14.     Echo "Przypisania wyîâczone. Dziëkujë."
  15.     Wait 1
  16.     Delete >NIL: ENV:ACS
  17.  
  18. ELSE
  19.  
  20.     SetEnv ACS OK!
  21.  
  22.     _Tools/Assign >NIL: ACS: _Tools
  23.     ACS:Assign >NIL: Z: ""
  24.     ACS:Assign >NIL: C: ACS: ADD
  25.     ACS:Assign >NIL: LIBS: ACS:libs ADD
  26.     ACS:Assign >NIL: REXX: ACS: ADD
  27.     ACS:Assign >NIL: LOCALE: ACS: ADD
  28.     ACS:Assign >NIL: LIBS: SYS:Classes ADD
  29.     ACS:Assign >NIL: HELP: ACS: ADD
  30.  
  31.     Path >NIL: ACS: ACS:libs ADD
  32.  
  33.     If NOT EXISTS DEVS:DataTypes/AmigaGuide
  34.        ACS:Copy >NIL: ACS:datatypes/AmigaGuide DEVS:DataTypes/
  35.     EndIf
  36.  
  37.     If NOT EXISTS SYS:Classes/DataTypes/amigaguide.datatype
  38.        ACS:Copy >NIL: ACS:datatypes/amigaguide.datatype SYS:Classes/DataTypes/
  39.     EndIf
  40.  
  41.     If NOT EXISTS S:HippoPlayer.group
  42.        ACS:Copy >NIL: ACS:HippoPlayer#? S:
  43.     EndIf
  44.  
  45.     If NOT EXISTS C:Installer
  46.        ACS:Copy >NIL: ACS:Installer C:
  47.     EndIf
  48.  
  49.     ACS:AddDataTypes DEVS:DataTypes/AmigaGuide QUIET
  50.     ACS:Copy >NIL: ACS:TextView.prefs ENV:
  51.  
  52.     Echo "Dziëkujë!"
  53.     Wait 1
  54.  
  55. ENDIF
  56.  
  57. EndCLI >NIL: