Forums Scripts & Popups clones

menu nicklist {
  $iif($me !isop $chan,$style(6) Scan $$1,Scan $$1): {
    if ($ial == $false) { 
      .ial on 
    } 
    if ($chan($chan).ial == $false) { 
      who $chan 
    } 
    var %x = $ialchan($address($$1,2),$chan,0)
    if ($ialchan($address($$1,2),$chan,0) >= 1) {
      echo -a There is $ialchan($address($$1,2),$chan,0) user(s) in $chan with that host.      
      while (%x) {
        inc %clones
        echo -a %clones $+ . $ialchan($address($$1,2),$chan,%x).nick ( $+ $ialchan($address($$1,2),$chan,%x).addr $+  )
        dec %x
      }
      unset %clones
    }
  }
}

on *^:join:#:{
  var %i = 1,%a,%b = $gettok($hget(lastnicks,$site),1,32)
  while $ialchan($1,$2,%i).nick { %a = %a $v1 | inc %i }
  ; %a is set all nicks from $site
  if %b && $v1 != $nick { %b = [Last Nick: $v1 $+ ] } | else var %b
  ; if <lastnick> is the current nick it will not be shown
  if $remtok(%a,$nick,32) { %a = [Clones: $v1 $+ ] } | else var %a
  ; check if there are any clones to display
  echo -tic join #  · · Joins $nick $+([,$address,] %a %b
  hadd -m lastnicks $site $nick $ctime
  ; update hash table
  .timerlastnick 1 3 hsave lastnicks lastnicks.hsh
  ; save hash table, timer so it isn't saved multiple times if multiple joins
  haltdef
}
on *:nick:{
  ; Update hash table
  hadd lastnicks $site $newnick $ctime
}
on *:disconnect:{
  hsave lastnicks lastnicks.hsh
}
on *:start:{
  hmake lastnicks 10
  ; Makes table
  if $isfile(lastnicks.hsh) { hload lastnicks lastnicks.hsh }
  ; loads table entries
  var %i = 1,%a
  while $hget(lastnicks,%i).item {
    ; loop all entries
    %a = $v1
    if $gettok($hget(lastnicks,%a),2,32) < $calc($ctime - 604800) { hdel lastnicks %a }
    ; delete entries not used for more than one week - adjust 604800 for more or less time.
    inc %i
  }
  hsave lastnicks lastnicks.hsh
  ; resave the table
}

on *^:join:#:{
  var %i = 1,%a,%b = $gettok($hget(lastnicks,$site),1,32)
  while $ialchan($1,$2,%i).nick { %a = %a $v1 | inc %i }
  ; %a is set all nicks from $site
  if %b && $v1 != $nick { %b = [Last Nick: $v1 $+ ] } | else var %b
  ; if <lastnick> is the current nick it will not be shown
  if $remtok(%a,$nick,32) { %a = [Clones: $v1 $+ ] } | else var %a
  ; check if there are any clones to display
[color:blue]  echo -tic join #  · · Joins $nick $+([,$address,][color:red])[/color] %a %b[/color]
  hadd -m lastnicks $site $nick $ctime
  ; update hash table
  .timerlastnick 1 3 hsave lastnicks lastnicks.hsh
  ; save hash table, timer so it isn't saved multiple times if multiple joins
  haltdef
}
on *:nick:{
  ; Update hash table
[color:blue]  hadd [color:red]-m[/color] lastnicks $site $newnick $ctime[/color]
}
on *:disconnect:{
  hsave lastnicks lastnicks.hsh
}
on *:start:{
  hmake lastnicks 10
  ; Makes table
  if $isfile(lastnicks.hsh) { hload lastnicks lastnicks.hsh }
  ; loads table entries
  var %i = 1,%a
  while $hget(lastnicks,%i).item {
    ; loop all entries
    %a = $v1
    if $gettok($hget(lastnicks,%a),2,32) < $calc($ctime - 604800) { hdel lastnicks %a }
    ; delete entries not used for more than one week - adjust 604800 for more or less time.
    inc %i
  }
  hsave lastnicks lastnicks.hsh
  ; resave the table
}

menu nicklist {
  $iif(!$ialchan($address($$1,2),#,2),$style(2)) Clones ( $+ $ialchan($address($1,2),#,0) $+ ) :{
    var %i = 1,%a
    while $ialchan($address($1,2),#,%i).nick { %a = %a $v1 | inc %i }
    echo -eatic Info Clones from: $address($1,2) $+ : %a
  }
}

  while $ialchan($wildsite,#,%i).nick { %a = %a $v1 | inc %i }