;************************************************** ; ;$VER: iFUSION v1.0 (15/03/01) ; ; Title: ; iFUSION's Set Up Installer ; ; Description: ; The Commodore Setup Script for iFUSION ; ; ;************************************************** (set @user-level 1) (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0 (set Src_root "") (set @default-dest "") (set #write " -rw") (set #read " -ro") (set #direct " -direct") (set #remove " -rem\n") (set #640 "640/480/") (set #800 "800/600/") (set #1024 "1024/768/") (set #yes "yes\n") (set #no "no\n") (set #location "ram:config-vars") (set #scsi " -hw") (complete 5) ;-------Enter config filename (set #location (askstring ( prompt "Please enter the name of the configuration file\n" "You must precede the name with RAM:\n" "You may define as many configuration files as you wish, as\n" "long as they reside in the iFusion directory\n") (help @askstring-help) (default "ram:config-vars") ) ) (textfile (dest #location) (append ";---------------------------------------------------\n") (append "; iFUSION NewWorld Emulation Declarations\n") (append ";---------------------------------------------------\n") (append "\n;Paths to externally loaded drivers\n") (append "\nFirmWare: drivers/OFDrvr\n") (append "\nVideo: drivers/VideoDrvr\n") (append "\nDevices: drivers/BlockDrvr\n") (append "\n;---------------------------------------------------\n") (append "; Hardware Configuration\n") (append ";---------------------------------------------------\n\n") ;--------Enter Processor (append "CPUID: 8 ;Processor Version=G3\n\n") ;--------Enter RAM (append "RAM: ") (append (asknumber ( prompt "Please enter the amount of RAM (in Mb) you\n" "would like to assign to the emulation\n") (help @asknumber-help) (range 24 2048) (default 24) ) ) ;--------Enter NVRAM and ROM (append "\n\nNVRAM: NVRAM") (append "\n\nROM: ROM/") (append (askstring ( prompt "Please enter the name of the ROM file\n") (help @askstring-help) (default "rom_91") ) ) (append "\n\n;---------------------------------------------------\n") (append "; Amiga Device Configuration\n") (append ";---------------------------------------------------\n\n") ;--------Enter CD-ROM (append "Device: ") (append (askstring ( prompt "Please enter the name of your CD-ROM device\n") (help @askstring-help) (default "CD0:") ) ) (append " -cd\n") ;--------Enter Devices ((set loop1 (askbool (prompt "Do you want to define a device for use by iFusion?\n" "You may choose up to 12 devices\n" "If you wish to use a floppy, you must specify PC0:\n" "as a removable device") (help #insdraw-help) (choices "Yes" "No") ) ) (while (= loop1 1) (append "\nDevice: ") (append (askstring ( prompt "Please enter the name of your chosen Device\n" "including the colon. Example DH3:\n" ) (help @askstring-help) (default "") ) ) ;Enter device type stuff here. ((set devwrite (askbool (prompt "Is the device chosen writable?") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= devwrite 1) (append #write) (append #read) ) ) ;((set devdirect ; (askbool ; (prompt "Do you want to use Direct mode with this device?\n" ; "This is a faster option for devices with a \n" ; "block size of 512 only, and\n" ; "may not work with all controllers\n") ; (help #insdraw-help) ; (choices "Yes" "No") ; ) ; ) ; (if (= devdirect 1) ; (append #direct) ; (append "") ; ) ; ;) ((set devrem (askbool (prompt "Is the device chosen removable?") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= devrem 1) (append #remove) (append "\n") ) ) (set loop1 (askbool (prompt "Would you like to define another device?") (help #moredraw-help) (choices "Yes" "No") ) ) ) ) (set loop1 0) ;--------Enter Hardfiles ( (set loop2 (askbool (prompt "Do you want to define a Hardfile for use by iFusion?") (help #insdraw-help) (choices "Yes" "No") ) ) (while (= loop2 1) (append "\nDevice: ") (append (askstring ( prompt "Please enter the full path and name of your chosen\n" "HardFile. Example DH1:iFusion/HardFile1\n") (help @askstring-help) (default "") ) ) (append #write) (append "\n") (set loop2 (askbool (prompt "Would you like to define another Hardfile?") (help #moredraw-help) (choices "Yes" "No") ) ) ) ) (set loop2 0) ;--------Enter SCSI (Append "\nDisableSCSIDrvr: ") ((set disscsi (askbool (prompt "Do you wish to disable the SCSI driver?\n" "This currently must be set to YES!\n") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= disscsi 1) (append #yes) (append #no) ) ) (append "\nSCSIDEV: ") (append (asknumber ( prompt "Please enter the Mac SCSI Unit ID\n") (help @asknumber-help) (range 0 7) (default 0) ) ) (append " ") (append (askstring ( prompt "Please enter Amiga SCSI device name\n") (help @askstring-help) (default "scsi.device") ) ) (append "/") (append (asknumber ( prompt "Please enter the Amiga SCSI Unit ID\n") (help @asknumber-help) (range 0 7) (default 1) ) ) (append #scsi) ;SCSIDEV: 0 cybscsi.device/5 -hw (append "\n\n;--------------------------------------------------\n") (append "; Video Display Configuration\n") (append ";--------------------------------------------------\n\n") ;--------Enter Display size (append "DisplaySize: ") ( (set screen (askchoice (prompt "Please enter the screen resolution at startup\n" "This must be a useable Amiga screenmode\n") (help @asknumber-help) (choices "640x480" "800x600" "1024x768") (default "0") )) (if (= screen 0) (append #640) (if (= screen 1) (append #800) (append #1024)) ) ) (append (asknumber ( prompt "Please enter the VBL (Verticle Blank) rate\n" "The default is 60Hz\n") (help @asknumber-help) (range 0 200) (default 60) ) ) (append "\n\n") ;--------Enter Colour Depth (Append "Depth: ") (append (asknumber ( prompt "Please enter the colour depth at startup \n" "Choices are 1 (2 colours), 2 (four colours),\n" "4 (16 colours), 8 (256 colour),\n" "15 (64,000 colours) and 32 (16 million colours)\n\n" "The default is 8-bit, 256 colours\n") (help @asknumber-help) (default 8) ) ) (append "\n\n") ;--------Enter Refresh rate (Append "VideoRefreshRate: ") (append (asknumber ( prompt "Please enter the Video Refresh Rate\n" "The default is 30 fps\n") (help @asknumber-help) (range 5 100) (default 30) ) ) (append "\n\n") ;--------Enter Video API ;VideoCardAPI: CGX ;CGX, P96, or none (Append "VideoCardAPI: ") (append (askstring ( prompt "Please enter the Video Card API\n" "Choices are CGX (CyberGraphX),\n" "P96 (Picasso 96) or None (Amiga)\n\n" "The default is CGX and is the only supported mode\n" "at present\n") (help @askstring-help) (default "CGX") ) ) (append "\n\n") ;--------Enter Video Modes (Append "VideoDirectModes: ") ((set viddirect (askbool (prompt "Do you wish to allow Direct Access video modes?") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= viddirect 1) (append #yes) (append #no) ) ) (append "\n") (Append "VideoRefreshModes: ") ((set refvideo (askbool (prompt "Do you wish to allow Refreshed video modes?\n" "This currently must be set to NO!\n") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= refvideo 1) (append #yes) (append #no) ) ) (append "\n") (Append "VideoAmigaModes: ") ((set amivideo (askbool (prompt "Do you wish to allow Amiga video modes?") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= amivideo 1) (append #yes) (append #no) ) ) (append "\n") (Append "CacheVidMem: ") ((set cachevid (askbool (prompt "Do you wish to Map video memory as cacheable?") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= cachevid 1) (append #yes) (append #no) ) ) (append "\n") ;--------Enter Gamma (append "GammaCorrection: ") (append (askstring ( prompt "You may specify a floating number between 0.1 and\n" "10.0, or three floating numbers if you wish to \n" "specify R, G and blue values separately\n\n" "A value of 1.0 will leave the Mac unchanged. Higher \n" "values will make it brighter and lower values will \n" "make it dimmer. If only one value is specified it \n" "will be applied to R, G and B.\n") (help @askstring-help) (default "1.0 1.0 1.0") ) ) (append "\n") (append "\n;--------------------------------------------------\n") (append "; Input Configuration\n") (append ";--------------------------------------------------\n\n") ;--------Enter Mouse Info (Append "MouseRes: ") (append (asknumber ( prompt "Please enter the Mouse cpi (Mouse sensitivity)\n" "The default is 200 cpi\n") (help @asknumber-help) (range 100 400) (default 200) ) ) (append "\n") (Append "\nHardwareMouse: ") ((set hwaremouse (askbool (prompt "Do you wish to read the Amiga Mouse at \n" "Hardware level? (Usually set to NO)\n") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= hwaremouse 1) (append #yes) (append #no) ) ) (append "\n") ;--------Enter Keyboard Info (Append "KeyboardType: ") (append (asknumber ( prompt "Please select the keyboard type\n" "Choices are:\n" "1 = Apple Standard Keyboard\n" "2 = Apple Extended Keyboard [default]\n" "5 = Apple ISO Extended Keyboard\n") (help @asknumber-help) (default 2) ) ) (append "\n\n") (append ";--------------------------------------------------\n") (append "; Audio Configuration\n") (append ";--------------------------------------------------\n") ;--------Enter Audio (append "\nStartupSnd: ") (append (askstring ( prompt "Please enter the name of the Startup sound\n" "The default is Startup-snd\n") (help @askstring-help) (default "startup-snd") ) ) (append "\n\n") (Append "PlayStartupSnd: ") ((set playsnd (askbool (prompt "Do you wish to play the Startup Sound?") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= playsnd 1) (append #yes) (append #no) ) ) (Append "\nDisableSnd: ") ((set disablesnd (askbool (prompt "Do you wish to disable Sound?") (help #insdraw-help) (choices "Yes" "No") ) ) (if (= disablesnd 1) (append #yes) (append #no) ) ) ) (copyfiles (help @copyfiles-help) (source #location) (dest @default-dest) ) (delete #location) (complete 100) (exit)