Replace what's in the "Popups" tab with this code. Most of the commands work for if you have more than one person selected in the userlist window (on the right side in mIRC). They obviously work for only one user, too. Enjoy.
Info:uwho $1Whois:whois $$1Query:query $$1-Control.Owner:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(+,$str(q,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(+,$str(q,$numtok(%z,32))) %z }.Deowner:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(-,$str(q,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(-,$str(q,$numtok(%z,32))) %z }.Protect:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(+,$str(a,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(+,$str(a,$numtok(%z,32))) %z }.Deprotect:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(-,$str(a,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(-,$str(a,$numtok(%z,32))) %z }.Op:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(+,$str(o,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(+,$str(o,$numtok(%z,32))) %z }.Deop:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(-,$str(o,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(-,$str(o,$numtok(%z,32))) %z }.Halfop:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(+,$str(h,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(+,$str(h,$numtok(%z,32))) %z }.Dehalfop:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(-,$str(h,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(-,$str(h,$numtok(%z,32))) %z }.Voice:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(+,$str(v,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(+,$str(v,$numtok(%z,32))) %z }.Devoice:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $snick($chan,%x) | if ($numtok(%z,32) == $modespl) { mode # $+(-,$str(v,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(-,$str(v,$numtok(%z,32))) %z }.Kick:kick # $$1.Kick (why):kick # $$1 $$?="Reason:".Ban:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $address($snick($chan,%x),2) | if ($numtok(%z,32) == $modespl) { mode # $+(+,$str(b,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(+,$str(b,$numtok(%z,32))) %z }.Unban:var %x 1, %z | while (%x <= $snick($chan,0)) { var %z = %z $address($snick($chan,%x),2) | if ($numtok(%z,32) == $modespl) { mode # $+(-,$str(b,$modespl)) %z | var %z } | inc %x } | if (%z != $null) { mode # $+(-,$str(b,$numtok(%z,32))) %z }.Kickban:ban -k $snick(#,1).Kickban (why):ban $snick(#,1) | /kick # $$1 $$?="Reason:".Invite:var %z $$?="Channel:" | var %x $snick(#,0) | while (%x >= 1) { invite $snick(#,%x) %z | dec %x }.Notice:var %z $$?="Text:" | var %x $snick(#,0) | while (%x >= 1) { notice $snick(#,%x) %z | dec %x }.Message:var %z $$?="Text:" | var %x $snick(#,0) | while (%x >= 1) { msg $snick(#,%x) %z | dec %x }CTCP.Ping:ctcp $$1 ping.Time:ctcp $$1 time.Version:/ctcp $$1 versionDCC.Send:dcc send $$1.Chat:dcc chat $$1-Slap:me slaps $$1 around a bit with a large troutHug:me huggles $$1Kiss:me kisses $$1Lick:me licks $$1Poke:me pokes $$1