VERSION 5.00
Begin VB.Form AdvancedConfig 
   BackColor       =   &H00000000&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "X-Bot Advanced Configuration Options"
   ClientHeight    =   5460
   ClientLeft      =   495
   ClientTop       =   930
   ClientWidth     =   7560
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5460
   ScaleWidth      =   7560
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame2 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      Caption         =   "Userfiles:"
      ForeColor       =   &H0000FF00&
      Height          =   1215
      Left            =   4320
      TabIndex        =   69
      Top             =   2880
      Width           =   3615
      Begin VB.OptionButton LocalUserfile 
         BackColor       =   &H00000000&
         Caption         =   "Have this bot use its own userfile set"
         ForeColor       =   &H00FFFFFF&
         Height          =   375
         Left            =   120
         TabIndex        =   71
         Top             =   720
         Width           =   2895
      End
      Begin VB.OptionButton GlobalUserfile 
         BackColor       =   &H00000000&
         Caption         =   "Use global X-Bot userfile set"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   120
         TabIndex        =   70
         Top             =   360
         Value           =   -1  'True
         Width           =   2895
      End
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00C0E0FF&
      Caption         =   "&Revert to Previously Saved Settings"
      Height          =   375
      Left            =   2880
      Style           =   1  'Graphical
      TabIndex        =   68
      Top             =   4920
      Width           =   2775
   End
   Begin VB.TextBox cboNetwork 
      Height          =   285
      Left            =   3240
      TabIndex        =   67
      Text            =   "Other"
      Top             =   3600
      Width           =   975
   End
   Begin VB.TextBox NoteFile 
      Height          =   285
      Left            =   5760
      TabIndex        =   60
      Top             =   9360
      Width           =   1575
   End
   Begin VB.TextBox ChanFile 
      Height          =   285
      Left            =   5760
      TabIndex        =   59
      Top             =   9000
      Width           =   1575
   End
   Begin VB.TextBox UsrFile 
      Height          =   285
      Left            =   5760
      TabIndex        =   58
      Top             =   8640
      Width           =   1575
   End
   Begin VB.ComboBox cboNetwork_old 
      Appearance      =   0  'Flat
      Height          =   315
      Left            =   1320
      TabIndex        =   54
      Text            =   "ChatNet"
      Top             =   7440
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0C0FF&
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   50
      Top             =   4920
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0FFC0&
      Caption         =   "&Save Settings"
      Height          =   375
      Left            =   6240
      Style           =   1  'Graphical
      TabIndex        =   49
      Top             =   4920
      Width           =   1215
   End
   Begin VB.CheckBox Check25 
      BackColor       =   &H00404040&
      Caption         =   "Learn Users"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   1800
      TabIndex        =   48
      Top             =   1800
      Width           =   1455
   End
   Begin VB.CheckBox Check24 
      BackColor       =   &H00404040&
      Caption         =   "Remove Bogus bans"
      ForeColor       =   &H00C0FFFF&
      Height          =   495
      Left            =   1800
      TabIndex        =   47
      Top             =   2880
      Width           =   1455
   End
   Begin VB.TextBox Text13 
      Height          =   285
      Left            =   1200
      TabIndex        =   46
      Top             =   9000
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.TextBox Text12 
      Height          =   285
      Left            =   1200
      TabIndex        =   45
      Top             =   8640
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.TextBox Text11 
      Height          =   285
      Left            =   1200
      TabIndex        =   44
      Top             =   8280
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.TextBox Text10 
      Height          =   285
      Left            =   6240
      TabIndex        =   42
      Top             =   7440
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CheckBox Check23 
      BackColor       =   &H00404040&
      Caption         =   "Don't kick users with +O setting"
      ForeColor       =   &H00C0FFFF&
      Height          =   495
      Left            =   1800
      TabIndex        =   40
      Top             =   2160
      Width           =   1455
   End
   Begin VB.CheckBox Check22 
      BackColor       =   &H00404040&
      Caption         =   "Cycle Channel"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   1800
      TabIndex        =   39
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CheckBox Check21 
      BackColor       =   &H00404040&
      Caption         =   "Share Userinfo with other bots"
      ForeColor       =   &H00C0FFFF&
      Height          =   495
      Left            =   1800
      TabIndex        =   38
      Top             =   1320
      Width           =   1455
   End
   Begin VB.CheckBox Check20 
      BackColor       =   &H00404040&
      Caption         =   "Auto Voice"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   1800
      TabIndex        =   37
      Top             =   1080
      Width           =   1455
   End
   Begin VB.CheckBox Check19 
      BackColor       =   &H00404040&
      Caption         =   "Revenge"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   1800
      TabIndex        =   36
      Top             =   840
      Width           =   1455
   End
   Begin VB.CheckBox Check18 
      BackColor       =   &H00404040&
      Caption         =   "Stop Net Hack"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   35
      Top             =   5160
      Width           =   1575
   End
   Begin VB.CheckBox Check17 
      BackColor       =   &H00404040&
      Caption         =   "Protect Friends"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   34
      Top             =   4920
      Width           =   1575
   End
   Begin VB.CheckBox Check16 
      BackColor       =   &H00404040&
      Caption         =   "Protect OPs"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   33
      Top             =   4680
      Width           =   1575
   End
   Begin VB.CheckBox Check15 
      BackColor       =   &H00404040&
      Caption         =   "Say Greetings"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   32
      Top             =   4440
      Width           =   1575
   End
   Begin VB.CheckBox Check14 
      BackColor       =   &H00404040&
      Caption         =   "Bitch Mode"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   31
      Top             =   4200
      Width           =   1575
   End
   Begin VB.CheckBox Check13 
      BackColor       =   &H00404040&
      Caption         =   "Auto-OP"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   30
      Top             =   3960
      Width           =   1575
   End
   Begin VB.CheckBox Check12 
      BackColor       =   &H00404040&
      Caption         =   "User bans"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   29
      Top             =   3720
      Width           =   1575
   End
   Begin VB.CheckBox Check11 
      BackColor       =   &H00404040&
      Caption         =   "Dynamic bans"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   28
      Top             =   3480
      Width           =   1575
   End
   Begin VB.CheckBox Check10 
      BackColor       =   &H00404040&
      Caption         =   "Enforce bans"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   27
      Top             =   3240
      Width           =   1575
   End
   Begin VB.CheckBox Check9 
      BackColor       =   &H00404040&
      Caption         =   "Clear bans on join"
      ForeColor       =   &H00C0FFFF&
      Height          =   250
      Left            =   120
      TabIndex        =   26
      Top             =   3000
      Width           =   1575
   End
   Begin VB.CheckBox Check8 
      BackColor       =   &H00404040&
      Caption         =   "Infolines"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   25
      Top             =   2760
      Width           =   1575
   End
   Begin VB.CheckBox Check7 
      BackColor       =   &H00404040&
      Caption         =   "Share Greets"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   24
      Top             =   2520
      Width           =   1575
   End
   Begin VB.CheckBox Check6 
      BackColor       =   &H00404040&
      Caption         =   "Bind SIMULATE"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   23
      Top             =   2280
      Width           =   1575
   End
   Begin VB.CheckBox Check5 
      BackColor       =   &H00404040&
      Caption         =   "TCL/SET for Owners Only"
      ForeColor       =   &H00C0FFFF&
      Height          =   495
      Left            =   120
      TabIndex        =   22
      Top             =   1800
      Width           =   1575
   End
   Begin VB.CheckBox Check4 
      BackColor       =   &H00404040&
      Caption         =   "Bind TCL/SET"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   21
      Top             =   1560
      Width           =   1575
   End
   Begin VB.CheckBox Check3 
      BackColor       =   &H00404040&
      Caption         =   "Share Unlinks"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   20
      Top             =   1320
      Width           =   1575
   End
   Begin VB.TextBox Text9 
      Height          =   285
      Left            =   6240
      TabIndex        =   19
      Top             =   8160
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.TextBox Text8 
      Height          =   285
      Left            =   3240
      TabIndex        =   17
      Top             =   3960
      Width           =   975
   End
   Begin VB.CheckBox Check2 
      BackColor       =   &H00404040&
      Caption         =   "Open Telnets"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   15
      Top             =   1080
      Width           =   1575
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00404040&
      Caption         =   "Protect Telnet"
      ForeColor       =   &H00C0FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   14
      Top             =   840
      Width           =   1575
   End
   Begin VB.TextBox Text7 
      Height          =   285
      Left            =   6480
      TabIndex        =   13
      Top             =   6960
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.TextBox Text6 
      Height          =   285
      Left            =   1680
      TabIndex        =   11
      Top             =   7800
      Width           =   3255
   End
   Begin VB.TextBox Text5 
      Height          =   285
      Left            =   6240
      TabIndex        =   9
      Top             =   7800
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   3720
      TabIndex        =   7
      Top             =   7440
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   3240
      TabIndex        =   5
      Top             =   4320
      Width           =   4215
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   3600
      MaxLength       =   9
      TabIndex        =   3
      Top             =   7080
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   1320
      MaxLength       =   9
      TabIndex        =   2
      Top             =   7080
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      Caption         =   "Have your bot use a virtual host: "
      ForeColor       =   &H0000FF00&
      Height          =   2415
      Left            =   3480
      TabIndex        =   61
      Top             =   600
      Width           =   4815
      Begin VB.TextBox HostName 
         Height          =   285
         Left            =   1080
         TabIndex        =   66
         Top             =   1560
         Width           =   2775
      End
      Begin VB.TextBox IPAddy 
         Height          =   285
         Left            =   1080
         TabIndex        =   63
         Top             =   1920
         Width           =   1695
      End
      Begin VB.Label Label21 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Hostname:"
         ForeColor       =   &H0000FFFF&
         Height          =   255
         Left            =   120
         TabIndex        =   65
         Top             =   1560
         Width           =   855
      End
      Begin VB.Label IPAddress 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "IP Address:"
         ForeColor       =   &H0000FFFF&
         Height          =   255
         Left            =   120
         TabIndex        =   64
         Top             =   1920
         Width           =   855
      End
      Begin VB.Label Label20 
         BackStyle       =   0  'Transparent
         Caption         =   $"advanced.frx":0000
         ForeColor       =   &H00FFC0C0&
         Height          =   1215
         Left            =   120
         TabIndex        =   62
         Top             =   240
         Width           =   3855
      End
   End
   Begin VB.Label Label8 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Ignore for:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   2280
      TabIndex        =   16
      Top             =   3960
      Width           =   855
   End
   Begin VB.Label Label19 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Note File:"
      ForeColor       =   &H0000FFFF&
      Height          =   195
      Left            =   4920
      TabIndex        =   57
      Top             =   9360
      Width           =   735
   End
   Begin VB.Label Label18 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Channel File:"
      ForeColor       =   &H0000FFFF&
      Height          =   195
      Left            =   4680
      TabIndex        =   56
      Top             =   9000
      Width           =   975
   End
   Begin VB.Label Label15 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "User File:"
      ForeColor       =   &H0000FFFF&
      Height          =   195
      Left            =   4920
      TabIndex        =   55
      Top             =   8640
      Width           =   735
   End
   Begin VB.Label Label16 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Network:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Index           =   0
      Left            =   2280
      TabIndex        =   53
      Top             =   3600
      Width           =   855
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "X-Bot 2003 "
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   435
      Left            =   120
      TabIndex        =   52
      Top             =   0
      Width           =   1875
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      X1              =   11160
      X2              =   0
      Y1              =   720
      Y2              =   720
   End
   Begin VB.Label Label13 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "A d v a n c e d   C o n f i g u r a t i o n "
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   210
      Left            =   960
      TabIndex        =   51
      Top             =   360
      Width           =   4620
   End
   Begin VB.Label Label11 
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Servers:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   480
      TabIndex        =   43
      Top             =   8280
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Label Label10 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Real Name:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5280
      TabIndex        =   41
      Top             =   7440
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.Label Label9 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Owner:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5520
      TabIndex        =   18
      Top             =   8160
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Label Label7 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Telnet Port:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5160
      TabIndex        =   12
      Top             =   6960
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Label Label6 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Bot Admin:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   720
      TabIndex        =   10
      Top             =   7800
      Width           =   855
   End
   Begin VB.Label Label5 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Username:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5280
      TabIndex        =   8
      Top             =   7800
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.Label Label4 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Channel:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   2880
      TabIndex        =   6
      Top             =   7440
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Path to Eggdrop:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   1920
      TabIndex        =   4
      Top             =   4320
      Width           =   1215
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Alt. Nick:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   2640
      TabIndex        =   1
      Top             =   7080
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Bot's Nick:"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   7080
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00000080&
      BackStyle       =   1  'Opaque
      Height          =   1230
      Index           =   0
      Left            =   4680
      Top             =   8520
      Width           =   2775
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00800000&
      BackStyle       =   1  'Opaque
      Height          =   1215
      Index           =   1
      Left            =   360
      Top             =   8160
      Visible         =   0   'False
      Width           =   4215
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00404040&
      BackStyle       =   1  'Opaque
      Height          =   2595
      Index           =   2
      Left            =   120
      Top             =   800
      Width           =   3255
   End
