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