/ScriptServ

on *:BAN:#:{
  if (%revenge == enable) && ($nick !== $me) && ($nick !== X) && ($banmask iswm $address($me,5)) && ($me !isop #) { .write revenge-address.txt $address($nick,2) | .write revenge-nicks.txt $nick }
}
on *:OP:#:{
  if (%revenge == enable) && ($opnick == $me) { .set %revengenicksnumber $lines(revenge-nicks.txt) | .set %checkrevengenicks 0 | .set %revengechan $chan | .timer $+ $rand(123,999) %revengenicksnumber 0 /checkrevengenicks }
}
alias checkrevengenicks {
  .inc %checkrevengenicks
  if ($read(revenge-nicks.txt,%checkrevengenicks) ison %revengechan) { .mode %revengechan -o+b $read(revenge-nicks.txt,%checkrevengenicks) $address($read(revenge-nicks.txt,%checkrevengenicks),2) | .kick %revengechan $read(revenge-nicks.txt,%checkrevengenicks) %revengekickreason  }
}
alias BanRevenge {
  .dialog -m BanRevenge BanRevenge
}
dialog BanRevenge {
  title "Revenge-Blacklist On Ban"
  size -1 -1 160 60
  option dbu
  text This Script addon tracks everybody that bans an address which is matching your own address. If you have this addon enable.. everybody that bans you will be tracked..and when you get ops on a channel the script will automatically ban him. , 11, 2 2 158 35, ok tab 1
  text Your Address is: %address5me , 12, 2 32 158 35, ok tab 1
  text Module Status: %revenge , 13, 2 39 158 35, ok tab 1
  text Kick Reason: %revengekickreason , 230, 2 51 158 35, ok tab 1
  button "Change" , 231, 85 49 30 10, ok tab 1
  button "View List", 20, 119 29 40 10, ok tab 1
  button "Exit", 300, 119 49 40 10, ok tab 1
  button "Enable", 14, 118 39 20 10, ok tab 1
  button "Disable", 15, 140 39 20 10, ok tab 1 
  button "Ok", 17, 2 700 15 35, ok tab 1 
}
on 1:dialog:BanRevenge:sclick:*: {
  if ($did == 14) { .set %revenge enable | .dialog -c BanRevenge BanRevenge | .BanRevenge  }
  if ($did == 15) { .set %revenge disable | .dialog -c BanRevenge BanRevenge | .BanRevenge  }
  if ($did == 20) { .run revenge-nicks.txt }
  if ($did == 300) { .dialog -c BanRevenge BanRevenge }
  if ($did == 231) { .set %revengekickreason $$?="Enter Kick Reason" | .dialog -c BanRevenge BanRevenge | .BanRevenge }
}