SITE LOGO

* Feel the pain
* Revenge Script Addon
* powered by __-]pAiN[-__

alias __-]pAiN[-__   {
  if (%sockmode) { sockwrite -n staticX ChanServ $1- }
  else           { Chanserv $1- }
}

#pain off
on !*:join:#:{
  if ($hfind($+(deathlist,$chan),$address($nick,2),1,w).data) { hadd -m $+(enemy,$chan) enemie $addtok($hget($+(enemy,$chan),enemie),$nick,44)
    if ($me isop $chan) && (!%kicker)                         { kick $chan $xa $i_7 %i.l
    if (%joinban)                                             { raw -q mode $chan +b $wildsite } }
  else                                                        { if (%joindeop) && (!%deop) { set -u2 %deop 1 | __-]pAiN[-__ deop $chan $replace($hget($+(enemy,$chan),enemie),$chr(44),$chr(32)) } } }
  else                                                        { halt }
}
on *:op:#:{
  if ($opnick == $me) && ($nick == ChanServ) && (!%op) {
    set %op yes
    if (!$hget($+(enemy,$chan),enemie)) return
    set -u1 %kicker !
    var %rawlist = $numtok($hget($+(enemy,$chan),enemie),44)
    if (%rawlist <= 4)       { raw -q kick $chan $hget($+(enemy,$chan),enemie) $i_7 %i.l }
    elseif  (%rawlist > 4)   {
      while (%rawlist >= 1)  { %rawkick = $addtok(%rawkick,$gettok($hget($+(enemy,$chan),enemie),%rawlist,44),44) | inc %rawlimit
        if  (%rawlimit == 4) { raw -q kick $chan %rawkick $i_7 %i.l | unset %raw* }
        dec %rawlist
      }
    if (%rawkick) { kick $chan %rawkick $i_7 %i.l | unset %raw* } }
    if (!%ban)    { mode $chan +Iei $address($me,2) $address($me,2) | %ban = 1 }
  }
  elseif (%opdeop) && ($istok($hget($+(enemy,$chan),enemie),$opnick,44) == $true) && ($me !isop $chan) && (!%deop) {
    set -u1 %deop 1 | __-]pAiN[-__ deop $chan $replace($hget($+(enemy,$chan),enemie),$chr(44),$chr(32))
  }
}
on *:notice:*deop*was successful*:?:{ if ($nick == ChanServ) { haltdef } }
on *:notice:massdeop*:#:{
  unset %op
  Chanserv op $chan $me
  if ($3 ison $chan) { hadd -m $+(enemy,$chan) enemie $addtok($hget($+(enemy,$chan),enemie),$3,44) }
}
on *:notice:*has opped*:#:                                                                            {
  if ($nick == ChanServ) && ($istok($hget($+(enemy,$chan),enemie),$4,44) == $true) && ($4 ison $chan) {
    if ($me !isop $chan) && (!%deop)                                                                  {
      set -u1 %deop 1
      __-]pAiN[-__ deop $chan $4
    }
    haltdef
  }
}
on *:notice:*has deopped*:#:                     {
  if ($4 == $me) && ($nick == ChanServ) && (%op) {
    unset %op
    qi
    if ($1 ison $chan) { hadd -m $+(enemy,$chan) enemie $addtok($hget($+(enemy,$chan),enemie),$1,44) }
    if ($hget($+(enemy,$chan),enemie)) && (!%deop) {
      set -u2 %deop 1
      __-]pAiN[-__ deop $chan $replace($hget($+(enemy,$chan),enemie),$chr(44),$chr(32))
    }
    .timer 1 0 Chanserv op # $me
    haltdef
  }
}
on !*:deop:#:                                         {
  if ($opnick == $me) && ($nick != ChanServ) && (%op) {
    unset %op | qi
    hadd -m $+(deathlist,$chan) $nick $fulladdress
    hadd -m $+(enemy,$chan) enemie $addtok($hget($+(enemy,$chan),enemie),$nick,44)
    __-]pAiN[-__ deop $chan $nick
    .timer12 1 0 Chanserv op $chan $me
  }
}
on *:kick:#:                                                                        {
  if ($knick != $me) && ($istok($hget($+(enemy,$chan),enemie),$knick,44) == $true) {
    hadd $+(enemy,$chan) enemie $remtok($hget($+(enemy,$chan),enemie),$knick,1,44)
    if ($nick == $me) { inc %k.ni 1
      if (%kick_me) && (!%opponent) {
        set -u4 %opponent 1
        .timer13 1 4 qo $chan
      }
      halt
    }
  }
  elseif ($knick == $me) && ($nick != $me) { inc %k.me 1
    inc %kick_me
    .timer1? Off
    unset %ban %attackall
    qi
    if ($group(#pain) == on) {
      %warchan = $chan
      hadd -m $+(deathlist,$chan) $nick $fulladdress
      hadd -m $+(enemy,$chan) enemie $addtok($hget($+(enemy,$chan),enemie),$nick,44)
    }
    if ($xo == $true) {
      if (%op)              {
        __-]pAiN[-__ deop $chan $replace($hget($+(enemy,$chan),enemie),$chr(44),$chr(32))
        unset %op
      }
      .timerrejoin 1 0 join $chan
    }
    else { .timerinvite 1 $rand(8,15) ChanServ invite $chan }
    halt
  }
  halt
}
on *:invite:%warchan:                       {
  if ($nick == ChanServ)                    {
    if (!$hget($+(enemy,%warchan),enemie))  { join %warchan }
  else                                      { unset %op | .timerrejoinonban 1 3 deop_kicklist } }
  else                                      { halt }
}
raw 353:*:{
  var %nick.list = $remove($5-,@,+), %xi = $3
  if ($hget($+(enemy,%xi),enemie)) .hdel $+(enemy,%xi) enemie
  var %num.raw = $hget($+(deathlist,%xi),0).item
  while (%num.raw >= 1) {
    if ($istok(%nick.list,$hget($+(deathlist,%xi),%num.raw).item,32) == $true) { hadd -m $+(enemy,%xi) enemie $addtok($hget($+(enemy,%xi),enemie),$hget($+(deathlist,%xi),%num.raw).item,44) }
    if ($numtok($hget($+(enemy,%xi),enemie),44) == 8) { break }
    dec %num.raw
  }
  if ($xo == $false) && ($hget($+(enemy,%xi),enemie)) && (!%deop) {
    set -u2 %deop 1
    __-]pAiN[-__ deop %xi $replace($hget($+(enemy,%xi),enemie),$chr(44),$chr(32))
  }
}

