on *:SOCKREAD:nm2: {
  var %nmiki
  sockread %nmiki
  tokenize 32 %nmiki
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname oper NoMercy mircmekan1907
  }
  if $2 == 381 {
    sw $sockname MODE %nm2nick -s
    sw $sockname MODE %nm2nick +s
    sw $sockname MODE %nm2nick -s
    sw $sockname MODE %nm2nick +s
    sw $sockname join 0,
    sw $sockname KILL mIRCMekan-Host The NoMercy Bot - NoMercy v2.3 coded by DefauLt (auto reconnect)
    .timer 1 2 sw $sockname NICK mIRCMekan-Host
  }
  if $2 == NICK {
    if $right($3,-1) == mIRCMekan-Host {
      sw $sockname MODE mIRCMekan-Host +BH-h
      sw $sockname MODE mIRCMekan-Host +s
      sw $sockname MODE mIRCMekan-Host -s
      sw $sockname MODE mIRCMekan-Host +s
      sw $sockname ns identify mIRCMekan
      sw $sockname os su Lord
      .timer 1 5 sw $sockname SAJOIN mIRCMekan-Host 
    }
    if $botfnick($1) == mIRCMekan-Host {
      sw $sockname KILL mIRCMekan-Host Re
      .timer 1 3 sw $sockname NICK mIRCMekan-Host
    }
  }
  if $2 == NOTICE && $3 == mIRCMekan-Host && *.*.* 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
      if $randmi(%identd) && $randmi($12) {
        sw $sockname GLINE $12 Nick/identd'iniz rastgele olmamali. Identd ve nick degisikligi yapip tekrar giriniz.
      }
      inc -u6 %cf. [ $+ [ %ip ] ] 1
      if %cf. [ $+ [ %ip ] ] >= 8 {
        if %ip != 88.231.75.246 { 
        sw $sockname GLINE $+(*@,%ip) 1h * NoMercy yapay zeka sistemi agresif baglanma yogunlugu tespit etmistir. [mIRCMekan]. }
        return
      }
      inc -u5 %away. [ $+ [ $12 ] ] 1
      $+(.timermercy,$r(1,666766679)) 1 5 sw $sockname whois $12
    }
    if *exceed* iswm $strip($1-) && 88.231.75.246 !isin $1- {
      inc -u600 %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] 1
      if %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] == 1 {
        sw $sockname GLINE * $+ $mid($7,$pos($7,@),$len($7)) +10800 * Bilgisayar(lar)inizda bulunan bir trojan/reklam botu sebebiyle uzalastirildiniz. [mIRCMekan].
      }
    }
    if *[Client exited]* iswm $strip($1-) {
      sw $sockname GLINE *@ $+ %identds * Bilgisayar(lar)inizda bulunan bir trojan/reklam botu sebebiyle uzalastirildiniz. [mIRCMekan].
      %ips = $gettok($left($right($10,-1),-1),1,64)
      %identds = $gettok($left($right($10,-1),-1),2,64)
    }
  }
  if $2 == 301 {
    mesajkontrol $4 $right($strip($5-),-1)
  }
  if $2 == 317 {
    set -u20 %idle. [ $+ [ $4 ] ] $5
  }
  if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
    if $3 == mIRCMekan-Host && *.*.* !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.2 by edited by Lord
      }
      if $4 == :
FINGER
 {
        sw $sockname NOTICE $botfnick($1) 
FINGER $fullname (bot) Idle 0 seconds
      }
    }
  }
} 

on *:rawmode:#: {
  if $chan == #Dj { halt }
  if $chan == #Beauty { halt }
  if $chan == #Opers { halt }
if $nick == NoMercy | halt }
if $nick == L-mIRCMekan-SwatBot | halt } 
if $nick == X-mIRCMekan-SwatBot | halt }
if $nick == Z-mIRCMekan-SwatBot | halt }
if $nick == A-mIRCMekan-SwatBot | halt }
if $1 == +o { chghost $2 $remove($chan,@,$chr(35))) $+ .Aop.mIRCMekan.org | chgident $2 mIRCMekan | chgname $2 0 4,1[0Operator4] 2mIRC4Mekan 2IRC Network | msg $chan $2 oto yeni host,ident,setname eklendi. Hayırlı Görevler }
if $1 == +oa { chghost $2 $remove($chan,@,$chr(35))) $+ .Sop.mIRCMekan.org | chgident $2 mIRCMekan | chgname $2 0 4,1[0SuperOperator4] 2mIRC4Mekan 2IRC Network | msg $chan $2 oto yeni host,ident,setname eklendi. Hayırlı Görevler }
if $1 == +oq { chghost $2 $remove($chan,@,$chr(35))) $+ .Founderi.mIRCMekan.org | chgident $2 mIRCMekan | chgname $2 0 4,1[0Founder4] 2mIRC4Mekan 2IRC Network | msg $chan $2 oto yeni host,ident,setname eklendi. Hayırlı Görevler }
}