; Instalation script for Micro-Fax
; (c) 1993,1994 Milosz  klosowicz SP9UNB
;


( set ProgName "Micro-Fax4.4" )    ; nazwa programu
( set DiskName ProgName  )         ; nazwa dyskietki z programem
( set DestDirName  "M-F"    )    ; nazwa katalogu tworzonego na HD



;**************************************************
; check where  SYS: is assigned
; the System must be booted from harddisk otherwise
; HD-instalation will be impossible
;**************************************************

( if ( = ( "%s:" DiskName) ( getassign "SYS" ) )
  ( abort
          " To properly install Micro-Fax you must\n"
          " boot your system from HardDisk and then\n"
          " run HD-install from floppy disk "
  )
)


;**************************************************
; select drawer where  micro-fax drawer will be
;**************************************************

( set Drawer
      ( askdir
               (prompt "Please select drawer for Micro-Fax" )
               (help
                     " Here you should select drawer where the\n"
                     "   drawer \"M-F\" will be created\"\n"
                     "\n"
                     @askdir-help
               )
               (default "Work:" )
               (disk )       ;
      )
)


;***********************************
; select the versions to copy
;***********************************

( set WhatVersions
      ( askoptions
               (prompt "Select Micro-Fax versions to install" )
               (help
                     "  Here you can select the version of Micro-Fax\n"
                     "    that you want to be installed.\n"
                     "  The basic version works on all Amigas and\n"
                     "    and with any kickstart (1.3 or greater ),\n"
                     "    but the screen resolution is limited.\n"
                     "  The AGA-version works only on Amigas with\n"
                     "    AGA-chipset and kickstart 3.0 but it\n"
                     "    provide better pictures resolution and\n"
                     "    other options not present in basic version\n"
                     "\n"
                     @askoptions-help
               )
               (choices
                        ; bit position 0 - WhatVersions & 1
                        ;
                        "Micro-Fax"

                        ; bit position 1 - WhatVersions & 2
                        ;
                        "Micro-Fax AGA"
               )
      )
)

;***************************************
; select interface activ on start
;***************************************

( set Interface
      (askchoice
               (prompt "Select interface that you will use" )
               (help
                     "    Here you can select what interface will\n"
                     "      be activ when program starts. Than You\n"
                     "      may still select the interface inside\n"
                     "      program \n"
                     "\n"
                     @askchoice-help
               )
               (choices
                       ; Interface = 0
                       ;
                       "PARALLEL port"
                       ;
                       ; Interface = 1
                       ;
                       "JOYSTICK 2 port"
               )
      )
)

( if (= Interface 0 )
  ( set tool "PAR" )
  ( set tool "JOY" )
)



( set DestDrawer
                  (tackon Drawer DestDirName )
)

( set DocDrawer ( tackon DestDrawer "Docs" ) )

( set IFFDrawer ( tackon DestDrawer "IFF" ) )

( set @default-dest DestDrawer )

( set MFDrawer
                  (tackon DestDrawer "Micro-Fax" )
)

( set MFAGADrawer
                  (tackon DestDrawer "Micro-Fax.AGA" )
)

( makedir
          ( DestDrawer )
          ( infos )
)

;************************************
; install basic version if selected
;************************************

( if ( bitand WhatVersions 1 )
     (
       ( makedir
                  ( MFDrawer )
                  ( infos    )
       )
       ( copyfiles
                  ( source ( "%s:Micro-Fax" DiskName ) )
                  ( dest   MFDrawer )
                  ( all )
                  ( infos )
                  ( noposition )
       )
       ( if ( exists
                    ( "%s/Micro-Fax" MFDrawer )
            )
            (
                ( tooltype
                      ( dest ( "%s/Micro-Fax" MFDrawer ) )
                      ( settooltype "INTERFACE" ( tool ) )
                )
                ( tooltype
                      ( dest ( "%s/Micro-Fax" MFDrawer ) )
                      ( settooltype "LOADPATH" ( IFFDrawer ) )
                )
                ( tooltype
                      ( dest ( "%s/Micro-Fax" MFDrawer ) )
                      ( settooltype "SAVEPATH" ( IFFDrawer ) )
                )
            )
       )
       ( tooltype
             ( dest ( "%s/Micro-Fax.free" MFDrawer ) )
             ( settooltype "INTERFACE" ( tool ) )
       )
       ( tooltype
             ( dest ( "%s/Micro-Fax.swl"  MFDrawer ) )
             ( settooltype "INTERFACE" ( tool ) )
       )
       ( tooltype
             ( dest ( "%s/Micro-Fax.swl"  MFDrawer ) )
             ( settooltype "SAVEPATH" ( IFFDrawer ) )
       )

     )
)

