home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / TurboVal / InstallTurboVal next >
Text File  |  1980-01-04  |  4KB  |  67 lines

  1. ;Installation script for TurboVal v1.6
  2.  
  3. (set PAR2 "")
  4.  
  5. (set YEP "Yes")
  6. (set NOP "No")
  7. (set NEED "TurboVal needs OS2.0+ !\n")
  8. (set WELC "\n\n\n\nWelcome to TurboVAL v1.6 Installation Script.\n(c)1999-2000 by Zbigniew `Zeeball` Trzcionkowski\n\nThis script installs only VAL file and adds it to startup-sequnece!")
  9. (set WHER "Please select a place where you want to install VAL.")
  10. (set WHLP "Where do you want to have this! If You already have VAL there it will be overwritten!")
  11. (set CPNG "Copying VAL into ")
  12. (set ADDG "Do You want to add TurboVAL to \"S:Startup-seqence\"?")
  13. (set AHLP "Best way check devices on startup! Val will be added just before SetPatch.")
  14. (set FLSH "Set NOFLASH/S parameter? TurboVal while working is flashing colour 0 and power LED.")
  15. (set FLHL "You should answer NO if You have VGA only monitor or gfxboard, because if WorkbenchScreen will open in PAL You will see only this flashing :-(")
  16. (set REPL "TurboVAL was already found in the startup-sequence. Requested parameters has been set and this is the end. Enyoy.")
  17. (set NFND "TurboVAL has been added to startup-sequence just before SetPatch and this is the end. Enjoy.")
  18. (set NSEA "C:search not found. I can`t add Val to S:startup-sequence. You have to do it manually.")
  19. (set CANT "Can`t add Val to Startup-sequence. Try manually.")
  20. (set NOTI "Installation finished. Val has NOT been added to startup-sequence. You should do it manually to enjoy it.")
  21.  
  22. (if (= @language "polski")
  23. (
  24. (set YEP "Tak")
  25. (set NOP "Nie")
  26. (set NEED "TurboVal potrzebuje OS2.0+ !\n")
  27. (set WELC "\n\n\n\nWitaj w skrypcie instalacyjnym programu TurboVAL v1.6!\n(c)1999-2000 by Zbigniew `Zeeball` Trzcionkowski\n\nTen skrypt instaluje tylko plik VAL-a i dodaje go do startup-sequence!")
  28. (set WHER "Proszë wybraê miejsce, gdzie ma byê zainstalowany VAL. Jeôli juû masz tam VALa, to zostanie zagrany!")
  29. (set WHLP "Gdzie go chcesz mieê!")
  30. (set CPNG "Kopiujë VAL-a do ")
  31. (set ADDG "Czy chcesz dodaê TurboVAL-a do \"S:Startup-sequence\"?")
  32. (set AHLP "Najlepszy sposób ûeby sprawdziê napëdy przy starcie! Val bëdzie dodany tuû przed SetPatchem.")
  33. (set FLSH "Ustawiê parametr NOFLASH/S? TurboVal podczas pracy bîyska sobie kolorem 0 i diodâ power.")
  34. (set FLHL "Powinieneô odpowiedzieê NIE jeôli masz monitor tylko VGA albo kartë graficznâ, poniewaû WorkbenchScreen moûe sië otworzyê w PAL-u bëdziesz widziaî tylko to bîyskanie :-(")
  35. (set REPL "TurboVal zostaî znaleziony w startup-sequence. Ûâdne paramery zostaîy ustawione i to juû koniec. Miîego uûywania.")
  36. (set NFND "TurboVal zostaî dodany do startup-sequence zaraz przed SetPatchem i to juû koniec. Miîego uûywania.")
  37. (set NSEA "Nie znaleziono C:search. Nie mogë dodaê Vala do S:startup-sequence. Musisz zrobiê to rëcznie.")
  38. (set CANT "Nie potrafië dodaê Val do Startup-sequence. Spróbuj rëcznie.")
  39. (set NOTI "Instalacja zakoïczona. Val NIE zostaî dodany do startup-sequence. Powinieneô to zrobiê rëcznie, ûeby móc wykorzystaê w peîni jego moûliwoôci.")
  40. ))
  41.  
  42. ;---------------------------------------------------------------------------
  43. (set app-name "TurboVAL v1.6")
  44.  
  45. (if(<(/(getversion)65536)37)(abort NEED))
  46.  
  47. (complete 0)
  48.  
  49. (message (cat WELC))
  50.  
  51. (set dirk (askdir (prompt WHER) (help WHLP) (default "C:")))(set @default-dest dirk)
  52.  
  53. (copyfiles (prompt CPNG dirk) (source "VAL") (dest dirk))
  54.  
  55. (complete 100)
  56.  
  57. (if (exists "C:search")(
  58.   (if(askbool(prompt ADDG)(help AHLP)(choices YEP NOP))(
  59.   (if(askbool(prompt FLSH)(help FLHL)(choices YEP NOP))(set PAR2 " NOFLASH"))
  60.   (if (NOT (run "C:Search s:startup-sequence #?val#? PATTERN QUIET"))(
  61.    ((run ("c/ModifyStartUp \"#?vAl#?\" \"%sval%s\" REPLACE" dirk PAR2))(run "run c/intro")(exit REPL)))
  62.    (if (NOT (run "C:Search s:startup-sequence #?SetPatch#? PATTERN QUIET"))(
  63.     ((run ("c/ModifyStartUp #?SetPatch#? \"%sval%s\" BEFORE" dirk PAR2))(run "run c/intro")
  64.     (exit NFND)))))))(exit NOTI))(exit NSEA))
  65.  
  66. (exit CANT)
  67.