Helper Oto Host
Kod:
# 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"
}
}
}
}/
daha sonra ; ftpmize login oluyoruz . ve eggdrop/scripts dosyasinin icine kaydediyoruz.
Daha Sonra Sunucuya Sokacagimiz Botun Confunu Duzenleyerek , Bu Sistemi Almasını Sağlıyoruz.
Aşağıdaki Satırı Buluyoruz ..
Kod:
source scripts/userinfo.tcl
Kod:
source scripts/helpoto.tcl