No1

ToggleWindowOff
ShowTraybarIcon

; Setting Variables
; -----------------
Let Skin = "%%Scriptdir%%\Skin.ini"
Let FTP = "%%Scriptdir%%\FTP.ini"


OpenIniFile "%%Skin%%"
ReadIniFile WELCOME "WINDOW" "WELCOME"
ReadIniFile FTPSETUP "WINDOW" "FTPSETUP"
ReadIniFile XBMCROOT "WINDOW" "XBMCROOT"
ReadIniFile OVERWRITEMSG "WINDOW" "OVERWRITEMSG"

ReadIniFile CONNECTMSG "CONNECTION" "CONNECTMSG"
ReadIniFile CONNECTY "CONNECTION" "CONNECTY"
ReadIniFile CONNECTN "CONNECTION" "CONNECTN"

ReadIniFile CREATELIST "DELETEOLD" "CREATELIST"
ReadIniFile DELETEFILE "DELETEOLD" "DELETEFILE"
ReadIniFile DELETEDIR "DELETEOLD" "DELETEDIR"

ReadIniFile SENDZIP "SENDNEW" "SENDZIP"
ReadIniFile EXTRACTZIP "SENDNEW" "EXTRACTZIP"
ReadIniFile COMPLETE "SENDNEW" "COMPLETE"

ReadIniFile DIR "INSTALL" "DIR"
ReadInifile SKINNAME "INSTALL" "SKINNAME"
ReadIniFile ZIPNAME "INSTALL" "ZIPNAME"
CloseIniFile


; Initial setup for XBOX/XBMC Settings (Y/N)
; ------------------------------------------
MessageDialog Welcome1 "C" "YN" "%%WELCOME%%"
  If Welcome1 = "Y" Then
    GoTo FTP
  If Welcome1 = "N" Then
    GoTo End
  EndIf

:FTP

; Checking for an Existing FTP.ini File
; -----------------------------------------
If Local-Exists("%%FTP%%") Then

    OpenIniFile "%%FTP%%"
    ReadIniFile A "TOP" "IP"
    ReadIniFile B "TOP" "USERNAME"
    ReadIniFile C "TOP" "PASSWORD"
    CloseIniFile
    GoTo Connection

; If FTP.ini Was Not Found, Create a New FTP.ini File
; ---------------------------------------------------

Else
    Message "%%FTPSETUP%%"
    Input XBMC1 "Please Enter Your Xbox IP Address."
    Input XBMC2 "Please Enter Your Xbox Username."
    Input XBMC3 "Please Enter Your Xbox Password."
    OpenIniFile "%%FTP%%"
    WriteIniFile "%%XBMC1%%" "TOP" "IP"
    WriteIniFile "%%XBMC2%%" "TOP" "USERNAME"
    WriteIniFile "%%XBMC3%%" "TOP" "PASSWORD"
    CloseIniFile


    OpenIniFile "%%FTP%%"
    ReadIniFile A "TOP" "IP"
    ReadInIFile B "TOP" "USERNAME"
    ReadIniFile C "TOP" "PASSWORD"
    CloseIniFile
EndIf

; Connect To Selected FTP
; -----------------------
:Connection

ShowInfo "%%CONNECTMSG%%" 1

HOST="%%A%%"
PORT="21"
USER="%%B%%"
PASSWORD="%%C%%"
TIMEOUT=60
PASSIVEON
BINARY

CONNECT
If Success Then
    ChangeInfo "%%CONNECTY%%" 1
    GoTo xROOT
Else
    ChangeInfo "%%CONNECTN%%" 1
    GoTo End
EndIf


; Select Your XBMC Root Folder
; ----------------------------

:xROOT
HideInfo 1
Message "%%XBMCROOT%%"
Remote-FolderDialog ROOT

If Remote-Exists("%%ROOT%%/skin/%%SKINNAME%%") Then
    GoTo DetectY
Else
    GoTo DetectN
EndIf

:DetectY
MessageDialog OVERWRITE "C" "YC" "%%OVERWRITEMSG%%"
If OVERWRITE = "Y" Then
    ShowInfo "%%CREATELIST%%" 2
    Remote-TreeList "%%ROOT%%/skin/%%SKINNAME%%/*.*"
    Remote-CD "%%ROOT%%"
    ChangeInfo "%%DELETEFILE%%" 2
    For i = 1 to %%NumRemoteTreeFiles%%
         Remote-Delete "%%RemoteTreeFiles_[%%i%%]%%"
    next i

    Remote-List "%%ROOT%%/skin/%%SKINNAME%%/*.*"
    Remote-CD "%%ROOT%%"
    ChangeInfo "%%DELETEDIR%%" 2
    For i = 1 to %%NumRemoteDirs%%
        Remote-RD "%%ROOT%%/skin/%%SKINNAME%%/%%RemoteDirs_[%%i%%]%%"
    next i

    Remote-CD "%%ROOT%%"
    Remote-RD "%%ROOT%%/skin/%%SKINNAME%%"
    HideInfo 2
    MessageDialog hh "C" "O" "Delete Previous ok?"
    GoTo DetectN
Else
If OVERWRITE="C" Then
    GoTo End
EndIf

:DetectN
If %%ROOT%%/skin/%%ZIPNAME%%="/E/Test Skin/skin/%%ZIPNAME%%" Then
    Let ROOT1="e:\Test Skin\skin\%%ZIPNAME%%"
    Remote-CD "%%ROOT%%"
    ShowInfo "%%SENDZIP%%" 3
    ShowTransferDialogs
    Send "%%Scriptdir%%\%%ZIPNAME%%" "%%ROOT%%/skin/%%ZIPNAME%%"
    NoTransferDialogs
    ChangeInfo "%%EXTRACTZIP%%" 3
    DoCommand "SITE EXTRACT %%ROOT1%%"
    ChangeInfo "%%COMPLETE%%" 3
    WaitSeconds 5
    GoTo End
