;
; ********************************************************************
; *                                                                  *
; *                 Henes/Taskers proudly presents                   *
; *                                                                  *
; *************************** Switch2Which ***************************
; *                                                                  *
; * A script to easily switch between ppc.library/powerpc.library... *
; *           Switch2Which is released under GPL license !           *
; *                                                                  *
; ********************************************************************

;
; $VER: Switch2Which 1.0 (05.03.99)
;
; NB: Yes, the indentation isn't correct ! But I think it's more readable. Don't you ?
;     Sorry CybPPC users, I think it will not works for you. Send me a fix !
;

FailAt 21

SetEnv PPCSwitch `C:RequestChoice "PPCSwitch" "Switch to which kernel ?" "PowerUP|PowerUP+WarpUPv7|WarpOS|WarpOS+PPCLibEmu|Cancel"`

IF `GetEnv PPCSwitch` EQ 0
  C:Delete ENV:PPCSwitch
  EndCLI
ELSE

IF `GetEnv PPCSwitch` EQ 1
  C:Copy >NIL: LIBS:mpega.library_Elf TO LIBS:mpega.library CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akJFIF.ppc.bak TO SYS:Classes/DataTypes/akJFIF.ppc CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akLJPG.ppc.bak TO SYS:Classes/DataTypes/akLJPG.ppc CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akPNG.ppc.bak TO SYS:Classes/DataTypes/akPNG.ppc CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akTIFF.ppc.bak TO SYS:Classes/DataTypes/akTIFF.ppc CLONE
  C:Delete >NIL: LIBS:ppc.library ; Only for BlizzPPC ! Please delete this line, CybPPC users !
  C:Copy >NIL: LIBS:ppc.library_phase5 LIBS:ppc.library ; Only for CybPPC !
  C:Delete >NIL: LIBS:powerpc.library
  C:BPPCFix >NIL: REMOVE ; Only for BlizzPPC ! Please delete this line, CybPPC users !
  C:Wait 3
  C:RequestChoice "PPC OS" "PowerUP prepared for next boot" Reboot
ELSE

IF `GetEnv PPCSwitch` EQ 2
  C:Copy >NIL: LIBS:mpega.library_Elf TO LIBS:mpega.library CLONE
  C:Copy >NIL: LIBS:powerpc.library_v7 TO LIBS:powerpc.library CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akJFIF.ppc.bak TO SYS:Classes/DataTypes/akJFIF.ppc CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akLJPG.ppc.bak TO SYS:Classes/DataTypes/akLJPG.ppc CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akPNG.ppc.bak TO SYS:Classes/DataTypes/akPNG.ppc CLONE
  C:Copy >NIL: SYS:Classes/DataTypes/akTIFF.ppc.bak TO SYS:Classes/DataTypes/akTIFF.ppc CLONE
  C:Delete >NIL: LIBS:ppc.library ; Only for BlizzPPC ! Please delete this line, CybPPC users !
  C:Copy >NIL: LIBS:ppc.library_phase5 LIBS:ppc.library ; Only for CybPPC !
  C:BPPCFix >NIL: REMOVE ; Only for BlizzPPC ! Please delete this line, CybPPC users !
  C:Wait 3
  C:RequestChoice "PPC OS" "PowerUP+WarpUPv7 prepared for next boot" Reboot
ELSE

IF `GetEnv PPCSwitch` EQ 3
  C:Copy >NIL: LIBS:mpega.library_WarpUP TO LIBS:mpega.library CLONE
  C:Copy >NIL: LIBS:powerpc.library_v14 TO LIBS:powerpc.library CLONE
  C:Delete >NIL: SYS:Classes/DataTypes/ak#?.ppc
  C:Delete >NIL: LIBS:ppc.library
  C:BPPCFix >NIL: INSTALL ; Only for BlizzPPC ! Please delete this line, CybPPC users !
  C:Wait 3
  C:RequestChoice "PPC OS" "WarpOS prepared for next boot" Reboot
ELSE

IF `GetEnv PPCSwitch` EQ 4
  C:Copy >NIL: LIBS:mpega.library_WarpUP TO LIBS:mpega.library CLONE
  C:Delete >NIL: SYS:Classes/DataTypes/ak#?.ppc
  C:Copy >NIL: LIBS:powerpc.library_v14_PPCLibEmu TO LIBS:powerpc.library CLONE
  C:Copy >NIL: LIBS:ppc.library_PPCLibEmu TO LIBS:ppc.library CLONE
  C:BPPCFix >NIL: INSTALL ; Only for BlizzPPC ! Please delete this line, CybPPC users !
  C:Wait 3
  C:RequestChoice "PPC OS" "WarpOS+PPCLibEmu prepared for next boot" Reboot
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
C:Reboot ; Heeerrrr !