egghelp/eggheads community

Searching for a script with !set

2005-01-31T07:36:29-04:00

never mind didn't see MeTroiD script..

Statistics: Posted by Ofloo — Mon Jan 31, 2005 7:36 am

Searching for a script with !set

2005-01-31T07:30:24-04:00

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:

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

Statistics: Posted by Ofloo — Mon Jan 31, 2005 7:30 am

Searching for a script with !set

2005-01-30T22:28:28-04:00

awyeah : .set

Oh crap, thats right, lol. Should be:

Code:

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.

Statistics: Posted by awyeah — Sun Jan 30, 2005 10:28 pm

Searching for a script with !set

2005-01-29T17:29:33-04:00

True, splitting should do it

Code:

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]"  } }

Statistics: Posted by Sir_Fz — Sat Jan 29, 2005 5:29 pm

Searching for a script with !set

2005-01-29T15:55:13-04:00

Maybe you should read MY post

Statistics: Posted by metroid — Sat Jan 29, 2005 3:55 pm

Searching for a script with !set

2005-01-29T15:51:23-04:00

Code:

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] ?

Statistics: Posted by Sir_Fz — Sat Jan 29, 2005 3:51 pm

Searching for a script with !set

2005-01-29T15:20:39-04:00

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]"
}
}

Statistics: Posted by Longbow — Sat Jan 29, 2005 3:20 pm

Searching for a script with !set

2005-01-29T11:24:20-04:00

Code:

bind pub n !set command:setproc 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

Statistics: Posted by metroid — Sat Jan 29, 2005 11:24 am

Searching for a script with !set

2005-01-29T03:50:48-04:00

awyeah : .set

Statistics: Posted by caesar — Sat Jan 29, 2005 3:50 am

Searching for a script with !set

2005-01-29T01:29:53-04:00

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

Code:

.tcl set

For your example:

!set command off

Code:

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

Statistics: Posted by awyeah — Sat Jan 29, 2005 1:29 am

Searching for a script with !set

2005-01-28T18:20:51-04:00

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.

Statistics: Posted by Longbow — Fri Jan 28, 2005 6:20 pm