Kod

alias _i-kanallar return $_web
alias _web return #Istatistik
alias swstatbot $iif($sock(statbot).status == active,sockwrite -nt statbot $1-)
on *:sockclose:statbot:$+(.timer,_saatkontrol) 1 2 _saatkontrol
on *:sockopen:statbot:{
  if ($sockerr) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
  else { swstatbot NICK $+($_bot,$left($calc($ticks * $r(10,99999)),$r(5,7))) | swstatbot USER $_ident "" $+(",$ip) $+(:,$_username) | sockmark $sockname $_statbot }
}
on *:sockread:statbot:{
  var %;statbot | sockread -f %;statbot | tokenize 32 %;statbot
  if $regex($1,/^PING$/) { swstatbot pong $remove($2,:) }
  elseif $regex($1,/^ERROR$/i) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
  elseif $regex($2,/^(471|473|474|475)$/) { swstatbot sajoin $_statbot $4 }
  elseif $regex($2,/^(411|481)$/) { swstatbot oper $_oper | swstatbot nick $_statbot | swstatbot nickserv identify $_pass }
  elseif $regex($2,/^(001|433)$/) {
    $iif($regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si),set %:myip $regml(1))
    swstatbot oper $_oper
    swstatbot ns ghost $_statbot $_pass
    swstatbot ns release $_statbot $_pass
    swstatbot join #0,0 
    .timer 1 3 swstatbot nick $_statbot
  }
  elseif $regex($2,/^NICK$/i) { 
    if ($_nick($1) == $_statbot) { swstatbot ns ghost $_statbot $_pass | swstatbot ns release $_statbot $_pass | .timer 1 3 swstatbot nick $_statbot }
    elseif ($right($3,-1) == $_statbot) {
      swstatbot ns identify $_pass
      swstatbot oper $_oper
      swstatbot os su $_supass
      swstatbot join #0,0
      swstatbot mode $right($3,-1) +qHp-hY
      swstatbot chghost $right($3,-1) $_host
      swstatbot os raw swhois $right($3,-1) :6,1  0,1 $token($_sunucu,2,46) IRCd 6,1 0,1 $remove($strip($_username), , )   
      $+(.timer,_saatkontrol) 0 20 _saatkontrol
      $+(.timer,statbot-gir) 1 3 swstatbot sajoin $right($3,-1) $replace($_i-kanallar,$chr(32),$chr(44))
    }
  }
  elseif $regex($2,/^PART$/i) && ($_nick($1) == $_statbot) && $istok($_i-kanallar,$3,32) { swstatbot sajoin $_nick($1) $3 }
  elseif $regex($2,/^KICK$/i) && ($4 == $_statbot) && $istok($_i-kanallar,$3,32) { swstatbot sajoin $4 $3 }
  elseif $regex($2,/^JOIN$/i) {
    if ($_nick($1) == $_statbot) {
      if $istok($_i-kanallar,$right($3,-1),32) { swstatbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) | swstatbot chghost $_nick($1) $_host }
      else { swstatbot sapart $_nick($1) $right($3,-1) }
    }
  }
  elseif $regex($2,/^MODE$/i) && $regex($3,/^#/) {
    if $regex($4,^\+(\S+)?(b)(\S+)?) && $regex($5-,/(^|\s) $+ $_statbot $+ !\*@\*/i) { swstatbot mode $3 -b $_statbot }
    elseif $regex($5-,/(^|\s) $+ $_statbot $+ (\s|$)/i) && ($_nickler($_nick($1)) == 0) { swstatbot mode $3 -qao+h $str($+($_statbot,$chr(32)),5) }
  }
  if $regex($2,/352/) {
    if $hget(IRC-Giris,$8) {
      swstatbot privmsg $_web $hget(IRC-Giris,$8) 4Giris: $8 2IP: $6 5Onceden Kullandigi  Nick: $+(,$_nick($8),)
      .hadd -ms $6 $+($date, ,$time) $8 $hget(IRC-Giris,$8)
      .hsave -o $6 $+(Ip/,$6,.tprk)
      .hdel -m IRC-Giris $8

    }
  }
  if $hget(Mobil-Giris,$8) {
    swstatbot privmsg $_web $hget(Mobil-Giris,$8)
    .hadd -ms $6 $+($date, ,$time) $8 $hget(Mobil-Giris,$8)
    .hsave -o $6 $+(Ip/,$6,.tprk)
    .hdel -m Mobil-Giris $8
  }
  if $hget(Web-Giris,$8) {
    swstatbot privmsg $_web $hget(Web-Giris,$8)
    .hadd -ms $6 $+($date, ,$time) $8 $hget(Web-Giris,$8)
    .hsave -o $6 $+(Ip/,$6,.tprk)
    .hdel -m Web-Giris $8 
  }
  if $2 == NOTICE {
    if $regex($4-,/Client connecting on port .+: (.+)/Si) && (@ !isin $1) {
      if $istok($_sunucuip %:myip,$token($token($regml(1),2,64),1,41),32) { return }
      .hadd -msu20 IRC-Giris $token($regml(1),1,32) $iif($remove($11,:) == 3434,Mobil,$iif($remove($11,:) == 6667,Web,IRC)) Girisi
      swstatbot who +I $token($regml(1),1,32)
    }
    if $regex($4-,has changed their nickname) { 
      var %:_enick $5, %:_nnick $12 
      hadd -msu300 IRC-Giris %:_nnick Nick Degisim
      swstatbot who +I %:_nnick
    }
    if *has changed his/her nickname* iswm $strip($4-) {
      if (Askkalbim-* iswm $14) { halt }
      swstatbot privmsg $_web  5Eski Nick : $7 / Yeni Nick : $14 / Ident : $remove($gettok($8,1,$asc(@)),$chr(40)) / IP : $token($gettok($8,2,64),1,41) 4X2
    }
    if *been forced to change his/her nickname* iswm $strip($4-) {
      if (Askkalbim-* iswm $17) { halt }
      swstatbot privmsg $_web  5Eski Nick : $7 / Yeni Nick : $17 / Ident : $remove($gettok($8,1,$asc(@)),$chr(40)) / IP : $token($gettok($8,2,64),1,41) 4X 
    }
    if $regex($4-,/Client connecting on port/Si) {
      var %:port $remove($11,:) ,%:nick $12 ,%:ip $left($token($13,2,64),-1)
      write $+(Iptara/,%:ip,.txt) Tarih-Saat $date - $time IP: %:ip Girisi Portu: %:port
      write $+(Nicktara/,%:nick,.txt) Tarih-Saat $date - $time Nick: %:nick Girisi Portu: %:port
      .hadd -smu10 $12 port %:port
      var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r) $token($_igslink,2,47) 80 | sockmark $+(ymcpro,%:r) $+(%:ip,¿,%:nick)
    }
    elseif $regex($2,/352/) && $hget(IRC-SC-Mobil-Web-Andro-Giris,$8) {
      var %:rand $+($8,$rand(10,9999999))
      .sockopen $+(pro,%:rand) $token($_igslink,2,47) 80 | .sockmark $+(pro,%:rand) $+($6,¿,$8,¿,$hget(IRC-SC-Mobil-Web-Andro-Giris,$8))
    }
    if $2 == QUIT {
      if $hget($botfnick($1)) {
        .hfree $botfnick($1)
        swstatbot privmsg $_web Bilgi : $botfnick($1) nicki tablosu silindi.  
      }
    }
    if $2 == notice {
      if *Client exiting:* iswm $1- { 
        swstatbot privmsg $_web 4Cikis: $9 5Onceden Kullandigi  Nick: $9
        if $hget($9) {
          .hfree $9 
        }
      }
      if *Client exiting at* iswm $1- { 
        swstatbot privmsg $_web $gettok($11,1-1,$asc(!)) sunucudan c kd .

        if $hget($gettok($11,1-1,$asc(!))) {
          .hfree $gettok($11,1-1,$asc(!))
        }
      }
      if *has changed his/her nickname* iswm $strip($4-) {
        if %salkons != on {
          if (Askkalbim-* iswm $14) { halt }
          var %ndeg1 $token($gettok($8,2,64),1,41)
          if !$hget(xipx,%ndeg1) {
            hadd -mu20000 xipx %ndeg1 $+($14,~,$asctime(HH:nn),~,$asctime(dd/mm),~,5NickDegisimi) 
          }
          set -u2 %iptak11 $hget(xipx,%ndeg1)
          if * $+ $14 $+ * iswm %iptak11 { return }
          hadd -mu20000 xipx %ndeg1 $+($hget(xipx,%ndeg1),*,$+($14,~,$asctime(HH:nn),~,$asctime(dd/mm),~,5NickDegisimi))
        }
      }
      if *been forced to change his/her nickname* iswm $strip($4-) {
        if %salkons != on {
          if (Askkalbim-* iswm $17) { halt }
          var %ndeg2 $token($gettok($8,2,64),1,41)
          if !$hget(xipx,%ndeg2) {
            hadd -mu20000 xipx %ndeg2 $+($17,~,$asctime(HH:nn),~,$asctime(dd/mm),~,5NickDegisimi) 
          }
          set -u2 %iptak12 $hget(xipx,%ndeg2)
          if * $+ $17 $+ * iswm %iptak12 { return }
          hadd -mu20000 xipx %ndeg2 $+($hget(xipx,%ndeg2),*,$+($17,~,$asctime(HH:nn),~,$asctime(dd/mm),~,5NickDegisimi))
        }
      }
      if *Client connecting on port* iswm $1- {
        if %salkons != on {
          inc %servergiris 
          if *hub.Sunucuadi.com* iswm $1- || *services.Sunucuadi.com* iswm $1- {
            var %wip $remove($gettok($12,2,$asc(@)),$chr(41))
            if !$hget(xipx,%wip) {
              hadd -mu30000 xipx %wip $+($11,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4Sistem)  
              halt
            }
            hadd -mu30000 xipx %wip $+($hget(xipx,%wip),*,$+($11,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4Sistem))  
            if $hget(Takiped,%wip) { swstatbot privmsg $3 Takip Rapor : $11 > %wip > hub.Sunucuadi.com }
          }
          if *Client connecting on port 6667* iswm $1- {
            if $read(C:\Users\Administrator\Bot\tor.txt,w,$remove($gettok($13,2,$asc(@)),$chr(41))) { return }
            .hinc -sm rapornom xirc.g
            .hsave rapornom hash/ymc
            var %ircip $remove($gettok($13,2,$asc(@)),$chr(41))
            if !$hget(xipx,%ircip) {
              hadd -mu30000 xipx %ircip $+($12,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4IRC)  
              halt
            }
            set -u3 %ipk1. [ $+ [ $12 ] ] $hget(xipx,%ircip)
            if * $+ $12 $+ * iswm %ipk1. [ $+ [ $12 ] ] { return }
            hadd -mu30000 xipx %ircip $+($hget(xipx,%ircip),*,$+($12,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4IRC))  
            if $hget(Takiped,%ircip) { 
              swstatbot privmsg $_web Takip Rapor : $12 > %ircip > irc.Sunucuadi.com
            }
          }
          if *Client connecting on port 7003* iswm $1- {
            if $read(C:\Users\Administrator\Bot\tor.txt,w,$remove($gettok($13,2,$asc(@)),$chr(41))) { return }
            .hinc -sm rapornom xweb.g
            .hsave rapornom hash/takip.hang
            var %wip $remove($gettok($12,2,$asc(@)),$chr(41))
            if !$hget(xipx,%wip) {
              hadd -mu30000 xipx %wip $+($11,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4Web) 
              swstatbot privmsg $_web %wip $+($11,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4Web)  
              halt
            }
            set -u3 %ipk2. [ $+ [ $11 ] ] $hget(xipx,%wip)
            if * $+ $11 $+ * iswm %ipk2. [ $+ [ $11 ] ] { return }
            hadd -mu30000 xipx %wip $+($hget(xipx,%wip),*,$+($11,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4Web))  
            if $hget(Takiped,%wip) {
              swstatbot privmsg $_web Takip Rapor : $11 > %wip > Web.Sunucuadi.com
            }
          }
          if *Client connecting on port 9696* iswm $1- {
            if $read(C:\Users\Administrator\Bot\tor.txt,w,$remove($gettok($13,2,$asc(@)),$chr(41))) { return }
            .hinc -sm rapornom xmob.g
            .hsave rapornom hash/takip.hang
            var %webip $remove($gettok($12,2,$asc(@)),$chr(41))
            if !$hget(xipx,%webip) {
              hadd -mu30000 xipx %webip $+($11,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4Mobil)  
              halt
            }
            set -u3 %ipk3. [ $+ [ $11 ] ] $hget(xipx,%webip)
            if * $+ $11 $+ * iswm %ipk3. [ $+ [ $11 ] ] { return }
            hadd -mu30000 xipx %webip $+($hget(xipx,%webip),*,$+($11,~,$asctime(HH:nn),~,$asctime(dd/mm),~,4Mobil))  
            if $hget(Takiped,%webip) { 
              swstatbot privmsg $_web Takip Rapor : $11 > %webip > Mobil.Sunucuadi.com
            }
          }
        }
      }
    }
    if $2 == 352 {
      if $hfind(mirctrbad,$8,1,W).data {
        var %bn $+(Sunucuadi.comUser-,$r(0,9999999900))
        swstatbot kick $_sohbet $8 Badnick tespit edilmistir. 
        swstatbot privmsg $_web Takilan badnick [ $8 ] Yeni nick [ %Bn ]
        halt
      }
    }
    elseif ($3 == $_web) {
      if $regex($remove($4,:),/^[!.-]komutlar$/Si) {
        swstatbot privmsg $3 :*
        swstatbot privmsg $3 :*** Istatistik Komut Listesi ***
        swstatbot privmsg $3 :*
        swstatbot privmsg $3 :2[4./!2]4nicktara 2<4Nick2> ait giris bilgisi verir.
        swstatbot privmsg $3 :2[4./!2]4rapor3 2Sunucuya 7 g nl k giris bilgisi verir.
        swstatbot privmsg $3 :2[4.\!2]4rapor2 22<4WEB2> 2<IRC2> 2<4Mobil2> Bugun girenlerin bilgisini verir.
        swstatbot privmsg $3 :
      }
      if $regex($remove($4,:),/^[!.-]nicktara$/Si) {
        if $findfile(Nicktara,$+($5,.txt),0) = 0 { swstatbot privmsg $_web 12 $5 1nickine ait kayıt bulunamadı! }
        else {
          swstatbot privmsg $2 12 $5 Nickine ait rapor!
          swstatbot privmsg $3 
          var %i = $calc($lines($findfile(Nicktara,$+($5,.txt),1)) -20) 
          while %i <= $lines($findfile(Nicktara,$+($5,.txt),1)) {
            swstatbot privmsg $_web $read($findfile(Nicktara,$+($5,.txt),1),%i)
            inc %i
          }
          swstatbot privmsg $3 
          swstatbot privmsg $3 Rapor sonu!
        }
      }
      if $regex($remove($4,:),/^[!.-]iptara$/Si) {
        if !$regex($5,/(\d+\.\d+\.\d+\.\d+)) { swstatbot privmsg $3 Lütfen geçerli bir ip adresi belirtin. 12(!rapor 1.2.3.4) | return }
        if $findfile(Iptara,$+($5,.txt),0) = 0 { swstatbot privmsg $3 12 $5 1ip adresine ait kayıt bulunamadı! }
        else {
          swstatbot privmsg $3 [ $5 ] IP'sine ait rapor!
          swstatbot privmsg $3 
          var %i = $calc($lines($findfile(Iptara,$+($5,.txt),1)) -20) 
          while %i <= $lines($findfile(Iptara,$+($5,.txt),1)) {
            swstatbot privmsg $_web $read($findfile(Iptara,$+($5,.txt),1),%i)
            inc %i
          }
          swstatbot privmsg $3 
          swstatbot privmsg $3 Rapor sonu!.
        }
      } 
      if *-ip* iswm $4 {
        if %ipkonop == on { swstatbot privmsg $3 0,4 UYARI  : -ip komutunu tekrar kullanmak i in 5 saniye bekleyiniz. | return }
        set -u5 %ipkonop on
        if $5 == local {
          var %s sockwrite -nt, %mm $chr(32) $+ Dakika, %ss $chr(32) $+ Saniye
          if $hget(s re,localip) == Evet { swstatbot privmsg $3 [4 $+ $nnick($1)  Komutun kullan m na4 $replace($duration($hget(s re,localip).unset),min,%mm,secs,%ss) kaldi..] | return }
          if !$6 { %s $sockname privmsg $3 Ip adresi yaz n z. | halt } | klk $6 
          hadd -mu120 s re localip Evet
          halt
        }
        if $5 == Nick {
          if !$6 { swstatbot privmsg $3 L tfen nick yaz n. Kullan m : -ip Nick Hangman | halt }
          if !$hget(xnickx,$strip($6)) {
            swstatbot privmsg $3 $strip($6) nicki hakkinda bilgi yok. 
            halt
          }
          swstatbot privmsg $3 4=====2IP4=====2Saat4=====2Tarih4=====2Giri  Linki4======
          var %sn 1 
          while %sn <= $calc($count($hget(xnickx,$strip($6)),*) + 1) {
            swstatbot privmsg $3 %sn $+ ) $chr(2) $+ $replace($gettok($hget(xnickx,$6),%sn,$asc(*)),~,$chr(32))
            inc %sn
          }
          swstatbot privmsg $3 4===== Kayitli bulunan Nick say s  :4 $hget(xnickx,0).data =====
          halt
        }
        if $5 == Clone {
          if !$6 { swstatbot privmsg $3 L tfen ip belirtin. | halt }
          set -u5 %who.clone Evet | set -u5 %who.ip $6
          sw duyurubot who +h $6
          halt
        }
        if $5 == takip {
          if !$istok(Ekle Sil,$6,32) { swstatbot privmsg $3 :Bilinmeyen i lem. | halt }
          if $6 == Ekle {
            if !$7 { swstatbot privmsg $3 :L tfen ip belirtiniz. | halt }
            hadd -m Takiped $7 Sado!
            swstatbot privmsg $3 Takibe al nan IP: $7
            swstatbot privmsg $3 :Silmek i in -ip takip sil $7
          }
          if $6 == sil {
            if !$7 { swstatbot privmsg $3 :L tfen ip belirtiniz. | halt }
            hdel Takiped $7
            swstatbot privmsg $3 Takibden silinen IP: $7
          }
          halt
        }
        if $5 == veri { 
          if !$6 {
            swstatbot privmsg $3 Kayitli bulunan IP say s  :4 $hget(xipx,0).data
            swstatbot privmsg $3 Kayitli bulunan Nick say s  :4 $hget(xnickx,0).data
            halt
          }
        }
      }
      if $ikontrol($5) == $false { swstatbot privmsg $3 Hatali kullanim. Kullan m  :4 -ip Nick $5  eklinde deneyiniz. | halt }
      if $read(C:\Users\Administrator\Desktop\NoMercyV3\System Koruma Bot\Nicktara/$5,.txt) { swstatbot privmsg $3 4UYARI :4 $5 2daha  nceden sald rm s sab kal  bir IP dir bilgisi tutulmaz. ( .banac $5 ) yaparak muaf alabilirsiniz. | return }
      if !$hget(xipx,$strip($5)) {
        swstatbot privmsg $3 $strip($5) nolu ip hakkinda Giri /  k   bilgisi yok.
        .timer 1 3 swstatbot privmsg $3 :-4 $5 'a uyan NickServ verisi -
        .timer 1 3 /ns list $+(*@,$5)
        set -u8 %ipkont on
        nerdens $5 XX
        set %trip *@ $+ $5
        swbot stats K
        swbot stats G
        set %ipblnd ipyok
        set %nsbson off
        halt
      }
      swstatbot privmsg $3 4=====2Nick4=====2Saat4=====2Tarih4=====2Giri /Action4====
      var %s 1 
      while %s <= $calc($count($hget(xipx,$strip($5)),*) + 1) {
        swstatbot privmsg $3 %s $+ ) $chr(2) $+ $replace($gettok($hget(xipx,$5),%s,$asc(*)),~,$chr(32))
        inc %s
      }
      swstatbot privmsg $3 4===== Kayitli bulunan IP say s  :4 $hget(xipx,0).data =====
      swstatbot privmsg $3 T m giri lerde, bir IP i in ayn  nickle giri , bir kez kaydedilir.
      swstatbot privmsg $3 
      .timer 1 3 swstatbot privmsg $3 :-4 $5 'a uyan NickServ verisi -
      .timer 1 3 /ns list $+(*@,$5)
      set -u10 %ipkont on
      nerden $5 XX
      set %trip *@ $+ $5
      swbot stats K
      swbot stats G
      set %ipblnd ipyok
      set %nsbson off
    }
  }
  if *.data* iswm $4 {
    swstatbot privmsg $3 6Bilgi : Sistem botlari6 
    .timer 1 2 swstatbot privmsg $3 Sistem a ilma zamani :6 $read(txt/zamanbas.txt)
    .timer 1 2 swstatbot privmsg $3 Kayitli nick hafizasi :6 $lines(txt/nickdb.txt)
    .timer 1 4 swstatbot privmsg $3 Takip i in kayitli bulunan Nick sayisi :6 $hget(xnickx,0).data
    .timer 1 5 swstatbot privmsg $3 Sistemimde kayitli badnick tanimi :6 $hfind(badnick,*,0,w)
    .timer 1 6 swstatbot privmsg $3 Sistemimde kayitli k f r/argo tanimi :6 $hfind(kufur,*,0,w)
    .timer 1 7 swstatbot privmsg $3 Aktif hash table sayisi :6 $hget(0).data
    .timer 1 8 swstatbot privmsg $3 Sisteme ekli oper/admin sayisi :6 $lines(hash/oper.tprk)
    .timer 1 9 swstatbot privmsg $3 Bugun WEB giris :6 $hget(rapornom,xweb.g)
    .timer 1 10 swstatbot privmsg $3 Bugun IRC giris :6 $hget(rapornom,xirc.g)
    .timer 1 11 swstatbot privmsg $3 Bugun MOBIL giris :6 $hget(rapornom,xmob.g)
    .timer 1 12 swstatbot privmsg $3 Bugun Qweb ve WebChat giris :6 $hget(rapornom,xsoci.g)
  }
 if *.girisler iswm $4 {
    swstatbot os stats all 
    sockwrite -nt $sockname privmsg $3 : $+ $read(txt/zamanbas.txt) ~ $time $date  Tarihleri aras  server bilgi.
    sockwrite -nt $sockname privmsg $3 : $+ 
    swstatbot privmsg $3 Bugun WEB giris :6 $hget(rapornom,xweb.g)
    swstatbot privmsg $3 Bugun IRC giris :6 $hget(rapornom,xirc.g)
    swstatbot privmsg $3 Bugun MOBIL giris :6 $hget(rapornom,xmob.g)
    swstatbot privmsg $3 Bugun WoOvv giris :6 $hget(rapornom,xwoov.g)

  }
  if $regex($remove($4,:),/^[!.-]komutlar$/Si) {
    swstatbot privmsg $3 :*
    swstatbot privmsg $3 :*** Istatistik Komut Listesi ***
    swstatbot privmsg $3 :*
    swstatbot privmsg $3 :2[4./!2]4nickt 2<4Nick2> ait giris bilgisi verir.
    swstatbot privmsg $3 :2[4.\!2]4rapor 2<4IP2> ait girisleri verir.
    swstatbot privmsg $3 :2[4./!2]4rapor3 2Sunucuya 7 g nl k giris bilgisi verir.
    swstatbot privmsg $3 :2[4.\!2]4rapor2 22<4WEB2> 2<IRC2> 2<4Mobil2> Bugun girenlerin bilgisini verir.
    swstatbot privmsg $3 :
  }
  if $regex($remove($4,:),/^[!.-]nicktara$/Si) {
    if $findfile(Nicktara,$+($5,.txt),0) = 0 { swstatbot privmsg $_web 12 $5 1nickine ait kayıt bulunamadı! }
    else {
      swstatbot privmsg $2 12 $5 Nickine ait rapor!
      swstatbot privmsg $3 
      var %i = $calc($lines($findfile(Nicktara,$+($5,.txt),1)) -20) 
      while %i <= $lines($findfile(Nicktara,$+($5,.txt),1)) {
        swstatbot privmsg $_web $read($findfile(Nicktara,$+($5,.txt),1),%i)
        inc %i
      }
      swstatbot privmsg $3 
      swstatbot privmsg $3 Rapor sonu!
    }
  }
  if $regex($remove($4,:),/^[!.-]iptara$/Si) {
    if !$regex($5,/(\d+\.\d+\.\d+\.\d+)) { swstatbot privmsg $3 Lütfen geçerli bir ip adresi belirtin. 12(!rapor 1.2.3.4) | return }
    if $findfile(Iptara,$+($5,.txt),0) = 0 { swstatbot privmsg $3 12 $5 1ip adresine ait kayıt bulunamadı! }
    else {
      swstatbot privmsg $3 [ $5 ] IP'sine ait rapor!
      swstatbot privmsg $3 
      var %i = $calc($lines($findfile(Iptara,$+($5,.txt),1)) -20) 
      while %i <= $lines($findfile(Iptara,$+($5,.txt),1)) {
        swstatbot privmsg $_web $read($findfile(Iptara,$+($5,.txt),1),%i)
        inc %i
      }
      swstatbot privmsg $3 
      swstatbot privmsg $3 Rapor sonu!.
    }
  } 
  if $regex($remove($4,:),/^([!.&]rapor3)$/Si) {
    swstatbot privmsg $3 4--- Son 7 günlük sunucu istatistikleri  4---
    swstatbot privmsg $3 
    set %issay 6
    var %nois $Calc($Lines(txt/istatistikler.txt)-%issay)
    while %nois <=  $Lines(txt/istatistikler.txt) {
      swstatbot privmsg $3 $Read(txt/istatistikler.txt,%nois)
      inc %nois
    }
  }
  if $regex($remove($4,:),/^([!.&]rapor2)$/Si) { 
    swstatbot privmsg $3 Bugun WEB giriş  :4 $hget(rapornom,xweb.g)
    swstatbot privmsg $3 Bugun IRC giriş  :4 $hget(rapornom,xirc.g)
    swstatbot privmsg $3 Bugun MOBIL giriş  :4 $hget(rapornom,xmob.g)
    swstatbot privmsg $3 Bugun WoOvv giriş  :4 $hget(rapornom,xwoov.g)
  }
}




