Stuff

dialog Stalk {
  title "Stalker's Lounge"
  option dbu
  size -1 -1 300 200
  list 1, 1 1 100 100
  edit "" 2, 105 2 55 10
  button "Stalk" 3, 165 1 22 11
  list 4, 1 100 296 105, read
  button "Join" 5, 105 15 25 11
  text "" 6, 105 87 150 12
  button "Join All" 7, 105 40 25 11
}
alias stalk {
  dialog -x Stalk Stalk
  dialog -m Stalk Stalk
  did -r Stalk 4
  did -r Stalk 1
  did -a Stalk 6 Stalking $$1
  whois $$1
  set %stalk $$1
}
on *:Dialog:Stalk:sclick:3: {
  did -r Stalk 4
  did -r Stalk 1
  did -a Stalk 6 Stalking $$did(2)
  whois $$did(2)
  set %stalk $$did(2)
}
on *:dialog:Stalk:sclick:7: {
  var %a 1
  while ($did(Stalk,1,%a)) {
    join $did(Stalk,1,%a)
    inc %a
  }
}
on *:dialog:Stalk:sclick:5: {
  join $$did(1).seltext
}
menu * {
  Stalker's Lounge:/dialog -m Stalk Stalk
}
on *:NICK: {
  if (%stalk == $nick) {
    set %stalk $newnick 
    did -a Stalk 4 ( $+ $asctime(hh:nn:ss) $+ ) $nick has changed their nick to $newnick
  }
}
on *:KICK:#: {
  if (%stalk == $knick) || (%stalk == $nick) {
    did -a Stalk 4 $chr(91) $+ $chan $+ $chr(93) ( $+ $asctime(hh:nn:ss) $+ ) * $nick has kicked $knick $+ : $remove($regsubex($1-,/(\d{2}|\d)/g,$null),,,,)
  }
}
on *:QUIT: {
  if (%stalk == $nick) {
    unset %stalk
    did -a Stalk 4 $nick quit. $1-
  }
}
on *:ACTION:*:#: {
  if (%stalk == $nick) {
    did -a Stalk 4 $chr(91) $+ $chan $+ $chr(93) ( $+ $asctime(hh:nn:ss) $+ ) * $nick $remove($regsubex($1-,/(\d{2}|\d)/g,$null),,,,)
  }
}
on *:RAWMODE:#: {
  if (%stalk == $nick) {
    did -a Stalk 4 $chr(91) $+ $chan $+ $chr(93) ( $+ $asctime(hh:nn:ss) $+ ) * $nick sets mode: $remove($regsubex($1-,/(\d{2}|\d)/g,$null),,,,)
  }
}
on *:PART:#: {
  if (%stalk == $nick) {
    did -a Stalk 4 $chr(91) $+ $chan $+ $chr(93) ( $+ $asctime(hh:nn:ss) $+ ) * $nick parted: $remove($regsubex($1-,/(\d{2}|\d)/g,$null),,,,)
  }
}
on *:JOIN:#: {
  if (%stalk == $nick) {
    did -a Stalk 4 $chr(91) $+ $chan $+ $chr(93) ( $+ $asctime(hh:nn:ss) $+ ) * $nick joined.
  }
}
raw 319 *:*: {
  if (%stalk == $2) {
    var %a 0
    while ($gettok($3-,%a,32)) {
      inc %a
      did -a Stalk 1 $iif($left($gettok($3-,%a,32),1) != $chr(35),$right($gettok($3-,%a,32),$calc($len($gettok($3-,%a,32)) - 1)),$gettok($3-,%a,32))
    }
  }
}
on *:TEXT:*:#: {
  if ($nick == %stalk) {
    did -a Stalk 4 $chr(91) $+ $chan $+ $chr(93) ( $+ $asctime(hh:nn:ss) $+ ) < $+ $nick $+ > $remove($regsubex($1-,/(\d{2}|\d)/g,$null),,,,)
  }
}
on *:dialog:Stalk:close:*: {
  unset %stalk
}