I know hawkee has alott of shitlists but i just wanted to make one, i had never made somethign this big before, so i did have some help from a few freinds with the .txts but other than that i made it :)

menu nicklist {
  -
  {= Shitlist =} ( $+ %shittog $+ )  ( $snick(#,1) )
  .= Add to =:shitlist $$1 $$?="Enter reason for Shitlist:"
}
menu menubar {
  -
  {= Shitlist =} ---- ( %shittog )
  .= Enable =:.enable #shitlist | set %shittog ON | .timerscount 0 300 countshit | echo 12 -a 7,1{=15Shitlist7=} is now enabled. Shitlisted users will no longer be able to enter channels you are opped on.
  .= Disable =:.disable #shitlist | set %shittog OFF | .timerscount OFF | echo 12 -a 7,1{=15Shitlist7=} is now disabled. Shitlisted users will now be able to join and chat in channels you are opped on.
  .-
  .= Add User =:shitlist $$?="Enter user's Nickname:" $$?="Enter reason for Shitlist:"
  .= Remove User =:rshitlist $$?="Enter user's Nickname:" 
  .= Clear List ****CAUTION****=:cshitlist
}
alias shitlist {
  if ($2- == $null) { .notice $nick  Please give a reason for the Shitlist | halt }
  write shit.txt $address($1,3) $2- 
  guser 400 $1 3 
  ban -k $chan $1 4You've been 4,10SHITLISTED 12Reason:10 $2-
  .notice $1 12You were 4,10SHITLISTED 12Reason:10 $2-
}
alias rshitlist {
  ruser 400 $1 3 
  /write -dW$+ shit.txt $address($1,3) shit.txt 
  ban -r %passchan $1 3
  msg $chan 4,10 $1 Removed from the 12SHITLIST   
  halt
}
alias cshitlist {
  rlevel -r 400 
  remove $mircdir\shit.txt  
  echo 4 -a Your shitlist has been completely cleared.
}
alias countshit {
  write -l1 $mircdir\shit.txt $lines($mircdir\shit.txt)
}
#shitlist on
on +400:TEXT:*:#:{ 
  echo -a 10,1AtTeNtIoN! $nick was on $chan - This user was 4,10SHITLISTED - 4Reason:10 $read -s $+ $address($nick,3) $mircdir $+ shit.txt  
  ban -ku1800 $chan $address($nick,3) 4,10SHITLISTED 12 }->10 $read -s $+ $address($nick,3) $mircdir $+ shit.txt 12<-{ 4,10SHITLISTED 
}
on +400:JOIN:%passchan:{ 
  echo -a 10,1AtTeNtIoN! $nick tried to join $chan - This user was 4,10SHITLISTED - 4Reason:10 $read -s $+ $address($nick,3) $mircdir $+ shit.txt
  ban -ku1800 $chan $address($nick,3) 4,10SHITLISTED 12 }->10  $read -s $+ $address($nick,3) $mircdir $+ shit.txt 12<-{ 4,10SHITLISTED
}
on +400:ACTION:*:#:{ 
  echo -a 10,1AtTeNtIoN! $nick was on $chan - This user was 4,10SHITLISTED - 4Reason:10 $read -s $+ $address($nick,3) $mircdir $+ shit.txt 
  ban -ku1800 $chan $address($nick,3)address($nick,3) $mircdir $+ shit.txt 12<-{ 4,10SHITLISTED }->10 $read -s $+ $
}
on +400:TEXT:*:?:{ 
  .msg $nick 4You are 4,10SHITLISTED 12 in $chan. Reason:4 $read -s $+ $address($nick,3) $mircdir $+ shit.txt 
.ban -k1800 $chan $nick 4,10SHITLISTED 12 }->10 $read -s $+ $address($nick,3) $mircdir $+ shit.txt 12<-{ 4,10SHITLISTED 
  closemsg $nick
}
#shitlist end