home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / Chip_1997-07_cd.bin / sharewar / 95rar / tools / script20.exe / rar / SOFORT.S < prev    next >
Text File  |  1996-05-06  |  7KB  |  368 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. ; - während des Entpackens Anzeige durch Fortschritts-Balken und einzelne
  13. ;   Dateinamen
  14. ; - es werden nur nicht vorhandene oder aktuellere Dateien entpackt
  15. ; - Aufforderung zum Diskettenwechsel bei Mehrdisketten-Archiven
  16. ; - Fehlererkennung
  17. ; - nach der Installation wird in das Zielverzeichnis gewechselt
  18. ;
  19. ;
  20. ; iSFX-Skript wird ab RAR V 1.54 nicht als Archivkommentar angezeigt!
  21.  
  22. ; Variable für Zielverzeichnis. BITTE GEWÜNSCHTEN PFAD EINTRAGEN!
  23. ; Wird innerhalb des Scripts mehrfach verwendet!
  24. Ziel="C:\\INSTALL"
  25. DestDir=Ziel
  26.  
  27. ; Balken definieren
  28. defbar YELLOW,CYAN,BLUE,WHITE,14,7,52
  29.  
  30. ; Hintergrundfarben setzen und Bildschirm löschen
  31. setcolor CYAN,CYAN
  32. window 1,1,80,25
  33. clrscr
  34.  
  35. ; AV-Überprüfung
  36. if AVPresent == -1
  37.   Title="Warnung"
  38.   Message="Siegelinformation ist nicht korrekt"
  39.   call ErrMsg
  40. endif
  41.  
  42. if AVPresent == 0
  43.   Title="Warnung"
  44.   Message="Siegelinformation fehlt"
  45.   call ErrMsg
  46. endif
  47.  
  48. ; Hintergrundfarben setzen und Bildschirm löschen
  49. setcolor CYAN,CYAN
  50. window 1,1,80,25
  51. clrscr
  52.  
  53. ; Programm Info
  54. clrscr
  55. outtext ansi on
  57.  ┌──────────────────────────────────────────────────────────────────────────┐
  58.  │ Installations-SFX-Modul                     Hier können Sie eine kurze   │
  59.  │ Erstellt von Bernd Hohenester               Programm-Info eintragen,     │
  60.  │     FIDO: Bernd Hohenester@2:2490/2030.4    Ihr Copyright usw.           │
  61.  │      CIS: 101447,1272                                                    │
  62.  │ INTERNET: 101447.1272@compuserve.com                                     │
  63.  ├──────────────────────────────────────────────────────────────────────────┤
  64.  │                                                                          │
  65.  └──────────────────────────────────────────────────────────────────────────┘
  67. outtext ansi off
  68.  
  69. ; Schatten unten
  70. setcolor DARKGRAY,CYAN
  71. window 4,11,79,11
  72. clrscr 219
  73.  
  74. ; Schatten rechts
  75. setcolor DARKGRAY,CYAN
  76. window 78,3,79,11
  77. clrscr 219
  78.  
  79. ; Zielverzeichnis anzeigen
  80. window 4,9,76,9
  81. setcolor BLACK,WHITE
  82. gotoxy 1,1
  83. text "Das Programm wird in ", DestDir, " installiert."
  84.  
  85. ; Laufwerk nicht vorhanden
  86. DiskSpace=getdfree
  87. if DiskSpace == -1
  88.   Title="Fehler!"
  89.   Message="Ziellaufwerk nicht vorhanden"
  90.   call ErrMsg
  91.   exit
  92. endif
  93.  
  94. window 1,1,80,25
  95. Menu:
  96. Choice = Menu 30,15,WHITE,BLUE,1,""," Fortsetzen ","  Beenden   "
  97.  
  98. if Choice == 0
  99.   goto Menu
  100. endif
  101.  
  102. if Choice == 2
  103.   Quit:
  104.   setcolor WHITE,BLACK
  105.   clrscr
  106.   gotoxy 2,4
  107.   text "Das Programm wurde NICHT installiert!"
  108.   sound 380,25
  109.   delay 210
  110.   sound 190,25
  111.   exit 1
  112. endif
  113.  
  114. box 6,11,75,24,LIGHTCYAN,BLUE,DOUBLE
  115. setcolor LIGHTCYAN,BLUE
  116.  
  117. ; Titel
  118. window 7,12,74,23
  119. clrscr
  120.  
  121. ; Beginn ausgeben
  122. text "Installation begonnen.\n"
  123. inswrow=2
  124. window 1,1,80,25
  125.  
  126. ; HIER BEGINNT DIE INSTALLATION
  127. ; nur nicht vorhandene oder neuere Dateien entpacken
  128. Overwrite UPDATE
  129.  
  130. proc OnKey
  131.   window 1,1,80,25
  132.  
  133.   if Par1 == 3
  134.     savescr 15
  135.     Par1=-1
  136.     sound 2300,25
  137.     delay 100
  138.     sound 1450,100
  139.     Choice=Menu 32,11,WHITE,LIGHTRED,1,"Unterbrechung"," Fortsetzen  ","  Abbrechen  "
  140.     if Choice == 2
  141.       exit 1
  142.     endif
  143.     restscr 15
  144.   endif
  145.  
  146.   ; "Abbrechen" gewählt
  147.   if Par1 == 301
  148.     goto Quit
  149.   endif
  150. endp
  151.  
  152. proc ChangeVol
  153.   window 7,12,74,23
  154.   setcolor YELLOW,BLUE
  155.   gotoxy 1,inswrow
  156.  
  157.   if Par2 == 0
  158.     Par1=Par1+2
  159.     text "... Diskette #",Par1," einlegen."
  160.     savescr 14
  161.     Par1=-1
  162.     sound 2300,25
  163.     delay 100
  164.     sound 1450,100
  165.     sound 5450,50
  166.     sound 7450,25
  167.     sound 1450,100
  168.     window 1,1,80,25
  169.     Choice = Menu 30,15,WHITE,GREEN,1,"Diskette wechseln","   Fortsetzen    ","    Abbrechen    "
  170.     restscr 14
  171.  
  172.     if Choice == 2
  173.       window 1,1,80,25
  174.       setcolor WHITE,BLACK
  175.       clrscr
  176.       gotoxy 2,3
  177.       text " Diskette nicht gefunden. Abbruch! "
  178.       exit 1
  179.     endif
  180.   endif
  181.  
  182.   if Par2 != 0
  183.     setcolor LIGHTCYAN,BLUE
  184.     Par1=Par1+1
  185.     text "... Diskette #",Par1," wurde bearbeitet."
  186.   endif
  187.  
  188.   if inswrow = 12
  189.     text "\n"
  190.   endif
  191.  
  192.   if inswrow < 12
  193.     inswrow=inswrow+1
  194.   endif
  195.   window 1,1,80,25
  196. endp
  197.  
  198. proc FileDone
  199.   gotoxy 50,11
  200.   setcolor LIGHTCYAN,BLUE
  201.   window 7,12,74,23
  202.   setcolor LIGHTCYAN,BLUE
  203.   gotoxy 1,inswrow
  204.   text DestFileName
  205.  
  206.   if inswrow = 12
  207.     text "\n"
  208.   endif
  209.  
  210.   if inswrow < 12
  211.     inswrow=inswrow+1
  212.   endif
  213.   window 1,1,80,25
  214. endp
  215.  
  216. proc Error
  217.   window 7,12,74,23
  218.   setcolor LIGHTCYAN,BLUE
  219.   gotoxy 1,inswrow
  220.   Title="Fehler!"
  221.  
  222.   ; Par1 enthält die Fehlernummer:
  223.  
  224.   if Par1 == 1
  225.     Message="Schwerer Fehler"
  226.     call ErrMsg
  227.   endif
  228.  
  229.   if Par1 == 2
  230.     Message="CRC Fehler, Archiv beschädigt"
  231.     call ErrMsg
  232.   endif
  233.  
  234.   if Par1 == 3
  235.     Message="Schreibfehler"
  236.     call ErrMsg
  237.   endif
  238.  
  239.   if Par1 == 4
  240.     Message="Fehler beim Erstellen der Datei"
  241.     call ErrMsg
  242.   endif
  243.  
  244.   if Par1 == 5
  245.     Message="Lesefehler"
  246.     call ErrMsg
  247.   endif
  248.  
  249.   if Par1 == 6
  250.     Message="Fehler beim Schließen der Datei"
  251.     call ErrMsg
  252.   endif
  253.  
  254.   if Par1 == 7
  255.     Message="Fehler beim Öffnen der Datei"
  256.     call ErrMsg
  257.   endif
  258.  
  259.   if Par1 == 8
  260.     Message="Nicht genügend Speicher"
  261.     call ErrMsg
  262.   endif
  263.  
  264.   if inswrow = 12
  265.     text "\n"
  266.   endif
  267.  
  268.   if inswrow < 12
  269.     inswrow=inswrow+1
  270.   endif
  271.   window 1,1,80,25
  272. endp
  273.  
  274. proc ErrMsg
  275.   window 17,14,62,21
  276.   setcolor WHITE,RED
  277.   clrscr
  278.   window 1,1,80,25
  279.   box 20,15,59,20,WHITE,RED,DOUBLE
  280.   gotoxy 1,15
  281.   ctext " ",Title," "
  282.   gotoxy 1,17
  283.   ctext Message
  284.   setcolor WHITE,BLACK
  285.   gotoxy 1,19
  286.   ctext " Ok "
  287.   sound 20,5
  288.   sound 80,50
  289.   delay 15000
  290.   window 1,1,80,25
  291. endp
  292.  
  293. proc ArcDone
  294.   sound 3300,25
  295.   delay 100
  296.   sound 2450,100
  297.   window 7,12,74,23
  298.   setcolor LIGHTCYAN,BLUE
  299.   gotoxy 1,inswrow
  300.   text "Fertig. Installation beendet"
  301.   delay 500
  302.   savescr 2
  303.   Title="Installations-Status"
  304.   Message=" Beendet "
  305.   call OkMsg
  306.   restscr 2
  307.   window 1,1,80,25
  308.  
  309.   ; Laufwerk wechseln
  310.   SYSTEM DestDir,
  311.   ; Verzeichnis wechseln
  312.   SYSTEM "CD ",DestDir,"."
  313.  
  314.   call ClearScreen
  315.  
  316.   ; externes Installationsprogramm aufrufen
  317.   ; SYSTEM "IF EXIST ", DestDir, "INSTALL.EXE", DestDir, "INSTALL.EXE"
  318.  
  319.   setcolor WHITE,BLACK
  320.   exit
  321. endp
  322.  
  323. proc ClearScreen
  324.   i=1
  325.   loop:
  326.     if i > 13
  327.       goto exloop
  328.     endif
  329.     j=81-i
  330.     k=26-i
  331.     box i,i,j,k,LIGHTBLUE,BLACK,DOUBLE
  332.     i=i+1
  333.   goto loop
  334.  
  335.   exloop:
  336.   i=1
  337.   loop1:
  338.     if i > 13
  339.       goto exloop1
  340.     endif
  341.     j=81-i
  342.     k=26-i
  343.     box i,i,j,k,BLACK,BLACK,SINGLE
  344.     i=i+1
  345.   goto loop1
  346.  
  347.   exloop1:
  348.     window 1,1,80,25
  349. endp
  350.  
  351. proc OkMsg
  352.   window 24,14,57,21
  353.   setcolor BLACK,WHITE
  354.   clrscr
  355.   window 1,1,80,25
  356.   box 27,15,53,20,BLACK,WHITE,DOUBLE
  357.   gotoxy 1,15
  358.   ctext " ",Title," "
  359.   gotoxy 1,17
  360.   ctext Message
  361.   setcolor WHITE,BLACK
  362.   gotoxy 1,19
  363.   ctext " Ok "
  364.   delay 50000
  365.   window 1,1,80,25
  366. endp
  367.  
  368.