; Installer for SmileFonts V1.0
; made by Ringo (firo on #amigager)
; ist es nicht wunder, wunder schoen? ;)

(transcript "Installing SmileFonts... ")

(set name
 (askdir
  (prompt "Where do you want the Fonts installed?")
  (help @askdir-help)
  (default "SYS:fonts")
 )
)

(set SmileHelvetica 0)
(set SmileXEN 1)

(set WhatToInstall
 (askoptions
   (prompt "Select the Fonts you want!")
   (help
         "\n\n     Well, no help here..."
         "\n     Just select the Font you like!"
         "\n\n\n" @askoptions-help)
  (choices
                "SmileHelvetica"
                "SmileXEN"
  )
 )
)

(if (in WhatToInstall SmileXEN)
(
  (copyfiles
   (source "SmileXEN")
   (all)
   (dest name)
  )
)
)

(if (in WhatToInstall SmileHelvetica)
(
  (copyfiles
   (source "Smilehelvetica")
   (all)
   (dest name)
  )
)
)

(exit)





















