Metropoli BBS - standard.s

VIEWER: standard.s MODE: TEXT (CP437)
;           ┌────────────────────────────────────────────┐
;           │                                            │
;           │    Verarbeitung mit RAR ist nicht nötig!   │
;           │                                            │
;           │  SFX-Modul nur laufen lassen und staunen!  │
;           │                                            │
;           └────────────────────────────────────────────┘
;
;
;
;
;
; iSFX-Skript wird ab RAR V 1.54 nicht als Archivkommentar angezeigt!
DestDir="INSTALL"
; Anzahl der Dateien im Archiv. BITTE KORREKTEN WERT EINTRAGEN!
files=1
; Zum Entpacken benötigter Plattenspeicher in Bytes. BITTE WERT EINTRAGEN!
diskneed=1024
; Balken definieren
defbar BLACK,WHITE,WHITE,BLACK,14,7,52
; Standard-Ansikommentar ausgeben ──────────────────────────────────────
clrscr
outtext ansi on
RAR Installation SFX Modul
Erstellt mit RAR 2.01 Deutsch

outtext ansi off

; AV-Überprüfung
if AVPresent == -1
      Title="Achtung"
      Message="Siegelinformation ist nicht korrekt"
      call ErrMsg
endif

if AVPresent == 0
      Title="Achtung"
      Message="Siegelinformation fehlt!"
      call ErrMsg
endif

; Hintergrundfarben
setcolor DARKGRAY,BLACK
window 1,1,80,25
clrscr 219
; Hauptfenster
window 1,1,80,25

; AV Info
box 9,3,74,8,YELLOW,BLUE,SINGLE
setcolor YELLOW,BLUE
gotoxy 34,3
text " Archiv-Information "
setcolor DARKGRAY,BLACK
window 11,9,75,9
clrscr 177
window 75,4,75,9
clrscr 177
window 10,4,73,7
setcolor LIGHTCYAN,BLUE
clrscr
; Felder
gotoxy 1,1
text "  gültiger Arch.-Name: "
gotoxy 1,2
text "  gegenw. Archiv-Name: "
gotoxy 1,3
text "  Archiv-Datum:        "
gotoxy 1,4
text "  erstellt von:        "
; Werte
setcolor WHITE,BLUE
gotoxy 26,1
if AVArcName!="AVArcName"
    text AVArcName
endif
gotoxy 26,2
text ArcName
gotoxy 26,3
if AVDate!="AVDate"
    text "vom ",AVDate
endif
gotoxy 26,4
if AVUserName!="AVUserName"
    text AVUserName
endif

window 1,1,80,25
; unterste Zeile
setcolor LIGHTCYAN,DARKGRAY
gotoxy 1,25
text "                        F1 für Hilfe, Alt-X zum Beenden "

; "Shadow on the meadow"
setcolor DARKGRAY,BLACK
window 25,17,56,17
clrscr 177
window 54,11,56,17
clrscr 177
window 1,1,80,25

; Soundeffekt
sound 90,1

; Installations-Menu:

Menu:

Choice = menu 25,10,BLACK,WHITE,1,"Installationsmenu","  Lizenzhinweis"," Zielverzeichnis","  Installieren","    Abbrechen"

if Choice == 0
      goto Quit
endif

if Choice==1
     savescr 1
FirstPage:
     window 1,1,80,25
     setcolor LIGHTCYAN,BLUE
     clrscr
     box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
     gotoxy 8,25
     ctext " PgDn zum Anzeigen der 2. Seite o. Esc für Menu... "
     gotoxy 1,1
     ctext " Lizenz "
     gotoxy 1,1
     window 2,2,80,25
     setcolor YELLOW,BLUE
     sound 140,5
     outtext on
     outtext off
GetKey1:
     Key=getkey
     if Key==27
           restscr 1
           goto Menu
     endif
     if Key==337
SecondPage:
          window 1,1,80,25
          setcolor LIGHTCYAN,BLUE
          clrscr
          box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
          gotoxy 8,25
          ctext " PgUp für die erste Seite oder Esc für Menu... "
          window 2,2,80,25
          setcolor YELLOW,BLUE
          gotoxy 1,1
          sound 145,5
          outtext on
          outtext off
