Untitled

By Sludgy Lechwe, 10 Years ago, written in TCL/iTCL, viewed 615 times.
URL http://pb.stoleyour.com/view/aeb715a7 Embed
Download Paste or View RawExpand paste to full width of browser
  1. bind pub - !test pub:test
  2.  
  3. proc pub:test { nick uhost handle channel arg } {
  4.         set nickCheck $nick
  5.         set nickStatus [putserv "privmsg nickserv :status $nickCheck"]
  6.         set nickValue [lindex $nickStatus 2]
  7.        
  8.         if {$nickValue == "3"} {
  9.         putserv "PRIVMSG $channel :$nick: i like you"
  10.         } else {
  11.         putserv "PRIVMSG $channel :$nick: i hate you"
  12.     }
  13. }

Reply to "Untitled"

Here you can reply to the paste above