;CYBERMAGIC Installer-Script
;©1998 by Markus Killian

( set OS_VER ( / ( getversion ) 65536 ) )

( set #yeskey "Yes" )
( set #nokey  "No" )
( set #maindrawer "Please select a device or a drawer for your\ninstallation of Cybermagic.\nA drawer will be created automatically." )
( set #version "Which version should be installed ?\n" )
( set #active "Do you want to copy Cybermagic in the WBStartup drawer ?\n" )
( set #installwizard "Install Wizard.library.\n" )
( set #assign "\nMake assign of Cybermagic: to S:user-startup.\n" )
( set #falsekick "OS 3.x is required.\n" )
( set #end "\nThis is the 2. beta release of Cybermagic.\nRead the docs for more information.\nBugreport to m.killian@xpoint.at\n\n---VIVA AMIGA ---\n" );

( if ( = @language "deutsch" )
 (
  ( set #yeskey "Ja" )
  ( set #nokey  "Nein" )
  ( set #maindrawer "In welches Verzeichnis soll Cybermagic installiert werden ? Eine Schublade dieses Namens wird angelegt.\n" )
  ( set #version "Welche Version soll installiert werden ?\n" )
  ( set #active "Soll Cybermagic nach WBStartup kopiert werden ?\n" )
  ( set #installwizard "Installiere Wizard.library.\n" )
  ( set #assign "\nErzeuge Zuweisung Cybermagic: in S:user-startup.\n" )
  ( set #falsekick "OS 3.x wird benötigt.\n" )
  ( set #end "\nDies ist die 2. beta Version von Cybermagic.\nLies die Anleitung für mehr Informationen.\nFehlerreport an m.killian@xpoint.at\n--- VIVA AMIGA ---\n" )

 )
)

( if( < OS_VER 39 )
 ( abort #falsekick ) )

( set cpu ( database "cpu" ) )
( if( or ( = cpu 68020 ) ( = cpu 68030 ) ) ( set #cpu 0 ) )
( if( = cpu 68040 ) ( set #cpu 1 ) )
( if( > ( exists ( "libs:68060.library" ) ) 0 ) ( set #cpu 2 ) )
; /* Für die Zukunft */
;( if( > ( exists ( "libs:ppc.library" ) ) 0 ) ( set #cpu 3 ) )
;( if( > ( exists ( "libs:powerpc.library" ) ) 0 ) ( set #cpu 3 ) )

( user 1 )
( welcome )

( set progdir1
 ( askdir
  ( prompt #maindrawer )
  ( help @askdir-help )
  ( default @default-dest )
 )
)

( set CpuVersion
 ( askchoice
  ( prompt #version )
  ( help @askoptions-help )
  ( choices
           "020"
           "020+FPU"
           "040"
           "060"
  )
  ( default #cpu )
 )
)

( Set InstallWhere
 ( askchoice
  ( prompt #active )
  ( help @askoptions-help )
  ( choices
           #yeskey
           #nokey
  )
  ( default #yeskey )
 )
)

; /* Installiere Library */

( ( copylib
   ( prompt #installwizard )
   ( help @copylib-help )
   ( source "libs/wizard.library" )
   ( dest "Libs:" )
   ( confirm )
) )

; /* Erzeuge Programmschublade */

( ( makedir ( tackon progdir1 "Cybermagic" ) )
  ( copyfiles ( source "Icons/Cybermagic.info" )
  ( dest progdir1 ) )
  ( set progdir ( tackon progdir1 "Cybermagic" ) )
)

; /* Installiere Blankermodule */

( makedir ( tackon progdir "Blanker" ) )

(
 ( copyfiles ( source "Blanker020" )
 ( dest ( tackon progdir "Blanker" ) )
 ( all ) )
)

( if( = CpuVersion 1 )
    ( copyfiles ( source "Blanker020FPU" )
    ( dest ( tackon progdir "Blanker" ) )
    ( all ) )
)
( if( = CpuVersion 2 )
    ( copyfiles ( source "Blanker040" )
    ( dest ( tackon progdir "Blanker" ) )
    ( all ) )
)
( if( = CpuVersion 3 )
    ( copyfiles ( source "Blanker060" )
    ( dest ( tackon progdir "Blanker" ) )
    ( all ) )
)

( ( copyfiles ( source "Prefs" )
  ( dest ( tackon progdir "Blanker" ) )
  ( all ) )
)

; /* Installiere Soundmodule */

( ( makedir ( tackon progdir "Sounds" ) )
  ( copyfiles ( source "Sounds" )
  ( dest ( tackon progdir "Sounds" ) )
  ( all ) )
)

; /* Installiere Cybermagic */

( ( copyfiles ( source "Cybermagic.config" )
  ( dest progdir ) )
  ( copyfiles ( source "Cybermagic.guide" )
  ( dest progdir ) )
  ( copyfiles ( source "Cybermagic.guide.info" )
  ( dest progdir ) )
  ( copyfiles ( source "Changes" )
  ( dest progdir ) )
  ( copyfiles ( source "Changes.info" )
  ( dest progdir ) )
)

( ( if( = InstallWhere 0 )
      ( ( copyfiles ( source "CM" )
        ( dest "SYS:WBStartup" ) )
        ( copyfiles ( source "Icons/CM.info" )
        ( dest "SYS:WBStartup" ) )
        ( copyfiles ( source "CM.wizard" )
        ( dest "SYS:WBStartup" ) ) )
  )
  ( if( = InstallWhere 1 )
      ( ( copyfiles ( source "CM" )
        ( dest progdir ) )
        ( copyfiles ( source "Icons/CM.info" )
        ( dest progdir ) )
        ( copyfiles ( source "CM.wizard" )
        ( dest progdir ) ) )
  )
)

; /* Assign */

( if( exists "SYS:S/User-Startup" )
    ( ( startup "Cybermagic"
      ( prompt #assign )
      ( help @startup-help )
      ( command ( "Assign %s: %s" "Cybermagic" progdir ) )
    )
   )
)
( makeassign "Cybermagic" progdir )
( set @default-dest progdir )
( exit #end )