alias ipc {
  .timer_prix 0 1 ipc
  if $regex(ip,$1,/^(?: (?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/g) {
    if $gettok($1,1,46) < 1 { echo ** Hatalı ip.. Class A "1" den düşük olamaz. orn: 1.0.0.0 | return }
    set %d¨ $gettok($1,4,46) |  set %c¨ $gettok($1,3,46) | set %b¨ $gettok($1,2,46) |  set %a¨ $gettok($1,2,46)
  }

  $iif(!%d¨,set %d¨ 0) 
  ;class D
  $iif(!%c¨,set %c¨ 0)
  ;class C
  $iif(!%b¨,set %b¨ 0) 
  ;class B
  $iif(!%a¨,set %a¨ 1)
  ;class A
  if %d¨ < 256  {  inc %d¨   }
  if %d¨ == 256 && %c¨ < 256 { inc %c¨ | unset %d¨ }
  if %c¨ == 256 && %b¨ < 256 { inc %b¨ | unset %d¨,%c¨ }
  if %b¨ == 256 && %a¨ < 256 { inc %a¨ | unset %b¨,%c¨,%d¨ }
  if %a¨ == 256 && %a¨ < 256 { inc %a¨ | unset %b¨,%c¨,%d¨ }
   if %a¨ == 255 && %b¨ == 255 && %c¨ == 255 &&  %d¨ == 255 { echo : IPTamamlandı | unset %*¨* | timer_prix off }
  $iif(!%d¨,set %d¨ 0) 
  $iif(!%c¨,set %c¨ 0)
  $iif(!%b¨,set %b¨ 0) 
  $iif(!%a¨,set %a¨ 1)
  echo $+(%a¨,.,%b¨,.,%c¨,.,%d¨)

}