GetKey2:
          Key=getkey
          if Key==27
                restscr 1
                goto Menu
          endif
          if Key == 329
               goto FirstPage
          endif
          goto GetKey2
     endif
     goto GetKey1
endif


if Choice == 2
     savescr 1
     setcolor WHITE,CYAN
     window 11,10,67,15
     clrscr
     box 4,2,54,5,WHITE,CYAN,SINGLE
     gotoxy 20,2
     text " Zielverzeichnis "
     window 15,12,63,13
     clrscr
     setcolor WHITE,CYAN
     gotoxy 4,1 
     text "Bitte das Zielverzeichnis eingeben!"
     window 18,13,60,13
     Res=INPUT DARKGRAY,WHITE,DestDir,DestDir,42
     restscr 1
     window 1,1,80,25
     goto Menu
endif

if Choice == 3
  box 6,11,76,24,LIGHTCYAN,BLUE,DOUBLE
  setcolor LIGHTCYAN,BLUE
  gotoxy 27,11
  text " Installationsstatus: "
  window 7,12,75,23
  clrscr
; freien Speicherplatz prüfen
  DiskSpace=getdfree
  KDiskSpace=DiskSpace/1024
  KDiskNeed=diskneed/1024
  text "Installation beginnt.\n"
  text "benötigter Speicher:  ",KDiskNeed," Kb\n"
  text "vorhandener Speicher: ",KDiskSpace," Kb\n"
  inswrow=4
  window 1,1,80,25

  if DiskSpace < diskneed
          savescr 1
          window 1,1,80,25
          sound 2300,25
          delay 100
          sound 1450,25
          delay 100
          sound 2300,100
          Choice = menu 24,16,WHITE,RED,1,"ungenügender Speicher","Mit Installation fortfahren","          Exit"
          if Choice == 0
               goto Quit
          endif
          if Choice == 2
               goto Quit
          endif
          restscr 1
     endif
endif

if Choice == 4
Quit:
     setcolor WHITE,BLACK
     clrscr
     gotoxy 2,3
     text "Das SFX-Paket ist noch nicht ausgepackt.   "
     sound 380,25
     delay 210
     sound 190,25
     exit 1
     goto Menu
endif

; HIER BEGINNT DIE INSTALLATION!
ctext "Installation hat begonnen."

proc OnKey
     window 1,1,80,25
     if Par1 == 3
          savescr 15
          Par1=-1
          sound 2300,25
          delay 100
          sound 1450,100
          Choice=Menu 22,11,WHITE,LIGHTRED,1,"Strg-Pause","           Abbrechen         ","   Installation fortsetzen   "
          if Choice == 1
               exit 1
          endif
          restscr 15
     endif

     if Par1 == 301
           goto Quit
     endif

     if Par1 == 315
          savescr 15
          call OutHelp
          Par1=-1
          restscr 15
     endif
endp

proc ChangeVol

     window 7,12,75,23
     setcolor YELLOW,BLUE
     gotoxy 1,inswrow

     if Par2 == 0
           text ".. VOLUMEN #",Par1," muß installiert werden."
           savescr 14
           Par1=-1
           sound 2300,25
           delay 100
           sound 1450,100
           sound 5450,50
           sound 7450,25
           sound 1450,100

           Choice=Menu 22,11,WHITE,GREEN,1," Vol. ändern   ","   Nächstes Volumen verarbeiten   ","         Sofort abbrechen    "

           restscr 14

           if Choice == 2
                 window 7,12,75,23
                 inswrow=inswrow+1
                 gotoxy 1,inswrow
                 text " Volumen nicht gefunden. Beenden...   "
                 exit 1
           endif
     endif

     if Par2 != 0
           setcolor LIGHTCYAN,BLUE
           text ".. VOLUMEN #",Par1," wurde verarbeitet. "
     endif

     if inswrow = 12
           text "\n"
     endif

     if inswrow < 12
           inswrow=inswrow+1
     endif
     window 1,1,80,25
