[script]by Ace !!!!
n0=on *:TEXT:!demute *:#: {
n1=  if ($address($nick,2) == $address($me,2)) {
n2=    var %a = 1
n3=    while ($ini(Mutes.ini,Mutes,%a)) {
n4=      var %i = $v1
n5=      if ($readini(Mutes.ini, Current, %i) == $3) {
n6=        remini Mutes.ini Mutes %i
n7=        mode # -b $+(~q:,%i)
n8=        msg # 4 $2 2has been demuted.
n9=        halt
n10=      }
n11=      inc %a
n12=    }
n13=    msg $chan 2The nick4 $2 2was not found.
n14=  }
n15=}
n16=on *:TEXT:!mute *:#: {
n17=  if ($address($nick,2) == $address($me,2)) {
n18=    /writeini Mutes.ini Mutes $address($2,2) $2
n19=    /msg # 2 $Nick 4has just muted2 $2 4for2 $3 4seconds.
n20=    /mode # -ohv $2 $2 $2 $2 $2
n21=    ban -u $+ $calc($3 * 60) $chan $+(~q:,$address($2,2))
n22=    /timer 1 $3 /mode # -b ~q: $+ $address($2,2)
n23=    /timer 1 $3 /remini Mutes.ini Mutes $address($2,2)   
n24=  }
n25=}
n26=on *:JOIN:#: {
n27=  if ($readini(Mutes.ini,Mutes,$address($nick,2))) { 
n28=    /mode # -ohv $nick $nick $nick $nick $nick
n29=    /notice $nick 7You're muted, so don't try and get out of it.2 Won't work.
n30=  } 
n31=} 
n32=on *:RAWMODE:#:{
n33=  var %a = 1, %b = 1, %m, %s = $iif(+* iswm $1,on,off)
n34=  while ($mid($1,%a,1)) {
n35=    %m = $v1
n36=    if (%m == +) %s = on
n37=    if (%m == -) %s = off
n38=    if (%m isincs aohv) && (%s == on) && ($readini(Mutes.ini,Mutes,$address($mode(%b),2))) {
n39=      mode $chan $+(-,%m) $mode(%b)
n40=      .notice $nick $mode(%b) is muted for a reason.
n41=    }
n42=    if (%m isincs beIqaohv) inc %b
n43=    inc %a
n44=  }
n45=}