Kod:
on *:input:*:{
if *.bankontrol* iswm $1 {
if $verify_ip($2) {
.set -u15 %bankontrolip $chr(42) $+ @ $+ $2
.enable #opers
.stats g
}
if !$verify_ip($2) {
msg #opers IP adresini uygun girmediniz.(Örnek: .bankontrol 212.101.125.2 )
}
}
if *.banac* iswm $1 {
if $verify_ip($2) {
/rmtkl * *@ $+ $2
msg #opers $2 üzerindeki tüm banlar açıldı.
}
if !$verify_ip($2) {
msg #opers IP adresini uygun girmediniz. (Örnek: .banac 212.101.125.2 )
}
}
}
buda banacma kodu
alias -l msgchan return #opers
on *:text:.*:$($msgchan):{
if ($1 == .ip) {
if ($2 == $null) { msg # 4* Gecerli bir ip adresi girin. | return }
if ($gettok($2,1,46) !isnum) { msg # 4* Gecerli bir ip adresi girin. | return }
stats s +m $+(*@,$2)
stats g +m $+(*@,$2)
stats g +m $+(*@,$2)
set -u3 %rawacik OK
set %ipnosu' $2
}
if ($1 == .unban && %bannedip') {
rmtkl * $+(*@,%bannedip')
msg # 3* $+($chr(91),,%ipnosu',,$chr(93)) IP numarasina ait tum banlar kaldirildi.
unset %bannedip'
}
if ($1 == .banac) {
if ($2 == $null) { msg # 4* Gecerli bir ip adresi girin. | return }
if ($gettok($2,1,46) !isnum) { msg # 4* Gecerli bir ip adresi girin. | return }
rmtkl * $+(*@,$2)
msg # 3* $+($chr(91),,$2,,$chr(93)) IP numarasina ait tum banlar kaldirildi.
}
if ($1 == .auth) {
if ($2 == $null) { msg # 4* Gecerli bir nick girin. | return }
set -u4 %gecis OK
ns getauth $2
}
if ($1 == .nick-sifre) {
if ($2 == $null) { msg # 4* Gecerli bir nick girin. | return }
}
if ($1 == .mail) {
if ($2 == $null) { msg # 4* Gecerli bir nick girin. | return }
set -u3 %gecis1 OK
ns listemail $2
}
}
raw 223:*:{
if (%rawacik) {
set %bannedip' $gettok($3,2,64)
msg $msgchan 2_____________________________
msg $msgchan 5Banlayan: $iif($6 == irc.SohbetBaz.Org,Diyalok,$gettok($6,1,33))
msg $msgchan 5Ban Tipi: $replacecs($2,G,Gline,Z,Zline,s,Shun)
msg $msgchan 5Ip Adresi: $gettok($3,2,64)
msg $msgchan 5Ban Sebebi: $7-
msg $msgchan 5Ban Zamani: $time($calc($ctime - $5),dd/mm/yy - HH:nn)
msg $msgchan -
msg $msgchan 7> Bu ip adresine $+($chr(91),$gettok($3,2,64),$chr(93)) ait banlari ip adresi belirtmeden sadece .unban komutunu kullanarak kolayca kaldirabilirsiniz.
}
}
on *:notice:*:*:{
if (%gecis) {
if ($nick == Nickserv) {
msg #opers $1-
}
}
if (%gecis1) {
if ($nick == Nickserv) {
msg #operlog $1-
}
}
}