Advertisement
Guest User

Untitled

a guest
Mar 10th, 2019
246
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.38 KB | None | 0 0
  1. bind pub - !rules pub_rules
  2. proc pub_rules {nick mask hand channel args} {
  3. set mychan "#zone"
  4.         global rules
  5.         set rules {
  6. I like Beer... and Sex ;)
  7.         }
  8.         if {[string tolower $channel] == [string tolower $mychan]} {
  9.                 foreach _ [split $rules \n] {
  10.                         puthelp "PRIVMSG $channel :$_"
  11.                 }
  12.         }
  13. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement