(message  "\nThis is Macro Collection Part I"
          "\n-------------------------------"
          "\n\nEnjoy using Real3D V.2"

          "\n\n\n written by\n Günter Hagedorn"
          "\n\n\nİ1994"
)

(if (= 0 (exists "r3d2:" (noreq)))
    (abort "\nAssign R3D2: does not exist"
           "\n\n Please check your"
           "\nReal3D Directory!" )
)


(if (= 1 (exists "r3d2:macros/WildCard" (noreq)))

 (
    (message "\n\nAn old version of the Macro Collection"
             "\n\nis still installed!\n"
             "\n\nPlease remove the old version using"
             "\n\nthe old installer first!")
    (exit (quiet))
 )
)


(set imode 0)

(if (= 1 (exists "r3d2:macros/W_ScCOG2" (noreq)))
    (set imode
        (askchoice
          (prompt "Macro Collection Part I is already installed!"
                  "\n\nDo you want to:")
          (help @askchoice-help)
          (choices 
            "Install everything again"
            "Install new Screen-Settings"
            "Uninstall Macro-Collection"
          )
          (default 1)
        )
    )
)

(if (= 2 imode)
    (

    (message "\nDo you really want to unistall"
             "\n\nMacro Collection Part I ?")

    (if (= (exists "r3d2:s/real-startup.old") 1)
        (
         (delete "r3d2:s/real-startup")
         (rename "r3d2:s/real-startup.old" "r3d2:s/real-startup")
        )           
    )

    (delete "r3d2:macros/1Anim")
    (delete "r3d2:macros/1HamR")
    (delete "r3d2:macros/1Save")
    (delete "r3d2:macros/1View")
    (delete "r3d2:macros/2Save")
    (delete "r3d2:macros/2View")
    (delete "r3d2:macros/3Save")
    (delete "r3d2:macros/3View")
    (delete "r3d2:macros/ASave")
    (delete "r3d2:macros/PreEg")
    (delete "r3d2:macros/SPreE")
    (delete "r3d2:macros/AnimP")
    (delete "r3d2:macros/ChanColo")
    (delete "r3d2:macros/ConvertS")
    (delete "r3d2:macros/CPreW")
    (delete "r3d2:macros/CPreR")
    (delete "r3d2:macros/ExtrudeP")
    (delete "r3d2:macros/HSave")
    (delete "r3d2:macros/MoOffset")
    (delete "r3d2:macros/MoveUpOb")
    (delete "r3d2:macros/Move_COG")
    (delete "r3d2:macros/Previ")
    (delete "r3d2:macros/Revie")
    (delete "r3d2:macros/RotaCOG2")
    (delete "r3d2:macros/RotatCOG")
    (delete "r3d2:macros/ScalCOG2")
    (delete "r3d2:macros/ScaleCOG")
    (delete "r3d2:macros/ShowColo")
    (delete "r3d2:macros/ShowH")
    (delete "r3d2:macros/Size_COG")
    (delete "r3d2:macros/SpreadOb")
    (delete "r3d2:macros/Tools")
    (delete "r3d2:macros/WildC")
    (delete "r3d2:macros/W_ChaCol")
    (delete "r3d2:macros/W_ChaNam")
    (delete "r3d2:macros/W_MoOffs")
    (delete "r3d2:macros/W_MovCOG")
    (delete "r3d2:macros/W_RoCOG2")
    (delete "r3d2:macros/W_RotCOG")
    (delete "r3d2:macros/W_ScaCOG")
    (delete "r3d2:macros/W_ScCOG2")
    (delete "r3d2:macros/W_SizCOG")
    (delete "r3d2:macros/All_Norm")
    (delete "r3d2:macros/Dele_Box")
    (delete "r3d2:macros/Hide_Box")
    (delete "r3d2:macros/Hide_Org")
    (delete "r3d2:macros/Make_Box")
    (delete "r3d2:macros/Make_Nor")
    (delete "r3d2:macros/Make_Org")
    (delete "r3d2:macros/ShowHide")
    (delete "r3d2:macros/Show_Box")
    (delete "r3d2:macros/Show_Org")
    (delete "r3d2:macros/Tog_ShHi")

    (delete "r3d2:objects/spline-primitives/Cube")
    (delete "r3d2:objects/spline-primitives/Circle")
    (delete "r3d2:objects/spline-primitives/Pyramid")
    (delete "r3d2:objects/spline-primitives/Rectangle")
    (delete "r3d2:objects/spline-primitives/Cone")
    (delete "r3d2:objects/spline-primitives/Cylinder")
    (delete "r3d2:objects/spline-primitives/Sphere")
    (delete "r3d2:objects/spline-primitives")

    (delete "r3d2:help/Collection.guide")

    (delete "r3d2:projects/0Tool-Window")
    (delete "r3d2:projects/0Wildcards")
    (delete "r3d2:projects/0AnimPreview")
    (delete "r3d2:projects/0ShowHide")
    (delete "r3d2:projects/1Setup")
    (delete "r3d2:projects/2Setup")
    (delete "r3d2:projects/3Setup")
    (delete "r3d2:projects/4Setup")
    (delete "r3d2:projects/5Setup")
    (delete "r3d2:projects/6Setup")

    (delete "r3d2:rexx/DPlay.script")
    (delete "r3d2:rexx/ShowAnim.rexx")

    (delete "r3d2:rpl/sys/Wildcard.rpl")

    (message "\n\nMacro Collection Part I"
             "\n\nhas been removed from your harddisk!")
    (exit (quiet))
    )
)