Else
If %%ROOT%%/skin/%%ZIPNAME%%="/E/XBMC/skin/%%ZIPNAME%%" Then
    Let ROOT1="e:\XBMC\skin\%%ZIPNAME%%"
    ShowInfo "%%SENDZIP%%" 3
    ShowTransferDialogs
    Send "%%Scriptdir%%\%%ZIPNAME%%" "%%ROOT%%/skin/%%ZIPNAME%%"
    NoTransferDialogs
    ChangeInfo "%%EXTRACTZIP%%" 3
    DoCommand "SITE EXTRACT %%ROOT1%%"
    ChangeInfo "%%COMPLETE%%" 3
    WaitSeconds 5
    GoTo End
Else
If %%ROOT%%/skin/%%ZIPNAME%%="/E/BUILD/XBMC/skin/%%ZIPNAME%%" Then
    Let ROOT1="e:\BUILD\XBMC\skin\%%ZIPNAME%%"
    Remote-CD "%%ROOT%%"
    ShowInfo "%%SENDZIP%%" 3
    ShowTransferDialogs
    Send "%%Scriptdir%%\%%ZIPNAME%%" "%%ROOT%%/skin/%%ZIPNAME%%"
    NoTransferDialogs
    ChangeInfo "%%EXTRACTZIP%%" 3
    DoCommand "SITE EXTRACT %%ROOT1%%"
    ChangeInfo "%%COMPLETE%%" 3
    WaitSeconds 5
    GoTo End
Else
If %%ROOT%%/skin/%%ZIPNAME%%="/F/XBMC/skin/%%ZIPNAME%%" Then
    Let ROOT1="f:\XBMC\skin\%%ZIPNAME%%"
    Remote-CD "%%ROOT%%"
    ShowInfo "%%SENDZIP%%" 3
    ShowTransferDialogs
    Send "%%Scriptdir%%\%%ZIPNAME%%" "%%ROOT%%/skin/%%ZIPNAME%%"
    NoTransferDialogs
    ChangeInfo "%%EXTRACTZIP%%" 3
    DoCommand "SITE EXTRACT %%ROOT1%%"
    ChangeInfo "%%COMPLETE%%" 3
    WaitSeconds 5
    GoTo End
Else
If %%ROOT%%/skin/%%ZIPNAME%%="/F/BUILD/XBMC/skin/%%ZIPNAME%%" Then
    Let ROOT1="f:\BUILD\XBMC\skin\%%ZIPNAME%%"
    Remote-CD "%%ROOT%%"
    ShowInfo "%%SENDZIP%%" 3
    ShowTransferDialogs
    Send "%%Scriptdir%%\%%ZIPNAME%%" "%%ROOT%%/skin/%%ZIPNAME%%"
    NoTransferDialogs
    ChangeInfo "%%EXTRACTZIP%%" 3
    DoCommand "SITE EXTRACT %%ROOT1%%"
    ChangeInfo "%%COMPLETE%%" 3
    WaitSeconds 5
    GoTo End
Else
If %%ROOT%%/skin/%%ZIPNAME%%="/G/XBMC/skin/%%ZIPNAME%%" Then
    Let ROOT1="g:\XBMC\skin\%%ZIPNAME%%"
    Remote-CD "%%ROOT%%"
    ShowInfo "%%SENDZIP%%" 3
    ShowTransferDialogs
    Send "%%Scriptdir%%\%%ZIPNAME%%" "%%ROOT%%/skin/%%ZIPNAME%%"
    NoTransferDialogs
    ChangeInfo "%%EXTRACTZIP%%" 3
    DoCommand "SITE EXTRACT %%ROOT1%%"
    ChangeInfo "%%COMPLETE%%" 3
    WaitSeconds 5
    GoTo End
Else
If %%ROOT%%/skin/%%ZIPNAME%%="/G/BUILD/XBMC/skin/%%ZIPNAME%%" Then
    Let ROOT1="g:\BUILD\XBMC\skin\%%ZIPNAME%%"
    Remote-CD "%%ROOT%%"
    ShowInfo "%%SENDZIP%%" 3
    ShowTransferDialogs
    Send "%%Scriptdir%%\%%ZIPNAME%%" "%%ROOT%%/skin/%%ZIPNAME%%"
    NoTransferDialogs
    ChangeInfo "%%EXTRACTZIP%%" 3
    DoCommand "SITE EXTRACT %%ROOT1%%"
    ChangeInfo "%%COMPLETE%%" 3
    WaitSeconds 5
    GoTo End
Else
ShowInfo "Default XBMC Paths were not selected. For fastest results, a default path is suggested. (Read the *.nfo file for more information)" 3
ChangeInfo "Extracting %%ZIPNAME%% to your PC" 3
PrepareZip "%%Scriptdir%%\%%ZIPNAME%%"
UnZip "%%Scriptdir%%\Temp"
ChangeInfo "Sending %%SKINNAME%% to your Xbox, this may take a few minutes..." 3
ShowTransferDialogs
SendTree "%%Scriptdir%%\Temp\*.*" "%%ROOT%%/skin/"
NoTransferDialogs
HideInfo 3

MessageDialog gg "C" "O" "Complete!"
GoTo End

EndIf


:End

EndScript