VERSION 5.00
Begin VB.Form FrmSettings 
   Caption         =   "SnG Habbo Alien:: Settings"
   ClientHeight    =   3090
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   4830
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4830
   StartUpPosition =   3  'Windows-Standard
   Begin VB.CommandButton cmd_load 
      Caption         =   "Load"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2520
      TabIndex        =   17
      Top             =   2760
      Width           =   1335
   End
   Begin VB.CommandButton cmd_save 
      Caption         =   "Save"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1080
      TabIndex        =   16
      Top             =   2760
      Width           =   1335
   End
   Begin VB.Frame fra_loadersettings 
      Caption         =   "Loader Settings"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2655
      Left            =   70
      TabIndex        =   18
      Top             =   50
      Width           =   4695
      Begin VB.TextBox txt_value_musport 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   15
         Text            =   "connection.mus.port"
         Top             =   2280
         Width           =   1455
      End
      Begin VB.TextBox txt_value_infoport 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   11
         Text            =   "connection.info.port"
         Top             =   1800
         Width           =   1455
      End
      Begin VB.TextBox txt_value_mushost 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   13
         Text            =   "connection.mus.host"
         Top             =   2040
         Width           =   1455
      End
      Begin VB.TextBox txt_value_infohost 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   9
         Text            =   "connection.info.host"
         Top             =   1560
         Width           =   1455
      End
      Begin VB.TextBox txt_value_ssoticket 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   7
         Text            =   "sso.ticket"
         Top             =   1320
         Width           =   1455
      End
      Begin VB.TextBox txt_value_externalvariables 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   5
         Text            =   "external.variables.txt"
         Top             =   1080
         Width           =   1455
      End
      Begin VB.TextBox txt_value_externaltexts 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   3
         Text            =   "external.texts.txt"
         Top             =   840
         Width           =   1455
      End
      Begin VB.TextBox txt_value_dcr 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2880
         TabIndex        =   1
         Top             =   600
         Width           =   1455
      End
      Begin VB.TextBox txt_param_musport 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   14
         Text            =   "sw3"
         Top             =   2280
         Width           =   495
      End
      Begin VB.TextBox txt_param_infoport 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   10
         Text            =   "sw2"
         Top             =   1800
         Width           =   495
      End
      Begin VB.TextBox txt_param_mushost 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   12
         Text            =   "sw3"
         Top             =   2040
         Width           =   495
      End
      Begin VB.TextBox txt_param_infohost 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   8
         Text            =   "sw2"
         Top             =   1560
         Width           =   495
      End
      Begin VB.TextBox txt_param_ssoticket 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   6
         Text            =   "sw8"
         Top             =   1320
         Width           =   495
      End
      Begin VB.TextBox txt_param_externalvariables 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   4
         Text            =   "sw6"
         Top             =   1080
         Width           =   495
      End
      Begin VB.TextBox txt_param_externaltexts 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   2
         Text            =   "sw7"
         Top             =   840
         Width           =   495
      End
      Begin VB.TextBox txt_param_dcr 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1680
         TabIndex        =   0
         Text            =   "src"
         Top             =   600
         Width           =   495
      End
      Begin VB.Label lbl_value 
         Caption         =   "Value Name"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2880
         TabIndex        =   29
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label lbl_param 
         Caption         =   "Param Name"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1680
         TabIndex        =   28
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label lbl_setting 
         Caption         =   "Setting Name"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   27
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label lbl_musport 
         Caption         =   "MUS Port:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   26
         Top             =   2280
         Width           =   2055
      End
      Begin VB.Label lbl_infoport 
         Caption         =   "Info Port:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   25
         Top             =   1800
         Width           =   2055
      End
      Begin VB.Label lbl_mushost 
         Caption         =   "MUS Host | IP:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   24
         Top             =   2040
         Width           =   2055
      End
      Begin VB.Label lbl_infohost 
         Caption         =   "Info Host | IP:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   23
         Top             =   1560
         Width           =   2055
      End
      Begin VB.Label lbl_ssoticket 
         Caption         =   "SSO Ticket:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   22
         Top             =   1320
         Width           =   2055
      End
      Begin VB.Label lbl_externalvariables 
         Caption         =   "External Variables Link:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   21
         Top             =   1080
         Width           =   2055
      End
      Begin VB.Label lbl_dcr 
         Caption         =   "DCR Link:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   20
         Top             =   600
         Width           =   2055
      End
      Begin VB.Label lbl_externaltexts 
         Caption         =   "External Texts Link:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   19
         Top             =   840
         Width           =   2055
      End
   End
