[IrCbaStarD]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias jclone {
  var %f $ial($address($1,2),0), %s 1 | if $ial($address($1,2),0) > 1 { while %s <= %f  { var %ss $addtok(%ss,$regsubex($$ial($address($1,2),$calc(%s)),(.+)(!.+@.+),\1),32) | inc %s } }
  return $+($chr(40),$chr(2),$iif(%ss,$iif(!$2,%ss,12 $+ %ss 3HOST:4 $regsubex($$ial($address($1,2),1),(.+!.+)(@.+),\2)) $+ $chr(15),Clone YOK!),$chr(2),$chr(41))
}

$jclone(Nick)
$jclone(Nick,$me) * Renklendirip host'u yansitir.
Özelinizde veya kanala giriste clone tarar.

Örn:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on ^*:join:#:echo $color(join) -t # Giriş: $nick $+($chr(40),$address,$chr(41)) $jclone($nick) | haltdef
on *:open:?:echo 5 -t $nick Clone: $jclone($nick)
alias query { query $$1 | echo 4 -t $$1 Clone: $jclone($1,2) }