endp

proc FileDone
     gotoxy 49,11
     setcolor LIGHTCYAN,BLUE
     Percent=Par1*100
     Percent=Percent/files
     text Percent,"%% "
     window 7,12,75,23
     setcolor LIGHTCYAN,BLUE
     gotoxy 1,inswrow
     text DestFileName
     if inswrow = 12
           text "\n"
     endif
     if inswrow < 12
           inswrow=inswrow+1
     endif
     window 1,1,80,25
endp

proc Error

     window 7,12,75,23
     setcolor LIGHTCYAN,BLUE
     gotoxy 1,inswrow

     Title="Error"

     ; Par1 is assigned with error code:

     if Par1 == 1
           Message="Fataler Fehler"
           call ErrMsg
     endif

     if Par1 == 2
           Message="CRC-Fehler, Archiv beschädigt"
           call ErrMsg
     endif

     if Par1 == 3
           Message="Schreibfehler"
           call ErrMsg
     endif

     if Par1 == 4
           Message="Fehler bei Dateierstellung"
           call ErrMsg
     endif

     if Par1 == 5
           Message="Lesefehler"
           call ErrMsg
     endif

     if Par1 == 6
           Message="Fehler beim Schließen"
           call ErrMsg
     endif

     if Par1 == 7
           Message="Fehler beim Öffnen"
           call ErrMsg
     endif

     if Par1 == 8
           Message="zu wenig Arbeitsspeicher"
           call ErrMsg
     endif

     if inswrow = 12
           text "\n"
     endif

     if inswrow < 12
           inswrow=inswrow+1
     endif
     window 1,1,80,25
endp

proc ErrMsg
     window 17,14,62,21
     setcolor WHITE,RED
     clrscr
     window 1,1,80,25
     box 20,15,59,20,WHITE,RED,DOUBLE
     gotoxy 1,15
     ctext " ",Title," "
     gotoxy 1,17
     ctext Message
     setcolor WHITE,BLACK
     gotoxy 1,19
     ctext " Ok "
     sound 20,5
     sound 80,50
     delay 15000
     window 1,1,80,25
endp

proc ArcDone
     sound 3300,25
     delay 100
     sound 2450,100
     window 7,12,75,23
     setcolor LIGHTCYAN,BLUE
     gotoxy 1,inswrow
     text "Fertig. Installation komplett"
     delay 500
     savescr 2
     Title="Installationsstatus"
     Message=" Fertig! "
     call OkMsg
     restscr 2
endp

proc OkMsg
     window 24,14,57,21
     setcolor BLACK,WHITE
     clrscr
     window 1,1,80,25
     box 27,15,53,20,BLACK,WHITE,DOUBLE
     gotoxy 1,15
     ctext " ",Title," "
     gotoxy 1,17
     ctext Message
     setcolor WHITE,BLACK
     gotoxy 1,19
     ctext " Ok "
     delay 50000
     window 1,1,80,25
endp

proc OutHelp
     setcolor BLACK,CYAN
     box 14,6,65,20,BLACK,CYAN,SINGLE
     gotoxy 37,6
     text " Hilfe "
     window 15,7,64,19
     clrscr
     outtext on

  Zum Installieren wählen Sie das Zielverzeichnis
  und drücken die Eingabetaste beim Menüeintrag
  "Installation".

  Nach der Installation befinden sich die Dateien
  im angegebenen Verzeichnis.

     outtext off
     delay
endp
;
;
;
;
;
;
;
;
;
;
;
;           ┌────────────────────────────────────────────┐
;           │                                            │
;           │    Verarbeitung mit RAR ist nicht nötig!   │
;           │                                            │
;           │  SFX-Modul nur laufen lassen und staunen!  │
;           │                                            │
;           └────────────────────────────────────────────┘
;
;
;
;
;
;
; iSFX-Skript wird ab RAR V 1.54 nicht als Archivkommentar angezeigt!
[ RETURN TO DIRECTORY ]