End
Attribute VB_Name = "FrmSettings"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_save_Click()

SaveINISetting App.path & "\settings.ini", "Loader", "dcr_param", txt_param_dcr.Text
SaveINISetting App.path & "\settings.ini", "Loader", "external_texts_link_param", txt_param_externaltexts.Text
SaveINISetting App.path & "\settings.ini", "Loader", "external_variables_link_param", txt_param_externalvariables.Text
SaveINISetting App.path & "\settings.ini", "Loader", "sso_ticket_param", txt_param_ssoticket.Text
SaveINISetting App.path & "\settings.ini", "Loader", "info_host_param", txt_param_infohost.Text
SaveINISetting App.path & "\settings.ini", "Loader", "info_port_param", txt_param_infoport.Text
SaveINISetting App.path & "\settings.ini", "Loader", "mus_host_param", txt_param_mushost.Text
SaveINISetting App.path & "\settings.ini", "Loader", "mus_port_param", txt_param_musport.Text
SaveINISetting App.path & "\settings.ini", "Loader", "dcr_value", txt_value_dcr.Text
SaveINISetting App.path & "\settings.ini", "Loader", "external_texts_link_value", txt_value_externaltexts.Text
SaveINISetting App.path & "\settings.ini", "Loader", "external_variables_link_value", txt_value_externalvariables.Text
SaveINISetting App.path & "\settings.ini", "Loader", "sso_ticket_value", txt_value_ssoticket.Text
SaveINISetting App.path & "\settings.ini", "Loader", "info_host_value", txt_value_infohost.Text
SaveINISetting App.path & "\settings.ini", "Loader", "info_port_value", txt_value_infoport.Text
SaveINISetting App.path & "\settings.ini", "Loader", "mus_host_value", txt_value_mushost.Text
SaveINISetting App.path & "\settings.ini", "Loader", "mus_port_value", txt_value_musport.Text

End Sub

Private Sub cmd_load_Click()

' Load Loader Settings
txt_param_dcr.Text = GetINISetting(App.path & "\settings.ini", "Loader", "dcr_param", "src")
txt_param_externaltexts.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_texts_link_param", "sw7")
txt_param_externalvariables.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_variables_link_param", "sw6")
txt_param_ssoticket.Text = GetINISetting(App.path & "\settings.ini", "Loader", "sso_ticket_param", "sw8")
txt_param_infohost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_host_param", "sw2")
txt_param_infoport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_port_param", "sw2")
txt_param_mushost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_host_param", "sw3")
txt_param_musport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_port_param", "sw3")
txt_value_dcr.Text = GetINISetting(App.path & "\settings.ini", "Loader", "dcr_value", "")
txt_value_externaltexts.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_texts_link_value", "external.texts.txt")
txt_value_externalvariables.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_variables_link_value", "external.variables.txt")
txt_value_ssoticket.Text = GetINISetting(App.path & "\settings.ini", "Loader", "sso_ticket_value", "sso.ticket")
txt_value_infohost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_host_value", "connection.info.host")
txt_value_infoport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_port_value", "connection.info.port")
txt_value_mushost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_host_value", "connection.mus.host")
txt_value_musport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_port_value", "connection.mus.port")

End Sub