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