VERSION 5.00
Object = "{EF6F6AB3-C2B2-11D3-8E15-B3780236B732}#1.0#0"; "UNZIPPER.OCX"
Begin VB.Form frmInstallZillas 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "Installing/Updating Zillas"
   ClientHeight    =   6360
   ClientLeft      =   -11355
   ClientTop       =   2010
   ClientWidth     =   9360
   LinkTopic       =   "Form1"
   Picture         =   "InstallZillas backup.frx":0000
   ScaleHeight     =   6360
   ScaleWidth      =   9360
   StartUpPosition =   2  'CenterScreen
   Begin VB.DriveListBox drviPodDrive 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000001&
      Height          =   390
      Left            =   1320
      TabIndex        =   8
      Top             =   2400
      Width           =   1575
   End
   Begin UnZipper.UnZip progUnzipper 
      Left            =   8760
      Top             =   240
      _ExtentX        =   661
      _ExtentY        =   661
   End
   Begin VB.Label lblInvisibleDrive 
      BackStyle       =   0  'Transparent
      Caption         =   "[Invisible Drive Label]"
      Height          =   375
      Left            =   3000
      TabIndex        =   9
      Top             =   2400
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.Label lblChooseZilla 
      BackStyle       =   0  'Transparent
      Caption         =   "Choose the Zilla you want to install/update, select your drive, then click next:"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   1200
      TabIndex        =   7
      Top             =   1080
      Width           =   7575
   End
   Begin VB.Label lblChoiceLabel 
      BackStyle       =   0  'Transparent
      Caption         =   "Choice:"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1320
      TabIndex        =   6
      Top             =   3120
      Width           =   1695
   End
   Begin VB.Label lblChoice 
      BackStyle       =   0  'Transparent
      Caption         =   "[Choice]"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Left            =   1320
      TabIndex        =   5
      Top             =   3600
      Width           =   2175
   End
   Begin VB.Label lblZillaZero 
      BackStyle       =   0  'Transparent
      Caption         =   "ZillaZero"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6000
      TabIndex        =   4
      Top             =   4680
      Width           =   4575
   End
   Begin VB.Label lblTripleThreat 
      BackStyle       =   0  'Transparent
      Caption         =   "Triple Threat"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6000
      TabIndex        =   3
      Top             =   4080
      Width           =   4575
   End
   Begin VB.Label lblPodzilla2Only 
      BackStyle       =   0  'Transparent
      Caption         =   "Podzilla 2"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6000
      TabIndex        =   2
      Top             =   3480
      Width           =   3375
   End
   Begin VB.Label lblFloydOnly 
      BackStyle       =   0  'Transparent
      Caption         =   "Floydzilla"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6000
      TabIndex        =   1
      Top             =   2880
      Width           =   5055
   End
   Begin VB.Label lblPodzilla0Only 
      BackStyle       =   0  'Transparent
      Caption         =   "Podzilla"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6000
      TabIndex        =   0
      Top             =   2280
      Width           =   3615
   End
   Begin VB.Image cmdNext 
      Height          =   600
      Left            =   7440
      Picture         =   "InstallZillas backup.frx":18663
      Stretch         =   -1  'True
      Top             =   5520
      Width           =   1620
   End
   Begin VB.Image cmdExit 
      Height          =   600
      Left            =   240
      Picture         =   "InstallZillas backup.frx":1C64A
      Stretch         =   -1  'True
      Top             =   5520
      Width           =   1620
   End
End
Attribute VB_Name = "frmInstallZillas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public strZillaChoice As String
Public strFolderLocation As String
Public strFinalLocation As String
Private Declare Function functURLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function functDownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = functURLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then
        MsgBox "File was downloaded successfully!", vbExclamation, " Download Successful"
    Else
        MsgBox "There was a error downloading the file. Make sure that the url is valid and try again!", vbCritical, " Error"
    End If
End Function
Public Function functClearUnderlinin() As Boolean
    lblPodzilla0Only.Font.Underline = False
    lblFloydOnly.Font.Underline = False
    lblPodzilla2Only.Font.Underline = False
    lblTripleThreat.Font.Underline = False
    lblZillaZero.Font.Underline = False
End Function
Private Sub cmdBack_Click()
frmMainScreen.Show
Unload Me
End Sub

