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]
  }
}