home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / Chip_1997-07_cd.bin / sharewar / 95rar / tools / script20.exe / rar / KOMFORT.S < prev    next >
Text File  |  1996-05-06  |  13KB  |  580 lines
  1. ;
  2. ; Installations-SFX-Modul
  3. ; Erstellt von Bernd Hohenester
  4. ;
  5. ;     FIDO: Bernd Hohenester@2:2490/2030.4
  6. ;      CIS: 101447,1272
  7. ; INTERNET: 101447.1272@compuserve.com
  8. ;
  9. ;
  10. ; Im Script sind folgende Funktionen enthalten:
  11. ;
  12. ; - Anzeige des Zielverzeichnisses, des benötigten und des verfügbaren
  13. ;   Speicherplatzes auf dem Ziellaufwerk
  14. ; - Warnung bei ungenügendem Speicherplatz auf dem Ziellaufwerk
  15. ; - Warnung bei nicht vorhandenem Ziellaufwerk
  16. ; - automatische Menüweiterschaltung
  17. ; - Anwender kann Zielverzeichnis ändern
  18. ; - während des Entpackens Anzeige durch Fortschritts-Balken und einzelne
  19. ;   Dateinamen
  20. ; - Hilfeseite
  21. ; - es werden nur nicht vorhandene oder aktuellere Dateien entpackt
  22. ; - Aufforderung zum Diskettenwechsel bei Mehrdisketten-Archiven
  23. ; - Fehlererkennung
  24. ; - nach der Installation wird in das Zielverzeichnis gewechselt
  25. ;
  26. ;
  27. ; iSFX-Skript wird ab RAR V 1.54 nicht als Archivkommentar angezeigt!
  28.  
  29. ; Variable für Zielverzeichnis. BITTE GEWÜNSCHTEN PFAD EINTRAGEN!
  30. ; Wird innerhalb des Scripts mehrfach verwendet!
  31. Ziel="C:\\INSTALL"
  32. DestDir=Ziel
  33.  
  34. ; Anzahl der Dateien im Archiv. BITTE KORREKTEN WERT EINTRAGEN!
  35. files=1
  36.  
  37. ; Zum Entpacken benötigter Plattenspeicher in BYTES. BITTE WERT EINTRAGEN!
  38. diskneed=1024
  39.  
  40. ; Balken definieren
  41. defbar YELLOW,CYAN,BLUE,WHITE,14,7,52
  42. ; Standard-Ansikommentar ausgeben ──────────────────────────────────────
  43. clrscr
  44. outtext ansi on
  45. outtext ansi off
  46.  
  47. ; Hintergrundfarben setzen und Bildschirm löschen
  48. setcolor CYAN,CYAN
  49. window 1,1,80,25
  50. clrscr
  51.  
  52. ; AV-Überprüfung
  53. if AVPresent == -1
  54.   Title="Warnung"
  55.   Message="Siegelinformation ist nicht korrekt"
  56.   call ErrMsg
  57. endif
  58.  
  59. if AVPresent == 0
  60.   Title="Warnung"
  61.   Message="Siegelinformation fehlt"
  62.   call ErrMsg
  63. endif
  64.  
  65. ; Hintergrundfarben setzen und Bildschirm löschen
  66. setcolor CYAN,CYAN
  67. window 1,1,80,25
  68. clrscr
  69.  
  70. ; Programm Info
  71. clrscr
  72. outtext ansi on
  74.  ┌──────────────────────────────────────────────────────────────────────────┐
  75.  │ Installations-SFX-Modul                     Hier können Sie eine kurze   │
  76.  │ Erstellt von Bernd Hohenester               Programm-Info eintragen,     │
  77.  │     FIDO: Bernd Hohenester@2:2490/2030.4    Ihr Copyright usw.           │
  78.  │      CIS: 101447,1272                                                    │
  79.  │ INTERNET: 101447.1272@compuserve.com                                     │
  80.  ├──────────────────────────────────────────────────────────────────────────┤
  81.  │              Zielverzeichnis:                                            │
  82.  │ erforderlicher Speicherplatz:                                            │
  83.  │    verfügbarer Speicherplatz:                                            │
  84.  └──────────────────────────────────────────────────────────────────────────┘
  86. outtext ansi off
  87.  
  88. ; Schatten unten
  89. setcolor DARKGRAY,CYAN
  90. window 4,13,79,13
  91. clrscr 219
  92.  
  93. ; Schatten rechts
  94. setcolor DARKGRAY,CYAN
  95. window 78,3,79,13
  96. clrscr 219
  97.  
  98. ; Zielverzeichnis anzeigen
  99. window 34,9,76,11
  100. setcolor BLACK,WHITE
  101. gotoxy 1,1
  102. text DestDir
  103.  
  104. ; erforderlicher Speicherplatz
  105. gotoxy 1,2
  106. KDiskNeed=diskneed/1024
  107. text KDiskNeed," KB"
  108.  
  109. ; verfügbarer Speicherplatz
  110. DiskSpace=getdfree
  111. KDiskSpace=DiskSpace/1024
  112. setcolor LIGHTGREEN,WHITE
  113. gotoxy 1,3
  114. text KDiskSpace," KB"
  115.  
  116. Bar=2
  117.  
  118. ; ungenügender Speicherplatz
  119. if DiskSpace < diskneed
  120.   setcolor RED,WHITE
  121.   gotoxy 1,3
  122.   text "                                          "
  123.   gotoxy 1,3
  124.   text KDiskSpace, " KB", " ungenügender Speicherplatz!"
  125.   Bar=1
  126. endif
  127.  
  128. ; Laufwerk nicht vorhanden
  129. if DiskSpace == -1
  130.   setcolor RED,WHITE
  131.   gotoxy 1,3
  132.   text "                                          "
  133.   gotoxy 1,3
  134.   text "Laufwerk ", DestDir, " nicht vorhanden!"
  135.   Bar=1
  136. endif
  137.  
  138. window 1,1,80,25
  139. ; unterste Zeile
  140. setcolor WHITE,CYAN
  141. gotoxy 1,25
  142. text "                        F1 für Hilfe, ALT-X zum Beenden                        "
  143.  
  144. ; Sound-Effekt
  145. sound 90,1
  146.  
  147. ; Installations-Menü
  148. Menu:
  149.  
  150. Choice = menu 27,16,YELLOW,BLUE,Bar,"Installations-Menü","Zielverzeichnis ändern"," Installation starten","         Ende"
  151.  
  152. if Choice == 0
  153.   goto Menu
  154. endif
  155.  
  156. ; Zielverzeichnis setzen
  157. if Choice == 1
  158.   savescr 1
  159.   window 34,9,76,9
  160.   Res=INPUT BLACK,CYAN,DestDir,DestDir,43
  161.   restscr 1
  162.   Bar=2
  163.  
  164.   ; bei Abbruch alte Vorgabe
  165.   if Res == 0
  166.     DestDir=Ziel
  167.     Bar=1
  168.   endif
  169.  
  170.   ; neu anzeigen
  171.   window 34,9,76,11
  172.   setcolor BLACK,WHITE
  173.   clrscr
  174.   gotoxy 1,1
  175.   text DestDir
  176.  
  177.   gotoxy 1,2
  178.   text KDiskNeed, " KB"
  179.  
  180.   ; verfügbarer Speicherplatz
  181.   setcolor LIGHTGREEN,WHITE
  182.   gotoxy 1,3
  183.   DiskSpace=getdfree
  184.   KDiskSpace=DiskSpace/1024
  185.   text KDiskSpace, " KB"
  186.  
  187.   ; ungenügender Speicherplatz
  188.   if DiskSpace < diskneed
  189.     setcolor RED,WHITE
  190.     gotoxy 1,3
  191.     text "                                          "
  192.     gotoxy 1,3
  193.     text KDiskSpace, " KB", " ungenügender Speicherplatz!"
  194.     Bar=1
  195.   endif
  196.  
  197.   ; Laufwerk nicht vorhanden
  198.   if DiskSpace == -1
  199.     setcolor RED,WHITE
  200.     gotoxy 1,3
  201.     text "                                          "
  202.     gotoxy 1,3
  203.     text "Laufwerk ", DestDir, " nicht vorhanden!"
  204.     Bar=1
  205.   endif
  206.  
  207.   window 1,1,80,25
  208.   goto Menu
  209. endif
  210.  
  211. if Choice == 2
  212.   box 6,11,75,24,LIGHTCYAN,BLUE,DOUBLE
  213.   setcolor LIGHTCYAN,BLUE
  214.  
  215.   ; Titel
  216.   gotoxy 27,11
  217.   text " Installations-Status: "
  218.   window 7,12,74,23
  219.   clrscr
  220.  
  221.   ; freien Speicherplatz prüfen
  222.   DiskSpace=getdfree
  223.   KDiskSpace=DiskSpace/1024
  224.   KDiskNeed=diskneed/1024
  225.   text "Installation begonnen.\n"
  226.   text "erforderlicher Speicherplatz: ",KDiskNeed," KB\n"
  227.   text "verfügbarer Speicherplatz:    ",KDiskSpace," KB\n"
  228.   inswrow=4
  229.   window 1,1,80,25
  230.  
  231.   if DiskSpace < diskneed
  232.     savescr 1
  233.     window 1,1,80,25
  234.     sound 2300,25
  235.     delay 100
  236.     sound 1450,25
  237.     delay 100
  238.     sound 2300,100
  239.     Choice = menu 26,16,WHITE,RED,1,"ungenügender Speicherplatz","        Fortsetzen        ","        Abbrechen         "
  240.  
  241.     ; Abbruch mit ESC
  242.     if Choice == 0
  243.       goto Quit
  244.     endif
  245.  
  246.     ; "Abbrechen" gewählt
  247.     if Choice == 2
  248.       goto Quit
  249.     endif
  250.     restscr 1
  251.   endif
  252. endif
  253.  
  254. if Choice == 3
  255.   Quit:
  256.   setcolor WHITE,BLACK
  257.   clrscr
  258.   gotoxy 2,4
  259.   text "Das Programm wurde NICHT installiert!"
  260.   sound 380,25
  261.   delay 210
  262.   sound 190,25
  263.   exit 1
  264.   goto Menu
  265. endif
  266.  
  267. ; HIER BEGINNT DIE INSTALLATION
  268. ; nur nicht vorhandene oder neuere Dateien entpacken
  269. Overwrite UPDATE
  270.  
  271. proc OnKey
  272.   window 1,1,80,25
  273.  
  274.   if Par1 == 3
  275.     savescr 15
  276.     Par1=-1
  277.     sound 2300,25
  278.     delay 100
  279.     sound 1450,100
  280.     Choice=Menu 32,11,WHITE,LIGHTRED,1,"Unterbrechung"," Fortsetzen  ","  Abbrechen  "
  281.     if Choice == 2
  282.       exit 1
  283.     endif
  284.     restscr 15
  285.   endif
  286.  
  287.   ; "Abbrechen" gewählt
  288.   if Par1 == 301
  289.     goto Quit
  290.   endif
  291.  
  292.   ; F1 Hilfe angefordert
  293.   if Par1 == 315
  294.     savescr 15
  295.     call OutHelp
  296.     Par1=-1
  297.     restscr 15
  298.   endif
  299. endp
  300.  
  301. proc ChangeVol
  302.   window 7,12,74,23
  303.   setcolor YELLOW,BLUE
  304.   gotoxy 1,inswrow
  305.  
  306.   if Par2 == 0
  307.     Par1=Par1+2
  308.     text "... Diskette #",Par1," einlegen."
  309.     savescr 14
  310.     Par1=-1
  311.     sound 2300,25
  312.     delay 100
  313.     sound 1450,100
  314.     sound 5450,50
  315.     sound 7450,25
  316.     sound 1450,100
  317.     window 1,1,80,25
  318.     Choice = Menu 30,15,WHITE,GREEN,1,"Diskette wechseln","   Fortsetzen    ","    Abbrechen    "
  319.     restscr 14
  320.  
  321.     if Choice == 2
  322.       window 1,1,80,25
  323.       setcolor WHITE,BLACK
  324.       clrscr
  325.       gotoxy 2,3
  326.       text " Diskette nicht gefunden. Abbruch! "
  327.       exit 1
  328.     endif
  329.   endif
  330.  
  331.   if Par2 != 0
  332.     setcolor LIGHTCYAN,BLUE
  333.     Par1=Par1+1
  334.     text "... Diskette #",Par1," wurde bearbeitet."
  335.   endif
  336.  
  337.   if inswrow = 12
  338.     text "\n"
  339.   endif
  340.  
  341.   if inswrow < 12
  342.     inswrow=inswrow+1
  343.   endif
  344.   window 1,1,80,25
  345. endp
  346.  
  347. proc FileDone
  348.   gotoxy 50,11
  349.   setcolor LIGHTCYAN,BLUE
  350.   Percent=Par1*100
  351.   Percent=Percent/files
  352.   text Percent,"%% "
  353.   window 7,12,74,23
  354.   setcolor LIGHTCYAN,BLUE
  355.   gotoxy 1,inswrow
  356.   text DestFileName
  357.  
  358.   if inswrow = 12
  359.     text "\n"
  360.   endif
  361.  
  362.   if inswrow < 12
  363.     inswrow=inswrow+1
  364.   endif
  365.   window 1,1,80,25
  366. endp
  367.  
  368. proc Error
  369.   window 7,12,74,23
  370.   setcolor LIGHTCYAN,BLUE
  371.   gotoxy 1,inswrow
  372.   Title="Fehler!"
  373.  
  374.   ; Par1 enthält die Fehlernummer:
  375.  
  376.   if Par1 == 1
  377.     Message="Schwerer Fehler"
  378.     call ErrMsg
  379.   endif
  380.  
  381.   if Par1 == 2
  382.     Message="CRC Fehler, Archiv beschädigt"
  383.     call ErrMsg
  384.   endif
  385.  
  386.   if Par1 == 3
  387.     Message="Schreibfehler"
  388.     call ErrMsg
  389.   endif
  390.  
  391.   if Par1 == 4
  392.     Message="Fehler beim Erstellen der Datei"
  393.     call ErrMsg
  394.   endif
  395.  
  396.   if Par1 == 5
  397.     Message="Lesefehler"
  398.     call ErrMsg
  399.   endif
  400.  
  401.   if Par1 == 6
  402.     Message="Fehler beim Schließen der Datei"
  403.     call ErrMsg
  404.   endif
  405.  
  406.   if Par1 == 7
  407.     Message="Fehler beim Öffnen der Datei"
  408.     call ErrMsg
  409.   endif
  410.  
  411.   if Par1 == 8
  412.     Message="Nicht genügend Speicher"
  413.     call ErrMsg
  414.   endif
  415.  
  416.   if inswrow = 12
  417.     text "\n"
  418.   endif
  419.  
  420.   if inswrow < 12
  421.     inswrow=inswrow+1
  422.   endif
  423.   window 1,1,80,25
  424. endp
  425.  
  426. proc ErrMsg
  427.   window 17,14,62,21
  428.   setcolor WHITE,RED
  429.   clrscr
  430.   window 1,1,80,25
  431.   box 20,15,59,20,WHITE,RED,DOUBLE
  432.   gotoxy 1,15
  433.   ctext " ",Title," "
  434.   gotoxy 1,17
  435.   ctext Message
  436.   setcolor WHITE,BLACK
  437.   gotoxy 1,19
  438.   ctext " Ok "
  439.   sound 20,5
  440.   sound 80,50
  441.   delay 15000
  442.   window 1,1,80,25
  443. endp
  444.  
  445. proc ArcDone
  446.   sound 3300,25
  447.   delay 100
  448.   sound 2450,100
  449.   window 7,12,74,23
  450.   setcolor LIGHTCYAN,BLUE
  451.   gotoxy 1,inswrow
  452.   text "Fertig. Installation beendet"
  453.   delay 500
  454.   savescr 2
  455.   Title="Installations-Status"
  456.   Message=" Beendet "
  457.   call OkMsg
  458.   restscr 2
  459.   window 1,1,80,25
  460.  
  461.   ; Laufwerk wechseln
  462.   SYSTEM DestDir,
  463.   ; Verzeichnis wechseln
  464.   SYSTEM "CD ",DestDir,"."
  465.  
  466.   call ClearScreen
  467.  
  468.   ; externes Installationsprogramm aufrufen
  469.   ; SYSTEM "IF EXIST ", DestDir, "INSTALL.EXE", DestDir, "INSTALL.EXE"
  470.  
  471.   setcolor WHITE,BLACK
  472.   exit
  473. endp
  474.  
  475. proc ClearScreen
  476.   i=1
  477.   loop:
  478.     if i > 13
  479.       goto exloop
  480.     endif
  481.     j=81-i
  482.     k=26-i
  483.     box i,i,j,k,LIGHTBLUE,BLACK,DOUBLE
  484.     i=i+1
  485.   goto loop
  486.  
  487.   exloop:
  488.   i=1
  489.   loop1:
  490.     if i > 13
  491.       goto exloop1
  492.     endif
  493.     j=81-i
  494.     k=26-i
  495.     box i,i,j,k,BLACK,BLACK,SINGLE
  496.     i=i+1
  497.   goto loop1
  498.  
  499.   exloop1:
  500.     window 1,1,80,25
  501. endp
  502.  
  503. proc OkMsg
  504.   window 24,14,57,21
  505.   setcolor BLACK,WHITE
  506.   clrscr
  507.   window 1,1,80,25
  508.   box 27,15,53,20,BLACK,WHITE,DOUBLE
  509.   gotoxy 1,15
  510.   ctext " ",Title," "
  511.   gotoxy 1,17
  512.   ctext Message
  513.   setcolor WHITE,BLACK
  514.   gotoxy 1,19
  515.   ctext " Ok "
  516.   delay 50000
  517.   window 1,1,80,25
  518. endp
  519.  
  520. proc OutHelp
  521.   ; Hilfe anzeigen
  522.   savescr 13
  523.   setcolor BLACK,CYAN
  524.   window 6,7,75,19
  525.   clrscr
  526.   gotoxy 1,14
  527. ;text "╔═══════════════════════ Hilfe zur Installation ══════════════════════╗\n"
  528.   text "                                                                     \n"
  529.   text " - Wählen Sie aus dem Menü ZIELVERZEICHNIS ÄNDERN, wenn Sie das Ziel-\n"
  530.   text "   verzeichnis ändern möchten oder nicht genügend  Speicherplatz zur \n"
  531.   text "   Verfügung steht. Geben Sie anschließend das  gewünschte  Laufwerk \n"
  532.   text "   und Verzeichnis an und drücken Sie die EINGABETASTE.              \n"
  533.   text "                                                                     \n"
  534.   text " - Beginnen Sie  die  Installation  durch  Auswahl  des  Menüpunktes \n"
  535.   text "   INSTALLATION STARTEN. Sie werden ggf.  automatisch  zum  Wechseln \n"
  536.   text "   der Diskette aufgefordert.                                        \n"
  537.   text "                                                                     \n"
  538.   text " - Falls Sie die Installation nicht durchführen möchten, wählen  Sie \n"
  539.   text "   den Menüpunkt ENDE.                                               \n"
  540. ;text "                                                                       \n"
  541. ;text "╚════════════════════ Weiter mit beliebiger Taste ════════════════════╝\n"
  542.   window 1,1,80,25
  543.   box 5,6,75,20,BLACK,CYAN,DOUBLE
  544.  
  545.   window 5,6,75,20
  546.   setcolor WHITE,CYAN
  547.   gotoxy 25,1
  548.   text " Hilfe zur Installation "
  549.   gotoxy 22,15
  550.   text " Weiter mit beliebiger Taste "
  551.  
  552.   setcolor YELLOW,CYAN
  553.   gotoxy 29,3
  554.   text "ZIELVERZEICHNIS ÄNDERN"
  555.   gotoxy 5,9
  556.   text "INSTALLATION STARTEN"
  557.   gotoxy 19,13
  558.   text "ENDE"
  559.  
  560.   setcolor LIGHTCYAN,CYAN
  561.   gotoxy 44,6
  562.   text "EINGABETASTE"
  563.  
  564.   ; Schatten unten
  565.   setcolor DARKGRAY,CYAN
  566.   window 7,21,77,21
  567.   clrscr 219
  568.  
  569.   ; Schatten rechts
  570.   setcolor DARKGRAY,CYAN
  571.   window 76,7,77,21
  572.   clrscr 219
  573.  
  574.   ; Pause bis Taste
  575.   delay
  576.   restscr 13
  577.   window 1,1,80,25
  578. endp
  579.  
  580.