Guest User

Untitled

a guest
Mar 5th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.42 KB | None | 0 0
  1. proc pub_do_addfriend {nick host hand chan arg} {
  2.     foreach {who} [split $arg] {
  3.         if {[onchan $who $chan] && ([matchattr $who -f $chan] || ![matchattr $who +f $chan])} {
  4.             chattr $who +f $chan
  5.             putquick "privmsg $chan :$who marked as friend."
  6.         } elseif [matchattr $who +f $chan] {
  7.             putquick "privmsg $chan :$who is already my friend, dummy."
  8.         } else {
  9.             putquick "privmsg $chan :I don't see $who :("          
  10.         }
  11.     }
  12. }
Add Comment
Please, Sign In to add comment