Amiga Format 95/af095sub.adf/MBlank.LZX/MBlank/MBlank.install

Text File | 2014-03-01 | 4KB | 169 lines

;$VER: MBlank.install 1.06 (14-01-1997) [e-mail]

;-copy files to destinations
;    (if (<> #mbpath "RAM:")

(procedure P_Copy
    (if (<> (getdevice #mbpath) "RAM:")
        (tooltype
            (dest "MBlank")
            (settooltype "MODPATH" #mbpathmods)
        )
    )
    (copyfiles    (source "MBlank")
            (dest #exepath)
            (infos)
    )
    (copyfiles    (source "")
            (dest #mbpath)
            (pattern "MBlank.(guide|readme)")
            (infos)
    )
    (copyfiles    (source "")
            (dest #mbpathmods)
            (pattern "#?.blm")
            (infos)
    )
    (copyfiles    (source "")
            (dest #mbpathdev)
            (pattern "(Test.blm.asm|module.i)")
            (infos)
    )
    (copyfiles    (source "")
            (dest #mbpathdocs)
            (pattern "#?.blm.guide")
    )
)

;-welcome message

(welcome "\nThis script will install MBlank 1.06,\n14-Jan-1997, [e-mail]")

;-choose destination path

(set MBlankDir
    (askdir
        (prompt "Where do you want to install MBlank?\nA new drawer called MBlank will be created there.")
        (help "\n Choose a path.")
        (default "WORK:")
    )
)
(set @default-dest MBlankDir)

;-make new drawer: MBlank in chosen path or RAM:

(set #mbpath (tackon MBlankDir "MBlank/"))
(makedir #mbpath (infos))
(set #mbpathmods (tackon #mbpath "MB_Modules/"))
(makedir #mbpathmods (infos))
(set #mbpathdocs (tackon #mbpath "MB_Docs/"))
(makedir #mbpathdocs)
(set #mbpathdev (tackon #mbpath "MB_Develop/"))
(makedir #mbpathdev)

;-ask whether executable should be installed in WBStartup or not

(if (exists "SYS:WBStartup")
    (set #exeinwbs (askbool
                (prompt "\nDo you want to install the MBlank executable\nin your 'WBStartup' drawer?\n\n(WBStartup+ users no worries, see HELP...)")
                (help "YES:\nThe installer will copy the executable to your 'WBStartup' drawer. If 'WBStartup (Enabled)' is present, MBlank will be copied there.\n\nNO:\nMBlank executable will be copied to '"#mbpath"'.")
            )
    )
)

;-if previous answered with YES, set executable path to WBStartup,
;-but if 'WBStartup/WBStartup (Enabled)' exists, adapt

(if (= #exeinwbs 1)
    (if (= (exists "SYS:WBStartup/WBStartup (Enabled)" (noreq) ) 2)
        (set #exepath "SYS:WBStartup/WBStartup (Enabled)")
        (set #exepath "SYS:WBStartup")
    )
    (set #exepath #mbpath)
)

;-alter tooltypes to suit user's needs, experts only

(if    (= @user-level 2)
    ((if (=    (askbool
                (prompt "\nDo you want the MBlank window\nto popup at program-startup?")
                (help "\n  No help for experts!") ) 1)
        (tooltype
            (dest "MBlank")
            (settooltype "CX_POPUP" "YES")
        )
        (tooltype
            (dest "MBlank")
            (settooltype "CX_POPUP" "NO")
        )
    )
    (if (=    (askbool
                (prompt "\nDo you want blanking to be reset\nby a mouse-event? (move/press)")
                (help "\n  No help for experts!") ) 1)
        (tooltype
            (dest "MBlank")
            (settooltype "MOUSETRIG" "YES")
        )
        (tooltype
            (dest "MBlank")
            (settooltype "MOUSETRIG" "NO")
        )
    )
    (if (=    (askbool
                (prompt "\nDo you want blanking to be reset\nby a disk-insert/removal?")
                (help "\n  No help for experts!") ) 1)
        (tooltype
            (dest "MBlank")
            (settooltype "DISKTRIG" "YES")
        )
        (tooltype
            (dest "MBlank")
            (settooltype "DISKTRIG" "NO")
        )
    )
    (if (=    (askbool
                (prompt "\nDo you want MBlank to add a menu-item\nto WorkBench's Tools menu?\n\nPicking this item will activate blanking\nafter a short 'release mouse first' delay.")
                (help "\n  No help for experts!") ) 1)
        (tooltype
            (dest "MBlank")
            (settooltype "MENU" "YES")
        )
        (tooltype
            (dest "MBlank")
            (settooltype "MENU" "NO")
        )
    )
    (if (=    (askbool
                (prompt "\nDo you want multiple modules\nto alternate at random?")
                (help "\n  No help for experts!") ) 1)
        (tooltype
            (dest "MBlank")
            (settooltype "RANDOM" "YES")
        )
        (tooltype
            (dest "MBlank")
            (settooltype "RANDOM" "NO")
        )
    ))
)

;-show the statistics and ask for approval

(if    (=    (askbool
            (prompt "\n* The destinations *\n\nFiles: "#mbpath"\nExecutable: "#exepath)
            (help "Proceed:\nThis is like it is.\n\nCancel:\nAbort installer now.")
            (choices "Proceed" "Cancel") ) 1)
    (P_Copy)
    (exit "\nReport any problems with this script to:\n\[e-mail] (subject: MBlank)" (quiet))
)

;-clean up terrible mess left behind

(delete    "MBlank" (infos))
(delete "MBlank.(guide|readme)" (infos))
(delete "#?.blm" (infos))
(delete "(Test.blm.asm|module.i)")
(delete "#?.blm.guide")

;-done