; OWB font downloader

failat 21

echo "Welcome to OWB font downloader"

cd datas

requestchoice >env:OWBch "OWB font downloader" "Do you want to download and install fonts?*N*OWB needs to download ~4MB of fonts.*N*Installing fonts will result in coping a few ttf fonts to SYS:Fonts/_ttf" "Yes" "No"
if val "$OWBch" eq "1"
	unsetenv OWBch
	
	if not exists c:xadUnFile
		requestchoice >nil: "OWB font downloader" "You need to have a functional XADMaster in your system" "Ok"
		quit 5
	else
		echo "Deleting old fonts..."
		delete #?.exe
		delete fonts/#?
		
	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/andale32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/arial32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/arialb32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/comic32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/courie32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/georgi32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/impact32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/times32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/trebuc32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/verdan32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    wget --tries 10 --waitretry 10 http://downloads.sourceforge.net/project/corefonts/the%20fonts/final/webdin32.exe
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to fetch fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    echo "Fetched all fonts. Now unpacking"

	    c:xadUnFile andale32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile arial32.exe   fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile arialb32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile comic32.exe   fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile courie32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile georgi32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile impact32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile times32.exe   fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile trebuc32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile verdan32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    c:xadUnFile webdin32.exe  fonts file=#?.TTF
	    set RES "$RC"
	    if not val "$RES" eq "0"
		    requestchoice >nil: "OWB font downloader" "Failed to unpack fonts. OWB WON'T work" "Ok"
		    quit 5
	    endif

	    echo "Unpacked all fonts. Now coping them."

	    copy fonts/ sys:fonts/_ttf ALL

		delete #?.exe ALL
		delete fonts ALL

	endif
endif
unsetenv OWBch
echo "Download complete"