IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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.