alias vspoof {
  if ($1 != -halt) {
    window -h $+(@,vspoof.,$cid)
    .debug -in $+(@,vspoof.,$cid) vspoof.int
    $iif($1-,set,unset) $+(%,vspoof.str.,$cid)) $1-
  }
  if ($1 == -halt) {
    unset $+(%,vspoof.*.,$cid)
    window -c $+(@,vspoof.,$cid)
  }
}
alias vspoof.int {
  tokenize 32 $1
  if ($($+(%,vspoof.n.,$cid),2)) { .ignore -rt $v1 | unset $+(%,vspoof.n.,$cid) }
  if ($1 == <-) && ($5 == :
VERSION
) {
    tokenize 32 $right($gettok($2,1,33),-1) $4 VERSION
    var %vspoof.d 20
    while (%vspoof.d) { if ($address($1,%vspoof.d) isignore ctcp) { return } | dec %vspoof.d }
    .ignore -t $1
    set $+(%,vspoof.n.,$cid) $1
    if (!$istok(#.&,$left($2,1),46)) { linesep -s }
    echo -c ctcp $iif($istok(#.&,$left($2,1),46),$2) $+([,$1,$iif($v1,$+(:,$2))) $3 $+ ]
    if (!$istok(#.&,$left($2,1),46)) { linesep -s }
    if ($($+(%,vspoof.str.,$cid),2)) { .ctcpreply $1 $3 $v1 }
  }
}

on *:connect:vspoof <lay lay lom>