Amiga Tools 5/Amiga Tools 5.iso/tools/other-tools/wastedtime2.0/install/install_script

Text File | 1996-04-15 | 5.6 KB | 210 lines

;
;         Wasted Time © 1995-1996 Marcin Orîowski & Paweî Soîtysiïski
;
;           ---------------------------------------------------------
;
;               ###    ###    #########  ###    ###    ###    ###
;               ###    ###    ###        ####  ####    ###    ###
;               ###    ###    ###        ### ## ###    ###    ###
;               ###    ###    ########   ### ## ###    ##########
;               ### ## ###    ########   ###    ###    ##########
;               ### ## ###    ###        ###    ###    ###    ###
;               ####  #### ## ###     ## ###    ### ## ###    ### ##
;               ###    ### ## ###     ## ###    ### ## ###    ### ##
;
;           ---------------------------------------------------------
;
;                       Mental Pictures Developed Here
;
;                              Marcin Orlowski
;                              ul. Radomska 38
;                              71-002 Szczecin
;                              Poland
;
;            SilverDream!'s BBS:  [phone]  (24h non-stop)
;            GlobalNet         :  52:4800/6
;            FidoNet           :  2:481/22.2
;
;            Internet          :  [e-mail]
;            WWW               :  dedal.man.szczecin.pl/~carlos
;
;
;--------------------------------------------------------------------
;
;               W.F.M.H. Wasted Time v2.0+ Installer script
;
;--------------------------------------------------------------------
;
; $VER: Installer of Wasted Time v2 (05.04.96) © Marcin Orîowski

(set _Version  2)
(set _Revision 0)
(set _Date "20.04.1996")

;--------------------------------------------------------------------

(set OS_Version (/ (getversion "exec.library" (resident)) 65536))
(if (< OS_Version 37) (abort  "\n\n\nWasted Time needs OS2.0+!"))

(complete 0)
(welcome
    "\n"
    " ###    ###    #########  ###    ###    ###    ###\n"
    " ###    ###    ###        ####  ####    ###    ###\n"
    " ###    ###    ###        ### ## ###    ###    ###\n"
    " ###    ###    ########   ### ## ###    ##########\n"
    " ### ## ###    ########   ###    ###    ##########\n"
    " ### ## ###    ###        ###    ###    ###    ###\n"
    " ####  #### ## ###     ## ###    ### ## ###    ###\n"
    " ###    ### ## ###     ## ###    ### ## ###    ###\n"
    "\n"
    "      ------------------------------------------\n"
   "            Wasted Time " _version  "."  _revision "  (" _date ")\n"
    "      ------------------------------------------"
)

;********************

(if (= @language "english")
 (
  (set _DefLang 0)

  (set _MainPrompt "Select home drawer for")
  (set _MainHelp
        (cat
            "Placing Wasted Time in WBStartup "
             "drawer causes it to be launched "
            "automatically on every system reboot\n\n"
        )
  )
  (set _LangPrompt "Select language")
  (set _HelpPrompt "Select home drawer for docs")
  (set _HelpHelp "You really need help?\nInstall this part - can help...\n\n")
  (set _Done1
    (cat
     "\nDone!\n"
     "---------\n"
     "Now you may reset your Amiga\n"
     "or launch WastedTime by hand\n"
     "and enjoy this release\n\n"
     "To become master of Wasted Time please\n"
     "carefully read installed manual.\n\n"
     " © 1995-1996 World Federation of Mad Hackers\n"
     "Marcin Orlowski & Pawel Soltysinski\n"
    )
  )
  (set _Done2
    (cat
     "\n\nFor more information, latest update\n"
     "and the support files look at the\n"
     "dedicated WWW page:\n\n"
     "http://dedal.man.szczecin.pl/~carlos\n\n"
     "Check also our support BBS:\n\n"
     "SilverDream!'s BBS:  [phone]  (non-stop)"
    )
  )
 )
)

;********************

; Polski

(if (= @language "polski")
 (
  (set _DefLang 1)

  (set _MainPrompt "Gdzie chcesz umieôciê Wasted Time?")
  (set _MainHelp (cat "Umieszczenie Wasted Time w katalogu WBStartup "
         "spowoduje jego automatyczne uruchamianie przy "
        "kaûdym uruchomieniu systemu\n\n"
        )
  )
  (set _LangPrompt "Wybierz jëzyk")
  (set _HelpPrompt "Gdzie chcesz umieôciê dokumentacjë?")
  (set _HelpHelp "Naprawdë potrzebujesz pomocy?\nZainstaluj tâ czëôê - to moûe pomóc...\n\n")
  (set _Done1
    (cat "\nGotowe!\n"
    "---------\n"
    "Teraz najlepiej \"zresetuj\" Amige, lub uruchom\n"
    "program wîasnorëcznie aby\n"
    "radowaê sië tâ wersjâ.\n\n"
      "Nie zapomnij przeczytaê\n"
     "zaîâczonej dokumentacji.\n\n"
     "© 1995-1996 World Federation of Mad Hackers\n"
     "© 1995-1996 Marcin Orîowski\n"
    )
  )
  (set _Done2
    (cat "\n\nWiëcej informacji, najnowszâ wersjë\n"
     "oraz inne programy znajdziesz na\n"
     "dedykowanej stronie WWW:\n\n"
     "http://dedal.man.szczecin.pl/~carlos\n\n"
     "oraz w naszym firmowym BBS-ie:\n\n"
     "SilverDream!'s BBS:  [phone]  (non-stop)"
     )
  )
 )
)

;********************

(copyfiles
    (prompt _MainPrompt)
    (help _MainHelp @copyfiles-help)
   (source "/WastedTime")
    (dest "SYS:WBStartup")
    (confirm)
    (infos)
)

(complete 30)

;********************

(set Lang
    (askchoice
        (prompt _LangPrompt)
         (help    @askchoice-help)
        (choices    "English" "Polski")
        (default _DefLang)
    )
)

(if (= Lang 1)  (set _cat "Polski"))


(if (> Lang 0)
 (
    (if (< (exists "LOCALE:") 2) ((makedir "SYS:Locale") (makeassign "LOCALE" "SYS:Locale")))
    (if (< (exists "LOCALE:Catalogs") 2) (makedir "LOCALE:Catalogs"))
    (if (< (exists (cat "LOCALE:Catalogs/" _cat)) 2) (makedir (cat "LOCALE:Catalogs/" _cat)))
    (copyfiles (source (cat "/Catalogs/" _cat "/WastedTime.catalog")) (dest (cat "LOCALE:Catalogs/" _cat)) )
 )
)

(complete 60)

;********************

(copyfiles
    (prompt _HelpPrompt)
    (help _HelpHelp @copyfiles-help)
   (source "/WastedTime.guide")
    (dest "HELP:")
    (confirm)
    (infos)
)

(complete 90)

;********************

(message _Done1)

(complete 100)

(message _Done2)

(exit (QUIET))