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

stats kullanımı botu laga sokar özellikle büyük sunucular için sorun yaratır.

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 *:text:*:#admin:{

  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 kayıt 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)

    }

  }

}

on *:start:write -c $xline.data

on *:disconnect:write -c $xline.data

[00:59:59] <xc> !ip 88.242.7.172
[00:59:59] <HaLiL> IP: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[00:59:59] <HaLiL> Banlayan: irc.kelebek.org
[00:59:59] <HaLiL> Sebep: Spm-Rklm
[00:59:59] <HaLiL> Ban Zamanı: 17/08/2008 00:51:53
[01:00:09] <xc> Yes i$te Budur :)
Orjinal Unreal3.2.5'de kodlandı ve test edildi oper arkadaşlar yada sunucusunda botuna eklemek isteyenler kullanabilir
amaç : kimin neden banlandığını, banı açmadan önce tespit etmek.
hata vs.. gibi durumlarda bildirirseniz sevinirim.
sock bota entegre etmek isterseniz her identifiere +3 değer vermelisiniz yani;
if ($2 == Global) { write xline.data $6
$6 ise o $9 olmalı, bütün değişkenlere +3 ekleyince sock bottada çalışacaktır..
XcLusive ~