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:CoCoRiCo($1,1)
    }
  }
}

alias -l X:CoCoRiCo { 
  if ($2 = 1 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
    ;S:ban secenegi (GZLine)
    .gzline $+(*,$left(%q,%x)) - %gzline %banlogo
    .echo -em 4Banlanan IP: $+(*,$left(%q,%x))
  }
  if ($2 = 2 ) {
    var %q $mid($1,$pos($1,@),$len($1))
    var %x $calc($len(%q) - 1 )
    Titlebar : GZ:LINED EDILECEK! $+(*,$left(%q,%x))
  }
}