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

Tarafımca Can sıkıntısından yazılmış basitce bir komut uygulamadır, Online opers/admin olmadığında opsların başının çaresine bakması için gerekli diye düşündüm ;oki

Uygulama Biçimi:

!Komutlar (Komut listesini açar)
!shun nick (Shun Atar)
!unshun nick (shun açar)
!kill nick (sunucudan atar)
!kline nick (kline atar)
!unkline ip (kLineyi açar)
!sqline nick (nick yasaklar)
!unsqline nick (Nickin yasağını kaldırı)
!reklam nick (Reklam Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)
!Lamer nick (Saldırı Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)
!Kufur nick (Küfür Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)

Kod:

###############################################

#            Powered By CanCeL                #

# EKOLPC.ORG - SITEAL.NET INTERNET HIZMETLERI #

#      MSN/MAIL: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]           #

###############################################

#gerekli bindler

bind pub - !komutlar komut

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

}

proc komut {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "PRIVMSG $gnick :İsteğiniz üzerine komutlar listeleniyor, lütfen bekleyiniz..."

putserv "PRIVMSG $gnick :!shun nick (Shun Atar)"

putserv "PRIVMSG $gnick :!unshun nick (shun açar)"

putserv "PRIVMSG $gnick :!kill nick (sunucudan atar)"

putserv "PRIVMSG $gnick :!kline nick (kline atar)"

putserv "PRIVMSG $gnick :!unkline ip (kLineyi açar)"

putserv "PRIVMSG $gnick :!sqline nick (nick yasaklar)"

putserv "PRIVMSG $gnick :!unsqline nick (Nickin yasağını kaldırı)"

putserv "PRIVMSG $gnick :!reklam nick (Reklam Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)"

putserv "PRIVMSG $gnick :!Lamer nick (Saldırı Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)"

putserv "PRIVMSG $gnick :!Kufur nick (Küfür Yasaktır! Sebebi ile sunucudan kline ile uzaklaştırır)"

putserv "PRIVMSG $gnick :Komut listesi sonu..."

}

#gerekli bindler

bind pub - !shun shun

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc shun {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "shun $kanal Lutfen Kurallara Uyunuz!"

putserv "WALLOPS : $kanal, $gnick tarafınca SHUN emri verildi. "

}

#gerekli bindler

bind pub - !kill ciksin

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc ciksin {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "kill $kanal Lutfen Kurallara Uyunuz!"

putserv "WALLOPS : $kanal, $gnick tarafınca KILL emri verildi. "

}

#gerekli bindler

bind pub - !kline kline

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc kline {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "kline $kanal Lutfen Kurallara Uyunuz!"

putserv "WALLOPS : $kanal, $gnick tarafınca KLINE emri verildi!"

}

#gerekli bindler

bind pub - !unshun unshun

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc kline {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "unshun $kanal"

putserv "WALLOPS : $kanal, $gnick tarafınca SHUN Kaldırma emri verildi!"

}

#gerekli bindler

bind pub - !unkline unk

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc unk {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "unkline $kanal"

putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Kaldırma emri verildi!"

}

#gerekli bindler

bind pub - !Sqline sqline

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc sqline {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "os sqline add $kanal $gnick Tarafınca Yasaklanmıstır!"

putserv "WALLOPS : $kanal, $gnick tarafınca Nicki Yasaklanma Emrini Verdi!"

}

#gerekli bindler

bind pub - !unSqline unsqline

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc unsqline {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "os sqline del $kanal $gnick"

putserv "WALLOPS : $kanal, $gnick tarafınca Nick Yasağı Kaldırma Emrini Verdi!"

}

#gerekli bindler

bind pub - !reklam reklam

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc reklam {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "kline $kanal Reklam Yasaktır!"

putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!"

}

 

#gerekli bindler

bind pub - !kufur kufur

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc kufur {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "kline $kanal Küfür Yasaktır!"

putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!"

}

#gerekli bindler

bind pub - !lamer lamer

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

 

}

proc lamer {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]

putserv "kline $kanal Saldırı Yasaktır!"

putserv "WALLOPS : $kanal, $gnick tarafınca KLINE Emrini Verdi!"

}

NOT: TCL'yi denemeden verdim bir hata olursa yazarsınız düzeltirim.