menu @ConnExit {
  dclick: {
    %satir = $line(@ConnExit, $1)
    %glineho = $pos(%satir,@,1) + 1
    %hede = $pos(%satir,[,1) - 2
    %bukadar = %hede - %glineho
    %glinehoo = $mid(%satir, %glineho, %bukadar)
    aline -c4 @ConnExit G-Line %glinehoo
    dline @ConnExit $1
    gline *@ $+ %glinehoo +90d : Spam Trojan Nedeniyle Banlandınız. [OnLine]
    unset %satir
    unset %hede
    unset %bukadar
    unset %glineho*
  }
}
On ^1:SNOTICE:*connecting*: {
  if (%meydeymeydey == 1) {
    if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
    aline -c7 @ConnExit $4-
    if ($len($9) >= 9) {
      %a = $left($9,4)
      %i = 0
      %bukadar = 0
      while (%i < 4) {
        inc %i
        %b = $mid(%a, %i,1)
        if (%b isin qwrtypsdfghjklzxcvbnm) {
          inc %bukadar
        }
      }
      if (%bukadar == 4) {
        %glineho = $pos($10,@,1) + 1
        %glinehos = $mid($10, %glineho, $len($10) - 1)
        %uzun = $len(%glinehos) - 1
        %glinehost = $left(%glinehos, %uzun)
        aline -c4 @ConnExit G-line $9 %glinehost
        gline *@ $+ %glinehost +365d : Spam Trojan Nedeniyle Banlandınız. [OnLine]
        unset %glineho
        unset %glinehos
        unset %uzun
        unset %glinehost
        inc %glinecount
      }
      unset %bukadar
    }
  }
  haltdef
}
On ^1:SNOTICE:*exiting*: {
  if (%meydeymeydey == 1) {
    if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
    aline -c12 @ConnExit $4-
    haltdef
  }
}

spam {
if (%meydeymeydey != 1) {
%meydeymeydey = 1
mode $me +s +ckeG
echo -a Anti Spam OnLine.
halt }
elseif (%meydeymeydey == 1) {
unset %meydeymeydey
echo -a Anti Spam offLine
echo -a Toplam Kline sayısı: %klinecount
unset %klinecount
window -c @ConnExit
}
}