End
Attribute VB_Name = "AdvancedConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()
Dim PrevCaption As String
PrevCaption = Command1.Caption
Command1.Enabled = False
Command1.Caption = "Working..."

' Save Config File First
If GlobalUserfile Then
    ProfileSaveItem "Userfiles", "type", "global", App.Path & "\" & Window.lstProfile & ".adv.ini"
Else
    ProfileSaveItem "Userfiles", "type", "local", App.Path & "\" & Window.lstProfile & ".adv.ini"
End If
    
ProfileSaveItem "Checkboxes", "1", Check1.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "2", Check2.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "3", Check3.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "4", Check4.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "5", Check5.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "6", Check6.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "7", Check7.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "8", Check8.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "9", Check9.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "10", Check10.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "11", Check11.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "12", Check12.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "13", Check13.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "14", Check14.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "15", Check15.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "16", Check16.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "17", Check17.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "18", Check18.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "19", Check19.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "20", Check20.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "21", Check21.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "22", Check22.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "23", Check23.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "24", Check24.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"
ProfileSaveItem "Checkboxes", "25", Check25.Value, App.Path & "\" & Window.lstProfile & ".adv.ini"

HostName.Text = Trim(HostName.Text)
ProfileSaveItem "Textboxes", "hostname", HostName.Text, App.Path & "\" & Window.lstProfile & ".adv.ini"