Private Sub cmdExit_Click()
frmExitYesNo.Show
End Sub

Private Sub cmdFinish_Click()
frmMainScreen.Show
Unload Me
End Sub

Private Sub cmdNext_Click()
    If lblChoice.Caption = "Podzilla (Original) Only" Then
        strFolderLocation = lblInvisibleDrive.Caption
        strFinalLocation = strFolderLocation + "\Install"
        functDownloadFile "http://www.freewebs.com/keripo2/Podzilla0.zip", "Files\Podzilla0Only.zip"
        progUnzipper.InputFile = "Files\Podzilla0Only.zip"
        progUnzipper.OutputFolder = strFinalLocation
        progUnzipper.Go
    ElseIf lblChoice.Caption = "Floydzilla Only" Then
        strFolderLocation = lblInvisibleDrive.Caption
        strFinalLocation = strFolderLocation + "\Install"
        functDownloadFile "http://www.freewebs.com/keripo2/Floydzilla.zip", "Files\FloydzillaOnly.zip"
        progUnzipper.InputFile = "Files\Floydzilla0Only.zip"
        progUnzipper.OutputFolder = strFinalLocation
        progUnzipper.Go
    ElseIf lblChoice.Caption = "Podzilla 2 Only" Then
        strFolderLocation = lblInvisibleDrive.Caption
        strFinalLocation = strFolderLocation + "\Install"
        functDownloadFile "http://www.freewebs.com/keripo2/Podzilla2.zip", "Files\Podzilla2Only.zip"
        progUnzipper.InputFile = "Files\Podzilla2Only.zip"
        progUnzipper.OutputFolder = strFinalLocation
        progUnzipper.Go
    ElseIf lblChoice.Caption = "Triple Threat" Then
        strFolderLocation = lblInvisibleDrive.Caption
        strFinalLocation = strFolderLocation + "\Install"
        functDownloadFile "http://www.kreativekorp.com/ipl/triplepz.zip", "Files\TripleThreat.zip"
        progUnzipper.InputFile = "Files\TripleThreat.zip"
        progUnzipper.OutputFolder = strFinalLocation
        progUnzipper.Go
    ElseIf lblChoice.Caption = "Zero Zilla" Then
        strFolderLocation = lblInvisibleDrive.Caption
        strFinalLocation = strFolderLocation + "\Install"
        functDownloadFile "http://www05.megaupload.com/files/736cdaef6047e082990dcdb6dc8ae275/ZillaZero%20Alpha%200.2.zip", "Files\ZeroZilla.zip"
        progUnzipper.InputFile = "Files\ZeroZillaAlpha.zip"
        progUnzipper.OutputFolder = strFinalLocation
        progUnzipper.Go
    Else
        MsgBox "Error! You didn't choose a Zilla!"
    End If
End Sub

Private Sub drviPodDrive_Change()
lblInvisibleDrive.Caption = drviPodDrive.Drive
End Sub
Private Sub Form_Load()
lblChoice.Caption = ""
lblInvisibleDrive.Caption = drviPodDrive.Drive
End Sub

Private Sub lblPodzilla0Only_Click()
functClearUnderlinin
lblPodzilla0Only.Font.Underline = True
strZillaChoice = "Podzilla (Original) Only"
lblChoice.Caption = strZillaChoice
End Sub
Private Sub lblFloydOnly_Click()
functClearUnderlinin
lblFloydOnly.Font.Underline = True
strZillaChoice = "Floydzilla Only"
lblChoice.Caption = strZillaChoice
End Sub

Private Sub lblPodzilla2Only_Click()
functClearUnderlinin
lblPodzilla2Only.Font.Underline = True
strZillaChoice = "Podzilla 2 Only"
lblChoice.Caption = strZillaChoice
End Sub

Private Sub lblTripleThreat_Click()
functClearUnderlinin
lblTripleThreat.Font.Underline = True
strZillaChoice = "Triple Threat"
lblChoice.Caption = strZillaChoice
End Sub

Private Sub lblZillaZero_Click()
functClearUnderlinin
lblZillaZero.Font.Underline = True
strZillaChoice = "Zero Zilla"
lblChoice.Caption = strZillaChoice
End Sub