whois script

menu channel,status,menubar {
  Channel Loyalty:/loyalty
}
alias loyalty dialog $+(-,$iif($dialog(chanloy),v,m chanloy) chanloy)
dialog chanloy {
  title "Channel Loyalty"
  size -1 -1 142 53
  option dbu
  list 1, 1 2 50 49, size vsbar
  list 2, 91 2 50 49, size vsbar
  button "Kick", 3, 53 25 37 12
  button "Close", 4, 53 38 37 12, cancel
  text "Channel Loyalty", 5, 52 3 40 7
  link "AltScripts.net", 6, 55 14 33 8
}
on *:DIALOG:chanloy:sclick:6:{ url -n www.altscripts.net }
on *:DIALOG:chanloy:init:*:{
  set %dchan $$?="Channel Name? (#scripting)"
  echo -a %dchan
  var %i = 0
  while (%i < $nick(%dchan,0)) {
    inc %i
    if ($nick(%dchan,%i) !isop %dchan) && ($nick(%dchan,%i) !ishop %dchan) {
      did -a $dname 1 $nick(%dchan,%i)
    }
  }
}
on *:DIALOG:chanloy:sclick:1:{
  whois $did($dname,1).seltext
  set -u1 %whoislookup $true
did -r $dname 2
}
on *:DIALOG:chanloy:sclick:3:{
  ban -k %dchan $did($dname,1).seltext 2 Kicked For Being in Another PC Channel
}
on *:DIALOG:chanloy:close:*:{ unset %dchan }
RAW 307:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 319:*:{
  if (%whoislookup) {
    var %i = 0
    while (%i < $numtok($3-,32)) {
      inc %i
      did -a chanloy 2 $gettok($3-,%i,32)
    }
    halt | haltdef
  }
  else { return }
}
RAW 318:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 312:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 311:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 318:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 671:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 310:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 301:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 335:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 317:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}
RAW 313:*:{
  if (%whoislookup) {
    halt | haltdef
  }
  else { return }
}