# Helper Oto Host Sistemi v.1 
# .tcl Sistemi Olarak Yazılmıstır.
# By OkyAnuS
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~# 
set helperhost "Helper.SunucuAdresiniz"
set helperident "Services"
set helpername "IRCServer Help Takimi"
set helpchan "#HELP"
set helpermode "+h"
bind mode - * modes
proc modes {eden b c kanal mode helpernick} {
global helperhost helperident helpername helpermode helpchan
if {$kanal == $helpchan} { 
if {$helpernick == "OkyAnuS"} { halt } 
if {$mode == "+o"} {
putserv "CHGHOST $helpernick :$helperhost"
putserv "CHGIDENT $helpernick :$helperident"
putserv "CHGNAME $helpernick :$helpername"
putserv "os raw svsmode $helpernick :$helpermode"
putserv "notice $helpernick Sayın $helpernick Basari ile İdent,Realname,Host ve Modelerinizi Aldiniz."
putserv "notice $helpernick Lutfen $kanal Kanalinda Bulunan Kişilerle Saygili Bir Ortam Kurun."
}
if {$mode == "-o"} { 
if {$helpernick == $eden} {
putserv "NOTICE $helpernick :Lutfen $kanal Kanalinda Deop Olamazsiniz!"
putserv "MODE $kanal +o $helpernick"
} 
if {$helpernick != $eden} {
putserv "NOTICE $eden :Lutfen $kanal Kimseyi Deop Yapamazsiniz!"
putserv "MODE $kanal +o $helpernick"
}
}
}
}

source scripts/userinfo.tcl

source scripts/helpoto.tcl