Searching for a script with !set <variable>

[Longbow]

I'm looking for a script where you can set variables via bind pub.

Search as..

!set command off

If you know of any that contain this type of thing, post them here please.

[awyeah]

There is already a command for that, but through DCC.

Code: Select all

.tcl set <variable <value>

For your example:

!set command off

Code: Select all

bind pub - !set set:command

proc set:command {nick uhost hand chan text} {
 global mycommand
  if {[string equal -nocase "mycommand" [lindex $text 0]]} {
   set mycommand "[lindex $text 1]"
   }
}

[caesar]

awyeah : .set <variable> <value>

[metroid]

Code: Select all

bind pub n !set command:set

proc command:set { n u h c t } {
set var [lindex [split $t] 0]
set mode [lindex [split $t] 1]
set $var $mode
}

?

Just a simple thing as i have a headache and i don't feel like coding at all

[Longbow]

Thanks, but how would I add multiple entries...

bind pub - !bot bot:command

proc bot:command {nick uhost hand chan text} {
global mycommand
global myothercommand
if {[string equal -nocase "mycommand" [lindex $text 0]]} {
set mycommand "[lindex $text 1]"
} else {
[string equal -nocase "myothercommand" [lindex $text 0]]} {
set myothercommand "[lindex $text 1]"
}
}

[Sir_Fz]

Code: Select all

proc bot:command {nick uhost hand chan text} { 
global mycommand 
global myothercommand 
if {[string equal -nocase "mycommand" [lindex $text 0]]} { 
set mycommand "[lindex $text 1]" 
} elseif {[string equal -nocase "myothercommand" [lindex $text 0]]} { 
set myothercommand "[lindex $text 1]" 
} 
}

It has been a long time since I last wrote anything in TCL, but just wondering wouldn't the bot die if someone used !bot mycommand [die] ?

[metroid]

Maybe you should read MY post

[Sir_Fz]

True, splitting should do it

Code: Select all

proc bot:command {nick uhost hand chan text} { 
global mycommand myothercommand 
if {[string equal -nocase "mycommand" [lindex [split $text] 0]]} { 
set mycommand "[lindex [split $text] 1]" 
} elseif {[string equal -nocase "myothercommand" [lindex [split $text] 0]]} { 
set myothercommand "[lindex [split $text] 1]" 
 } 
}

[awyeah]

awyeah : .set <variable> <value>

Oh crap, thats right, lol. Should be:

Code: Select all

set [lindex $text 0] "[lindex $text 1]"

My one would set a variable of "mycommand" which you could replace by editing the script. But with this sort of command you can make as many as variables as you like.

[Ofloo]

using set is a bad idea from pub .. but

if you make it at least don't for get to remove certain chars to avoid execution

Code: Select all

proc set_pub proc {nick host hand chan arg} {
  set arg [string map {\\ \\\\ \" \\\" \[ \\\[ \] \\\] \{ \\\{ \} \\\} \( \\\( \) \\\)} $arg]
  set  [lindex $arg 0] [join [lrange $arg 1 end]]
  putserv "PRIVMSG $chan :SET --> [lindex $arg 0] --> [join [lrange $arg 1 end]]
}

bind pub n !set set_pub

[Ofloo]

never mind didn't see MeTroiD script..