home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / chanserv.tcl < prev    next >
Text File  |  1996-04-23  |  14KB  |  473 lines
  1. # chanserv.tcl
  2. # 27 March 1996 by Gord-@saFyre
  3. # for eggdrop version 1.0
  4. # provides dcc and msg/public commands for multichannel bot settings
  5. # stores and reloads info on "added" channels to provide permanence -
  6. # bot will rejoin and reset all channels it was on if it crashes and
  7. # is brought back up.
  8.  
  9. # ADDED COMMANDS:
  10. # All change commands require master status.
  11. # 
  12. # DCC commands added:
  13. # .join <channel>
  14. # .leave <channel>
  15. # .setmode [<+/-mode>...<+-mode>][-TOPIC][+TOPIC <topictext>]  
  16. #    setmode applies the changes to the console channel of the 
  17. #    master who issues the command - if no parameters are given,
  18. #    it returns the status of the current channel's modes
  19. # .channels
  20. #    channels lists the channels the bot is currently on (op command)
  21. #
  22. # MSG commands added:
  23. # /msg <bot> join <channel>
  24. # /msg <bot> leave <channel>
  25. # /msg <bot> channels
  26. #    channels lists the channels the bot is currently on (op command)
  27. #
  28. # PUB commands added:
  29. # !topic <topictext>
  30. # !setmode [<+/-mode>...<+-mode>][-TOPIC][+TOPIC <topictext>]  
  31. #    setmode applies the changes to the channel in which the
  32. #    command was publicly issued - if no parameters are given,
  33. #    it returns the status of the current channel's modes
  34. #
  35.  
  36. # set the default options you would like new channels to have (these 
  37. # can only be shanged using the builtin tcl commands).
  38.  
  39. set defchanoptions {chanmode "+n-likm" idle-kick 120}
  40.  
  41. # set the default modes you would like new channels to have (these
  42. # can later be changed for each channel using the 'setmode' command.
  43.  
  44. set defchanmodes {-clearbans +enforcebans +dynamicbans +userbans +autoop -bitch +greet +protectops +statuslog}
  45.  
  46. # set the file in which chanserv will store channel state information 
  47. # for permanence
  48.  
  49. set chanfile "pinkfloyd.channelfile"
  50.  
  51.  
  52. ##############################################
  53. # Do NOT modify anything below this          #
  54. ##############################################
  55. proc cleanarg {arg} {
  56.   set response ""
  57.   for {set i 0} {$i < [string length $arg]} {incr i} {
  58.     set char [string index $arg $i]
  59.     if {($char != "\12") && ($char != "\15")} {
  60.       append response $char
  61.     }
  62.   }
  63.   return $response
  64. }
  65.  
  66. set savedchans { }
  67. set okchanmodes {+clearbans -clearbans +enforcebans -enforcebans +dynamicbans -dynamicbans +userbans -userbans +autoop -autoop +bitch -bitch +greet -greet +protectops -protectops +statuslog -statuslog}
  68.  
  69. proc getchanmode {channel} {
  70.   global savedchans
  71.   for {set i 0} {$i < [llength $savedchans]} {incr i} {
  72.     set this [lindex $savedchans $i]
  73.     if {[string compare [string tolower [lindex $this 0]] [string tolower $channel]] == 0} {
  74.       return [lindex $this 1]
  75.     }
  76.   }
  77.   return ""
  78. }
  79.  
  80. proc getchantopic {channel} {
  81.   global savedchans
  82.   for {set i 0} {$i < [llength $savedchans]} {incr i} {
  83.     set this [lindex $savedchans $i]
  84.     if {[string compare [string tolower [lindex $this 0]] [string tolower $channel]] == 0} {
  85.       return [lindex $this 2]
  86.     }
  87.   }
  88.   return ""
  89. }
  90.  
  91. proc setchanmode {channel data} {     
  92.   global savedchans
  93.   for {set i 0} {$i < [llength $savedchans]} {incr i} {
  94.     set this [lindex $savedchans $i]
  95.     if {[string compare [string tolower [lindex $this 0]] [string tolower $channel]] == 0} {
  96.       set topic [lindex $this 2]
  97.       set this [list $channel $data $topic]
  98.       set savedchans [lreplace $savedchans $i $i $this]
  99.       savechans
  100.       return 0
  101.     }
  102.   }
  103. }
  104.  
  105. proc setchantopic {channel data} {     
  106.   global savedchans
  107.   for {set i 0} {$i < [llength $savedchans]} {incr i} {
  108.     set this [lindex $savedchans $i]
  109.     if {[string compare [string tolower [lindex $this 0]] [string tolower $channel]] == 0} {
  110.       set modes [lindex $this 1]
  111.       set this [list $channel $modes $data]
  112.       set savedchans [lreplace $savedchans $i $i $this]
  113.       savechans
  114.       return 0
  115.     }
  116.   }
  117. }
  118.  
  119. proc savechans {} {
  120.   global savedchans
  121.   global chanfile
  122.   set fd [open $chanfile w]
  123.   foreach channelinfo $savedchans {
  124.     puts $fd $channelinfo
  125.   }
  126.   close $fd
  127.   return
  128. }
  129.  
  130. proc loadchans {} {
  131.   global savedchans
  132.   global chanfile
  133.   global botnick
  134.   global defchanoptions
  135.   putlog "### chanserv.tcl by Gord-@saFyre loaded."
  136.   if {[catch {set fd [open $chanfile r]}] != 0} {
  137.     setconfigchans
  138.     putlog "### channel file $chanfile does not exist!"
  139.     return 0
  140.   }
  141.   set savedchans { }
  142.   while {![eof $fd]} {
  143.     set savedchans [lappend savedchans [string trim [gets $fd]]]
  144.   }
  145.   close $fd
  146.   set savedchans [lreplace $savedchans end end]
  147.   if ([llength $savedchans]) {
  148.     foreach channelinfo $savedchans {
  149.       set channel [lindex $channelinfo 0]
  150.       set modes [lindex $channelinfo 1]
  151.       set topic [lindex $channelinfo 2]
  152.       set needop "need-op \{gain-ops $channel\}"
  153.       set needinvite "need-invite \{ \}"
  154.       set options [concat $defchanoptions $needop $needinvite]
  155.       channel add $channel $options
  156.       foreach mode $modes {
  157.         channel set $channel $mode
  158.       }
  159.       if {$topic != ""} {
  160.         putserv "TOPIC $channel :$topic"
  161.       }
  162.       putlog "Added saved channel $channel with modes \"$modes\" and topic \"$topic\""
  163.     }
  164.   }
  165.   if {($savedchans == { }) && ([llength [channels]] > 0} {
  166.     setconfigchans
  167.   }
  168.   return
  169. }
  170.  
  171. proc setconfigchans {} {
  172.   global savedchans
  173.   foreach channel [channels] {
  174.     set chanmodes [lrange [channel info $channel] 4 end]
  175.     set savit $channel
  176.     lappend savit $chanmodes ""
  177.     lappend savedchans $savit
  178.   }
  179.   savechans
  180.   return 1
  181. }
  182.  
  183. proc addchannel {channel chanmodes topic} {
  184.   global defchanoptions savedchans
  185.   if {[lsearch [string tolower [channels]] [string tolower $channel]] >= 0} {return 0}
  186.   set needop "need-op \{gain-ops $channel\}"
  187.   set needinvite "need-invite \{ \}"
  188.   set options [concat $defchanoptions $needop $needinvite]
  189.   channel add $channel $options
  190.   foreach option $chanmodes {
  191.     channel set $channel $option
  192.   }
  193.   if {$topic != ""} {
  194.     putserv "TOPIC $channel :$topic"
  195.   }
  196.   lappend channel $chanmodes $topic
  197.   lappend savedchans $channel
  198.   savechans
  199.   return 1
  200. }
  201.  
  202. proc remchannel {channel} {
  203.   global savedchans
  204.   if {[lsearch [string tolower [channels]] [string tolower $channel]] == -1} {return 0}
  205.   if ([llength $savedchans]) {
  206.     set index 0
  207.     foreach channelinfo $savedchans {
  208.       set ochannel [lindex $channelinfo 0]
  209.       if {[string tolower $ochannel] == [string tolower $channel]} {
  210.         set savedchans [lreplace $savedchans $index $index]
  211.         channel remove $channel
  212.         savechans
  213.         return 1
  214.       }
  215.       incr index
  216.     }
  217.   }
  218.   return 0
  219. }
  220.  
  221. proc dcc_botjoin {handle idx channel} {
  222.   global defchanmodes
  223.   if {([llength $channel] != 1) || ([string first # $channel] == -1)} {
  224.     putdcc $idx "syntax: .join #channel"
  225.     return 0
  226.   }
  227.   if {[addchannel $channel $defchanmodes ""]} {
  228.     putcmdlog "joined $channel - requested by $handle"
  229.   } else {
  230.     putdcc $idx "I'm already on $channel!"
  231.   }
  232.   return 0
  233. }
  234.  
  235. bind dcc m join dcc_botjoin
  236.   
  237. proc dcc_botleave {handle idx channel} {
  238.   if {([llength $channel] != 1) || ([string first # $channel] == -1)} {
  239.     putdcc $idx "syntax: .leave #channel"
  240.     return 0
  241.   }
  242.   if {[lsearch [string tolower [channels]] [string tolower $channel]] == 0} {
  243.     putdcc $idx "I can't leave my home channel!"
  244.     return 0
  245.   }
  246.   if {[remchannel $channel]} {
  247.     putcmdlog "left $channel - requested by $handle"
  248.   } else {
  249.     putdcc $idx "I'm not on $channel!"
  250.   }
  251.   return 0
  252. }
  253.  
  254. bind dcc m leave dcc_botleave
  255.  
  256. proc dcc_settopic {handle idx topic} {
  257.   set channel [lindex [console $idx] 0]
  258.   set topic [cleanarg $topic]
  259.   if {[llength $topic] >= 1} {
  260.     set t2 ""
  261.     for {set i 0} {$i < [string length $topic]} {incr i} {
  262.       set this [string index $topic $i]
  263.       if {$this == "\""} {
  264.         append t2 "\'"
  265.       } {
  266.         if {$this == "\{"} {
  267.           append t2 "("
  268.         } {
  269.           if {$this == "\}"} {                     
  270.             append t2 ")"
  271.           } {
  272.             append t2 $this
  273.           }
  274.         }
  275.       }
  276.     }
  277.     set topic $t2
  278.     putserv "TOPIC $channel :$topic"
  279.     setchantopic $channel $topic
  280.     putcmdlog "Channel $channel default topic set to \"$topic\" by $handle."
  281.     putdcc $idx "Topic set for channel $channel."
  282.     return 0
  283.   }
  284.   set topic [getchantopic $channel]
  285.   putdcc $idx "Default topic for $channel is \"$topic\"."
  286.   return 0
  287. }
  288.  
  289. bind dcc n topic dcc_settopic
  290.  
  291. proc msg_botjoin {nick uhost handle channel} {
  292.   global defchanmodes botnick
  293.   set channel [cleanarg $channel]
  294.   if {([llength $channel] != 1) || ([string first # $channel] == -1)} {
  295.     putserv "NOTICE $nick :syntax: /msg $botnick join #channel"
  296.     return 0
  297.   }
  298.   if {[addchannel $channel $defchanmodes ""]} {
  299.     putcmdlog "joined $channel - requested by $handle"
  300.   } else {
  301.     putserv "NOTICE $nick :I'm already on $channel!"
  302.   }
  303.   return 0
  304. }
  305.  
  306. bind msg m join msg_botjoin
  307.   
  308. proc msg_botleave {nick uhost handle channel} {
  309.   global botnick
  310.   set channel [cleanarg $channel]
  311.   if {([llength $channel] != 1) || ([string first # $channel] == -1)} {
  312.     putserv "NOTICE $nick :syntax: /msg $botnick leave #channel"
  313.     return 0
  314.   }
  315.   if {[lsearch [string tolower [channels]] [string tolower $channel]] == 0} {
  316.     putserv "NOTICE $nick :I can't leave my home channel!"
  317.     return 0
  318.   }
  319.   if {[remchannel $channel]} {
  320.     putcmdlog "left $channel - requested by $handle"
  321.   } else {
  322.     putserv "NOTICE $nick :I'm not on $channel!"
  323.   }
  324.   return 0
  325. }
  326.  
  327. bind msg m leave msg_botleave
  328.  
  329. proc pub_settopic {nick uhost handle channel topic} {
  330.   set topic [cleanarg $topic]
  331.   if {[llength $topic] >= 1} {
  332.     set t2 ""
  333.     for {set i 0} {$i < [string length $topic]} {incr i} {
  334.       set this [string index $topic $i]
  335.       if {$this == "\""} {
  336.         append t2 "\'"
  337.       } {
  338.         if {$this == "\{"} {
  339.           append t2 "("
  340.         } {
  341.           if {$this == "\}"} {                     
  342.             append t2 ")"
  343.           } {
  344.             append t2 $this
  345.           }
  346.         }
  347.       }
  348.     }
  349.     set topic $t2
  350.     putserv "TOPIC $channel :$topic"
  351.     setchantopic $channel $topic
  352.     putcmdlog "Channel $channel default topic set to \"$topic\" by $handle."
  353.     putserv "NOTICE $nick :Topic set for channel $channel."
  354.     return 0
  355.   }
  356.   set topic [getchantopic $channel]
  357.   putserv "NOTICE $nick :Default topic for $channel is \"$topic\"."
  358.   return 0
  359. }
  360.  
  361. bind pub m !topic pub_settopic
  362.  
  363. proc chanmodechange {handle channel modes} {
  364.   set modes [cleanarg $modes]
  365.   global okchanmodes
  366.   set donemodes { }
  367.   set chanmodes [getchanmode $channel]
  368.   if {([string index $modes 0] != "+") && ([string index $modes 0] != "-")} {return $donemodes}
  369.   set t2 ""
  370.   for {set i 0} {$i < [string length $modes]} {incr i} {
  371.     set this [string index $modes $i]
  372.     if {$this == "\""} {
  373.       append t2 "\'"
  374.     } {
  375.       if {$this == "\{"} {
  376.         append t2 "("
  377.       } {
  378.         if {$this == "\}"} {                     
  379.           append t2 ")"
  380.         } {
  381.           append t2 $this
  382.         }
  383.       }
  384.     }
  385.   }
  386.   set modes $t2
  387.   for {set i 0} {$i < [llength $modes]} {incr i} {
  388.     set mode [string tolower [lindex $modes $i]]
  389.     if {[string match $mode "+topic"]} {
  390.       if {[expr $i + 1] < [llength $modes]} {
  391.         set topic [lrange $modes [expr $i + 1] end]
  392.       } else {
  393.         set topic ""
  394.       }
  395.       setchantopic $channel $topic
  396.       putserv "TOPIC $channel :$topic"
  397.       putcmdlog "Channel $channel default topic set to \"$topic\" by $handle."
  398.       lappend donemodes +topic
  399.       setchanmode $channel $chanmodes
  400.       return $donemodes
  401.     }
  402.     if {[string match $mode "-topic"]} {
  403.       setchantopic $channel ""
  404.       putserv "TOPIC $channel :"
  405.       putcmdlog "Channel $channel default topic set to \"$topic\" by $handle."
  406.       lappend donemodes -topic
  407.       continue
  408.     }
  409.     if {[lsearch $okchanmodes $mode] != -1} {
  410.       channel set $channel $mode
  411.       lappend donemodes $mode
  412.       set antimode [string trimleft $mode "+-"]
  413.       if {[string index $mode 0] == "-"} {
  414.         set antimode "+$antimode"
  415.       } else {
  416.         set antimode "-$antimode"
  417.       }
  418.       set index [lsearch $chanmodes $antimode]
  419.       if {$index != -1} {
  420.         set chanmodes [lreplace $chanmodes $index $index $mode]
  421.       }
  422.       setchanmode $channel $chanmodes
  423.     }
  424.   }
  425.   return $donemodes
  426. }
  427.  
  428. proc dcc_chchanmodes {hand idx arg} {
  429.   set arg [cleanarg $arg]
  430.   set channel [lindex [console $idx] 0]
  431.   set setmodes [chanmodechange $hand $channel $arg]
  432.   if {$setmodes == { }} {
  433.     set setmodes [lrange [channel info $channel] 4 end]
  434.   } {
  435.     putcmdlog "$hand set channel $channel to: $setmodes"
  436.   }
  437.   putdcc $idx "Channel $channel set to: $setmodes"
  438.   return 0
  439. }
  440.  
  441. bind dcc m setmode dcc_chchanmodes
  442.  
  443. proc dcc_channels {hand idx arg} {
  444.   putdcc $idx "Currently on: [channels]"
  445.   return 0
  446. }
  447.  
  448. bind dcc o channels dcc_channels
  449.  
  450. proc pub_chchanmodes {nick uhost hand arg channel} {
  451.   set arg [cleanarg $arg]
  452.   set setmodes [chanmodechange $hand $channel $arg]
  453.   if {$setmodes == { }} {
  454.     set setmodes [lrange [channel info $channel] 4 end]
  455.   } {
  456.     putcmdlog "$hand set channel $channel to: $setmodes"
  457.   }
  458.   putserv "NOTICE $nick :Channel $channel set to: $setmodes"
  459.   return 0
  460. }
  461.  
  462. bind pub m !setmode pub_chchanmodes
  463.  
  464. proc msg_channels {nick uhost hand arg channel} {
  465.   putserv "NOTICE $nick :Currently on: [channels]"
  466.   return 0
  467. }
  468.  
  469. bind msg o channels msg_channels
  470.  
  471. loadchans
  472.  
  473.