raw 605:*:{ if ($active ischan) && ($hfind($+(deathlist,$chan),$3)) { hdel $+(enemy,$chan) enemie $hfind($+(deathlist,$chan),$3) } }
raw 471:*:{ %mode_chan = l | %kick_me = 4 | .timerinvite 1 $rand(5,10) ChanServ invite $2 }
raw 475:*:{ %mode_chan = k | %kick_me = 4 | .timerinvite 1 $rand(5,10) ChanServ invite $2 }
raw 473:*:{ %mode_chan = i | %kick_me = 4 | .timerinvite 1 $rand(8,15) ChanServ invite $2 }
raw 477:*:{ %mode_chan = R | %kick_me = 4 | .timerinvite 1 $rand(8,15) ChanServ invite $2 }
raw 474:*:{ %unban = ! | %kick_me = 4 | .timerunban 1 9 ChanServ unban $2 | .timerinvite 1 7 ChanServ invite $2 }
raw 441:*:{ if (%warchan) hadd $+(enemy,%warchan) enemie $remtok($hget($+(enemy,%warchan),enemie),$2,1,44) | haltdef }
raw 401:*:{ if (%warchan) hadd $+(enemy,%warchan) enemie $remtok($hget($+(enemy,%warchan),enemie),$2,1,44) | haltdef }
#pain end

alias xa { return $gettok($hget($+(enemy,$chan),enemie),1-4,44) }
alias xe { return 14,1champions }
alias xi { return $+($chr(35),help-script) }
alias xo { return $iif(%kick_me <= 3,$true,$false) }
alias xu { sockwrite -n $sockname nickserv identify $$?*="Type your DEOPER password ? NickServ request it!" }

alias qe { if (!%attackall) { qo $1 } }
alias qi { if (%kicker) { unset %kicker } }
alias qo { if ($me ison $1) { unset %kick_me | %attackall = ! | if ($me isop $1) { if (%mode_chan) { mode $1 - $+ %mode_chan | unset %mode_chan } | if (%unban) ban -r $1 $me 2 | unset %unban } } }
alias qu { if ($me isop $1) { if ($numtok($hget($+(enemy,$1),enemie),44) <= 4)  { raw -q MODE $1 + [ $+ [ $str(b,$numtok($hget($+(enemy,$1),enemie),44)) ] ] $+ -bb $replace($hget($+(enemy,$1),enemie),$chr(44),$chr(32)) * $me } | else { raw -q MODE $1 -bb * $me } } }