;***********************************
; install AGA  version if selected
;***********************************

( if ( bitand WhatVersions 2 )
     (
       ( makedir
                  ( MFAGADrawer )
                  ( infos    )
       )
       ( copyfiles
                  ( source ( "%s:Micro-Fax.AGA" DiskName ) )
                  ( dest   MFAGADrawer )
                  ( all )
                  ( infos )
                  ( noposition )
       )
       ( if ( exists
                    ( "%s/MF-AGA" MFAGADrawer )
            )
            (
                ( tooltype
                      ( dest ( "%s/MF-AGA" MFAGADrawer ) )
                      ( settooltype "INTERFACE" ( tool ) )
                )
                ( tooltype
                      ( dest ( "%s/MF-AGA" MFAGADrawer ) )
                      ( settooltype "LOADPATH" ( IFFDrawer ) )
                )
                ( tooltype
                      ( dest ( "%s/MF-AGA" MFAGADrawer ) )
                      ( settooltype "SAVEPATH" ( IFFDrawer ) )
                )
            )
       )
       ( tooltype
             ( dest ( "%s/MF-AGA.free" MFAGADrawer ) )
             ( settooltype "INTERFACE" ( tool ) )
       )
     )
)

;**********************************
; copy utility files for Micro-Fax
;**********************************

( copyfiles
           ( source ( "%s:SetInterface" DiskName ) )
           ( dest   DestDrawer )
           ( infos )
           ( noposition )
)

( copyfiles
           ( source ( "%s:LF-Generator" DiskName ) )
           ( dest   DestDrawer )
           ( infos )
           ( noposition )
)

;******************************************
; copy documentation files for Micro-Fax
;******************************************

( makedir
         ( DocDrawer )
         ( infos    )
)
( copyfiles
           ( source ( "%s:Docs" Diskname ) )
           ( dest  DocDrawer )
           ( all )
           ( infos )
           ( noposition )
)

;********************************************
; copy IFF example
;********************************************

( makedir
         ( IFFDrawer )
         ( infos    )
)
( copyfiles
           ( source ( "%s:IFF" Diskname ) )
           ( dest  IFFDrawer )
           ( all )
           ( infos )
           ( noposition )
)

;******************************************************
; install ReqToolsLibrary (if not instaled already )
;******************************************************

( copylib
           ( source ( "%s:Libs/ReqTools.library" DiskName ) )
           ( dest   "SYS:Libs" )
)

;******************************************************
; install utilities to view document files
;******************************************************

(if (
      not ( exists "C:ViewIlbm" )
    )

       ( copyfiles
                  ( source ( "%s:c/ViewIlbm" DiskName ) )
                  ( dest   "C:" )
       )
)

(if (
      not ( exists "C:PPMore" )
    )

       ( copyfiles
                  ( source ( "%s:c/PPMore" DiskName ) )
                  ( dest   "C:" )
       )
)

;********************************************************
; install default font ( Halfzap.font size 18 )
;********************************************************

(if (
      not ( exists "Fonts:Halfzap.font" )
    )

       ( copyfiles
                  ( source ( "%s:Fonts" DiskName ) )
                  ( dest   "Fonts:" )
                  ( pattern "Halfzap#?" )
       )
)




;************** instalation complet ***********************




( exit )