alias gösteris {
  swstatbot privmsg $3 4--- Son 7 günlük sunucu istatistikleri  4---
  swstatbot privmsg $3 
  set %issay 6
  var %nois $Calc($Lines(txt/statbotler.txt)-%issay)
  while %nois <=  $Lines(txt/statbotler.txt) {
    swstatbot privmsg $3 $Read(txt/statbotler.txt,%nois)
    inc %nois
  }
}
alias saatkontrol {
  if $time == 04:30:00 {
    var %n 1
    while %n <= $lines(txt/Globl.txt) {
      swbot mode $read(txt/Globl.txt,%n) +M
      swstatbot privmsg $read(txt/Globl.txt,%n) : $+ 
ACTION Global kanallar kayitsiz nicklerin konusmasina kapatilmistir.
      inc %n
    }
  }
  if $time == 08:30:00 {
    var %n 1
    while %n <= $lines(txt/Globl.txt) {
      swbot mode $read(txt/Globl.txt,%n) -mM
      swstatbot privmsg $read(txt/Globl.txt,%n) : $+ 
ACTION Global kanallar konusmaya acilmistir.
      inc %n
    }
  }
  if (%:ison != on) {
    if $gettok($time,1-2,58) == 00:00 {
      set -u61 %:ison on
      swstatbot privmsg $3 2Saat :4 $gettok($time,1-2,58) 2-4 $calc($gettok($date,1,47) -1) $+ / $+ $gettok($date,2-,47) 2tarihi i in g nl k statbotler kaydediliyor...
      set %kay tirc $hget(rapornom,xirc.g)
      set %kay tweb $hget(rapornom,xweb.g)
      set %kay tmob $hget(rapornom,xmob.g)
      set %kay twoov $hget(rapornom,xwoov.g)
      .timer 1 2 write txt/istatistikler.txt $calc($gettok($date,1,47) -1) $+ / $+ $gettok($date,2-,47) - 4IRC Giriş  : %kay tirc 4Web Giriş  : %kay tweb 4Mobil Giriş  : %kay tmob 4WoOvv Giriş  : %kay twoov
      .timer 1 10 unset %kay t*
      .timer 1 5 /zamankayt
      .timer 1 15 /g steris
    }
  }
}

alias zamankayt {
  hadd rapornom xirc.g 0
  hsave rapornom hash/takip.hang
  hadd rapornom xweb.g 0
  hsave rapornom hash/takip.hang
  hadd rapornom xmob.g 0
  hsave rapornom hash/takip.hang
  hadd rapornom xwoov.g 0
  hsave rapornom hash/takip.hang
}

alias qgundurumu { 
  %gdurum = $gettok($time,1,58) 
  if $istok(00 01 02 03 04 05,%gdurum,32) { 
    return Iyi geceler 
  } 
  if $istok(06 07 08 09 10 11,%gdurum,32) { 
    return Gunaydin 
  } 
  if $istok(12 13 14 15 16 17,%gdurum,32) { 
    return Tunaydin
  } 
  if $istok(18 19 20 21 22 23,%gdurum,32) { 
    return Iyi aksamlar 
  } 
}
alias ssay { hinc nts $1 $2 } 
alias ssays { hdec nts $1 $2 }