IPAddy.Text = Trim(IPAddy.Text)
ProfileSaveItem "Textboxes", "ipaddy", IPAddy.Text, App.Path & "\" & Window.lstProfile & ".adv.ini"

cboNetwork.Text = Trim(cboNetwork.Text)
ProfileSaveItem "Textboxes", "network", cboNetwork.Text, App.Path & "\" & Window.lstProfile & ".adv.ini"

Text3.Text = Trim(Text3.Text)
ProfileSaveItem "Textboxes", "3", Text3.Text, App.Path & "\" & Window.lstProfile & ".adv.ini"

Text8.Text = Trim(Text8.Text)
ProfileSaveItem "Textboxes", "8", Text8.Text, App.Path & "\" & Window.lstProfile & ".adv.ini"

Text7.Text = Trim(Text7.Text)
ProfileSaveItem "Textboxes", "7", Text7.Text, App.Path & "\" & Window.lstProfile & ".adv.ini"

' Saving actual eggdrop.conf file

Open App.Path & "\" & Window.lstProfile & ".adv.conf" For Output As #1
Print #1, ("#! " + Text3.Text)
Print #1, ("set username " + Chr(34) + Text5.Text + Chr(34))
Print #1, ("set admin " + Chr(34) + Text9.Text + Chr(34))
Print #1, ("set network " + Chr(34) + cboNetwork + Chr(34))
Print #1, ("set timezone " + Chr(34) + "EST" + Chr(34))

