;
; arbor - Amiga Installer Script
; Version 1.2
; Copyright (C) 2026 Wizardry and Steamworks - License: MIT
;

(complete 0)
(default "Work:")

(welcome "Good day! Welcome to the arbor install utility!\n\narbor - Formal implementation of the Arbor finite absolute\nfilesystem-path hierarchy grammar.\n\nThis installer will copy the correct arbor binary for your system to c:.")

; Using askchoice + select with explicit help tags safely forces the Expert Mode engine scan
(select 
  (askchoice
    (prompt "Please choose the correct version for your system:")
    (choices
      "AmigaOS 3.x (68000)"
      "Kickstart 1.3"
      "68020 + Soft FPU"
      "68020 + Hardware FPU"
      "MorphOS (Native PPC)"
      "PowerUp (PPC)"
      "WarpOS (PPC)"
    )
    (help "Select the CPU architecture matching your Amiga system.")
  )

  ; Case 0
  (copyfiles
    (prompt "Copying arbor 68k binary...")
    (source "Work:arbor/c/arbor_68k")
    (dest "c:")
    (newname "arbor")
  )

  ; Case 1
  (copyfiles
    (prompt "Copying arbor Kickstart 1.3 binary...")
    (source "Work:arbor/c/arbor_kick13")
    (dest "c:")
    (newname "arbor")
  )

  ; Case 2
  (copyfiles
    (prompt "Copying arbor 68020 Soft FPU binary...")
    (source "Work:arbor/c/arbor_68020_soft")
    (dest "c:")
    (newname "arbor")
  )

  ; Case 3
  (copyfiles
    (prompt "Copying arbor 68020 Hardware FPU binary...")
    (source "Work:arbor/c/arbor_62020_fpu")
    (dest "c:")
    (newname "arbor")
  )

  ; Case 4
  (copyfiles
    (prompt "Copying native MorphOS binary...")
    (source "Work:arbor/c/arbor_morphos")
    (dest "c:")
    (newname "arbor")
  )

  ; Case 5
  (copyfiles
    (prompt "Copying PowerUp PPC binary...")
    (source "Work:arbor/c/arbor_powerup")
    (dest "c:")
    (newname "arbor")
  )

  ; Case 6
  (copyfiles
    (prompt "Copying WarpOS PPC binary...")
    (source "Work:arbor/c/arbor_warpos")
    (dest "c:")
    (newname "arbor")
  )
)

(message "Installation complete!\n\nThe selected arbor binary has been installed to c: as 'arbor'.\n\nTo use arbor, type:\n  arbor PATH [PATH...]\n\nFor help:\n  arbor ?\n\nThank you for using arbor!\nCopyright (C) 2026 Wizardry and Steamworks - License: MIT")

(exit)