Guest User

Untitled

a guest
Jun 27th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.33 KB | None | 0 0
  1. bind msg - "Notc:" say-Notc
  2. proc say-Notc { nick host hand txt } {
  3. if {$nick == "My1" || $nick == "My1xT" || $nick == "My1-mob" || $nick == "My1-roflBNC" || $nick == "My1-BNC"} {
  4. set nlist ""
  5. set msg ""
  6. set target ""
  7. set nlist [split $txt ">"]
  8. set target [lindex $nlist 0]
  9. set msg [lindex $nlist 1]
  10.     putnotc $target $msg
  11. }
  12. }
Add Comment
Please, Sign In to add comment