Some Events with Clone scan

By [DX] on Dec 30, 2007

ALT + R -> Copy/Paste

on ^*:join:#: {
  haltdef
  echo $chan $timestamp * $nick ( $+ $address($nick,0) $+ ) has joined $chan
  set %.event JOIN
  $clones($nick)
}
on ^*:part:#: {
  haltdef
  if ($nick != $me) { 
    echo $chan $timestamp * $nick ( $+ $address($nick,0) $+ ) has left $chan $iif($1- != $null,( $+ $1- $+ )) 
    set %.event PART
    $clones($nick)
  }
}
on ^*:kick:#: {
  haltdef
  if ($knick == $me) {
    echo -s * You were kicked by $nick ( $+ $1- $+ )
  }
  else {   
    echo $chan $timestamp * $knick was kicked by $nick ( $+ $1- $+ )
    set %.event KICK
    $clones($knick)
  }
}
alias -l clones { 
  if ($ialchan($address($1,2),$chan,0) > 1) {
    set %.clones 1
    :clones
    if ($ialchan($address($1,2),$chan,0) >= %.clones) { 
      set %.clones.nick %.clones.nick ( $+ $ialchan($address($1,2),$chan,%.clones).nick $+ )
      inc %.clones 1
      goto clones
    }
    else {
      echo $chan $timestamp * %.event * Users matching $1 $+ 's address: %.clones.nick
      unset %.clones.nick
    }
  }
}

Comments

Sign in to comment.
[DX]   -  Dec 30, 2007

OKAy thnx dude :)

 Respond  
Lindrian   -  Dec 30, 2007

Try to use a while loop instead of goto\'s!

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.