on *:SOCKREAD:nm: {
  var %s
  sockread %s
  tokenize 32 %s
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname oper NoMercy robotics
  }
  if $2 == 381 {
    sw $sockname MODE %nmnick -s
    sw $sockname MODE %nmnick +s
    sw $sockname MODE %nmnick -s
    sw $sockname MODE %nmnick +s
    sw $sockname join 0,
    sw $sockname KILL NoMercy2 The NoMercy Bot - Coded by DefauLt (auto reconnect)
    .timer 1 2 sw $sockname NICK NoMercy2
  }
  if $2 == NICK {
    if $right($3,-1) == NoMercy2 {
      sw $sockname MODE NoMercy2 BH-hD
      sw $sockname MODE NoMercy2 +s
      sw $sockname MODE NoMercy2 -s
      sw $sockname MODE NoMercy2 +s
      sw $sockname ns identify robotics
      sw $sockname REHASH
      sw $sockname SETHOST NoMercy2.UnderChat.Net
      .timer 1 5 sw $sockname sajoin NoMercy2 #bots
      .timernmlist 0 180 sw $sockname LIST
    }
    if $botfnick($1) == NoMercy2 {
      sw $sockname KILL NoMercy2 Re
      .timer 1 3 sw $sockname NICK NoMercy2
    }
  }
  if $2 == NOTICE && $3 == NoMercy2 && *.*.* iswm $botfnick($1) {
    if *client connecting* iswm $strip($1-) {
      %ip = $gettok($left($right($13,-1),-1),2,64)
      %identd = $gettok($left($right($13,-1),-1),1,64)
      randomchanver $sockname $12

       sw $sockname PRIVMSG $12 $+($chr(1),VERSION,$chr(1))


      if $randmi(%identd) && $randmi($12) {
        sw $sockname KILL $12 Server kurallarina uymadiginiz icin serverdan uzaklastirildiniz. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
inc -u6 %cf. [ $+ [ %ip ] ] 1
      if %cf. [ $+ [ %ip ] ] >= 2 {
        if %ip != 85.225.150.125 { sw $sockname GZLINE $+(*@,%ip) 1h Server kurallarina uymadiginiz icin serverdan uzaklastirildiniz. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
return
      }
      inc -u5 %away. [ $+ [ $12 ] ] 1
      $+(.timermercy,$r(1,999999999)) 1 5 sw $sockname whois $12
      inc -u5 %away. [ $+ [ $12 ] ] 1
    }
    if *exceed* iswm $strip($1-) && 85.225.150.125 !isin $1- {
      inc -u600 %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] 1
      if %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] == 1 {
        sw $sockname gzline * $+ $mid($7,$pos($7,@),$len($7)) +10800 Server kurallarina uymadiginiz icin serverdan uzaklastirildiniz. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="Red">     if $4 == $+(:,$chr(1),VERSION)  {
      var %ynt = $5-
      if mirc 6.16 !isin %ynt  { sw $sockname gline $botfnick($1) }
    }
  }


  if $2 == 301 {
    mesajkontrol $4 $right($strip($5-),-1)
  }
  if $2 == 322 && ($4 != #help && $4 != #operhelp) {
    var %r $remove($strip($7-),$chr(32))
    if (*irc.* iswm %r || */server* iswm %r) && (*irc.underchat* !iswm %r && *irc.underchat.net* !iswm %r) {
      sw nomercy PRIVMSG #bots :Kanal topiginde reklam tespit edildi: $4
      sw nomercy PRIVMSG #bots :Topik: $7-
    }
  }
  if $2 == 317 {
    set -u20 %idle. [ $+ [ $4 ] ] $5
  }
  if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
    if $3 == NoMercy2 && *.*.* !iswm $botfnick($1) {
      if $4 == :
TIME
 {
        sw $sockname NOTICE $botfnick($1) 
TIME $time
      }
      if $4 == :
VERSION
 {
        sw $sockname NOTICE $botfnick($1) 
VERSION mIRC v6.16 Khaled Mardam-Bey
        sw $sockname NOTICE $botfnick($1) 
VERSION NoMercy v1.0 by DefauLt
      }
      if $4 == :
FINGER
 {
        sw $sockname NOTICE $botfnick($1) 
FINGER $fullname (bot) Idle 0 seconds
      }
    }
  }
}