From 534fb5f54bf16f0118c607d7ac23570fb110063a Mon Sep 17 00:00:00 2001 From: Brielle Date: Mon, 11 Dec 2017 22:23:06 -0700 Subject: [PATCH] Import archive --- README.md | 0 epic4-noncygwin-configure.sh | 12 + epic4-noncygwin-install.sh | 46 ++ epic4.nsi | 72 +++ epic5-noncygwin-configure.sh | 13 + epic5-noncygwin-install.sh | 46 ++ epic5.nsi | 72 +++ menu-v2.0.2.bas | 957 +++++++++++++++++++++++++++++++++++ 8 files changed, 1218 insertions(+) create mode 100644 README.md create mode 100644 epic4-noncygwin-configure.sh create mode 100644 epic4-noncygwin-install.sh create mode 100644 epic4.nsi create mode 100644 epic5-noncygwin-configure.sh create mode 100644 epic5-noncygwin-install.sh create mode 100644 epic5.nsi create mode 100644 menu-v2.0.2.bas diff --git a/README.md b/README.md new file mode 100644 index 0000000..e69de29 diff --git a/epic4-noncygwin-configure.sh b/epic4-noncygwin-configure.sh new file mode 100644 index 0000000..8263e44 --- /dev/null +++ b/epic4-noncygwin-configure.sh @@ -0,0 +1,12 @@ +#!/bin/bash +export CFLAGS="-O2 -march=pentium -mtune=pentium4 -DFD_SETSIZE=2048 \ + -fno-strict-aliasing -fomit-frame-pointer -pipe" +export LDFLAGS="-Wl,--enable-auto-image-base \ + -Wl,--enable-runtime-pseudo-reloc -s" + +export CC="ccache gcc" +#make distclean +../configure --prefix=/cygdrive/c/epic4 \ + --cache-file=/usr/src/config-cache/epic4-cache \ + --with-ssl --without-perl --without-tcl --with-ipv6 \ + --disable-dependency-tracking diff --git a/epic4-noncygwin-install.sh b/epic4-noncygwin-install.sh new file mode 100644 index 0000000..d87b559 --- /dev/null +++ b/epic4-noncygwin-install.sh @@ -0,0 +1,46 @@ +#!/bin/bash +mkdir /cygdrive/c/epic4 +mkdir /cygdrive/c/epic4/bin +mkdir /cygdrive/c/epic4/libexec +mkdir -p /cygdrive/c/epic4/terminfo/x +mkdir /cygdrive/c/epic4/docs +mkdir -p /cygdrive/c/epic4/share/epic +mkdir -p /cygdrive/c/epic4/share/epic/script +mkdir -p /cygdrive/c/epic4/sosdg +cp -f source/epic.exe /cygdrive/c/epic4/bin/epic.exe +cp -f source/wserv4.exe /cygdrive/c/epic4/libexec/wserv4.exe +cp -f /bin/cygwin1.dll /cygdrive/c/epic4/bin/cygwin1.dll +cp -f /bin/cygssl-0.9.8.dll /cygdrive/c/epic4/bin/ +cp -f /bin/cygcrypto-0.9.8.dll /cygdrive/c/epic4/bin/ +cp -f /bin/cygcrypt-0.dll /cygdrive/c/epic4/bin/ +cp -f /bin/cygncurses-8.dll /cygdrive/c/epic4/bin/cygncurses-8.dll +cp -f /bin/libW11.dll /cygdrive/c/epic4/bin/libW11.dll +cp -f /bin/rxvt.exe /cygdrive/c/epic4/bin/rxvt.exe +cp -f /usr/share/terminfo/x/xterm /cygdrive/c/epic4/terminfo/x/xterm +cp -f /usr/share/terminfo/c/cygwin /cygdrive/c/epic4/terminfo/c/cygwin +strip /cygdrive/c/epic4/bin/*.exe +strip /cygdrive/c/epic4/libexec/*.exe + + +mount -t C:/epic4 /mnt/epic4 +cp -f epic4-noncygwin-install.sh epic4-noncygwin-configure.sh "C:/installer scripts/epic4.nsi" /mnt/epic4/sosdg/ +DOCFILES="Readme Bug_form KNOWNBUGS COPYRIGHT Votes" +cd ../ +for i in $DOCFILES; do + echo "Converting $i..." + rm -f /mnt/epic4/docs/$i + awk 1 $i > /mnt/epic4/docs/$i +done +cp -fr doc/* /mnt/epic4/docs +mv /cygdrive/c/epic4/docs/Readme /cygdrive/c/epic4/docs/readme-unix.txt +rm -fr /cygdrive/c/epic4/share/epic/help /cygdrive/c/epic4/share/epic/script +mkdir /cygdrive/c/epic4/share/epic/script +cp -fr help /mnt/epic4/share/epic/ +cp -fr script/* /mnt/epic4/share/epic/script/ +umount /mnt/epic4 +cd /cygdrive/c/epic4 +find /cygdrive/c/epic4 -name CVS | xargs rm -frv +find /cygdrive/c/epic4 -name cvs | xargs rm -frv +find $CLAMAV -name ".cvsignore" | xargs rm -frv +find $CLAMAV -name ".\#*" | xargs rm -frv +chown -R Administrators:Users /cygdrive/c/epic4 diff --git a/epic4.nsi b/epic4.nsi new file mode 100644 index 0000000..371e5e8 --- /dev/null +++ b/epic4.nsi @@ -0,0 +1,72 @@ +;Title Of Your Application +Name "ircII EPIC4 For Windows 2.6 Build 238" +CompletedText "You have successfully installed ircII EPIC4 for Windows. Enjoy!" + +CRCCheck On +SetCompress Auto +SetCompressor lzma +SetOverwrite IfNewer +SetDatablockOptimize on + +;Output File Name +OutFile "installers\epic4-installer-2.6-build238.exe" + +;License Page Introduction +LicenseText "Please read the following license information before using this program:" + +;License Data +LicenseData "C:\epic4\docs\copyright.txt" + +;The Default Installation Directory +InstallDir "C:\epic4" + +;The text to prompt the user to enter a directory +DirText "Please select the folder below you wish to install to. Do not change it unless you absolutely need to." + +Section "Install" + ;Install Files + SetOutPath $INSTDIR + SetCompress Auto + SetOverwrite IfNewer + File /r "C:\epic4\bin" + File /r "C:\epic4\libexec" + File /r "C:\epic4\share" + File /r "C:\epic4\docs" + File /r "C:\epic4\terminfo" + File /r "C:\epic4\identd" + File "C:\epic4\ircservers.txt" + File "C:\epic4\menu.exe" + + + ; Write the uninstall keys for Windows + WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII EPIC4 For Windows" "DisplayName" "ircII EPIC4 For Windows (remove only)" + WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII EPIC4 For Windows" "UninstallString" "$INSTDIR\Uninst.exe" +WriteUninstaller "Uninst.exe" +SectionEnd + +Section "Shortcuts" + ;Add Shortcuts + CreateDirectory "$SMPROGRAMS\ircII EPIC4" + CreateShortCut "$SMPROGRAMS\ircII EPIC4\Uninstall.lnk" "$INSTDIR\uninst.exe" "" "$INSTDIR\uninst.exe" 0 + CreateShortCut "$SMPROGRAMS\ircII EPIC4\ircII EPIC4.lnk" "$INSTDIR\menu.exe" "" "$INSTDIR\menu.exe" 0 + CreateShortCut "$SMPROGRAMS\ircII EPIC4\ircII EPIC4 License.lnk" "$INSTDIR\docs\copyright.txt" "" "$INSTDIR\docs\copyright.txt" 0 + CreateShortCut "$SMPROGRAMS\ircII EPIC4\Identd Daemon.lnk" "$INSTDIR\identd\identd_win32.exe" "" $INSTDIR\identd\identd_win32.exe" 0 + CreateShortCut "$SMPROGRAMS\ircII EPIC4\Identd Source Code.lnk" "$INSTDIR\identd\src" "" "$INSTDIR\identd\src" 0 + CreateShortCut "$SMPROGRAMS\ircII EPIC4\Identd License.lnk" "$INSTDIR\identd\license.rtf" "" "$INSTDIR\identd\license.rtf" 0 +SectionEnd + +UninstallText "This will uninstall ircII EPIC4 from your system" + +Section Uninstall + ;Delete Files + RMDir /r "$INSTDIR" + + ; Additional Files To Remove During Uninstall + RMDir /r "$SMPROGRAMS\ircII EPIC4" + + ;Delete Uninstaller And Unistall Registry Entries + Delete "$INSTDIR\Uninst.exe" + DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\ircII EPIC4 For Windows" + DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ircII EPIC4 For Windows" + RMDir "$INSTDIR" +SectionEnd \ No newline at end of file diff --git a/epic5-noncygwin-configure.sh b/epic5-noncygwin-configure.sh new file mode 100644 index 0000000..0dbcdbb --- /dev/null +++ b/epic5-noncygwin-configure.sh @@ -0,0 +1,13 @@ +#!/bin/bash +export CFLAGS="-O2 -march=pentium -mtune=pentium4 -DFD_SETSIZE=2048 \ + -fno-strict-aliasing -fomit-frame-pointer -pipe" +export LDFLAGS="-Wl,--enable-auto-image-base \ + -Wl,--enable-runtime-pseudo-reloc -s" + +export CC="ccache gcc" +#make distclean +../configure --prefix=/cygdrive/c/epic5 \ + --cache-file=/usr/src/config-cache/epic5-cache \ + --with-ssl --without-perl --without-tcl --with-ipv6 \ + --disable-dependency-tracking +cp sig.inc source/ diff --git a/epic5-noncygwin-install.sh b/epic5-noncygwin-install.sh new file mode 100644 index 0000000..3f6b6f4 --- /dev/null +++ b/epic5-noncygwin-install.sh @@ -0,0 +1,46 @@ +#!/bin/bash +mkdir /cygdrive/c/epic5 +mkdir /cygdrive/c/epic5/bin +mkdir /cygdrive/c/epic5/libexec +mkdir -p /cygdrive/c/epic5/terminfo/x +mkdir /cygdrive/c/epic5/docs +mkdir -p /cygdrive/c/epic5/share/epic5 +mkdir -p /cygdrive/c/epic5/share/epic5/script +mkdir -p /cygdrive/c/epic5/sosdg +cp -f source/epic5.exe /cygdrive/c/epic5/bin/epic.exe +cp -f source/wserv4.exe /cygdrive/c/epic5/libexec/wserv4.exe +cp -f /bin/cygwin1.dll /cygdrive/c/epic5/bin/cygwin1.dll +cp -f /bin/cygssl-0.9.8.dll /cygdrive/c/epic5/bin/ +cp -f /bin/cygcrypto-0.9.8.dll /cygdrive/c/epic5/bin/ +cp -f /bin/cygcrypt-0.dll /cygdrive/c/epic5/bin/ +cp -f /bin/cygncurses-8.dll /cygdrive/c/epic5/bin/cygncurses-8.dll +cp -f /bin/libW11.dll /cygdrive/c/epic5/bin/libW11.dll +cp -f /bin/rxvt.exe /cygdrive/c/epic5/bin/rxvt.exe +cp -f /usr/share/terminfo/x/xterm /cygdrive/c/epic5/terminfo/x/xterm +cp -f /usr/share/terminfo/c/cygwin /cygdrive/c/epic5/terminfo/c/cygwin +strip /cygdrive/c/epic5/bin/*.exe +strip /cygdrive/c/epic5/libexec/*.exe + + +mount -t C:/epic5 /mnt/epic5 +cp -f epic5-noncygwin-install.sh epic5-noncygwin-configure.sh "C:/installer scripts/epic5.nsi" /mnt/epic5/sosdg/ +DOCFILES="Readme Bug_form KNOWNBUGS COPYRIGHT Votes" +cd ../ +for i in $DOCFILES; do + echo "Converting $i..." + rm -f /mnt/epic5/docs/$i + awk 1 $i > /mnt/epic5/docs/$i +done +cp -fr doc/* /mnt/epic5/docs +mv /cygdrive/c/epic5/docs/Readme /cygdrive/c/epic5/docs/readme-unix.txt +rm -fr /cygdrive/c/epic5/share/epic5/help /cygdrive/c/epic5/share5/epic/script +mkdir /cygdrive/c/epic5/share/epic5/script +cp -fr /usr/src/epic4-noncygwin/help /mnt/epic5/share/epic5/ +cp -fr script/* /mnt/epic5/share/epic5/script/ +umount /mnt/epic5 +cd /cygdrive/c/epic5 +find /cygdrive/c/epic5 -name CVS | xargs rm -frv +find /cygdrive/c/epic5 -name cvs | xargs rm -frv +find $CLAMAV -name ".cvsignore" | xargs rm -frv +find $CLAMAV -name ".\#*" | xargs rm -frv +chown -R Administrators:Users /cygdrive/c/epic5 diff --git a/epic5.nsi b/epic5.nsi new file mode 100644 index 0000000..972cbc9 --- /dev/null +++ b/epic5.nsi @@ -0,0 +1,72 @@ +;Title Of Your Application +Name "ircII EPIC5 For Windows 0.3.2 Build 4" +CompletedText "You have successfully installed ircII EPIC5 for Windows. Enjoy!" + +CRCCheck On +SetCompress Auto +SetCompressor lzma +SetOverwrite IfNewer +SetDatablockOptimize on + +;Output File Name +OutFile "installers\epic5-installer-0.3.2-build4.exe" + +;License Page Introduction +LicenseText "Please read the following license information before using this program:" + +;License Data +LicenseData "C:\epic5\docs\copyright.txt" + +;The Default Installation Directory +InstallDir "C:\epic5" + +;The text to prompt the user to enter a directory +DirText "Please select the folder below you wish to install to. Do not change it unless you absolutely need to." + +Section "Install" + ;Install Files + SetOutPath $INSTDIR + SetCompress Auto + SetOverwrite IfNewer + File /r "C:\epic5\bin" + File /r "C:\epic5\libexec" + File /r "C:\epic5\share" + File /r "C:\epic5\docs" + File /r "C:\epic5\terminfo" + File /r "C:\epic5\identd" + File "C:\epic5\ircservers.txt" + File "C:\epic5\menu.exe" + + + ; Write the uninstall keys for Windows + WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII epic5 For Windows" "DisplayName" "ircII epic5 For Windows (remove only)" + WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ircII epic5 For Windows" "UninstallString" "$INSTDIR\Uninst.exe" +WriteUninstaller "Uninst.exe" +SectionEnd + +Section "Shortcuts" + ;Add Shortcuts + CreateDirectory "$SMPROGRAMS\ircII epic5" + CreateShortCut "$SMPROGRAMS\ircII epic5\Uninstall.lnk" "$INSTDIR\uninst.exe" "" "$INSTDIR\uninst.exe" 0 + CreateShortCut "$SMPROGRAMS\ircII epic5\ircII epic5.lnk" "$INSTDIR\menu.exe" "" "$INSTDIR\menu.exe" 0 + CreateShortCut "$SMPROGRAMS\ircII epic5\ircII epic5 License.lnk" "$INSTDIR\docs\copyright.txt" "" "$INSTDIR\docs\copyright.txt" 0 + CreateShortCut "$SMPROGRAMS\ircII epic5\Identd Daemon.lnk" "$INSTDIR\identd\identd_win32.exe" "" $INSTDIR\identd\identd_win32.exe" 0 + CreateShortCut "$SMPROGRAMS\ircII epic5\Identd Source Code.lnk" "$INSTDIR\identd\src" "" "$INSTDIR\identd\src" 0 + CreateShortCut "$SMPROGRAMS\ircII epic5\Identd License.lnk" "$INSTDIR\identd\license.rtf" "" "$INSTDIR\identd\license.rtf" 0 +SectionEnd + +UninstallText "This will uninstall ircII epic5 from your system" + +Section Uninstall + ;Delete Files + RMDir /r "$INSTDIR" + + ; Additional Files To Remove During Uninstall + RMDir /r "$SMPROGRAMS\ircII epic5" + + ;Delete Uninstaller And Unistall Registry Entries + Delete "$INSTDIR\Uninst.exe" + DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\ircII epic5 For Windows" + DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ircII epic5 For Windows" + RMDir "$INSTDIR" +SectionEnd \ No newline at end of file diff --git a/menu-v2.0.2.bas b/menu-v2.0.2.bas new file mode 100644 index 0000000..9a964e4 --- /dev/null +++ b/menu-v2.0.2.bas @@ -0,0 +1,957 @@ +' SOSDG Menu Application +' Copyright (c) 2002-2004 Brian Bruns +' Copyright (c) 2002-2004 The Summit Open Source Development Group / Administrative Team - http://www.2mbit.com +' All Rights Reserved +' +' URL: http://www.2mbit.com/software.html +' Build: 2.0.2 +' License: See Below +' Source: YES (e-mail bruns@2mbit.com for more info and latest version) +' Notes: +' +'* Redistribution and use in source and binary forms, with or without +'* modification, are permitted provided that the following conditions +'* are met: +'* 1. Redistributions of source code must retain the above copyright +'* notice, this list of conditions and the following disclaimer. +'* 2. Redistributions in binary form must reproduce the above copyright +'* notices, the above paragraph (the one permitting redistribution), +'* this list of conditions and the following disclaimer in the +'* documentation and/or other materials provided with the distribution. +'* 3. The names of the author(s) may not be used to endorse or promote +'* products derived from this software without specific prior written +'* permission. +'* +'* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR +'* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES +'* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. +'* IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, +'* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, +'* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; +'* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED +'* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +'* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +'* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +'* SUCH DAMAGE. + +' VERSION HISTORY +' 1.0 - Development, initial test version +' 1.2 - Limited testing +' 1.3 - Bug fixing stage 1 +' 1.4 - Bug fixing stage 2 +' 1.5 - Bug fixing state 3 +' 1.6 - Solid stable public version used in builds prior to Dec 16th 2002 +' 1.7 - Testing INI config file +' 1.8 - Solid stable public version using INI file, changed server listing slightly, bug fixes, +' disabled the Real Name field (still not implemented properly, why get users hopes up?), +' and removed cruft from old builds that I left in for my own reference. +' 1.9 - See version.txt from the ircii epic4 installer, or check the website + +$OPTIMIZE ON + +$INCLUDE "RAPIDQ.INC" +' RQ INI File Support - Contact: StarBase12@OneBox.com +$INCLUDE "QLibrary.inc" + + + + +$TYPECHECK OFF +$ESCAPECHARS OFF + + +APPLICATION.TITLE = "ircII EPIC4" + +DECLARE SUB NickClick +DECLARE SUB FullNameClick +DECLARE SUB UserNameClick +DECLARE SUB ServerNameClick +DECLARE SUB SaveOptToDisk +DECLARE SUB AboutMenuShow +DECLARE SUB AboutMenuClose +DECLARE SUB QuitProgram +DECLARE SUB DelOptFile +DECLARE SUB RunWithCurrOpt +DECLARE SUB LoadOptionsFile +DECLARE SUB DispServerList +DECLARE SUB DispServerListClose +DECLARE SUB ChangeServerName2 (Sender AS QLISTBOX) +DECLARE SUB ReadOptFromDisk +DECLARE SUB ShowVerHistory +DECLARE SUB CloseVerHistory +DECLARE SUB ShowMenuOpt +DECLARE SUB CloseMenuOpt +DECLARE SUB CancelMenuOpt +DECLARE SUB ReadMenuOpt +DECLARE SUB LoadWin32Readme +DECLARE SUB LoadUNIXReadme +DECLARE SUB LoadLicense +DECLARE SUB LoadVersHistory +DECLARE SUB SaveTempOpt +DECLARE SUB OptWinResetDefaults +DECLARE SUB Editircrc +Declare Sub SaveEPICini +DECLARE Sub AddNoConFlag +DECLARE Sub AddNoircrcFlag +DECLARE Sub AddXDebugFlag +DECLARE Sub JoinChanOnCon +DECLARE Sub AddJoinChannel +DECLARE Sub PasswdConnectOpt +DECLARE Sub LoadServerList +DECLARE Sub ChkServerListExist + +DIM CmdLineOpts AS STRING +DIM JoinChanStr AS STRING +DIM PasswordStr AS STRING +DIM ServerConnectStr AS STRING +DIM NoConStr AS STRING +DIM NoircrcStr AS STRING +DIM XDebugStr AS STRING +DIM EPIC4PathCurr AS STRING +DIM EPIC4BinCurr AS STRING +DIM EPIC4TermInfoCurr AS STRING +DIM EPIC4DocsCurr AS STRING +DIM EPIC4ExtraOptCurr AS STRING +DIM RXVTBinCurr AS STRING +DIM DOCREADMEWIN AS STRING +DIM DOCREADMEUNIX AS STRING +DIM DOCREADMELICENSE AS STRING +DIM DOCREADMEVERSION AS STRING + + +DIM ServerFile AS QFILESTREAM +DIM ServerListFile AS QFILESTREAM + +'DIM ConfigFile AS QFILESTREAM +DIM HeaderFont AS QFONT +DIM HeaderFont2 AS QFONT +DIM HeaderFont3 AS QFONT +DIM HeaderFont4 AS QFONT +HeaderFont.Name = "Tahoma" +HeaderFont.AddStyles(fsBold) +HeaderFont.Size = 24 +HeaderFont2.Name = "Tahoma" +HeaderFont2.Size = 12 +HeaderFont3.Name = "Tahoma" +HeaderFont3.Size = 8 +HeaderFont4.Name = "Tahoma" +HeaderFont4.Size = 10 + + +Create EPICIniFile As QIniFile + Name = "epic4.ini" +End Create + +Create MenuIniFile AS QIniFile + Name = "menu.ini" +End Create + +Dim EPICContent As QStringList +Dim I As Integer + +Dim MenuContent AS QStringList + +CREATE MainForm AS QFORM + Center + Caption = "ircII EPIC Config App" + Height = 350 + Width = 500 + BorderStyle = bsToolWindow + + CREATE MainMenu AS QMainMenu + CREATE FileMenu AS QMenuItem + Caption = "&File" + CREATE LoadConfig AS QMenuItem + Caption = "Load &Options" + OnClick = ReadOptFromDisk + ShortCut = "CTRL+O" + END CREATE + CREATE SaveConfig AS QMenuItem + Caption = "&Save Options" + OnClick = SaveOptToDisk + ShortCut = "CTRL+S" + END CREATE + CREATE Break1 AS QMenuItem + Caption = "-" + END CREATE + CREATE StartEpic AS QMenuItem + Caption = "Run Epic" + OnClick = RunWithCurrOpt + ShortCut = "CTRL+R" + END CREATE + CREATE Break2 AS QMenuItem + Caption = "-" + END CREATE + CREATE MenuOptMenu AS QMenuItem + Caption = "Configure Menu Settings" + OnClick = ShowMenuOpt + END CREATE + CREATE Break3 AS QMenuItem + Caption = "-" + END CREATE + CREATE ExitApp AS QMenuItem + Caption = "&Exit" + OnClick = QuitProgram + ShortCut = "ALT+F4" + END CREATE + END CREATE + CREATE Tools AS QMenuItem + Caption = "&Tools" + CREATE DelOptions AS QMenuItem + Caption = "Delete User Options" + OnClick = DelOptFile + ShortCut = "CTRL+D" + END CREATE + CREATE EditircrcOpt AS QMenuItem + Caption = "Edit ircrc in Notepad" + OnClick = Editircrc + ShortCut = "CTRL+E" + END CREATE + END CREATE + CREATE Help AS QMenuItem + Caption = "&Help" + CREATE EPICTxtInfo AS QMenuItem + Caption = "EPIC Information..." + OnClick = ShowVerHistory + END CREATE + CREATE AboutOpt AS QMenuItem + Caption = "About..." + OnClick = AboutMenuShow + END CREATE + END CREATE + END CREATE + + CREATE NickLabel AS QLABEL + Caption = "Nickname:" + Top = 2 + Left = 10 + END CREATE + CREATE NickEdit AS QEDIT + Top = NickLabel.Top + 17 + Left = NickLabel.Left + Width = 230 + Text = "EpicUser" + MaxLength = 30 + END CREATE + 'CREATE NickHelp AS QBUTTON + ' Top = NickEdit.Top - 2 + ' Left = 250 + ' Width = 20 + ' Caption = "?" + ' OnClick = NickClick + 'END CREATE + CREATE FullNameLabel AS QLABEL + Caption = "Full Name:" + Top = NickEdit.Top + 27 + Left = NickLabel.Left + END CREATE + CREATE FullNameEdit AS QEDIT + Top = FullNameLabel.Top + 17 + Left = NickLabel.Left + Width = 230 + MaxLength = 100 + Text = "Some Random EPIC User" + END CREATE + 'CREATE FullNameHelp AS QBUTTON + ' Top = FullNameEdit.Top - 2 + ' Left = NickHelp.Left + ' Width = 20 + ' Caption = "?" + ' OnClick = FullNameClick + 'END CREATE + CREATE UserNameLabel AS QLABEL + Caption = "User Name:" + Top = FullNameEdit.Top + 27 + Left = NickLabel.Left + END CREATE + CREATE UserNameEdit AS QEDIT + Top = UserNameLabel.Top + 17 + Left = NickLabel.Left + Width = 230 + Text = "epicuser" + END CREATE + 'CREATE UserNameHelp AS QBUTTON + ' Top = UserNameEdit.Top - 2 + ' Left = NickHelp.Left + ' Width = 20 + ' Caption = "?" + ' OnClick = UserNameClick + 'END CREATE + CREATE ServerNameLabel AS QLABEL + Caption = "Server:" + Top = UserNameEdit.Top + 27 + Left = NickLabel.Left + END CREATE + CREATE ServerNameEdit AS QEDIT + Top = ServerNameLabel.Top + 17 + Left = NickLabel.Left + Width = 230 + Text = "irc.oftc.net" + END CREATE + 'CREATE ServerNameHelp AS QBUTTON + ' Top = ServerNameEdit.Top - 2 + ' Left = NickHelp.Left + ' Width = 20 + ' Caption = "?" + ' OnClick = ServerNameClick + 'END CREATE +' CREATE ServerNameMult AS QBUTTON +' Top = ServerNameHelp.Top +' Left = ServerNameEdit.Left + 205 +' Width = 18 +' Caption = "..." +' Enabled = True +' OnClick = DispServerList +' END CREATE + CREATE PortNumLabel AS QLABEL + Caption = "Port:" + Top = ServerNameEdit.Top + 27 + Left = NickLabel.Left + END CREATE + CREATE PortNumEdit AS QEDIT + Top = PortNumLabel.Top + 17 + Left = NickLabel.Left + Width = 60 + Text = "6667" + MaxLength = 6 + END CREATE + CREATE ServerListLabel2 AS QLABEL + Left = 280 + Top = NickLabel.Top + Width = 300 + Caption = "Please Select A Server Below:" + END CREATE + CREATE ServerListBox1 AS QLISTBOX + Left = ServerListLabel2.Left + Top = ServerLabelList2.Top + 20 + Height = 120 + Width = 200 + MultiSelect = False + 'AddItems "OFTC (http://www.oftc.net)", "EFNet (http://www.efnet.net)", "DALNet (http://www.dalnet.net)" + 'AddItems "FreeNode (http://www.freenode.net)", "IRCNet (http://www.ircnet.org) + OnClick = ChangeServerName2 + END CREATE + 'CREATE ServerListOK AS QBUTTON + ' 'Kind = bkOK + ' Width = 80 + 'Caption = "Set Server" + ' Top = ServerNameHelp.Top + ' Left = ServerListLabel2.Left + 57 + ' 'ModalResult = mrOK + ' OnClick = ChangeServerName2 + 'END CREATE + CREATE NoConCheckBox AS QCHECKBOX + Left = ServerListLabel2.Left + Top = ServerListBox1.Top + 130 + Caption = "Don't connect automatically" + Width = 170 + OnClick = AddNoConFlag + END CREATE + CREATE NoircrcCheckBox AS QCHECKBOX + Left = NoConCheckBox.Left + Top = NoConCheckBox.Top + 20 + Caption = "Don't load ircrc" + Width = 170 + OnClick = AddNoircrcFlag + END CREATE + CREATE XDebugCheckBox AS QCHECKBOX + Left = NoConCheckBox.Left + Top = NoircrcCheckBox.Top + 20 + Caption = "X_Debug Mode" + OnClick = AddXDebugFlag + Width = 170 + END CREATE + CREATE ChanConnectCheckBox AS QCHECKBOX + Left = PortNumLabel.Left + 70 + Top = PortNumLabel.Top + Caption = "Join channel:" + OnClick = AddJoinChannel + Width = 170 + END CREATE + CREATE ChannelNameEdit AS QEDIT + Top = ChanConnectCheckBox.Top + 17 + Left = ChanConnectCheckBox.Left + Width = 160 + Text = "#irchelp" + Enabled = False + MaxLength = 100 + END CREATE + CREATE PassConnectCheckBox AS QCHECKBOX + Left = ChanConnectCheckBox.Left + Top = ChannelNameEdit.Top + 30 + Caption = "Server password:" + OnClick = PasswdConnectOpt + Width = 170 + END CREATE + CREATE PassConnectEdit AS QEDIT + Top = PassConnectCheckBox.Top + 17 + Left = PassConnectCheckBox.Left + Width = 160 + Enabled = False + MaxLength = 32 + END CREATE + + CREATE RunEpic AS QBUTTON + Top = 260 + Left = 350 + Width = 100 + Caption = "Run EPIC" + OnClick = RunWithCurrOpt + END CREATE + 'CREATE URLLabel1 AS QLABEL + ' Left = 10 + ' Top = 270 + ' Width = 100 + ' Caption = "http://www.2mbit.com/software.html - v2.0.2" + ' Font = HeaderFont3 + 'END CREATE + CREATE StatusBar AS QStatusBar + AddPanels "","" + Panel(0).Width = 380 + 'Panel(0).Caption = str$(StatusBar.Panel(0).Width) + Panel(1).Caption = "Version 2.0.2" + SizeGrip = False + END CREATE +END CREATE + +SUB SaveOptToDisk + SaveEPICini + ShowMessage("The config has been saved.") + LoadConfig.Enabled = True + DelOptions.Enabled = True +END SUB + +SUB ReadOptFromDisk + IF FILEEXISTS("epic4.ini") THEN + NickEdit.Text = EPICIniFile.ReadEntry("Config","IRCNICK") + UserNameEdit.Text = EPICIniFile.ReadEntry("Config","IRCUSER") + PortNumEdit.Text = EPICIniFile.ReadEntry("Config","IRCPORT") + ServerNameEdit.Text = EPICIniFile.ReadEntry("Config","IRCSERVER") + FullNameEdit.Text = EPICIniFile.ReadEntry("Config","REALNAME") + ChannelNameEdit.Text = EPICIniFile.ReadEntry("Config","CHANNEL") + PassConnectEdit.Text = EPICIniFile.ReadEntry("Config","PASSWORD") + 'ShowMessage("The config file has been loaded") + ELSE + ShowMessage("The config file does not exist. You should change the options above and click Save Options first.") + END IF +END SUB +'--------- NickName Help Display +SUB NickClick + ShowMessage("You can enter a nickname here. Nicknames must consist of letters and numbers and _ + can be up to 30 characters on most IRC networks. The only exception is EFNet, _ + which has a max of 9 characters.") +END SUB + +'-------- Full Name Help Display +SUB FullNameClick + ShowMessage("You can enter your full name here. If you don't want to put your full name here, _ + that is ok too - anything is acceptable. It is part of your WHOIS response.") +END SUB + +'-------- User Name Help Display +SUB UserNameClick + ShowMessage("You can enter your user name here. If you don't have Identd installed, this is the _ + username passed to the server. This can be only letters and numbers, and is a _ + max of 9 characters. If you have an Ident (AKA Auth) server installed on your machine_ + , this has no affect.") +END SUB + + +'---------- Server Name Help +SUB ServerNameClick + ShowMessage("You can enter a server name here, or click one of the servers to the right to use a preset.") +END SUB + +'-------- About Dialog Display + +CREATE AboutMenuDlg AS QFORM + BorderStyle = bsDialog + Center + Caption = "About This Program..." + Height = 200 + Width = 500 + CREATE AboutMenuLabel1 AS QLABEL + Left = 47 + Top = 2 + Width = 300 + Caption = "ircII EPIC4 Config Menu" + Font = HeaderFont + END CREATE + CREATE AboutMenuLabel2 AS QLABEL + Left = 20 + Top = AboutMenuLabel1.Top + 40 + Width = 300 + Caption = "Copyright The Summit Open Source Development Group 2002" + Font = HeaderFont2 + END CREATE + CREATE AboutMenuLabel3 AS QLABEL + Left = 5 + Top = 160 + Width = 100 + Caption = "http://www.2mbit.com" + Font = HeaderFont3 + END CREATE + CREATE AboutMenuLabel4 AS QLABEL + Left = 25 + Top = AboutMenuLabel2.Top + 30 + WordWrap = True + Width = 524 + Caption = "Developed by Brian Bruns (bruns@2mbit.com) for use with the ircII EPIC4 client on Windows 9x/ME/NT/2k/XP. Developed under Rapid-Q from basicguru.com." + Font = HeaderFont4 + END CREATE + CREATE AboutMenuOK AS QBUTTON + Kind = bkOK + Width = 50 + Top = 145 + Left = 225 + ModalResult = mrOK + OnClick = AboutMenuClose + END CREATE +END CREATE + +SUB AboutMenuShow + AboutMenuDlg.Show +END SUB + +SUB AboutMenuClose + AboutMenuDlg.Close +END SUB + +'-- Quit Program +SUB QuitProgram + 'MainForm.Close + Application.Terminate +END SUB + +SUB ChangeServerName2 (Sender AS QLISTBOX) + ServerNameEdit.Text = REPLACESUBSTR$(FIELD$(Sender.item(Sender.ItemIndex),":",2),CHR$(09),"") +END SUB + +SUB DispServerList + 'ServerListDlg.Show +END SUB +SUB DispServerListClose + 'ServerListDlg.Close +END SUB + +CREATE MenuOptWin AS QFORM + BorderStyle = bsDialog + Center + Caption = "Menu Configuration" + Height = 400 + Width = 420 + CREATE EPIC4PathLabel AS QLABEL + Caption = "Path to the epic4 directory:" + Top = 10 + Left = 5 + END CREATE + CREATE EPIC4Path AS QEDIT + Top = EPIC4PathLabel.Top + 20 + Left = 5 + Width = 400 + Text = "C:\epic4" + MaxLength = 255 + END CREATE + CREATE EPIC4BinaryLabel AS QLABEL + Caption = "Path to the epic4 binary:" + Top = EPIC4Path.Top + 30 + Left = 5 + END CREATE + CREATE EPIC4Binary AS QEDIT + Top = EPIC4BinaryLabel.Top + 20 + Left = 5 + Width = 400 + Text = "C:\epic4\bin\epic.exe" + MaxLength = 255 + END CREATE + CREATE EPIC4TermInfoLabel AS QLABEL + Caption = "Path to the Terminfo files:" + Top = EPIC4Binary.Top + 30 + Left = 5 + END CREATE + CREATE EPIC4TermInfo AS QEDIT + Top = EPIC4TermInfoLabel.Top + 20 + Left = 5 + Width = 400 + Text = "C:\epic4\terminfo" + MaxLength = 255 + END CREATE + CREATE EPIC4DocsLabel AS QLABEL + Caption = "Path to the EPIC4 documentation:" + Top = EPIC4TermInfo.Top + 30 + Left = 5 + END CREATE + CREATE EPIC4Docs AS QEDIT + Top = EPIC4DocsLabel.Top + 20 + Left = 5 + Width = 400 + Text = "C:\epic4\docs" + MaxLength = 255 + END CREATE + CREATE EPIC4ExtraOptLabel AS QLABEL + Caption = "Extra Options For EPIC:" + Top = EPIC4Docs.Top + 30 + Left = 5 + END CREATE + CREATE EPIC4ExtraOpt AS QEDIT + Top = EPIC4ExtraOptLabel.Top + 20 + Left = 5 + Width = 400 + Text = "" + MaxLength = 255 + END CREATE + CREATE RXVTBinLabel AS QLABEL + Caption = "Path to the RXVT binary:" + Top = EPIC4ExtraOpt.Top + 30 + Left = 5 + END CREATE + CREATE RXVTBinary AS QEDIT + Top = RXVTBinLabel.Top + 20 + Left = 5 + Width = 400 + Text = "C:\epic4\bin\rxvt.exe" + MaxLength = 255 + END CREATE + CREATE OptWinOK AS QBUTTON + Kind = bkOK + Width = 80 + Top = 340 + Left = 5 + 'ModalResult = mrOk + OnClick = CloseMenuOpt + END CREATE + CREATE OptWinCancel AS QBUTTON + Kind = bkCancel + Width = 80 + Top = 340 + Left = OptWinOk.Left + 90 + 'ModalResult = mrCanel + OnClick = CancelMenuOpt + END CREATE + CREATE OptWinReset AS QBUTTON + Width = 120 + Caption = "Reset To Defaults" + Top = 340 + Left = OptWinCancel.Left + 90 + OnClick = OptWinResetDefaults + END CREATE +END CREATE + +Sub ShowMenuOpt + SaveTempOpt + MenuOptWin.Show +END SUB + +Sub CloseMenuOpt + MenuContent.Clear + MenuContent.AddItems "EPICPath="+EPIC4Path.Text + MenuContent.AddItems "EPICBin="+EPIC4Binary.Text + MenuContent.AddItems "Terminfo="+EPIC4TermInfo.Text + MenuContent.AddItems "EPICDocs="+EPIC4Docs.Text + MenuContent.AddItems "EPICExtra="+EPIC4ExtraOpt.Text + MenuContent.AddItems "RXVTBin="+RXVTBinary.Text + KILL "menu.ini" + MenuIniFile.WriteSection "Config",MenuContent + MenuOptWin.Close + StatusBar.Panel(0).Caption = "Menu configuration saved." +END SUB + +Sub ReadMenuOpt + IF FILEEXISTS("menu.ini") THEN + EPIC4Path.Text = MenuIniFile.ReadEntry("Config","EPICPath") + EPIC4Binary.Text = MenuIniFile.ReadEntry("Config","EPICBin") + EPIC4TermInfo.Text = MenuIniFile.ReadEntry("Config","Terminfo") + EPIC4Docs.Text = MenuIniFile.ReadEntry("Config","EPICDocs") + EPIC4ExtraOpt.Text = MenuIniFile.ReadEntry("Config","EPICExtra") + RXVTBinary.Text = MenuIniFile.ReadEntry("Config","RXVTBin") + END IF +End Sub + +Sub SaveTempOpt + EPIC4PathCurr = EPIC4Path.Text + EPIC4BinCurr = EPIC4Binary.Text + EPIC4TermInfoCurr = EPIC4TermInfo.Text + EPIC4DocsCurr = EPIC4Docs.Text + EPIC4ExtraOptCurr = EPIC4ExtraOpt.Text + RXVTBinCurr = RXVTBinary.Text +END SUB + +Sub OptWinResetDefaults + EPIC4Path.Text = "C:\epic4" + EPIC4Binary.Text = "C:\epic4\bin\epic.exe" + EPIC4TermInfo.Text = "C:\epic4\terminfo" + EPIC4Docs.Text = "C:\epic4\docs" + EPIC4ExtraOpt.Text = "" + RXVTBinary.Text = "C:\epic4\bin\rxvt.exe" +END SUB + +Sub CancelMenuOpt + EPIC4Path.Text = EPIC4PathCurr + EPIC4Binary.Text = EPIC4BinCurr + EPIC4TermInfo.Text = EPIC4TermInfoCurr + EPIC4Docs.Text = EPIC4DocsCurr + EPIC4ExtraOpt.Text = EPIC4ExtraOptCurr + RXVTBinary.Text = RXVTBinCurr + MenuOptWin.Close + StatusBar.Panel(0).Caption = "Menu configuration changes canceled." +END SUB + +SUB AddNoConFlag + IF NoConCheckBox.Checked THEN + NoConStr = " -s " + ChanConnectCheckBox.Enabled = False + ChannelNameEdit.Enabled = False + 'PassConnectCheckBox.Enabled = False + 'PassConnectEdit.Enabled = False + ELSE + NoConStr = "" + ChanConnectCheckBox.Enabled = True + AddJoinChannel + 'ChannelNameEdit.Enabled = True + 'PassConnectCheckBox.Enabled = True + 'PassConnectEdit.Enabled = True + END IF +END SUB + +SUB AddNoircrcFlag + IF NoircrcCheckBox.Checked THEN + NoircrcStr = " -q " + ELSE + NoircrcStr = "" + END IF +END SUB + +SUB AddXDebugFlag + IF XDebugCheckBox.Checked THEN + XDebugStr = " -x " + ELSE + XDebugStr = "" + END IF +END SUB + +SUB AddJoinChannel + IF ChanConnectCheckBox.Checked THEN + ChannelNameEdit.Enabled = True + JoinChanStr = " -c "+ChannelNameEdit.Text+" " + ELSE + ChannelNameEdit.Enabled = False + JoinChanStr = "" + END IF +END SUB + +SUB PasswdConnectOpt + IF PassConnectCheckBox.Checked THEN + PassConnectEdit.Enabled = True + PasswordStr = PassConnectEdit.Text + ELSE + PassConnectEdit.Enabled = False + PasswordStr = "" + END IF +END SUB + + +SUB RunWithCurrOpt + DIM EPIC4Bin AS STRING + DIM RXVTBin AS STRING + EPIC4Bin = EPIC4Binary.Text + RXVTBin = RXVTBinary.Text + AddJoinChannel + IF PassConnectCheckBox.Checked THEN + ServerConnectStr = ServerNameEdit.Text+":"+PortNumEdit.Text+":"+PasswordStr + ELSE + ServerConnectStr = ServerNameEdit.Text+":"+PortNumEdit.Text + END IF + IF FILEEXISTS(EPIC4Bin) THEN + ENVIRON "TERMINFO="+EPIC4TermInfo.Text + ENVIRON "HOME="+EPIC4Path.Text + ENVIRON "IRCNAME="+FullNameEdit.Text + 'ENVIRON "HELP_PATH="+EPIC4Path.Text+"\share\epic\help" + 'CmdLineOpts = NickEdit.Text+" -z "+UserNameEdit.Text+" -p "+PortNumEdit.Text+" "+NoConStr+NoircrcStr+XDebugStr+JoinChanStr+" "+EPIC4ExtraOpt.Text+" "+ServerNameEdit.Text + CmdLineOpts = NickEdit.Text+" -z "+UserNameEdit.Text+" "+NoConStr+NoircrcStr+XDebugStr+JoinChanStr+" "+EPIC4ExtraOpt.Text+" "+ServerConnectStr + RUN RXVTBin+" +ut -sr -sl 5000 -tn xterm -e "+EPIC4Bin+" -n "+CmdLineOpts + 'ShowMessage(CmdLineOpts) + StatusBar.Panel(0).Caption = CmdLineOpts + QuitProgram + ELSE + ShowMessage("Error: The EPIC4 application was not found. Please check the paths under Tools -> Configure Menu Settings.") + StatusBar.Panel(0).Caption = "The EPIC4 application was not found!" + END IF +END SUB + +SUB DelOptFile + KILL "epic4.ini" + 'ShowMessage("Config file deleted.") + StatusBar.Panel(0).Caption = "EPIC4 config file deleted." + LoadConfig.Enabled = False + DelOptions.Enabled = False +END SUB + +SUB ChkCfgExist + IF FILEEXISTS("epic4.ini") THEN + LoadConfig.Enabled = True + DelOptions.Enabled = True + StatusBar.Panel(0).Caption = "EPIC4 config file found and loaded." + ReadOptFromDisk + ELSE + StatusBar.Panel(0).Caption = "EPIC4 config file not found. Loaded default settings." + LoadConfig.Enabled = False + DelOptions.Enabled = False + END IF +END SUB + +Sub SaveEPICini + EPICContent.Clear + EPICContent.AddItems "IRCNICK="+NickEdit.Text + EPICContent.AddItems "IRCUSER="+UserNameEdit.Text + EPICContent.AddItems "IRCPORT="+PortNumEdit.Text + EPICContent.AddItems "IRCSERVER="+ServerNameEdit.Text + EPICContent.AddItems "REALNAME="+FullNameEdit.Text + EPICContent.AddItems "CHANNEL="+ChannelNameEdit.Text + EPICContent.AddItems "PASSWORD="+PassConnectEdit.Text + KILL "epic4.ini" + EPICIniFile.WriteSection "Config",EPICContent +End Sub + +CREATE EPICTxtWin AS QFORM + BorderStyle = bsDialog + Center + Caption = "EPIC Information" + Height = 400 + Width = 500 + CREATE REVersion AS QRICHEDIT + ScrollBars = ssBoth + ReadOnly = True + Left = 5 + Top = 2 + Height = 330 + Width = 483 + END CREATE + CREATE ReadMe AS QBUTTON + Top = 340 + Left = 5 + Width = 80 + Caption = "EPIC (Win32)" + OnClick = LoadWin32Readme + END CREATE + CREATE ReadMe2 AS QBUTTON + Top = ReadMe.Top + Left = ReadMe.Left + 90 + Width = 80 + Caption = "EPIC (UNIX)" + OnClick = LoadUNIXReadme + END CREATE + CREATE License AS QBUTTON + Top = ReadMe.Top + Left = ReadMe2.Left + 90 + Width = 80 + Caption = "License" + OnClick = LoadLicense + END CREATE + CREATE VersionHistory AS QBUTTON + Top = ReadMe.Top + Left = License.Left + 90 + Width = 80 + Caption = "Versions" + OnClick = LoadVersHistory + END CREATE + CREATE TXTWinOK AS QBUTTON + Kind = bkOK + Width = 50 + Top = ReadMe.Top + Left = VersionHistory.Left + 150 + ModalResult = mrOK + OnClick = CloseVerHistory + END CREATE +END CREATE + +Sub LoadWin32Readme + IF FILEEXISTS(EPIC4Docs.Text+"\readme.txt") THEN + REVersion.LoadFromFile EPIC4Docs.Text+"\readme.txt" + ELSE + ShowMessage("Warning: readme.txt was not found. Unable to display!") + END IF +End Sub + +Sub LoadUNIXReadme + IF FILEEXISTS(EPIC4Docs.Text+"\readme-unix.txt") THEN + REVersion.LoadFromFile EPIC4Docs.Text+"\readme-unix.txt" + ELSE + ShowMessage("Warning: readme-unix.txt was not found. Unable to display!") + END IF +End Sub + +Sub LoadLicense + IF FILEEXISTS(EPIC4Docs.Text+"\copyright.txt") THEN + REVersion.LoadFromFile EPIC4Docs.Text+"\copyright.txt" + ELSE + ShowMessage("Warning: copyright.txt was not found. Unable to display!") + END IF +End Sub + +Sub LoadVersHistory + IF FILEEXISTS(EPIC4Docs.Text+"\version.txt") THEN + REVersion.LoadFromFile EPIC4Docs.Text+"\version.txt" + ELSE + ShowMessage("Warning: version.txt was not found. Unable to display!") + END IF +End Sub + +Sub ShowVerHistory + EPICTxtWin.Show +END SUB + +Sub CloseVerHistory + EPICTxtWin.Close +END SUB + +Sub Editircrc + IF FILEEXISTS(EPIC4Path.Text+"\ircrc") THEN + RUN "notepad.exe "+EPIC4Path.Text+"\ircrc" + ELSE + DIM IRCRCFile AS QFileStream + IRCRCFile.Open(EPIC4Path.Text+"\ircrc", fmCreate) + IRCRCFile.WriteLine("# This is a blank ircrc file.") + IRCRCFile.WriteLine("# You can load up your EPIC4 scripts here or put") + IRCRCFile.WriteLine("# commands you want run when the client connects.") + IRCRCFile.Close + RUN "notepad.exe "+EPIC4Path.Text+"\ircrc" + END IF +End Sub + +Sub LoadServerList + ServerFile.Open("ircservers.txt", fmOpenRead) + ServerListBox1.Clear + Y# = 0 + Do + ServerListBox1.AddItems ServerFile.ReadLine + Y++ + Loop until ServerFile.eof + 'ShowMessage(FIELD$(ServerListBox1.Item(0), CHR$(09), 2)) +END SUB + +Sub ChkServerListExist + IF FILEEXISTS("ircservers.txt") THEN + ' Nothing to do + ELSE + ServerListFile.Open("ircservers.txt", fmCreate) + ServerListFile.WriteLine("EFNet:"+CHR$(09)+CHR$(09)+"us.rr.efnet.net") + ServerListFile.WriteLine("DALNet:"+CHR$(09)+CHR$(09)+"irc.dal.net") + ServerListFile.WriteLine("OFTC:"+CHR$(09)+CHR$(09)+"irc.oftc.net") + ServerListFile.WriteLine("XIPH:"+CHR$(09)+CHR$(09)+"irc.xiph.org") + ServerListFile.WriteLine("FreeNode:"+CHR$(09)+"irc.openprojects.net") + ServerListFile.WriteLine("IRCNet:"+CHR$(09)+CHR$(09)+"irc.ircnet.org") + ServerListFile.WriteLine("UnderNet:"+CHR$(09)+"us.undernet.org") + ServerListFile.Close + END IF +END Sub + +'FullNameEdit.Enabled = False + +' Its not working correctly with the addition of the password and channel boxes +'NoConCheckBox.Enabled = False +ChkServerListExist +LoadServerList +ReadMenuOpt +ChkCfgExist + +MainForm.ShowModal \ No newline at end of file