1
0

userrec.tcl 478 B

123456789101112131415161718
  1. # This script provides minimal Eggdrop user record manipulation in a channel.
  2. #
  3. # Primarily I'm interested in letting people know if the bot recognizes them.
  4. namespace eval ::ur {}
  5. proc ::ur::whoami {nick uhost hand chan argv} {
  6. if {$hand == "*"} {
  7. putserv "PRIVMSG $chan :I don't know you!"
  8. return
  9. }
  10. putserv "PRIVMSG $chan :You're $hand"
  11. }
  12. setudef flag userrec
  13. bind pub -|- .whoami ::ur::whoami
  14. putlog "userrec.tcl (https://github.com/horgh/eggdrop-scripts) loaded"