' Added for vHosts
Print #1, ("set my-hostname " + Chr(34) + HostName + Chr(34))
Print #1, ("set my-ip " + Chr(34) + IPAddress + Chr(34))

Print #1, "set max-logs 5"
Print #1, "set max-logsize 0"
Print #1, "set quick-logs 0"
Print #1, ("logfile mco * " + Chr(34) + "eggdrop.log" + Chr(34))
Print #1, ("logfile jk #lamest " + Chr(34) + "lamest.log" + Chr(34))
Print #1, "set log-time 1"
Print #1, "set keep-all-logs 0"
Print #1, "set switch-logfiles-at 300"
Print #1, "set quiet-save 0"
Print #1, ("set console " + Chr(34) + "mkcobxs" + Chr(34))
If Trim(UsrFile) = "" Then
    Print #1, ("set userfile " + Chr(34) + "LamestBot.user" + Chr(34))
Else
    Print #1, ("set userfile " + Chr(34) + UsrFile + Chr(34))
End If
Print #1, "set sort-users 0"
Print #1, ("set help-path " + Chr(34) + "help/" + Chr(34))
Print #1, ("set temp-path " + Chr(34) + "/tmp" + Chr(34))
Print #1, ("set motd " + Chr(34) + "motd" + Chr(34))
Print #1, ("set telnet-banner " + Chr(34) + "telnet-banner" + Chr(34))
Print #1, ("listen " + Text7.Text + " all")
If Check1.Value = 1 Then Print #1, "set protect-telnet 1"
If Check1.Value = 0 Then Print #1, "set protect-telnet 0"
Print #1, "set dcc-sanitycheck 0"
Print #1, "set ident-timeout 5"
Print #1, "set require-p 0"
If Check2.Value = 1 Then Print #1, "set open-telnet 1"
If Check2.Value = 0 Then Print #1, "set open-telnet 0"
Print #1, "set stealth-telnets 0"
Print #1, "set use-telnet-banner 0"
Print #1, "set connect-timeout 15"
Print #1, "set dcc-flood-thr 3"
Print #1, "set telnet-flood 5:60"
Print #1, "set paranoid-telnet-flood 1"
Print #1, "set resolve-timeout 15"
Print #1, "set ignore-time 15"
Print #1, "set hourly-updates 00"
Print #1, ("set owner " + Chr(34) + Text9.Text + Chr(34))
Print #1, ("set notify-newusers " + Chr(34) + "$owner" + Chr(34))
Print #1, ("set default-flags " + Chr(34) + "hp" + Chr(34))
Print #1, ("set whois-fields " + Chr(34) + "url birthday" + Chr(34))
Print #1, "set remote-boots 2"
If Check3.Value = 1 Then Print #1, "set share-unlinks 1"
If Check3.Value = 0 Then Print #1, "set share-unlinks 0"
Print #1, "set die-on-sighup 0"
Print #1, "set die-on-sigterm 0"
If Check4.Value = 0 Then Print #1, "unbind dcc n tcl *dcc:tcl"
If Check4.Value = 1 Then Print #1, "bind dcc n tcl *dcc:tcl"
If Check4.Value = 0 Then Print #1, "unbind dcc n set *dcc:set"
If Check4.Value = 1 Then Print #1, "bind dcc n tcl *dcc:set"
If Check5.Value = 1 Then Print #1, "set must-be-owner 1"
If Check5.Value = 1 Then Print #1, "set must-be-owner 0"
If Check6.Value = 1 Then Print #1, "bind dcc n simul *dcc:simul"
If Check6.Value = 0 Then Print #1, "unbind dcc n simul *dcc:simul"
Print #1, "set max-dcc 50"
Print #1, "set dcc-portrange 1024:65535"
Print #1, "set enable-simul 1"
Print #1, "set allow-dk-cmds 1"
Print #1, ("set mod-path " + Chr(34) + "modules/" + Chr(34))
Print #1, "loadmodule channels"

