Code: Select all
# <BOT> MACRO add viruskill oper gline <1> +3d You have a virus. Go away!
# <BOT> MACRO edit viruskill oper gline [1] +7d You have a virus. Go away!
# <BOT> MACRO setsep |
# <BOT> MACRO viruskill 167.6.90.254
# <BOT> MACRO rename viruskill virus
# <BOT> MACRO list
# <BOT> MACRO del virus <wildcard>
SB:registercommand MACRO 0 -none MACROS
SB:registercustomvariable global MACRO:!
proc SB:proc_macro {nick host handle chan arg} {
SB:setmiscvariables
#set macros [getdata $handle MACRO]
set macros [bnick MACRO:$handle]
set gf [join [getfirst $macros]]
switch -exact -- [stl $misc1] {
help {
printh $nick "\002The MACRO command\002"
printh $nick "Usage: (/msg) $::botnick MACRO <del | clear | list | ren(ame) | add <macro name> <command> | edit <macro name> <new command>>"
printh $nick ""
printh $nick "The MACRO command lets you define a 'macro' (like in word processing programs)"
printh $nick "to execute repeated / routine commands by only using a trigger word. This"
printh $nick "reduces the amount of typing needed for common commands and tasks. In addition,"
printh $nick "this command will also allow the use of variables in your macros."
printh $nick "StormBot.TCL 5.0 will enable the command through the normal command"
printh $nick "processor, effectively creating a new, personalized command (just for you)."
printh $nick ""
printh $nick "Example:"
printh $nick " $::botnick MACRO add virus SAY Hey, <1>, you have a virus or trojan!"
printh $nick " $::botnick virus Mikey"
printh $nick " <$::botnick> Hey, Mikey, you have a virus or trojan!"
printh $nick ""
printh $nick "Valid variable patterns: <1> \[5\] <-7> \[2-5\] \[9-13\] <1->"
printh $nick "\[1\] = take the 1st data element (optional)"
printh $nick "<2> = 2nd data element (required - will return error if missing)"
printh $nick "Also accepted: \$BOTNICK \$CHAN \$NICK"
return 0
}
setsep {# Not completed yet #}
add {
if {$misc2 == ""} {printh $nick "Error: macro name not defined"; return 0}
if {$misc3 == ""} {printh $nick "Error: macro definition not given"; return 0}
set m [lsearch -exact [stl [commandlist]] $lmisc2]
if {$m > -1} {printh $nick "I'm sorry, but $umisc2 is a StormBot.TCL command word. Please choose another name for your MACRO."; return 0}
set m [lsearch -exact [stl $gf] [stl $misc2]]
if {$m > -1} {printh $nick "I'm sorry, but you already have \"[join $misc2]\" defined as a MACRO."; return 0}
lappend macros [list $misc2 $misc3end]
set count [llength [regexp -all -inline -nocase -- {\[[0-9\-]+\]} [join $misc3end]]]
incr count [llength [regexp -all -inline -nocase -- {<[0-9\-]+>} [join $misc3end]]]
incr count [llength [regexp -all -inline -nocase -- {\$ME} [join $misc3end]]]
incr count [llength [regexp -all -inline -nocase -- {\$NICK} [join $misc3end]]]
incr count [llength [regexp -all -inline -nocase -- {\$HANDLE} [join $misc3end]]]
set commandcount [llength [regexp -all -inline -- \\\|\\\| $misc3end]]
incr commandcount
print $nick "I have added the macro \"[join $misc2]\" (commands: ${commandcount}, variables: $count)"
setbnick MACRO:$handle $macros
writedata
return 0
}
del {
if {$misc2 == ""} {printh $nick "Error: macro name not given"; return 0}
set deleteme [lsearch -glob -all -inline [stl $gf] [stl $misc2end]]
if {$deleteme == ""} {printh $nick "No MACRO matches on: [join $misc2end]"; return 0}
set temp ""
foreach a $macros {
# Isn't working with special chars ~ set macros [ldestroy -glob -nocase $macros "$killme *"]
set bad 0
foreach killme $deleteme {
debug.print 1 "> MACRO: \$KILLME ($killme), \$A ($a)"
if ![string eq [stl $killme] [sl0 $a]] {
debug.print 1 "> MACRO: --> \$A ($a), \$TEMP ($temp)"
incr bad 0
} else {
incr bad 1
debug.print 1 "> MACRO: --> \$A ($a) was rejected. \$TEMP ($temp) should be unchanged."
}
}
if !($bad) {lappend temp $a}
}
set macros $temp
print $nick "The following MACROs were deleted: [join $deleteme ", "]"
setbnick MACRO:$handle $macros
writedata
return 0
}
update - edit {
if {$misc2 == ""} {printh $nick "What MACRO am I editing?"; return 0}
if {$misc3 == ""} {printh $nick "What is the new MACRO gonna be?"; return 0}
set m [lsearch -exact [stl $gf] [jstl $misc2]]
if {$m < 0} {printh $nick "There's no such MACRO for you (\"[join $misc2]\")."; return 0}
lset macros $m [list $misc2 $misc3end]
print $nick "MACRO \"[join $misc2]\" edited to: [join $misc3end]"
setbnick MACRO:$handle $macros
writedata
return 0
}
ren - rename {
if {$misc2 == ""} {printh $nick "What MACRO am I renaming?"; return 0}
if {$misc3 == ""} {printh $nick "What is the new MACRO name?"; return 0}
set m [lsearch -exact [stl $gf] [jstl $misc2]]
if {$m < 0} {printh $nick "There's no such MACRO for you (\"[join $misc2]\")."; return 0}
set macro [lindex $macros $m]
# $M should work; GETFIRST doesn't sort, so the indeces should
# still correspond.
set n [lsearch -exact [stl $gf] [jstl $misc3]]
if {$n > -1} {printh $nick "I'm sorry, but you already have \"[join $misc3]\" defined as a MACRO."; return 0}
lset macro 0 $misc3; # No JOIN here: keep in KILLCODE format
lset macros $m $macro
setbnick MACRO:$handle $macros
print $nick "Renamed MACRO \"[join $misc2]\" to \"[join $misc3]\""
writedata
return 0
}
list {
set count 0
set max [len [llength $macros]]
set max2 [getlongest $gf]
debug.print "> MACRO - LIST: $macros"
foreach a [lsort -inc -dict -uni -index 0 $macros] {
debug.print "> MACRO - LIST: $a"
debug.print "> MACRO - LIST: [l0 $a] - [jl1 $a]"
incr count
print $nick "[using z*$max $count]) [using *$max2 [jl0 $a]]: [jl1 $a]"
debug.print "> MACRO - LIST: [l0 $a] - [jl1 $a]"
}
print $nick "> End of MACRO LIST."
}
clear {
if {[stl $misc2] != "clear"} {print $nick "Are you \002\037SURE\037\002 about this? Use \"clear clear\" to clear your list out."; return 0}
setbnick MACRO:$handle
print $nick "Your MACRO list has been cleared."
writedata
return 0
}
default {
print $nick "> Command format change! I'll compensate this time\; next time, use: (/msg) $::botnick [jl1e $arg]"
do_callcommand $nick $host $handle $chan [jl1e $arg]
return 0
}
}
return 0
}
i.e. If you do /msg botnick macro #channel add macroname SAY I am a macro
But add another command to that same line, like "SAY I am a macro" and after that make it "ACT dances" so it says "I am a macro" then "dances" afterwards, all in the same command line.
Do more lines have to be added to the module, or is it possible with just this module alone with some separation symbol I'm unaware of? I've tried the semicolon to separate commands, but to no avail...it just displays the semicolon symbol itself instead of making the line into two separate commands.