Eggdrop Tcl Arşivi Allop.tcl

#Mirc.gen.tr Allaop Tcl
#  - opar alla som joina kanalen

# I vilka kanaler ska de funka?
#  - viktigt, sätt “” för att de ska funka i alla kanaler annars #kanal
set avchan “#o”

# här börjar koden

bind join - * avjoin

proc avjoin {nick uhost hand chan} {
global avchan botnick
if {$nick == $botnick} {return 0}
if {$avchan == “” && [botisop $chan]} {
  pushmode $chan +o $nick
  return 0
}
set chan [string tolower $chan]
foreach i [string tolower $avchan] {
  if {$i == $chan && [botisop $chan]} {
   pushmode $chan +o $nick
   return 0
  }
}
}

putlog “Loaded allop.tcl by Mirc”

Arşivinizde bulunmasi gereken güzel bir tcl

Mirc.gen.tr Tcl ArÅŸivi

This entry was posted on Cumartesi, Ekim 3rd, 2009 at 15:15 and is filed under Eggdrop TCL List, Eggdrop psybnc. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.