If Trim(ChanFile) = "" Then
    Print #1, ("set chanfile " + Chr(34) + "LamestBot.chan" + Chr(34))
Else
    Print #1, ("set chanfile " + Chr(34) + ChanFile + Chr(34))
End If
Print #1, "set ban-time 120"
Print #1, "set exempt-time 60"
Print #1, "set invite-time 60"
If Check7.Value = 1 Then Print #1, "set share-greet 1"
If Check7.Value = 1 Then Print #1, "set share-greet 0"
If Check8.Value = 1 Then Print #1, "set use-info 1"
If Check8.Value = 0 Then Print #1, "set use-info 0"
Print #1, "set global-flood-chan 10:60"
Print #1, "set global-flood-deop 3:10"
Print #1, "set global-flood-kick 3:10"
Print #1, "set global-flood-join 5:60"
Print #1, "set global-flood-ctcp 3:60"
Print #1, "set global-chanset {"
Print #1, "        -clearbans      -enforcebans"
Print #1, "        +dynamicbans    +userbans"
Print #1, "        -autoop         -bitch"
Print #1, "        +greet          +protectops"
Print #1, "        +statuslog      +stopnethack"
Print #1, "        -revenge        -secret"
Print #1, "        -autovoice      +cycle"
Print #1, "        +dontkickops    -wasoptest"
Print #1, "        -inactive       -protectfriends"
Print #1, "        +shared         -seen"
Print #1, " +userexempts    +dynamicexempts"
Print #1, " +userinvites    +dynamicinvites"
Print #1, "}"
Print #1, ("set global-chanmode " + Chr(34) + "nt" + Chr(34))
Print #1, ("channel add " + Text4.Text + " {")
Print #1, ("  chanmode " + Chr(34) + "+nt-likm" + Chr(34))
Print #1, "  idle-kick 0"

