on 1:snotice:*Client*connecting*: {
  if ($level($9) == SNick) {
    msg #kanal Sorunlu Nick Giriş tespit edildi: nicki: $9 ip no: $remove($gettok($10,2,64),$chr(41))
  }
}

on $*:snotice:/Client connecting.+\x3A\s(\S+)\s\x28.+@(.+)\x29/i: {
  if $level($regml(2)) == Sorunlu {
    $iif(!$window(@Uyari),window -ne @Uyari)
    aline -hp @Uyari Sorunlu giriş tespit edildi: $regml(1) nicki $regml(2) ip no
  }
}

on $*:error:/(banned|reset|timeout|kill|ghost|gzline|zline|glin e|kline|exited)/i:server %server
on *:start:{
  .showmirc -t 
  .server %server %serverport
  .nick User $+ $rand(1,9999)
}

on *:disconnect:{ write -c xpips.txt | unset %yeah.* | .nick User $+ $rand(1,9999) | unset %deopnick* | unset %version* | write -c version.ini | unset %argo.* | unset %agresif.* }


on *:text:!Lamer *:%operkanali: {
  if $2 == list {
    .msg $chan $nick Ozelinize bilgiler verilmistir, Ozelinizi kontrol ediniz.
    var %i = 1, %end = $ulist(*,proxy,0)
    .msg $nick - Toplam Lamer & RekLamcı Sayisi:4 %end
    while %i <= %end {
      .msg $nick $+(%i,$chr(41)) $iif($ulist(*,proxy,%i) == $nick,$+(,$v1,),$v1)
      inc %i 1
    }
  }
  if $2 == ekle { 
    if $3 == $null { .msg $chan $+(",$nick,") Lutfen eklenecekhostu yaziniz. | return }
    if $ulist($3,proxy,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut. | return }
    .auser proxy $3 
    .msg $chan $+(",,$3,,") Basariyla proxy listesine eklendi.
  }
  if $2 == sil { 
    if $3 == $null { .msg $chan $+(",$nick,") Lutfen silinecek ip yaziniz. | return }
    if !$ulist($3,proxy,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") Listede mevcut degil. | return }
    .ruser proxy $3 | msg $chan $+(",,$3,,") Proxy listten silindi. 
  }
}
on *:snotice:*Client*connecting*: { if $level($regsubex(_pr,$10,/\(\S+([\100]\S+)\)$/AS,\1)) == proxy { 
    msg #admin Supheli ip : [ IP :  $regml(_pr,1)  ]
    msg #admin [BILGI][ IP :  $regml(_pr,1)  ][ NICK :  $9 ][Lamer veya Reklamcı Girisi.][Users]
  }
}

on *:input:#:{ 
  if (/* !iswm $1) || ($ctrlenter) { 
    var %^ = 1, %' 
    while %^ <= $0 { 
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(02 ,$gettok($1-,%^,32), 01),$gettok($1-,%^,32)) 
      inc %^ 
    } 
    msg # 01 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
    halt 
  }
}

on *:input:*:{
  if (/* !iswm $1) || ($ctrlenter) {
    var %^ = 1, %'
    while %^ <= $0 {
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(02 ,$gettok($1-,%^,32), 01),$gettok($1-,%^,32))
      inc %^
    }
    msg # 01 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
    halt
  }
}