Here's what I've managed to come up with. This whole thing goes into a remote file, and should remove the aliases and pop-ups from their respective locations.

Due to not having code for some aliases that are called using custom identifiers, this has only been tested to the best of my ability.

The aliases are isset, bracket, c and ic

Code:
on @*:KICK:#: {
  if ($knick == $me) {
    timer 1 3 qkick $chan $nick $wildsite $fulladdress $address
  }
}
alias -l qkick {
  mode $1 -Qo+bb $2 $3 $address($2,3)
  kick $1 $2 $isset($shitlist($mask($4,3)),Don't mess with me!) 
  echo $1 $bracket($5) $c(1) is going to be removed from $c(2) $+ $1 $+ $c(1) $+ . $bracket(«« § H î t £ î § t Ë Ð »») 
}
menu nicklist {
  .Shit List
  ..Add: shitlist add $1 $$input(Example: That'll Teach Yah!,e,Enter a Shitlist Reason for [ $1 ],That'll Teach Yah!)
  ..Del: shitlist del $$1
  ..Remove From Shitlist: var %cxc $??:"Nick Name": | .ruser 40 %cxc | .ruser %cxc 40
  ..-
  ..Clear: shitlist clr $?!="Delete every Shitlisted User?"
}
alias -l shitlist {
  if $isid {    return $readini(Docs\Shitlist.ini,n,Shitlist,$replace($$1,[,_,],_,*,_))  }
  else {
    if ($1 == add) && ($3) {
      ic $2
      auser -a 40 $address($2,3)
      writeini -n Docs\Shitlist.ini Shitlist $replace($address($2,3),[,_,],_,*,_) $strip($$3-,burc)   
      shitlist-h $2 $3-
    }
    elseif ($1 == del) && ($2) {
      ic $2
      remini Docs\Shitlist.ini Shitlist $replace($address($2,3),[,_,],_,*,_) 
      ruser 40 $address($2,3)
    }
    elseif ($1 == clr) {    .remove Docs\Shitlist.ini  }
    else { error Syntax: /shitlist <add|del|clr> [nick] [reason] }
  }
}
alias -l shitlist-h {
  var %a = 1, %b = $comchan($1,0)
  while %a <= %b {
    if ($me isop $comchan($1,%a)) {
      kb2 $comchan($1,%a) $1 $iif(!$2,No Reason Specified,$2-) (§Hît|î§tËÐ) 
    }
  } 
  inc %a
}