on *:snotice:*: {
  if ($level($9) == muafnick) { halt }
  if (connecting isin $1-) {
    if $hfind(prox,$9,1,W).data {
      if !$hget(prx,$9) {
        .hinc -msu20 prx $9 
        gzline $9 1d  Proxy olarak algılandınız..
        msg #XLine Proxy Nick Girisi - Bulunan Veri: $+([,$chr(32),$hget(prox,$hfind(prox,$9,1,W).data),$chr(32),])
      }
    }
    var %:ips $remove($gettok($10,2,64),$chr(41))
    if ($level(%:ips) == muafips) { halt }
    if $hfind(proxip,%:ips,1,W).data {
      if !$hget(prxip,%:ips) {
        .hinc -msu20 prxip %:ips 
        gzline $+(*@,%:ips) 1d Proxy olarak algılandınız..
        msg #XLine Proxy IP Girisi - Bulunan Veri: $+([,$chr(32),$hget(proxip,$hfind(proxip,%:ips,1,W).data),$chr(32),])
      }     
    }     
  }
}
on *:input:*:{
  if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return }        
      if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m prox %n $strip($3)
      .hsave -o prox prox.hs
      .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3)
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }        
      if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return }
      .hdel -m prox $hfind(prox,$strip($3),1,W).data
      .hsave -o prox prox.hs
      .timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3)
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return }
      .timer -h 1 500 msg # -
      var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya }
      .timer -h 1 500 msg # -
    } 
  } 
  if $regex($1,/^[!\.]pr[oO]xy[ıiİ]p$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        
      if $hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz IP Zaten Listede mevcut $+([,$chr(32),$hget(proxip,$hfind(proxip,$strip($3),1,W).data),$chr(32),]) Eslesen Veri.. | return }
      var %:r = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m proxip %:r $strip($3)
      .hsave -o proxip proxip.hs
      .timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3)
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }        
      if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return }
      .hdel -m proxip $hfind(proxip,$strip($3),1,W).data
      .hsave -o proxip proxip.hs
      .timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3) 
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return }
      .timer -h 1 500 msg # -
      var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g }
      .timer -h 1 500 msg # -
    }  
  }
  if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) {
    if $2 == list {
      .timer -h 1 500 msg $chan listeleniyor.
      var %:mnck = 1, %mnc = $ulist(*,muafnick,0)
      .timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc
      while %:mnck <= %mnc  {
        .timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1)
        inc %:mnck 1
      }
    }
    if $2 == ekle { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return }
      if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
      .auser muafnick $3- 
      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi
    }
    if $2 == sil { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return }
      .ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf nick Listesinden Silindi 
    }
  }
  if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) {
    if $2 == list {
      .timer -h 1 500 msg $chan listeleniyor.
      var %:mips = 1, %mip = $ulist(*,muafips,0)
      .timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip
      while %:mips <= %mip  {
        .timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1)
        inc %:mips 1
      }
    }
    if $2 == ekle { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return }
      if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
      .auser muafips $3- 
      .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi
    }
    if $2 == sil { 
      if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return }
      .ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,")  Muaf IP Listesinden Silindi 
    }
  }
}
on *:start:{ $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs | ykle }
alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }

;#Kullanım sekli - Proxy ekle sil list bölümü
;!proxynick ekle nick - !proxynick sil nick - !proxynick list
;
;!proxyip ekle IP - !proxyip sil IP - !proxyip list
;
;Kullanım Sekli - Muaf nick IP ekle sil list bölümü
;!muafnick ekle nick - !muafnick sil nick - !muafnick list
;!muafip ekle ip-adresi - !muafip sil ip-adresi !muafip list
;muaf yada proxy eklerken *nick* *88.78* gibi ekleyebilirsin.
;kodeyi remoteye ekledikten sonra scripti kapatıp tekrar aç.
; istegin doğrultusunda düzenleyebiliriz, detaylı olarak denemedim hata olursa bildirirsin