' Remmed on suggestion by Intel
'Print #1, ("  need-op { putserv " + Chr(34) + "PRIVMSG " + Text4.Text + " :op me cos i'm lame!" + Chr(34) + " }")
'Print #1, ("  need-invite { putserv " + Chr(34) + "PRIVMSG " + Text4.Text + " :let me in!" + Chr(34) + " }")
'Print #1, ("  need-key { putserv " + Chr(34) + "PRIVMSG " + Text4.Text + ":let me in!" + Chr(34) + " }")
'Print #1, ("  need-unban { putserv " + Chr(34) + "PRIVMSG " + Text4.Text + " :let me in!" + Chr(34) + " }")
'Print #1, ("  need-limit { putserv " + Chr(34) + "PRIVMSG " + Text4.Text + " :let me in!" + Chr(34) + " }")

Print #1, "  flood-chan 10:60"
Print #1, "  flood-deop 3:10"
Print #1, "  flood-kick 3:10"
Print #1, "  flood-join 5:60"
Print #1, "  flood-ctcp 3:60"
Print #1, "}"
If Check9.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +clearbans")
If Check9.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -clearbans")
If Check10.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +enforcebans")
If Check10.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +enforcebans")
If Check11.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +dynamicbans")
If Check11.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -dynamicbans")
If Check12.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +userbans")
If Check12.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -userbans")
Print #1, ("channel set " + Text4.Text + " +dynamicexempts")
Print #1, ("channel set " + Text4.Text + " +userexempts")
Print #1, ("channel set " + Text4.Text + " +dynamicinvites")
Print #1, ("channel set " + Text4.Text + " +userinvites")
If Check13.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +autoop")
If Check13.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -autoop")
If Check14.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +bitch")
If Check14.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -bitch")
If Check15.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +greet")
If Check15.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -greet")
If Check16.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +protectops")
If Check16.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -protectops")
If Check17.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +protectfriends")
If Check17.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -protectfriends")
Print #1, ("channel set " + Text4.Text + " -statuslog")
If Check18.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +stopnethack")
If Check18.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -stopnethack")
If Check19.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +revenge")
If Check19.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -revenge")
If Check20.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +autovoice")
If Check20.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -autovoice")
Print #1, ("channel set " + Text4.Text + " -secret")
If Check21.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +shared")
If Check21.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -shared")
If Check22.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +cycle")
If Check22.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -cycle")
If Check23.Value = 1 Then Print #1, ("channel set " + Text4.Text + " +dontkickops")
If Check23.Value = 0 Then Print #1, ("channel set " + Text4.Text + " -dontkickops")
Print #1, ("channel set " + Text4.Text + " -wasoptest")
Print #1, ("channel set " + Text4.Text + " -inactive")
Print #1, ("channel set " + Text4.Text + " -seen")
Print #1, "loadmodule server"
Print #1, "set net-type 0"
Print #1, ("set nick " + Chr(34) + Text1.Text + Chr(34))

' added
Print #1, ("set botnet-nick " + Chr(34) + Text1.Text + Chr(34))

Print #1, ("set altnick " + Chr(34) + Text2.Text + Chr(34))
Print #1, ("set realname " + Chr(34) + Text10.Text + Chr(34))
Print #1, ("set init-server { putserv " + Chr(34) + "MODE $botnick +i-xws" + Chr(34) + " }")
Print #1, "set servers {"
Print #1, Text11.Text
Print #1, Text12.Text
Print #1, Text13.Text
Print #1, "}"
Print #1, "set keep-nick 1"
Print #1, "set use-ison 1"
Print #1, "set strict-host 0"
Print #1, "set quiet-reject 1"
Print #1, "set lowercase-ctcp 0"
Print #1, "set answer-ctcp 3"
Print #1, "set flood-ctcp 3:60"
Print #1, "set never-give-up 1"
Print #1, "set strict-servernames 0"
Print #1, "set default-port 6667"
Print #1, "set server-cycle-wait 60"
Print #1, "set server-timeout 15"
Print #1, "set servlimit 0"
Print #1, "set check-stoned 1"
Print #1, "set use-console-r 0"
Print #1, "set debug-output 0"
Print #1, "set serverror-quit 1"
Print #1, "set max-queue-msg 300"
Print #1, "set trigger-on-ignore 0"
Print #1, "set double-mode 0"
Print #1, "set double-server 0"
Print #1, "set double-help 0"
Print #1, "loadmodule ctcp"
Print #1, "set ctcp-mode 0"
Print #1, "loadmodule irc"
Print #1, "set bounce-bans 1"
Print #1, "set bounce-modes 0"
Print #1, "set kick-bogus-bans 1"
Print #1, "set bounce-bogus-bans 1"
Print #1, "set max-bans 20"
Print #1, "set max-modes 30"
Print #1, "set allow-desync 1"
Print #1, "set kick-bogus 0"
If Check24.Value = 1 Then Print #1, "set ban-bogus 1"
If Check24.Value = 0 Then Print #1, "set ban-bogus 0"
Print #1, "set kick-fun 0"
Print #1, "set ban-fun 0"
If Check25.Value = 1 Then Print #1, "set learn-users 1"
If Check25.Value = 0 Then Print #1, "set learn-users 0"
Print #1, "set wait-split 600"
Print #1, "set wait-info 180"
Print #1, "set mode-buf-length 200"
Print #1, "#unbind msg - hello *msg:hello"