(set smode
 (askchoice
 (prompt "Which screenmode do you use?")
 (help @askchoice-help)
 (choices 
          "Pal Hires"
          "Pal Hires Interlace"
          "Multiscan Productivity"
          "Pal Hires Interlace OverS"
          "Pal Hires OverS"
          "Piccolo EGS   640x480"
          "Piccolo SVGA  800x600"
          "Piccolo SVGA 1024x768"
          "Spectrum VGA   640x480"
          "Spectrum SVGA  800x600"
          "Spectrum SVGA 1024x768"
          "Picasso  640x480"
          "Picasso  800x600"
          "Picasso 1024x768"
          "NTSC Hires"      
          "NTSC Hires Interlace"
 )
 (default 0)
 )
)

(message "\n\nShall I proceed with installation ?")

;**************** Now installation itself begins ******************

(complete 0)

(copyfiles
	(prompt "Copying file lharc to RAM.")
	(source "lharc")
	(dest   "ram:")
)

(complete 5)

(if (= imode 0)

    ((working "Installing Macros")
     (set lzrc (run ("RAM:lharc -x x Stuff1.lha r3d2:")))
     (if (<> lzrc 0)
	 (message "Error decompressing macros." )
     )

     (copyfiles
	(prompt "Installing Guide-File...")
	(source "Collection.guide")
	(dest   "r3d2:help/")
     )
    )
)

(complete 50)

(If (= smode 0)
	((working "Installing Setup Pal Hires")
	 (set lzrc (run ('RAM:lharc -x x projectsPH.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 1)
	((working "Installing Setup Pal Hires Interlace")
	 (set lzrc (run ('RAM:lharc -x x projectsPHI.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 2)
	((working "Installing Setup Multiscan Productivity")
	 (set lzrc (run ('RAM:lharc -x x projectsMP.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 3)
	((working "Installing Setup Pal Hires Interlace Overscan")
	 (set lzrc (run ('RAM:lharc -x x projectsPHIO.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 4)
	((working "Installing Setup Pal Hires Overscan")
	 (set lzrc (run ('RAM:lharc -x x projectsPHO.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 5)
	((working "Installing Setup Piccolo EGS 640x480")
	 (set lzrc (run ('RAM:lharc -x x projectsE64.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 6)
	((working "Installing Setup Piccolo SVGA 800x600")
	 (set lzrc (run ('RAM:lharc -x x projectsE86.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 7)
	((working "Installing Setup Piccolo SVGA 1024x768")
	 (set lzrc (run ('RAM:lharc -x x projectsE17.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 8)
	((working "Installing Setup Spectrum VGA 640x480")
	 (set lzrc (run ('RAM:lharc -x x projectsS64.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 9)
	((working "Installing Setup Spectrum SVGA 800x600")
	 (set lzrc (run ('RAM:lharc -x x projectsS86.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 10)
	((working "Installing Setup Spectrum SVGA 1024x768")
	 (set lzrc (run ('RAM:lharc -x x projectsS17.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 11)
	((working "Installing Setup Picasso 640x480")
	 (set lzrc (run ('RAM:lharc -x x projectsP64.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 12)
	((working "Installing Setup Picasso 800x600")
	 (set lzrc (run ('RAM:lharc -x x projectsP86.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 13)
	((working "Installing Setup Picasso 1024x768")
	 (set lzrc (run ('RAM:lharc -x x projectsP17.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 14)
	((working "Installing Setup NTSC Hires")
	 (set lzrc (run ('RAM:lharc -x x projectsNH.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)

(If (= smode 15)
	((working "Installing Setup NTSC Hires Interlace")
	 (set lzrc (run ('RAM:lharc -x x projectsNHI.lha r3d2:')))
	   (if (<> lzrc 0)
		 (message "Error decompressing projects.")
 	   )
	)
)



(complete 90)

(if (= (exists "r3d2:s/real-startup.old") 0)
    
  ( (if (= (exists "r3d2:s/real-startup") 1)
        (rename "r3d2:s/real-startup" "r3d2:s/real-startup.old"))

    (complete 95)

    (copyfiles
	(prompt "Creating Startup-File")
	(source "r3d2:projects/1Setup")
	(dest   "r3d2:s/")
    )

    (complete 97)

    (rename "r3d2:s/1Setup" "r3d2:s/real-startup")
  )
  (
    (delete "r3d2:s/real-startup")
    (copyfiles
	(prompt "Creating Startup-File")
	(source "r3d2:projects/1Setup")
	(dest   "r3d2:s/")
    )

    (complete 97)

    (rename "r3d2:s/1Setup" "r3d2:s/real-startup")
  )
)

(complete 99)

(delete "Ram:lharc"
	(prompt "Deleting file RAM:lharc")
)

(complete 100)

(message "\nInstallation complete!"
         "\n----------------------"
         "\n\n If you have any comments, bugs"
         "\nor problems, please contact:\n\n"
         "Activa International\n"
         "Bramfelder Chaussee 324\n"
         "22177 Hamburg\n"
         "Tel: +49/(0)40 / 642 40 20\n"
         "Fax: +49/(0)40 / 642 40 34\n"
         "BBS: +49/(0)40 / 642 40 92"
)

(exit (quiet)
)