Amiga Installer Script for WHLOAD condition

[field3d]

Hello. I have the next Amiga Installer Script for a whdload. What I want to do is if Floppy ‘A123’ is inserted then it will install it as single floppy and not continue installing anything else. But if a floppy called ‘PI’ is inserted it will install of course ‘PI’ and after the ‘SI’ and will not install ‘A123’ as it will be ignored. What I have is the next code but the problem like it is is asking always for floppy name ‘A123’ and if I n sent the ‘SI’ is ignored as it is asking ‘A123’ how can I make what I said if I insert ‘A123’ is ok it will install it and no ‘PI’ or ‘SI’ will be installed, but if I snort ‘PI’ it will install only ‘PI’ and ‘SI’.

What is needed to change to this segment of the code to do this?

(procedure P_Install
  (set #AD_disk "A123")
  (P_disk)
  (if
    (exists ("%s:" #AD_disk))
    (
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )
    )
    (
  
      (set #AD_disk "PI")
      (P_disk)
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )
      (set #AD_disk "SI")
      (P_disk)
      (set #simulator-dest (tackon #dest "SI"))
      (makedir #simulator-dest
        (help @makedir-help)
      )
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #simulator-dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )
    )
  )
)

[Wepl]

using the whdload install template this is usually done by asking the user which release he has, 1 disk or 2 disk release and then doing the stuff appropriate

(set #multiple-versions "y")

in (procedure P_SelectVersion

          (choices
                ""
                ""
                ""
                "One Disk XXXX (Files)"
                "Two Disks XXXX (Files)"
                ""
          )
       )

in (procedure P_MakeImages
you use branch 3 and 4

   (                           ;----- 3 = DOS (Files) -----                                                                                                                                 
                                                                                                                                                                                             
      ;if the disk can be requested by the volume name:                                                                                                                                      
      (set #AD_disk "A123")                                                                                                                                                                 
      ;(set #AD_diskname "Disk 1")       ;this optional, default is #AD_disk                                                                                                                  
      (P_AskDisk)                                                                                                                                                                            
      (copyfiles                                                                                                                                                                             
        (help @copyfiles-help)                                                                                                                                                               
        (source ("%s:" #AD_disk))                                                                                                                                                            
        (dest #dest)                                                                                                                                                                         
        (pattern "~(c|l|s|.#?|#?.info)")
      )                                                                                                                                                                                      

    )                                                                                                                                                                                        
                                                                                                                                                                                             
    (                           ;----- 4 = CD (Files) -----                                                                                                                                  

      (set #AD_disk "PI")
      (P_AskDisk)                                                                                                                                                                            
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )
      (set #AD_disk "SI")
      (P_AskDisk)                                                                                                                                                                            
      (set #simulator-dest (tackon #dest "SI"))
      (makedir #simulator-dest
        (help @makedir-help)
      )
      (copyfiles
        (help @copyfiles-help)
        (source ("%s:" #AD_disk))
        (dest #simulator-dest)
        (pattern "~(c|l|s|.#?|#?.info)")
      )

    )

other way would be to use #AD_filereq if there is a uniq file on both first disk and when it's inserted to check for a file present which exists only on the single disk release to decide which files to copy from first disk and if a second disk must be processed

[field3d]

Oh I see. Thank you @wepl