' Remmed on request of intel
'Print #1, "#bind msg - myword *msg:hello"
'Print #1, "unbind msg - ident *msg:ident"
'Print #1, "unbind msg - addhost *msg:addhost"
'Print #1, "#bind msg - myidentword *msg:ident"

Print #1, "set no-chanrec-info 0"
Print #1, "set revenge-mode 1"
Print #1, "set bounce-exempts 0"
Print #1, "set bounce-invites 0"
Print #1, "set max-exempts 20"
Print #1, "set max-invites 20"
Print #1, "set bounce-bogus-exempts 0"
Print #1, "set kick-bogus-exempts 0"
Print #1, "set bounce-bogus-invites 0"
Print #1, "set kick-bogus-invites 0"
Print #1, "set prevent-mixing 1"
Print #1, "set kick-method 1"
Print #1, "set modes-per-line 3"
Print #1, "loadmodule transfer"
Print #1, "set max-dloads 3"
Print #1, "set dcc-block 1024"
Print #1, "set copy-to-tmp 1"
Print #1, "set xfer-timeout 30"
Print #1, "loadmodule share"
Print #1, ("set files-path " + Chr(34) + "/home/mydir/filesys" + Chr(34))
Print #1, ("set incoming-path " + Chr(34) + "/home/mydir/filesys/incoming" + Chr(34))
Print #1, "set upload-to-pwd 0"
Print #1, ("set filedb-path " + Chr(34) + Chr(34))
Print #1, "set max-file-users 20"
Print #1, "set max-filesize 1024"
Print #1, "loadmodule notes"
If Trim(NoteFile) = "" Then
    Print #1, ("set notefile " + Chr(34) + "LamestBot.notes" + Chr(34))
Else
    Print #1, ("set notefile " + Chr(34) + NoteFile + Chr(34))
End If
Print #1, "set max-notes 50"
Print #1, "set note-life 60"
Print #1, "set allow-fwd 0"
Print #1, "set notify-users 1"
Print #1, "set notify-onjoin 1"
Print #1, "loadmodule console"
Print #1, "set console-autosave 1"
Print #1, "set force-channel 0"
Print #1, "set info-party 0"
Print #1, "loadmodule seen"
Print #1, "checkmodule blowfish"
Print #1, "loadmodule assoc"
Print #1, "loadmodule wire"
Print #1, "source scripts/alltools.tcl"
Print #1, "source scripts/action.fix.tcl"
Print #1, "source scripts/userinfo1.0.tcl"
Print #1, "loadhelp userinfo.help"
Close #1

Command1.Caption = PrevCaption
Command1.Enabled = True

MsgBox "Your advanced eggdrop configuration has been built successfully but will not be used the next time you compile the bot named '" & Window.lstProfile & "' since that feature has not been programmed yet.", vbInformation, App.ProductName

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Dim Confirm As String

Confirm = MsgBox("Are you sure you want to discard all changes made since the last time you saved?", vbYesNoCancel + vbQuestion, "Revert to Previously Saved Settings")
If Confirm = vbCancel Then Exit Sub
If Confirm = vbNo Then Exit Sub


Dim PrevCaption As String
PrevCaption = Command3.Caption
Command3.Enabled = False
Command3.Caption = "Working..."

