home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 July / AMIGA_1996_7.BIN / demos / xipaint_4.0 / steuerung < prev    next >
AmigaDOS Script File  |  1996-05-19  |  2KB  |  88 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "install"
  14.     set vinstall 1
  15. endif
  16. set binfo        1
  17. set bcopy        1
  18. set binstall     1
  19.  
  20.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  21.     set nummer 0
  22.     if $binfo EQ 1
  23.          echo >>t:tmpsteuerung " Info" NOLINE
  24.          set nummer `eval $nummer + 1`
  25.          set ninfo $nummer
  26.     endif
  27.     if $bcopy EQ 1
  28.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  29.          set nummer `eval $nummer + 1`
  30.          set ncopy $nummer
  31.     endif
  32.     if $binstall EQ 1
  33.          echo >>t:tmpsteuerung " Installieren" NOLINE
  34.          set nummer `eval $nummer + 1`
  35.          set ninstall $nummer
  36.     endif
  37.     if "[param]" EQ ""
  38.         echo >>t:tmpsteuerung " Ende" NOLINE
  39.         execute >nil: t:tmpsteuerung
  40.         delete >nil: t:tmpsteuerung
  41.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  42.         if $reqerg[$$] EQ 0
  43.             skip Ende
  44.         endif
  45.     endif
  46.     if $reqerg[$$] EQ $ninfo
  47.         set vinfo 1
  48.     endif
  49.     if $reqerg[$$] EQ $ncopy
  50.         set vcopy 1
  51.     endif
  52.     if $reqerg[$$] EQ $ninstall
  53.         set vinstall 1
  54.     endif
  55. endif
  56.  
  57. if $vinfo EQ 1
  58. ;>>>>>>>> Hier Infotext eintragen
  59.     :c/Metatool :Demos/XiPaint_4.0/Hinweis FT=TEXT
  60. endif
  61. if $vcopy EQ 1
  62.     :c/Verzeichniskopieren "AMIGA_1996_7:Demos/XiPaint_4.0/" "XiPaint_4.0" 138519552
  63. endif
  64. if $vinstall EQ 1
  65. ;>>>>>>>> Hier Install-Skript eintragen
  66.     assign l: :l add
  67.     cd :Demos/XiPaint_4.0/XIPAINT4.0
  68.     :c/WBstarter >nil: Install-Deutsch
  69.     cd :Demos/XiPaint_4.0
  70.     assign l: :l remove
  71.     skip Ende
  72. endif
  73.  
  74. unset binfo
  75. unset vinfo
  76. unset ninfo
  77. unset binstall
  78. unset vinstall
  79. unset ninstall
  80. unset bcopy
  81. unset vcopy
  82. unset ncopy
  83. if "[param]" EQ ""
  84.     Steuerung
  85. endif
  86. LAB Ende
  87. unsetenv reqerg[$$]
  88.