Oto Helper Host TCL

[Ahmet]

set hhost "Yonetim.KraLSheLL.Net"
set hident "KraLSheLL"
set hname "localhost. KraLSheLL Bilisim Hizmetleri"
set hchan "#Yonetim"
bind mode - * modes
proc modes {eden b c kanal mode etken} {
global hhost hident hname hchan
if {$kanal == $hchan} {
if {$mode == "+o"} {
putserv "CHGHOST $etken :$hhost"
putserv "CHGIDENT $etken :$hident"
putserv "CHGNAME $etken :$hname"
}
if {$mode == "-o"} {
if {$etken == $eden} {
putserv "NOTICE $etken :Lutfen $kanal kanalinda Deop olmayiniz!"
putserv "NOTICE $etken :Please Dont Deop yourself on $kanal channel!"
putserv "MODE $kanal +oa $etken $etken"
}
if {$etken != $eden} {
putserv "NOTICE $eden :Lutfen $kanal kanalinda $etken i Deop yapmayiniz!"
putserv "NOTICE $eden :Please dont deop anyone on $kanal channel!"
putserv "MODE $kanal +oa $etken $etken"
}
}
}
}
putlog "Auto Helpop loaded."
bind part - * partes