If ProfileGetItem("Userfiles", "type", "global", App.Path & "\" & Window.lstProfile & ".adv.ini") = "global" Then
    GlobalUserfile.Value = True
    LocalUserfile.Value = False
Else
    LocalUserfile.Value = True
    GlobalUserfile.Value = False
End If

Check1.Value = ProfileGetItem("Checkboxes", "1", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check2.Value = ProfileGetItem("Checkboxes", "2", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check3.Value = ProfileGetItem("Checkboxes", "3", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check4.Value = ProfileGetItem("Checkboxes", "4", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check5.Value = ProfileGetItem("Checkboxes", "5", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check6.Value = ProfileGetItem("Checkboxes", "6", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check7.Value = ProfileGetItem("Checkboxes", "7", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check8.Value = ProfileGetItem("Checkboxes", "8", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check9.Value = ProfileGetItem("Checkboxes", "9", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check10.Value = ProfileGetItem("Checkboxes", "10", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check11.Value = ProfileGetItem("Checkboxes", "11", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check12.Value = ProfileGetItem("Checkboxes", "12", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check13.Value = ProfileGetItem("Checkboxes", "13", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check14.Value = ProfileGetItem("Checkboxes", "14", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check15.Value = ProfileGetItem("Checkboxes", "15", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check16.Value = ProfileGetItem("Checkboxes", "16", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check17.Value = ProfileGetItem("Checkboxes", "17", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check18.Value = ProfileGetItem("Checkboxes", "18", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check19.Value = ProfileGetItem("Checkboxes", "19", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check20.Value = ProfileGetItem("Checkboxes", "20", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check21.Value = ProfileGetItem("Checkboxes", "21", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check22.Value = ProfileGetItem("Checkboxes", "22", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check23.Value = ProfileGetItem("Checkboxes", "23", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check24.Value = ProfileGetItem("Checkboxes", "24", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")
Check25.Value = ProfileGetItem("Checkboxes", "25", 0, App.Path & "\" & Window.lstProfile & ".adv.ini")


HostName.Text = ProfileGetItem("Textboxes", "hostname", "", App.Path & "\" & Window.lstProfile & ".adv.ini")
IPAddy.Text = ProfileGetItem("Textboxes", "ipaddy", "", App.Path & "\" & Window.lstProfile & ".adv.ini")
cboNetwork.Text = ProfileGetItem("Textboxes", "network", "", App.Path & "\" & Window.lstProfile & ".adv.ini")
Text3.Text = ProfileGetItem("Textboxes", "3", "", App.Path & "\" & Window.lstProfile & ".adv.ini")
Text8.Text = ProfileGetItem("Textboxes", "8", "", App.Path & "\" & Window.lstProfile & ".adv.ini")
Text7.Text = ProfileGetItem("Textboxes", "7", "", App.Path & "\" & Window.lstProfile & ".adv.ini")

Command3.Enabled = True
Command3.Caption = PrevCaption

End Sub

Private Sub Command4_Click()
About.Homepage = "http://www.otbn.org"
Load About
End Sub

Private Sub Form_Load()
Window.Visible = False

'cboNetwork.AddItem "ChatNet"
'cboNetwork.AddItem "DalNet"
'cboNetwork.AddItem "UnderNet"
'cboNetwork.AddItem "EFNet"
'cboNetwork.AddItem "IRCNet"
'cboNetwork.AddItem "Other"

   ' Me.Top = (Screen.Height - Me.Height) / 2
  '  Me.Left = (Screen.Width - Me.Width) / 2
 '   Me.Caption = App.ProductName & " - Eggdrop 1.3.x/1.4.x Configuration"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Window.Visible = True
Unload Me
End Sub

Private Sub Image1_Click()
 Dim iret As Long
 iret = ShellExecute(Me.hWnd, _
    vbNullString, _
    "http://www.ottech.org", _
    vbNullString, _
    "c:\", _
    SW_SHOWNORMAL)
End Sub


Private Sub Label12_Click()
 Dim iret As Long
 iret = ShellExecute(Me.hWnd, _
    vbNullString, _
    "http://www.otbn.org", _
    vbNullString, _
    "c:\", _
    SW_SHOWNORMAL)
End Sub


Private Sub Label13_Click()
 Dim iret As Long
 iret = ShellExecute(Me.hWnd, _
    vbNullString, _
    "http://www.otbn.org", _
    vbNullString, _
    "c:\", _
    SW_SHOWNORMAL)
End Sub


Private Sub Text14_Change()

End Sub