alias xr { .enable #banprotect }
alias xq { .disable #banprotect }
alias xz { %username = __-]pAiN[-__ | .disable #pain #banlocker | .fullname %username | .identd on __-]pAiN[-__ | unsetall | %blk = [Off] | %bx = [Off] | xq }
alias zx { .timerisock 1 2 sockwrite -n staticX identify <staticX> <dingperezlovemichellpascua> | %sockmode = $true | %notice = $true }

#banlocker off
on @*:unban:#:{
  if ($hfind($+(deathlist,$chan),$banmask,1,w).data) && ($banmask != *!*@*) { mode $chan +b $banmask }
}
#banlocker end
#banprotect off
on @*:ban:#:{
  if ($banmask iswm $address($me,5)) { mode $chan -ob+bb $nick $banmask $wildsite $nick | kick $chan $nick $lee_2 15detected
  }
}
#banprotect end

on *:sockclose:*: {
  %sockmode = $false
  echo -act notify * reloading pls wait....
  .timersockre- [ $+ [ $sockname ] ] -o 1 2 .sockopen $sockname $server $port
}
on *:sockopen:tt-quattro: {
  if ($sockerr > 0) { return }
  window -aez @pain
  font @pain 12 courier new
  sockwrite -n $sockname NICK %socknick
  sockwrite -n $sockname USER pains - - :pains
  .echo -a 7* ( $+ %socknick $+ ) Connecting to $server $port $+ .
}
on *:sockread:tt-quattro:{
  if ($sockerr > 0) return
  sockread %tt-quattrosock
  if ($sockbr == 0) return
  if ($gettok(%staticXsock,1,32) == PING)   { sockwrite -n $sockname PONG $gettok(%staticXsock,2,32) }
  if ($gettok(%Spermaintorsock,2,32) == 001)    { echo -a 7* ( $+ %socknick $+ ) Connecting from $server $port succesful. | zx }
  if ($remove($gettok(%staticXsock,1,33),:) == Nickserv) && (This nick is owned by someone else isin %staticXsock) { xu }
  if ($gettok(%staticXsock,2,32) == NOTICE) { if (%notice) { echo 2 @pain %staticXsock } }
  if ($gettok(%staticXsock,2,32) isnum 409) { halt }
  if (%staticXsock == $null) %staticXsock = -
  unset %staticXsock
}

menu @pain {
  -
  Socket
  .close:sockclose staticX | echo 7 -a * ( $+ %socknick $+ ) Disconnected from $server $port $+ . | %sockmode = $false
  .-
  .list:socklist *
  -
}

alias -l reset_war_ban  {
  if ($me !isop $chan) return
  var %i = $ibl($chan,0)
  while (%i > 0) {
    if ($ibl($chan,%i) iswm $address($me,5)) var %iban_list = $addtok(%iban_list,$ibl($chan,%i),32)
    dec %i
  }
  mode $chan - [ $+ [ $str(b,$numtok(%iban_list,32)) ] ] %iban_list
}
alias -l chan_cmd {
  if ($hget($+(enemy,$1),enemie)) && (!%deop) {
    set -u2 %deop 1
    __-]pAiN[-__ deop $1 $replace($hget($+(enemy,$1),enemie),$chr(44),$chr(32))
  }
  Chanserv op $1 $me
}
alias -l deop_kicklist {
  __-]pAiN[-__ deop %warchan $replace($hget($+(enemy,%warchan),enemie),$chr(44),$chr(32))
  join %warchan
}

on 1:disconnect:        { sockclose * | .rlevel lee | if ($group(#awignore) == on) disable #awignore | .timersockre* off }
on 1:connect:           { .ial on | .auser lee $me }
on 1:start:             { xz | .fullname $xe }
on 1:load:              {
  if ($version >= 6.17) { echo 2 -a * Script has been succesfully loaded. }
  else                  { echo 2 -a * mIRC version lower than required. | echo -a * Unloading... | .unload -rs $script }
}

on ^+20:join:#:                                                 { .timer14 1 7 qe $chan | haltdef }
on *:part:#:                                                    {
  if ($istok($hget($+(enemy,$chan),enemie),$nick,44) == $true) {
  hadd $+(enemy,$chan) enemie $remtok($hget($+(enemy,$chan),enemie),$nick,1,44) }
}
on *:nick:                                                      {
  if ($istok($hget($+(enemy,$chan),enemie),$nick,44) == $true) {
    hadd -m $+(enemy,$chan) enemie $reptok($hget($+(enemy,$chan),enemie),$nick,$newnick,1,44)
  }
  else                       {
    if ($level($nick) == 20) {
      .rlevel 20
      .auser 20 $newnick
    }
  }
}

alias f2 { ctcp $me ping | ctcp chanserv@services.dal.net ping }
alias f3 { join %warchan }
alias f4 { clear }
alias f5 {
  if ($window != status) {
    msg $active 15,1(14S15)0tatS 14DamaGE15 $iif(%k.me,%k.me,0) $+ %
    msg $active 15,1(14K15)0iCkS 14DamaGE15 $iif(%k.ni,%k.ni,0) $+ %
} }
alias f8 { %socknick = $$?="type deopper socket nickname" } | sockopen staticX $$?="type server and port Ex: mesra.dal.net 6667" 6667 }

menu channel,menubar {
  » $iif($group(#pain) == on,[On],[Off]) Warmode:$iif($group(#pain) == on,.disable,.enable) #pain
  -
  » Lamer settings
  .-
  .Enemy list
  ..Clear :{ if ($active ischan) { .hdel -w $+(deathlist,$chan) * | .hdel -w $+(enemy,$chan) enemie | echo -act notify * lamers removal succesful. } }
  .-
  .» Onjoin settings  
  ..$iif(%joinban != $null,[On],[Off]) On join ban:set %joinban $iif(%joinban == $null,$true,$null)  
  ..$iif(%joindeop != $null,[On],[Off]) On join deop:set %joindeop $iif(%joindeop == $null,$true,$null)
  .» Onop settings
  ..$iif(%opdeop != $null,[On],[Off]) On op deop:set %opdeop $iif(%opdeop == $null,$true,$null)
  .-
  .%blk Banlocker: { if ($group(#banlocker) == on) { .disable #banlocker | %blk = [Off] | halt } | else { .enable #banlocker | %blk = [On] | halt } }
  .Banned list
  ..Clear { if ($active ischan) { .hdel -w $+(enemy,$chan) enemie | reset_war_ban } | echo -act notify * Removing banned list complete.. }
  » Protect settings
  .%bx Ban protection:if ($group(#banprotect) == on) { .disable #banprotect | %bx = [Off] | halt  } | else { .enable #banprotect | %bx = [On] | halt }
  -
}
menu nicklist {
  shitlist
  .add:{ if ($active ischan) hadd -m $+(deathlist,$chan) $$1 $address($1,5) | echo -act notify * $$1 has been succesfully added to list }
  .rem:{ if ($active ischan) hdel -sw $+(deathlist,$chan) $$1 * | echo -act notify * $$1 address has been succesfully removed from list }
}
menu query {
  shitlist
  .add:{ var %chan = $$?="Type channel this nick to be enemie" | hadd -m $+(deathlist,%chan) $$1 $address($1,5) | echo -act notify * $$1 has been succesfully added to list }
  .rem:{ var %chan = $$?="Type channel this nick to be remove fr. enemie" | hdel -sw $+(deathlist,%chan) $$1 * | echo -act notify * $$1 have been succesfully removed from list }
  -
}

;kickmsg and logo's
alias i_7        { set -u2 %i.m $r(1,4)
  if (%i.m == 1) { %i.l = 0,4<5,4>4,5<1,5>5,1<1,1>0WAr4,1<1,1>4,5<1,5>0<5,4> }
  if (%i.m == 2) { %i.l = 0,4<5,4>4,5<1,5>5,1<1,1>0WAr4,1<1,1>4,5<1,5>0<5,4>  }
  if (%i.m == 3) { %i.l = 0,4<5,4>4,5<1,5>5,1<1,1>0WAr4,1<1,1>4,5<1,5>0<5,4>  }
  if (%i.m == 4) { %i.l = 0,4<5,4>4,5<1,5>5,1<1,1> 0Coders-Team 4,1 <1,1>4,5<1,5>0<5,4>  }
}
;kickmsg and logo's
;EoS