Import archive
This commit is contained in:
commit
534fb5f54b
12
epic4-noncygwin-configure.sh
Normal file
12
epic4-noncygwin-configure.sh
Normal file
@ -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
|
||||||
46
epic4-noncygwin-install.sh
Normal file
46
epic4-noncygwin-install.sh
Normal file
@ -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
|
||||||
72
epic4.nsi
Normal file
72
epic4.nsi
Normal file
@ -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
|
||||||
13
epic5-noncygwin-configure.sh
Normal file
13
epic5-noncygwin-configure.sh
Normal file
@ -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/
|
||||||
46
epic5-noncygwin-install.sh
Normal file
46
epic5-noncygwin-install.sh
Normal file
@ -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
|
||||||
72
epic5.nsi
Normal file
72
epic5.nsi
Normal file
@ -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
|
||||||
957
menu-v2.0.2.bas
Normal file
957
menu-v2.0.2.bas
Normal file
@ -0,0 +1,957 @@
|
|||||||
|
' SOSDG Menu Application
|
||||||
|
' Copyright (c) 2002-2004 Brian Bruns <bruns@2mbit.com>
|
||||||
|
' 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
|
||||||
Loading…
x
Reference in New Issue
Block a user