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

İşe yarar diye düşündüm bu kodu yazdım.
Bu komutları sadece oda Operatorleri kullanabilir.

Kod:

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

# Hazırlayan by: CanCeL

###########################
 bind pub - !ban banned
 #PROC
 proc banned {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "samode $chan +b $text"
 putquick "privmsg $chan : $text Basariyla Banlandi $nick"
 } 
 bind pub - !unban ubanned
 #PROC
 proc ubanned {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "samode $chan -b $text"
 putquick "privmsg $chan : $text Basariyla Banı Kaldırıldı $nick"
 }
 bind pub - !kick kicked
 #PROC
 proc kicked {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "kick $chan $text Aykırı Davranış!"
 putquick "privmsg $chan : $text Odadan uzaklastırıldı $nick"
 }
 bind pub - !kb kban
 #PROC
 proc kban {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "samode $chan +b $text"
 putquick "kick $chan $text Aykırı Davranış!"
 putquick "privmsg $chan : $text Odadan banlanıp uzaklastırıldı $nick"
 }
 bind pub - !voice vops
 #PROC
 proc vops {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "samode $chan +v $text"
 putquick "privmsg $chan : $text Voice konumuna cıkarıldı. $nick"
 } 
 bind pub - !devoice dvop
 #PROC
 proc dvop {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "samode $chan -v $text"
 putquick "privmsg $chan : $text Voice konumundan indirildi. $nick"
 } 
 bind pub - !op top
 #PROC
 proc top {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "samode $chan +o $text"
 putquick "privmsg $chan : $text Operator Konumuna Cıkarıldı $nick"
 } 
 bind pub - !deop deop
 #PROC
 proc deop {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "samode $chan -o $text"
 putquick "privmsg $chan : $text Operator Konumundan Indirildi. $nick"
 } 
 bind pub - !temizle clear
 #PROC
 proc clear {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0}
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :."
 putquick "PRIVMSG $chan :Oda Ekranı Temizlendi $nick !"
 }

Komutlar:
!ban <nick>
!unban <nick>
!kick <nick>
!kb <nick>
!op <nick>
!deop <nick>
!voice <nick>
!devoice <nick>
!temizle

Botun daha hızlı işlem yapması için;

SHH'ye login olun ve;
cd egg*1*
cd src
cd mod
cd server.mod
pico server.c
Açılan dosyada
#define msgrate 2
satırını bulup
#define msgrate 0
Şeklinde değiştirip ctrl +x + y basarak (kaydeder) çıkıyorsunuz. Daha sonra:
cd
cd egg*1*
yazıp açılan dizinde sırasıyla
./configure
make config
make
make install

DipNot: Test ettim gayet güzel çalışıyor, CR'de kullanılan komutları ekledim (!ban-!unban) Unrealda kullanacak olanlar "samode $chan" yazan yerlere "os mode $chan" yapması yeterli olacak. Ayrıca botun !kb/kick gibi komutları kullanması icin odada op konumunda bulunması lazım ve operini açması lazım... ;)

Saygılar...

İşine yarar umarım..