Helphost.tcl script download

set hhost "Helper"

set hident "Helper"

set hname "IRCD HELP Sorumlusu"

set hchan "#Help"

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 lease 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 lease dont deop anyone on $kanal channel!"

putserv "MODE $kanal +oa $etken $etken"

}

}

}

}

putlog "Auto Helpop loaded."

bind part – * partes

 

Bilgisayarına ;

Helphost.tcl Script indir ..