making the bot say via /msg

NewzUK · Post by **NewzUK** » Sun May 11, 2003 2:32 am

Hi

Is it possible to to make the bot say something in the channel via /msg without having to be in telnet or DCC to the bot?

I've tried /msg bot say thingtosay password but no response...

Thanks!

Post by **caesar** » Sun May 11, 2003 7:07 am

See this post.

NewzUK · Post by **NewzUK** » Sun May 11, 2003 2:06 pm

thank you!

Post by **caesar** » Mon May 12, 2003 1:32 am

Also, you may try this:

Code: Select all

# binds #
bind msg - say pub:say
bind msg - act pub:act

# msg #
proc pub:say {nick uhost hand text} { 
  if {[llength [split $text]] < 2} {
    putserv "PRIVMSG $nick :\002Usage\002: say #channel text"
    return
  }
  set channel [lindex $text 0]
  set msg [lrange $text 1 end]
  if {![validchan $channel] || ![botonchan $channel]} {
    putserv "PRIVMSG $nick :I'm not monitoring $channel or I'm not there."
    return
  }
  putserv "PRIVMSG $channel :$msg"
}

# act #
proc pub:act {nick uhost hand text} { 
  if {[llength [split $text]] < 2} {
    putserv "PRIVMSG $nick :\002Usage\002: act #channel text"
    return
  }
  set channel [lindex $text 0]
  set msg [lrange $text 1 end]
  if {![validchan $channel] || ![botonchan $channel]} {
    putserv "PRIVMSG $nick :I'm not monitoring $channel or I'm not there."
    return
  }
  putserv "PRIVMSG $channel :\001ACTION $msg"
}

dazed0r · Post by **dazed0r** » Sat May 17, 2003 11:43 pm

I was wondering if you could show me a way with that code that makes it possible for the bot to message someone privatley?

I have my bot on a nick that gets messaged all the time by people (I created a script that has the bot message the priv msg to a channel), I want to be able to do "@msg nickname text here" and send the "text here" part to the nick.

Thanks.

Post by **caesar** » Mon May 19, 2003 3:33 am

Code: Select all

# binds # 
bind msg - say pub:say 
bind msg - act pub:act 

# msg # 
proc pub:say {nick uhost hand text} { 
  if {[llength [split $text]] < 2} { 
    putserv "PRIVMSG $nick :\002Usage\002: say <who> <text>" 
    return 
  } 
  set who [lindex $text 0] 
  set msg [lrange $text 1 end] 
  putserv "PRIVMSG $who :$msg" 
} 

# act # 
proc pub:act {nick uhost hand text} { 
  if {[llength [split $text]] < 2} { 
    putserv "PRIVMSG $nick :\002Usage\002: act <who> <text>" 
    return 
  } 
  set who [lindex $text 0] 
  set msg [lrange $text 1 end] 
  putserv "PRIVMSG $who :\001ACTION $msg" 
}