;Installation script for Safe v13.6

(set PAR1 "")
(set PAR2 "")
(set PAR3 "")

(set YEP "Yes")
(set NOP "No")
(set NEED "Safe needs OS2.0+ !\n")
(set WELC "\n\n\n\nWelcome to Safe v13.6 Installation Script.\n(c)1998-2000 by Zbigniew `Zeeball` Trzcionkowski\n\nThis script installs only Safe file\nand adds it to user-startup!")
(set WHER "Please select a place where you want to install Safe.")
(set WHLP "Where do you want to have this!")
(set CPNG "Copying Safe into ")
(set ADDG "Adding Safe to \"S:User-Startup\".")
(set AHLP "To check the system on startup!")
(set QES1 "\n\n\nDo You want TCP Patch?")
(set Q1HE "To detect activity of trojans/viruses that opens remote shells in TCP: device.")
(set QES2 "\n\n\nDo You want Ram disk: renamer?")
(set QES3 "\n\n\nDo You want to skip PolishPower test on startup?")
(set Q2HE "Renaming Ram disk: to RAM: that helps with some programs.")
(set Q3HE "Saves 16/50 of second while booting by not testing for PolishPower virus in memory which always appears with delay...")

(if (= @language "polski")
(
(set YEP "Tak")
(set NOP "Nie")
(set NEED "Safe potrzebuje OS2.0+ !\n")
(set WELC "\n\n\n\nWitaj w skrypcie instalacyjnym programu Safe v13.6!\n(c)1998-2000 by Zbigniew `Zeeball` Trzcionkowski\n\nTen skrypt instaluje tylko plik Safe-a\ni dodaje go do user-startup!")
(set WHER "Proszė wybraź miejsce, gdzie ma byź zainstalowany Safe.")
(set WHLP "Gdzie go chcesz mieź!")
(set CPNG "Kopiujė Safe-a do ")
(set ADDG "Dodajė Safe-a do \"S:User-Startup\".")
(set AHLP "Ūeby sprawdziź system na starcie!")
(set QES1 "\n\n\nCzy chcesz TCP Patch?")
(set Q1HE "Aby wykryź dziaīalnoōź wirusów/trojanów, które tworzā zdalne shelle w urzādzeniu TCP:")
(set QES2 "\n\n\nCzy chcesz Ram disk: renamer?")
(set QES3 "\n\n\nCzy chcesz pomijaź test na obecnoōź wirusa PolishPower w czasie bootowania?")
(set Q2HE "Zmiana nazwy Ram disk: na RAM:, co pomaga przy pracy z niektórymi programami.")
(set Q3HE "Zaoszczėdza 16/50 sekundy podczas bootowania dziėki rezygnacji z testu na wirusa PolishPower, który zawsze pojawia siė z opóśnieniem...")
))

(set app-name "Safe v13.6")

(if(<(/(getversion)65536)37)(abort NEED))

(complete 0)

(message (cat WELC))

(set dirk (askdir (prompt WHER) (help WHLP) (default "C:")))(set @default-dest dirk)

(copyfiles (prompt CPNG dirk) (source "safe") (dest dirk))

(complete 50)

(if(askbool(prompt QES1)(help Q1HE)(choices YEP NOP))(set PAR1 " TCPPATCH"))

(if(askbool(prompt QES2)(help Q2HE)(choices YEP NOP))(set PAR2 " RENRAM"))

(if(askbool(prompt QES3)(help Q3HE)(choices YEP NOP))(set PAR3 " NOPOLPOW"))

(startup "Safe" (prompt	ADDG) (help AHLP) (command ("%sSafe%s%s%s" dirk PAR1 PAR2 PAR3)))

(complete 100)