| darkshades1 | 18 Şubat 2011 09:58 |
Cevap: !ip kontrol
Alıntı:
Voodo Nickli Üyeden Alıntı
(Mesaj 1040682787)
Arkadaşlar darkshades arkadaşım dan aldığım bi cod var sizle paylaşacam yanlız cod çalışmadı buna bakarsanız sevinirim
on *:text:*:#opers:{
if $1 == .ip && $2 {
if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }
else {
.msg # IP: $gettok(%xline.data,1,183)
.msg # Banlayan: $gettok(%xline.data,2,183)
.msg # Sebep: $gettok(%xline.data,3,183)
.msg # Ban Zamanı: $gettok(%xline.data,4,183)
}
}
}
bide bu koda zlinenin açılmasını istiyorsanız !evet yazın demesini ve !evet yazdığımda zlinenin kaldırılmasını istiyorum fikri olan yardım edebilirse sevinirim
| Kod:
alias xline.data return $shortfn($+($mircdir,xline.data))
on *:snotice:*:{
if (*Z:line added* iswm $1-) {
if ($2 == Global) { write xline.data $6 $+ $chr(183) $+ $15 $+ $chr(183) $+ $left($25-,-1) $+ $chr(183) $+ $date $time }
else { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
}
if (*K:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
if (*G:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
if (*Permanent Global Z:line* iswm $1-) { write xline.data $7 $+ $chr(183) $+ $remove($16,:) $+ $chr(183) $+ $left($17,-1) $date $time }
if (*Permanent Z:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
if (*Permanent G:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
if (*Permanent K:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
if (*removed Global Z:line* iswm $1-) { if ($read($xline.data,w,$+(*,$5,*))) { write $+(-dl,$readn) $xline.data } }
if (*removed K:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }
if (*removed Z:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }
if (*removed G:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }
if *Expiring Global Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($5,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }
if *Expiring K:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }
if *Expiring G:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }
if *Expiring Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }
}
on *:input:#Opers:{
if $1 == .ip && $2 {
if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }
else {
.msg # IP: $gettok(%xline.data,1,183)
.msg # Banlayan: $gettok(%xline.data,2,183)
.msg # Sebep: $gettok(%xline.data,3,183)
.msg # Ban Zamanı: $gettok(%xline.data,4,183)
}
}
}
#opers kanalında .ip *IP* adresi yazdıgında o ip neden ban yediğini görebilirsin.. |
