;Installation script for Safe v12.6

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

(set YEP "Yes")
(set NOP "No")
(set NEED "Safe needs OS2.0+ !\n")
(set WELC "\n\n\n\nWelcome to Safe v12.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 Q2HE "Renaming Ram disk: to RAM: that helps with some programs.")

(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 v12.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 Q2HE "Zmiana nazwy Ram disk: na RAM:, co pomaga przy pracy z niektórymi programami.")
))

(set app-name "Safe v12.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"))

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

(complete 100)