; Napalm konfiguracja Installer-script ; $VER: V1.2, 31.07.1998 ; ============================================================================ (set @abort-button " Zakoļcz ") (set #hello-message (cat "\n\n\n" "--------- NAPALM ---------" "\n" "Konfiguracja Gry" "\n\n\n" "(c) 1998 PXL Computers Inc. and clickBOOM" "\n\n\n" "Dystrybucja Michaī TEL. 0501947924")) (set #welcome (cat "------------------- NAPALM Konfiguracja -------------")) (set #driver_err (cat "\n" " Dodatków i nowych portów szukaj ... \n\n" " Na stronie Internetowej www.clickboom.com \n" " Lub u MICHAĪA ")) (set #chattext (cat "------------------- NETWORK CHAT -------------------\n\n" "Please enter chat macro text:")) (set #visual 0) (set #audio 1) (set #cdaudio 2) (set #netchat 3) (set #network 4) (set #save 5) (Procedure Intro (message #hello-message)) (Procedure Selective (set #type (askchoice (prompt "------Konfiguracja Gry NAPALM------------------") (help @askchoice-help) (choices "- Ekran Opcje" "- Muzyka Opcje" "- CD Audio Opcje" "- Chat Macros" "- Internet Opcje" "[Zapisz Ustawienia]") (default #type)))) (Procedure VisualPrefs (if (= #scmode "LOWR") (set #screen 0)) (if (= #scmode "HIGH") (set #screen 1)) (if (= #scmode "ASK") (set #screen 2)) (set #screen (askchoice (prompt "------------------ Ekran Opcje ------------------\n\n" " Wybierz ekran ...") (help @askchoice-help) (choices "Podstawowy" "Normalny" "Wybierz przy starcie" (default #screen)))) (If (= #screen 0) (set #scmode "LOWR")) (If (= #screen 1) (set #scmode "HIGH")) (If (= #screen 2) (set #scmode "ASK")) (if (= #vres 400) (set #vert 0)) (if (= #vres 480) (set #vert 1)) (if (= #vres 512) (set #vert 2)) (set #vert (askchoice (prompt "------------------ Ekran Opcje ------------------\n\n" " Prosze wybraź tryb wyōwietlania") (help @askchoice-help) (choices "640 x 400" "640 x 480" "640 x 512" (default #vert)))) (if (= #vert 0) (set #vres 400)) (if (= #vert 1) (set #vres 480)) (if (= #vert 2) (set #vres 512)) (set #rtype #audio)) (Procedure AudioPrefs (set #audio_file (fileonly #audio_driver)) (if (= #audio_file "Audio.DirectPaula") (set #audio_type 0)) (if (= #audio_file "Audio.AHI") (set #audio_type 1)) (set #audio_type (askchoice (prompt "------------------ Muzyka Opcje ------------------\n\n" "Prosze wybraź dświėku sterownik...") (help @askchoice-help) (choices "Ukīady Paula" " System AHI " (default #audio_type)))) (If (= #audio_type 0) (Audio_Paula)) (If (= #audio_type 1) (Audio_AHI)) (set #rtype #cdaudio)) (Procedure Audio_Paula (if (exists "Exec/Audio.DirectPaula") (set #audio_driver "NAPALM_E:Audio.DirectPaula") ((message #driver_err) (set #audio_driver "None")))) (Procedure Audio_AHI (if (exists "Exec/Audio.AHI") (set #audio_driver "NAPALM_E:Audio.AHI") ((message #driver_err) (set #audio_driver "NAPALM_E:Audio.DirectPaula")))) (Procedure NetworkChat (set #network_chat01 (askstring (prompt #chattext "\nMACRO 01") (help @askstring-help) (default #network_chat01))) (set #network_chat02 (askstring (prompt #chattext "\nMACRO 02") (help @askstring-help) (default #network_chat02))) (set #network_chat03 (askstring (prompt #chattext "\nMACRO 03") (help @askstring-help) (default #network_chat03))) (set #network_chat04 (askstring (prompt #chattext "\nMACRO 04") (help @askstring-help) (default #network_chat04))) (set #network_chat05 (askstring (prompt #chattext "\nMACRO 05") (help @askstring-help) (default #network_chat05))) (set #network_chat06 (askstring (prompt #chattext "\nMACRO 06") (help @askstring-help) (default #network_chat06))) (set #network_chat07 (askstring (prompt #chattext "\nMACRO 07") (help @askstring-help) (default #network_chat07))) (set #network_chat08 (askstring (prompt #chattext "\nMACRO 08") (help @askstring-help) (default #network_chat08))) (set #network_chat09 (askstring (prompt #chattext "\nMACRO 09") (help @askstring-help) (default #network_chat09))) (set #network_chat10 (askstring (prompt #chattext "\nMACRO 10") (help @askstring-help) (default #network_chat10))) (set #rtype #network)) (Procedure CDAudioPrefs (set #cdaudio_device (askstring (prompt "--------------- CD-ROM Ustawienia Sterownika ---------------" "\n\n" " Prosze wpisaź nazwe sterownika ???\n" " I tak nie ma traków Audio \n" " Wiėc odpuōź sobie \n" " I kontynuīuj konfiguracje ") (help @askstring-help) (default #cdaudio_device))) (set #cdaudio_unit (asknumber (prompt "------------- CD-ROM Numer Sterownika -------------" "\n\n" " Wpisz numer i uderz w enter ") (help @asknumber-help) (range 0 7) (default #cdaudio_unit))) (set #rtype #netchat)) (Procedure NetworkPrefs (NetworkType) (set #network_type (askchoice (prompt "---------------- Internet Opcje ----------------\n\n" "Wybierz rodzaj īācza ...") (help @askchoice-help) (choices "Nullmodem link" "Modem" "IPX Network" "TCP/IP Protocol" (default #network_type)))) (If (= #network_type 0) (Network_NULLMODEM)) (If (= #network_type 1) (Network_MODEM)) (If (= #network_type 2) (Network_IPX)) (If (= #network_type 3) (Network_TCPIP)) (set #rtype #save)) (Procedure NetworkType (set #network_file (fileonly #network_driver)) (if (= #network_file "Network.Nullmodem") (set #network_type 0)) (if (= #network_file "Network.Modem") (set #network_type 1)) (if (= #network_file "Network.IPX") (set #network_type 2)) (if (= #network_file "Network.TCPIP") (set #network_type 3))) (Procedure Network_NULLMODEM (if (exists "Exec/Network.Nullmodem") ((set #network_Device (askstring (prompt "-------------- NETWORK: NULLMODEM LINK --------------\n\n" "Serial port device:") (help @askstring-help) (default #network_Device))) (set #network_Unit (asknumber (prompt "-------------- NETWORK: NULLMODEM LINK --------------\n\n" "Serial device unit:") (help @asknumber-help) (range 0 7) (default #network_Unit))) (set #network_bauds (asknumber (prompt "-------------- NETWORK: NULLMODEM LINK --------------\n\n" "Bauds rate:") (help @asknumber-help) (range 2400 290000) (default #network_bauds))) (set #network_driver "NAPALM_E:Network.Nullmodem")) ((message #driver_err) (set #network_driver "None")))) (Procedure Network_MODEM (if (exists "Exec/Network.Modem") ((if (= #network_dialtype "PULSE") (set #network_dial 0)) (if (= #network_dialtype "TONE") (set #network_dial 1)) (set #network_Device (askstring (prompt "------------- NETWORK: MODEM -------------\n\n" "Serial port device:") (help @askstring-help) (default #network_Device))) (set #network_Unit (asknumber (prompt "------------- NETWORK: MODEM -------------\n\n" "Serial device unit:") (help @asknumber-help) (range 0 7) (default #network_Unit))) (set #network_bauds (asknumber (prompt "------------- NETWORK: MODEM -------------\n\n" "Bauds rate:") (help @asknumber-help) (range 2400 290000) (default #network_bauds))) (set #network_Initmodem (askstring (prompt "------------- NETWORK: MODEM -------------\n\n" "Modem Init-string:") (help @askstring-help) (default #network_Initmodem))) (set #network_Dial (askchoice (prompt "------------- NETWORK: MODEM -------------\n\n" "Dial type:") (help @askchoice-help) (choices "PULSE" "TONE") (default #network_dial))) (set #network_Phonecall (asknumber (prompt "------------- NETWORK: MODEM -------------\n\n" "Telephone number:") (help @asknumber-help) (default #network_phonecall))) (if (= #network_dial 0) (set #network_dialtype "PULSE")) (if (= #network_dial 1) (set #network_dialtype "TONE")) (set #network_driver "NAPALM_E:Network.Modem")) ((message #driver_err) (set #network_driver "None")))) (Procedure Network_IPX (if (exists "Exec/Network.IPX") ((set #network_Port (asknumber (prompt "----------- NETWORK: LOCAL AREA NETWORK -----------\n\n" "IPX Network socket:") (help @asknumber-help) (range 0 65535) (default #network_Port))) (set #network_driver "NAPALM_E:Network.IPX")) ((message #driver_err) (set #network_driver "None")))) (Procedure Network_TCPIP (if (exists "Exec/Network.TCPIP") ((set #network_TCPHost (askstring (prompt "------------------ NETWORK: TCP/IP ------------------\n\n" "TCP Host address:") (help @askstring-help) (default #network_TCPHost))) (set #network_Port (asknumber (prompt "------------------ NETWORK: TCP/IP ------------------\n\n" "Port Number:") (help @asknumber-help) (range 0 65535) (default #network_Port))) (set #network_driver "NAPALM_E:Network.TCPIP")) ((message #driver_err) (set #network_driver "None")))) ;------------------------------------------------------------------------ (if (exists "Exec/setup.getitem") (set #rtype 0) ((message "\n Error!!!\n Unable to locate NAPALM path...") (exit (quiet)))) (copyfiles (source "setup/NAPALM.PREFS") (dest "ram:") (nogauge)) (run "exec/setup.getitem -GET screenmodetype") (set #scmode (getenv "NAPALM")) (run "exec/setup.getitem -GET verticalres") (set #vres (getenv "NAPALM")) (run "exec/setup.getitem -GET cd_device") (set #cdaudio_device (getenv "NAPALM")) (run "exec/setup.getitem -GET cd_unit") (set #cdaudio_unit (getenv "NAPALM")) (run "exec/setup.getitem -GET audio_driver") (set #audio_driver (getenv "NAPALM")) (run "exec/setup.getitem -GET net_driver") (set #network_driver (getenv "NAPALM")) (run "exec/setup.getitem -GET net_device") (set #network_device (getenv "NAPALM")) (run "exec/setup.getitem -GET net_unit") (set #network_unit (getenv "NAPALM")) (run "exec/setup.getitem -GET net_bauds") (set #network_bauds (getenv "NAPALM")) (run "exec/setup.getitem -GET net_initmodem") (set #network_initmodem (getenv "NAPALM")) (run "exec/setup.getitem -GET net_dialtype") (set #network_dialtype (getenv "NAPALM")) (run "exec/setup.getitem -GET net_phonecall") (set #network_phonecall (getenv "NAPALM")) (run "exec/setup.getitem -GET net_TCPHost") (set #network_TCPHost (getenv "NAPALM")) (run "exec/setup.getitem -GET net_Port") (set #network_Port (getenv "NAPALM")) (run "exec/setup.getitem -GET audio_driver") (set #audio_driver (getenv "NAPALM")) (run "exec/setup.getitem -GET audio_device") (set #audio_device (getenv "NAPALM")) (run "exec/setup.getitem -GET audio_audioID") (set #audio_audioID (getenv "NAPALM")) (run "exec/setup.getitem -GET audio_channels") (set #audio_channels (getenv "NAPALM")) (run "exec/setup.getitem -GET audio_mixfreq") (set #audio_mixfreq (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat01") (set #network_chat01 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat02") (set #network_chat02 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat03") (set #network_chat03 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat04") (set #network_chat04 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat05") (set #network_chat05 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat06") (set #network_chat06 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat07") (set #network_chat07 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat08") (set #network_chat08 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat09") (set #network_chat09 (getenv "NAPALM")) (run "exec/setup.getitem -GET net_chat10") (set #network_chat10 (getenv "NAPALM")) (Intro) (welcome #welcome) (Until (= #type #save) (set #type #rtype) (Selective) (If (= #type #visual) (VisualPrefs)) (If (= #type #audio) (AudioPrefs)) (If (= #type #cdaudio) (CDaudioPrefs)) (If (= #type #netchat) (NetworkChat)) (If (= #type #network) (NetworkPrefs)) ) (run "exec/setup.getitem -SET screenmodetype" #scmode) (run "exec/setup.getitem -SET verticalres " #vres) (run "exec/setup.getitem -SET audio_driver " #audio_driver) (run "exec/setup.getitem -SET cd_device " #cdaudio_device) (run "exec/setup.getitem -SET cd_unit " #cdaudio_unit) (run "exec/setup.getitem -SET net_driver " #network_driver) (run "exec/setup.getitem -SET net_device " #network_device) (run "exec/setup.getitem -SET net_unit " #network_unit) (run "exec/setup.getitem -SET net_bauds " #network_bauds) (run "exec/setup.getitem -SET net_initmodem " #network_initmodem) (run "exec/setup.getitem -SET net_dialtype " #network_dialtype) (run "exec/setup.getitem -SET net_phonecall " #network_phonecall) (run "exec/setup.getitem -SET net_tcphost " #network_TCPHost) (run "exec/setup.getitem -SET net_port " #network_Port) (run "exec/setup.getitem -SET net_chat01 " #network_Chat01) (run "exec/setup.getitem -SET net_chat02 " #network_Chat02) (run "exec/setup.getitem -SET net_chat03 " #network_Chat03) (run "exec/setup.getitem -SET net_chat04 " #network_Chat04) (run "exec/setup.getitem -SET net_chat05 " #network_Chat05) (run "exec/setup.getitem -SET net_chat06 " #network_Chat06) (run "exec/setup.getitem -SET net_chat07 " #network_Chat07) (run "exec/setup.getitem -SET net_chat08 " #network_Chat08) (run "exec/setup.getitem -SET net_chat09 " #network_Chat09) (run "exec/setup.getitem -SET net_chat10 " #network_Chat10) (copyfiles (source "ram:NAPALM.PREFS") (dest "sys:S/")) (delete "ram:NAPALM.PREFS") (exit (quiet))