IRCoplar için .bankontrol ve .banac

Kullanımı :

#Opers kanalında .bankontrol IP
.banac IP

Dilerseniz Hem kenıdınız yada socket botunuzda Kullanabilirsiniz.. 2 şekilde ayarlıdır.

on *:text:.bankontrol *:#Opers:{
if $verify_ip($2) {
.set -u15 %bankontrolip $chr(42) $+ @ $+ $2
.enable #bankontrol
.stats g
}
if !$verify_ip($2) {
msg #Opers IP adresini uygun girmediniz.(Örnek: .bankontrol 212.101.125.2 )
}
}
on *:text:.banac *:#Opers :{
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 )
}
}
on *:input:*:{
if *.bankontrol* iswm $1 {
if $verify_ip($2) {
.set -u15 %bankontrolip $chr(42) $+ @ $+ $2
.enable #bankontrol
.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 )
}
}
}
#bankontrol off
raw 223:* {
if %bankontrolip == $3 {
.set -u15 %banokey 1
msg #Opers %bankontrolip >>> $6-
}
}
raw 219:* {
if !%banokey {
msg #Opers %bankontrolip >>> Bu IP’de ban bulunmuyor.
}
.unset %banokey
.unset %bankontrolip
.disable #bankontrol
}
#bankontrol end
alias verify_ip {
if ($regex(vfip, $1, /(d{1,3}).(d{1,3}).(d{1,3}).(d{1,3})/)) {
var %i = 1
while (%i <= 4) { if ($regml(vfip, %i) < 0 || $regml(vfip, %i) > 255) {
return $false
}
inc %i
}
return $true
}
return $false
}

Leave a Reply

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir