
; $VER: DreamRequest-Install.scr vo.1 (10.08.1996)
; done by zod/lsd
;
; [wenn dieses script AREXX waere, koennte ich ein keyfile fuer machen
; und 30DM verlangen, haha]
;

(set progname "DreamRequest")
(set version "v1.0p")
(set badkickstart "\n\nYou need at lease Kickstart 2.0 or higher to install DreamRequest!")
(set noFAME "\nInstall wasnt able to locate an installed FAME on your System!\n")
(set NoDest! "\nNo Destination defined!\n")
(set CopyFilesStr "\nCopy now all needed files!\n")
(set #ServerName "DreamRequest-v1.o")

(complete 0)

;check kick

(if (< (/ (getversion) 65536) 37) (abort badkickstart))

(welcome)																			; Say hello to our user


(complete 10)

(set check4fame (getassign "FAME"))
(if (= check4fame "") (abort noFAME))


(complete 20)

(set destinationdir																	; Select destination
	(
	(AskDir (prompt	"Destination Directory:\n")
	(help @askdir-help)
	(default	"FAME:Doors/"))
	))

(if (= destinationdir "") (abort NoDest!))	; No path to install, aborting.

(set @default-dest destinationdir)


(complete 30)

(set @default-dest (tackon @default-dest "LSD"))

(makedir @default-dest (infos))

(set @default-dest (tackon @default-dest "DreamRequest"))
(makedir @default-dest (infos))


(complete 40)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/DreamRequest.fim")
	    (dest @default-dest)
            (infos))

(complete 45)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/Bulletin_header.txt")
	    (dest @default-dest)
            (infos))

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/Bulletin_tail.txt")
	    (dest @default-dest)
            (infos))

(complete 50)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/Zod!-Bull_header.txt")
	    (dest @default-dest)
            (infos))

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/Zod!-Bull_tail.txt")
	    (dest @default-dest)
            (infos))

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/Zod!-Message.txt")
	    (dest @default-dest)
            (infos))

(complete 53)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/h2o-Bull_header.txt")
	    (dest @default-dest)
            (infos))

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/h2o-Bull_tail.txt")
	    (dest @default-dest)
            (infos))

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/h2o-Message.txt")
	    (dest @default-dest)
            (infos))

(complete 56)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "DreamRequest.guide")
	    (dest @default-dest)
            (infos))

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "DreamRequest.guide.info")
	    (dest @default-dest)
            (infos))

(complete 60)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/DreamRequest.cfg")
	    (dest @default-dest)
            (infos))

(complete 65)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/DreamReqPrefs")
	    (dest @default-dest)
            (infos))

(complete 70)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/DreamReqPrefs.info")
	    (dest @default-dest)
            (infos))

(complete 75)

(copyfiles  (prompt CopyFilesStr)
	    (help @copyfiles-help)
  	    (source "lsd/dreamrequest/Message.txt")
	    (dest @default-dest)
            (infos))


; now command defs (taken from SIEGEL/TRSI's Installer

(complete 80)

	(set #doorname															; Ask for BBS-Door name
		(AskString	(prompt	"Name of Door")
		(help 			"Name of the (BBS)-Command you'd like to use!")
                (default  		"REQ")))

	(complete 82)

	(set #level																	; Ask for User-Level
		(AskNumber	(prompt "Level needed for Door")
		(help			"The Level a User will need to start the door!")
                (default		100)))

	(complete 84)


	(set #cmdtype																; Ask for CommandType
		(AskChoice 	(prompt "What Kind of command?")
		(help			"BBS-Command or Conf-Command (Have a look at your FAME Doc's for more Info!")
		(choices		"BBSCMD"
					"CONF<x>CMD")))
	(complete 86)

	(if (= #cmdtype 1)													; CONF<x>CMD selected
		(
		(set #confnum															; Ask for conference
		(AskNumber 	(prompt	"Conference Number:")
                (help			"Number for CONF-Command")
		(default	1)))

	(complete 88)

		(set #desttype ("%ld" #confnum))					; Confnumber to use
		)
 		(
		(complete 88)

        (set #desttype "B")												; Set type to BBSCMD
		))

	(complete 90)

	(set #destpath @default-dest)
	(set #destpath (tackon #destpath "DreamRequest.Fim"))
	(set #mycmdline ("c/DoorHeader NAME=%s PATH=%s TYPE=%s LEVEL=%ld SERVERNAME=%s NR NC AR AC SR SC CF RD MULTINODE INTERFACE=FIM" #doorname #destpath #desttype #level #ServerName))

  (run #mycmdline	(prompt 	"Creating Datafile..."))

(complete 100)
(exit)
