Ar3s
02-15-2005, 07:07 AM
hi,
only modified cts-main.tcl
ADD THOSE LINES :
# Main CTS functions
#
#Not implemented
## dZSbot SETUP
# Do you use dZSbot ?? (NO = 0 , YES = 1)
#set newcmd(DZSBOT) 1
## BLOWFISH
# set the blowfish encrytion key (empty = no encryption)
set newcmd(KEY) ""
# set the blowfish header tag
set newcmd(HEADER) "+OK"
################################################## #######
# BLOWFISH DECRYPTION PROCEDURE #
################################################## #######
proc nd_decryptcmd {nick uhost hand chan arg} {
global newcmd
set cmdline [decrypt $newcmd(KEY) $arg]
if { [string index $cmdline 0] != "!" } { return }
set dcmd [lindex $cmdline 0]
set darg [lrange $cmdline 1 end]
if { $dcmd == "!iversion" } { cts:version $nick $uhost $hand $chan $darg }
if { $dcmd == "!ilinks" } { cts:links $nick $uhost $hand $chan $darg }
if { $dcmd == "!icredits" } { cts:credits $nick $uhost $hand $chan $darg }
if { $dcmd == "!ibnc" } { cts-misc:BNC $nick $uhost $hand $chan $darg }
if { $dcmd == "!ibw" } { cts-misc:bw $nick $uhost $hand $chan $darg }
if { $dcmd == "!itrigger" } { cts-misc:trigger $nick $uhost $hand $chan $darg }
if { $dcmd == "!isections" } { cts-misc:sections $nick $uhost $hand $chan $darg }
if { $dcmd == "!irules" } { cts-misc:rules $nick $uhost $hand $chan $darg }
if { $dcmd == "!imonthup" } { cts-quota:MonthUp $nick $uhost $hand $chan $darg }
if { $dcmd == "!imonthdn" } { cts-quota:MonthDn $nick $uhost $hand $chan $darg }
if { $dcmd == "!ipassed" } { cts-quota:passed $nick $uhost $hand $chan $darg }
if { $dcmd == "!itop10" } { cts-quota:Top10 $nick $uhost $hand $chan $darg }
if { $dcmd == "!itop40" } { cts-quota:Top40 $nick $uhost $hand $chan $darg }
if { $dcmd == "!isummary" } { cts-quota:last.month.summary $nick $uhost $hand $chan $darg }
if { $dcmd == "!ishow" } { cts-quota:filter $nick $uhost $hand $chan $darg }
if { $dcmd == "!ihelp" } { cts-misc:RTFM $nick $uhost $hand $chan $darg }
if { $dcmd == "!iophelp" } { cts-misc:ophelp $nick $uhost $hand $chan $darg }
return
}
:D
only modified cts-main.tcl
ADD THOSE LINES :
# Main CTS functions
#
#Not implemented
## dZSbot SETUP
# Do you use dZSbot ?? (NO = 0 , YES = 1)
#set newcmd(DZSBOT) 1
## BLOWFISH
# set the blowfish encrytion key (empty = no encryption)
set newcmd(KEY) ""
# set the blowfish header tag
set newcmd(HEADER) "+OK"
################################################## #######
# BLOWFISH DECRYPTION PROCEDURE #
################################################## #######
proc nd_decryptcmd {nick uhost hand chan arg} {
global newcmd
set cmdline [decrypt $newcmd(KEY) $arg]
if { [string index $cmdline 0] != "!" } { return }
set dcmd [lindex $cmdline 0]
set darg [lrange $cmdline 1 end]
if { $dcmd == "!iversion" } { cts:version $nick $uhost $hand $chan $darg }
if { $dcmd == "!ilinks" } { cts:links $nick $uhost $hand $chan $darg }
if { $dcmd == "!icredits" } { cts:credits $nick $uhost $hand $chan $darg }
if { $dcmd == "!ibnc" } { cts-misc:BNC $nick $uhost $hand $chan $darg }
if { $dcmd == "!ibw" } { cts-misc:bw $nick $uhost $hand $chan $darg }
if { $dcmd == "!itrigger" } { cts-misc:trigger $nick $uhost $hand $chan $darg }
if { $dcmd == "!isections" } { cts-misc:sections $nick $uhost $hand $chan $darg }
if { $dcmd == "!irules" } { cts-misc:rules $nick $uhost $hand $chan $darg }
if { $dcmd == "!imonthup" } { cts-quota:MonthUp $nick $uhost $hand $chan $darg }
if { $dcmd == "!imonthdn" } { cts-quota:MonthDn $nick $uhost $hand $chan $darg }
if { $dcmd == "!ipassed" } { cts-quota:passed $nick $uhost $hand $chan $darg }
if { $dcmd == "!itop10" } { cts-quota:Top10 $nick $uhost $hand $chan $darg }
if { $dcmd == "!itop40" } { cts-quota:Top40 $nick $uhost $hand $chan $darg }
if { $dcmd == "!isummary" } { cts-quota:last.month.summary $nick $uhost $hand $chan $darg }
if { $dcmd == "!ishow" } { cts-quota:filter $nick $uhost $hand $chan $darg }
if { $dcmd == "!ihelp" } { cts-misc:RTFM $nick $uhost $hand $chan $darg }
if { $dcmd == "!iophelp" } { cts-misc:ophelp $nick $uhost $hand $chan $darg }
return
}
:D