on ^1:HOTLINK:*.*.*:*:{
  if ( $active = #) { halt } 
  else {
    if (@ isin $1) {
      $x:CoCoRiCo($1,2)
      return $1 
    }
  } 
  halt 
}
on *:HOTLINK:*.*.*:*:{ 
  if ($active = #) { halt } 
  else { 
    if (@ isin $1) {
      $x:GirL($1,1)
    }
  }
}

alias -l X:GirL { 
  if ($2 = 1 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
    ;S:ban secenegi (Kline) 
    .zline $+(*,$left(%q,%x)) 4Clone1/4Bot1/4Tor
    echo 4:lined ip $+(*,$left(%q,%x))
  }
  if ($2 = 2 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
  }