Posted to tcl by LoW at Sun Aug 05 08:29:45 GMT 2012view raw

  1. set msgjoin "Hello, Welcome to Dartians Clan"
  2. set pickupchan "#dartiansbot"
  3.  
  4. bind pub o|o !kick pub:kick
  5. proc pub:kick { nickname user handle channel } {
  6. set whom [lindex $text 0]
  7. set reason [lrange $text 1 end]
  8. if {[onchan $whom $chan]} {
  9. putserv "KICK $chan $whom :$reason"
  10. } else {
  11. puthelp $chan "$nick: $whom is not on $chan"
  12. }
  13. }
  14.  
  15. bind join - * msgjoin
  16.  
  17. proc msgjoin { nickname user handle channel } {
  18. global msgjoin pickupchan botnick
  19. if {$chan == $pickupchan} {
  20. putserv "NOTICE $nickname :Hi Welcome to Dartians Channel $nickname . $msgjoin"
  21. }
  22. }
  23.  
  24. bind pub - !site site
  25.  
  26. proc site { nickname user handle channel } {
  27. global botnick pickupchan
  28. if { $chan == $pickupchan } {
  29. putserv "NOTICE $nick :www.dartians.gr"
  30. }
  31. }
  32.  
  33. bind pub - !clanmembers clanmember
  34.  
  35. proc clanmember { nickname user handle channel } {
  36. global botnick pickupchan
  37. if { $chan == $pickupchan } {
  38. putserv "NOTICE $nick :LoW"
  39. }
  40. }
  41.  
  42. bind pub o|o !ban ban
  43.  
  44.  
  45.  
  46.  
  47. proc ban { nickname user handle channel } {
  48. set whom [lindex $text 0]
  49. set reason [lrange $text 1 end]
  50. if {[onchan $whom $chan]} {
  51. putserv "/mode $chan +b $whom :$reason"
  52. putserv "KICK $chan $whom :$reason"
  53. } else {
  54. puthelp $chan "$nick: $whom is not on $chan"
  55. }
  56. }