Forums Scripts & Popups Revenge kick script & shitlist

on 1:KICK:#: {
  if ($knick == $me) {
    timer 1 3 qkick $chan $nick $wildsite $fulladdress
  }
}
alias -l qkick {
  mode $1 -Qo+bb $2 $3 $address($2,3)
  kick $chan $nick $isset($r.shit($mask($4,3)),Don't mess with me!) 
}

w.shit { if ($2 != $null) { writeini -n Docs\Shitlist.ini Shitlist $replace($1,[,_,],_,*,_) $strip($2-,burc) } }
r.shit { if ($1 != $null) { return $readini -n Docs\Shitlist.ini Shitlist $replace($1,[,_,],_,*,_) } }
d.shit { if ($1 != $null) { remini Docs\Shitlist.ini Shitlist $replace($1,[,_,],_,*,_) } }
c.shit { if ($1 == $true) { write -c Docs\Shitlist.ini } }

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
}

$bracket( )
$c( ) 
ic