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"
}
}
}
}/
Yukarıda vermiş oldugum kod .tcl sistemi uzerine yazilmistir. Yeni bir metin belgesi acıp bu kodu koyuyoruz , duzenliyip farklı kaydet diyerek , helpoto.tcl Olarak kaydediyoruz .
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
ve hemen altına
Kod:
source scripts/helpoto.tcl
Ekliyoruz , ve helper Botumuzu Sunucuya Sokuyoruz.