War Revenge Kick (PremaN Script 2.8)

Please Register to submit score.

Average Score	7.3
Scores Submitted	3
Date Added	May 10, 2008
Last Updated	Jul 16, 2008
Tags	kick preman revenge script war

Introduction

- Alternative link to download this script is http://www.box.net/shared/q457a74004
- Copy and paste the code below in Notepad/Text Editor
- Save it with any name you like ex. PremaN-v28.mrc in mIRC folder
- Open your mIRC, type /load -rs PremaN-v28.mrc
- Read this script comments below

Grab the Code

;****************************************************************************************
;PremaN Script 2.8 (July 16, 2008)
;First of all, this is a WAR script with pure kick and fair play (no ban, no deop)
;It took me months to build this by trial and error so appreciate it!
;
;Main features:
;  + Multi opponent/enemy, single channel
;  + Using scanning method to kick not only one but all of your enemy when you got kicked
;    and rejoin the channel
;  + Basic self protection such as anti-nuke (Port 137, 138, 139), anti-idle, anti-ban,
;    anti-deop and auto-ghost
;  + Auto-identify, auto-reconnect and auto-clear
;    (right click PremaN-Script-Setup to configure)
;  + Easy to use menu for your pleasure (just right click it)
;  + Easy to learn/understand because using basic coding style so you can modify this
;    script later by adding ban, deop, timer, etc
;  + mIRC v6.01 or later is required
;
;If you lose maybe you should consider to change your ISP to a faster one
;I recommend at least 512 kbps connection to get a better kicking speed
;
;Made for all ordinary mIRC user who wants a revenge against "expert-like" jackass
;Feel free to share this script to others, thank you
;
;irc.circleone.net.id 6667, #war
;Right To Copy by PremaN
;****************************************************************************************

on *:START:{
  if ($version < 6.01) {
    echo -a This script requires mIRC v6.01 or later to run!
    echo -a You are using mIRC v $+ $version
    echo -a Unloading 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 5,5 4,4  ...
    unload -rs $script
    halt
  }
  else {
    if (%first_init == $null) {
      echo -a Performing one-time initialization for 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 5,5 4,4  ...
      set %interval.slow 5
      set %interval.clear 10
      echo -a Intervals are set to default, Auto-reconnect: 5 kick(s) and Auto-clear: 10 kick(s)
      set %last_i.pass %i.pass
      :rep_i.pass
      unset %i.pass
      set %i.pass $?*="Nick Auto-identify Password:"
      if (%i.pass == $null) {
        if (%last_i.pass == $null) {
          var %conf_null_i.pass = $?!="Disable Auto-identify?"
          if (%conf_null_i.pass == $true) {
            unset %conf_null_i.pass
            unset %last_i.pass
            unset %i.pass
            echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
          }
          else {
            unset %conf_null_i.pass
            goto rep_i.pass
          }
        }
        else {
          var %conf_last_i.pass = $?!="Keep Last Auto-identify: $+ $chr(32) $+ %last_i.pass $+ ?"
          if (%conf_last_i.pass == $true) {
            unset %conf_last_i.pass
            set %i.pass %last_i.pass
            unset %last_i.pass
            echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
          }
          else {
            var %conf_i.pass = $?!="Disable Auto-identify?"
            if (%conf_i.pass == $true) {
              unset %conf_i.pass
              unset %last_i.pass
              unset %i.pass
              echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
            }
            else {
              unset %conf_i.pass
              goto rep_i.pass
            }
          }
        }
      }
      else {
        unset %last_i.pass
        echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
      }
      echo -a Right click PremaN-Script-Setup to configure
      echo -a Visit http://www.hawkee.com/snippet/4404/ to get the latest version
      set %first_init OK
    }
    if ($group(#revenge) == on) {
      titlebar ××× PremaN Script 2.8 [ON] ×××
    }
    else {
      titlebar ××× PremaN Script 2.8 [OFF] ×××
    }
    fullname 4,4 5,5 0,1 P15r14e15m0a15N 5,5 4,4 
  }
}

on *:CONNECT:{
  signal -n init_secure.connect
  if (%i.status == 433) {
    unset %i.status
    NickServ ghost $mnick %i.pass
  }
  timerPING 0 120 ctcp ChanServ ping
  if (%r.chan != $null) {
    raw -q join %r.chan
    timerON 1 1 signal -n init_group.connect
  }
}

on *:SIGNAL:init_group.connect:{
  enable #revenge
  titlebar ××× PremaN Script 2.8 [ON] ×××
  hop -c %r.chan
  unset %r.chan
}

on *:SIGNAL:init_secure.connect:{
  if ($portfree(137) == $true) {
    socklisten port_listen.137 137
  }
  if ($portfree(138) == $true) {
    socklisten port_listen.138 138
  }
  if ($portfree(139) == $true) {
    socklisten port_listen.139 139
  }
}

on *:SOCKLISTEN:port_listen.137:{
  sockaccept port_block.137
  sockclose port_block.137
}

on *:SOCKLISTEN:port_listen.138:{
  sockaccept port_block.138
  sockclose port_block.138
}

on *:SOCKLISTEN:port_listen.139:{
  sockaccept port_block.139
  sockclose port_block.139
}

on *:NOTICE:*:?:{
  if (($nick == NickServ) && (%i.pass != $null)) {
    if (identify isin $1-) {
      NickServ identify $me %i.pass
    }
    if (ghosted isin $1-) {
      nick $mnick
    }
  }
}

on *:BAN:#:{
  if (($banmask iswm $address($me,5)) && ($nick != $me)) {
    if ($me isop $chan) {
      raw -q mode $chan -b $banmask
    }
    else {
      ChanServ op $chan $me
      raw -q mode $chan -b $banmask
    }
  }
}

on *:KICK:#:{
  if ($knick == $me) {
    if (($nick == ChanServ) || ($nick == $me)) {
      timerJOIN -mc 2 150 raw -q join $chan
    }
    else {
      if ($group(#revenge) == on) {
        unset %scan
        unset %e.nick
        if ($level($nick) != enemy) {
          auser enemy $nick
        }
        else {
          unset %a.clear
        }
        timerJOIN -mc 2 150 raw -q join $chan
        if (%interval.slow != $null) {
          inc %slow
          if (%slow == %interval.slow) {
            unset %slow
            disable #revenge
            titlebar ××× PremaN Script 2.8 [OFF] ×××
            set %r.chan $chan
            raw -q part %r.chan
            disconnect
            echo -a 4,4 5,5 0,1 S15c14r15i0p15t 14r15e0c15o14n15n0e15c14t15i0n15g 14.15.0. 5,5 4,4 
            timerCONNECT 1 5 server
          }
        }
      }
      else {
        timerJOIN -mc 2 150 raw -q join $chan
      }
    }
  }
  else {
    if (($level($knick) == enemy) && ($nick == $me)) {
      unset %slow
      if (%interval.clear != $null) {
        inc %a.clear
        if (%a.clear == %interval.clear) {
          rlevel enemy
          unset %scan
          unset %e.nick
          unset %r.chan
          unset %slow
          unset %a.clear
          msg $chan 4,4 5,5 0,1 S15c14r15i0p15t 14c15l0e15a14r15e0d 5,5 4,4 
        }
      }
    }
  }
}

on *:DEOP:#:{
  if (($opnick == $me) && ($nick != $me)) {
    ChanServ op $chan $me
  }
}

raw 433:*:{
  if (%i.pass != $null) {
    if ($status == connected) {
      NickServ ghost $mnick %i.pass
    }
    else {
      nick $mnick $+ $rand(1,1000)
      set %i.status 433
    }
  }
}

raw 474:*:{
  ChanServ unban $2 $me
  raw -q join $2
}

ctcp *:VERSION:*:{
  notice $nick 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
}

#revenge on

on *:OP:#:{
  if ($opnick == $me) {
    set %scan 1
    :next
    set %e.nick $nick($chan,%scan)
    if (%e.nick == $null) {
      unset %scan
      unset %e.nick
      halt
    }
    if ($level(%e.nick) == enemy) {
      raw -q kick $chan %e.nick : $+ $rand(1,15) $+ %e.nick
    }
    inc %scan
    goto next
  }
}

on *:JOIN:#:{
  if (($me isop $chan) && ($level($nick) == enemy)) {
    raw -q kick $chan $nick : $+ $rand(1,15) $+ $nick
  }
}

#revenge end

menu STATUS {
  PremaN
  .Script
  ..On:{
    enable #revenge
    titlebar ××× PremaN Script 2.8 [ON] ×××
    echo -a 4,4 5,5 0,1 S15c14r15i0p15t 14o15n 5,5 4,4 
  }
  ..Off:{
    disable #revenge
    titlebar ××× PremaN Script 2.8 [OFF] ×××
    echo -a 4,4 5,5 0,1 S15c14r15i0p15t 14o15f0f 5,5 4,4 
  }
  ..Clear:{
    rlevel enemy
    unset %scan
    unset %e.nick
    unset %r.chan
    unset %slow
    unset %a.clear
    echo -a 4,4 5,5 0,1 S15c14r15i0p15t 14c15l0e15a14r15e0d 5,5 4,4 
  }
  ..Setup
  ...Auto-identify:{
    set %last_i.pass %i.pass
    :rep_i.pass
    unset %i.pass
    set %i.pass $?*="Nick Auto-identify Password:"
    if (%i.pass == $null) {
      if (%last_i.pass == $null) {
        var %conf_null_i.pass = $?!="Disable Auto-identify?"
        if (%conf_null_i.pass == $true) {
          unset %conf_null_i.pass
          unset %last_i.pass
          unset %i.pass
          echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
        }
        else {
          unset %conf_null_i.pass
          goto rep_i.pass
        }
      }
      else {
        var %conf_last_i.pass = $?!="Keep Last Auto-identify: $+ $chr(32) $+ %last_i.pass $+ ?"
        if (%conf_last_i.pass == $true) {
          unset %conf_last_i.pass
          set %i.pass %last_i.pass
          unset %last_i.pass
          echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
        }
        else {
          var %conf_i.pass = $?!="Disable Auto-identify?"
          if (%conf_i.pass == $true) {
            unset %conf_i.pass
            unset %last_i.pass
            unset %i.pass
            echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
          }
          else {
            unset %conf_i.pass
            goto rep_i.pass
          }
        }
      }        
    }
    else {
      unset %last_i.pass
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
    }
  }
  ...Auto-reconnect:{
    unset %slow
    set %last_interval.slow %interval.slow
    :rep_interval.slow
    unset %interval.slow
    set %interval.slow $?="Auto-reconnect Interval:"
    if (%interval.slow == $null) {
      if (%last_interval.slow == $null) {
        var %conf_null_interval.slow = $?!="Disable Auto-reconnect?"
        if (%conf_null_interval.slow == $true) {
          unset %conf_null_interval.slow
          unset %last_interval.slow
          unset %interval.slow
          echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
        }
        else {
          unset %conf_null_interval.slow
          goto rep_interval.slow
        }
      }
      else {
        var %conf_last_interval.slow = $?!="Keep Last Auto-reconnect: $+ $chr(32) $+ %last_interval.slow $+ $chr(32) $+ kick(s)?"
        if (%conf_last_interval.slow == $true) {
          unset %conf_last_interval.slow
          set %interval.slow %last_interval.slow
          unset %last_interval.slow
          echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
        }
        else {
          var %conf_interval.slow = $?!="Disable Auto-reconnect?"
          if (%conf_interval.slow == $true) {
            unset %conf_interval.slow
            unset %last_interval.slow
            unset %interval.slow
            echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
          }
          else {
            unset %conf_interval.slow
            goto rep_interval.slow
          }
        }
      }        
    }
    else {
      unset %last_interval.slow
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }
  ...Auto-clear:{
    unset %a.clear
    set %last_interval.clear %interval.clear
    :rep_interval.clear
    unset %interval.clear
    set %interval.clear $?="Auto-clear Interval:"
    if (%interval.clear == $null) {
      if (%last_interval.clear == $null) {
        var %conf_null_interval.clear = $?!="Disable Auto-clear?"
        if (%conf_null_interval.clear == $true) {
          unset %conf_null_interval.clear
          unset %last_interval.clear
          unset %interval.clear
          echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
        }
        else {
          unset %conf_null_interval.clear
          goto rep_interval.clear
        }
      }
      else {
        var %conf_last_interval.clear = $?!="Keep Last Auto-clear: $+ $chr(32) $+ %last_interval.clear $+ $chr(32) $+ kick(s)?"
        if (%conf_last_interval.clear == $true) {
          unset %conf_last_interval.clear
          set %interval.clear %last_interval.clear
          unset %last_interval.clear
          echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
        }
        else {
          var %conf_interval.clear = $?!="Disable Auto-clear?"
          if (%conf_interval.clear == $true) {
            unset %conf_interval.clear
            unset %last_interval.clear
            unset %interval.clear
            echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
          }
          else {
            unset %conf_interval.clear
            goto rep_interval.clear
          }
        }
      }        
    }
    else {
      unset %last_interval.clear
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }
  ...Status:{
    if (%i.pass == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
    }
    if (%interval.slow == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
    if (%interval.clear == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }
  ..Quit:{
    quit 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
  }
  .Enemy
  ..Add:{
    var %a.nick = $?="Nick:"
    if ((%a.nick == $null) || (%a.nick == $me)) {
      unset %a.nick
      halt
    }
    else {
      auser enemy %a.nick
      unset %a.nick
    }
  }
  ..Remove:{
    var %r.nick = $?="Nick:"
    if ((%r.nick == $null) || (%r.nick == $me)) {
      unset %r.nick
      halt
    }
    else {
      ruser enemy %r.nick
      unset %r.nick
    }
  }
  ..List:{
    ulist enemy
  }
  .About:{
    echo -a 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
  }
}

menu CHANNEL {
  PremaN
  .Script
  ..On:{
    if ($me isop $chan) {
      raw -q mode $chan +ee $me $address($me,2)
      raw -q mode $chan +II $me $address($me,2)
    }
    enable #revenge
    titlebar ××× PremaN Script 2.8 [ON] ×××
    msg $chan 4,4 5,5 0,1 S15c14r15i0p15t 14o15n 5,5 4,4 
    hop -c $chan
  }
  ..Off:{
    if ($me isop $chan) {
      raw -q mode $chan +ee $me $address($me,2)
      raw -q mode $chan +II $me $address($me,2)      
    }
    disable #revenge
    titlebar ××× PremaN Script 2.8 [OFF] ×××
    msg $chan 4,4 5,5 0,1 S15c14r15i0p15t 14o15f0f 5,5 4,4 
  }
  ..Clear:{
    rlevel enemy
    unset %scan
    unset %e.nick
    unset %r.chan
    unset %slow
    unset %a.clear
    msg $chan 4,4 5,5 0,1 S15c14r15i0p15t 14c15l0e15a14r15e0d 5,5 4,4 
  }
  ..Setup
  ...Auto-identify:{
    set %last_i.pass %i.pass
    :rep_i.pass
    unset %i.pass
    set %i.pass $?*="Nick Auto-identify Password:"
    if (%i.pass == $null) {
      if (%last_i.pass == $null) {
        var %conf_null_i.pass = $?!="Disable Auto-identify?"
        if (%conf_null_i.pass == $true) {
          unset %conf_null_i.pass
          unset %last_i.pass
          unset %i.pass
          echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
        }
        else {
          unset %conf_null_i.pass
          goto rep_i.pass
        }
      }
      else {
        var %conf_last_i.pass = $?!="Keep Last Auto-identify: $+ $chr(32) $+ %last_i.pass $+ ?"
        if (%conf_last_i.pass == $true) {
          unset %conf_last_i.pass
          set %i.pass %last_i.pass
          unset %last_i.pass
          echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
        }
        else {
          var %conf_i.pass = $?!="Disable Auto-identify?"
          if (%conf_i.pass == $true) {
            unset %conf_i.pass
            unset %last_i.pass
            unset %i.pass
            echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
          }
          else {
            unset %conf_i.pass
            goto rep_i.pass
          }
        }
      }        
    }
    else {
      unset %last_i.pass
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
    }
  }
  ...Auto-reconnect:{
    unset %slow
    set %last_interval.slow %interval.slow
    :rep_interval.slow
    unset %interval.slow
    set %interval.slow $?="Auto-reconnect Interval:"
    if (%interval.slow == $null) {
      if (%last_interval.slow == $null) {
        var %conf_null_interval.slow = $?!="Disable Auto-reconnect?"
        if (%conf_null_interval.slow == $true) {
          unset %conf_null_interval.slow
          unset %last_interval.slow
          unset %interval.slow
          echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
        }
        else {
          unset %conf_null_interval.slow
          goto rep_interval.slow
        }
      }
      else {
        var %conf_last_interval.slow = $?!="Keep Last Auto-reconnect: $+ $chr(32) $+ %last_interval.slow $+ $chr(32) $+ kick(s)?"
        if (%conf_last_interval.slow == $true) {
          unset %conf_last_interval.slow
          set %interval.slow %last_interval.slow
          unset %last_interval.slow
          echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
        }
        else {
          var %conf_interval.slow = $?!="Disable Auto-reconnect?"
          if (%conf_interval.slow == $true) {
            unset %conf_interval.slow
            unset %last_interval.slow
            unset %interval.slow
            echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
          }
          else {
            unset %conf_interval.slow
            goto rep_interval.slow
          }
        }
      }        
    }
    else {
      unset %last_interval.slow
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }
  ...Auto-clear:{
    unset %a.clear
    set %last_interval.clear %interval.clear
    :rep_interval.clear
    unset %interval.clear
    set %interval.clear $?="Auto-clear Interval:"
    if (%interval.clear == $null) {
      if (%last_interval.clear == $null) {
        var %conf_null_interval.clear = $?!="Disable Auto-clear?"
        if (%conf_null_interval.clear == $true) {
          unset %conf_null_interval.clear
          unset %last_interval.clear
          unset %interval.clear
          echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
        }
        else {
          unset %conf_null_interval.clear
          goto rep_interval.clear
        }
      }
      else {
        var %conf_last_interval.clear = $?!="Keep Last Auto-clear: $+ $chr(32) $+ %last_interval.clear $+ $chr(32) $+ kick(s)?"
        if (%conf_last_interval.clear == $true) {
          unset %conf_last_interval.clear
          set %interval.clear %last_interval.clear
          unset %last_interval.clear
          echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
        }
        else {
          var %conf_interval.clear = $?!="Disable Auto-clear?"
          if (%conf_interval.clear == $true) {
            unset %conf_interval.clear
            unset %last_interval.clear
            unset %interval.clear
            echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
          }
          else {
            unset %conf_interval.clear
            goto rep_interval.clear
          }
        }
      }        
    }
    else {
      unset %last_interval.clear
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }
  ...Status:{
    if (%i.pass == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
    }
    if (%interval.slow == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
    if (%interval.clear == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }    
  ..Cycle:{
    hop -c $chan
  }
  ..Part:{
    raw -q part $chan
  }
  ..Quit:{
    quit 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
  }
  .Enemy
  ..Add:{
    var %a.nick = $?="Nick:"
    if ((%a.nick == $null) || (%a.nick == $me)) {
      unset %a.nick
      halt
    }
    else {
      auser enemy %a.nick
      unset %a.nick
    }
  }
  ..Remove:{
    var %r.nick = $?="Nick:"
    if ((%r.nick == $null) || (%r.nick == $me)) {
      unset %r.nick
      halt
    }
    else {
      ruser enemy %r.nick
      unset %r.nick
    }
  }
  ..List:{
    ulist enemy
  }
  ..Kick:{
    var %k.nick = $?="Nick:"
    if ((%k.nick == $null) || (%k.nick == $me)) {
      unset %k.nick
      halt
    }
    else {
      var %k.reason = $?="Reason:"
      if (%k.reason == $null) {
        unset %k.reason
        halt
      }
      else {
        if (%k.reason == $chr(32)) {
          raw -q kick $chan %k.nick :4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
          unset %k.nick
          unset %k.reason
        }
        else {
          raw -q kick $chan %k.nick :4,4 5,5 0,1 $+ $chr(32) $+ %k.reason $+ $chr(32) $+ 5,5 4,4 
          unset %k.nick
          unset %k.reason
        }
      }
    }
  }
  .About:{
    msg $chan 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
  }
}

menu NICKLIST {
  PremaN
  .Script
  ..On:{
    if ($me isop $chan) {
      raw -q mode $chan +ee $me $address($me,2)
      raw -q mode $chan +II $me $address($me,2)
    }
    enable #revenge
    titlebar ××× PremaN Script 2.8 [ON] ×××
    say 4,4 5,5 0,1 S15c14r15i0p15t 14o15n 5,5 4,4 
    hop -c $chan
  }
  ..Off:{
    if ($me isop $chan) {
      raw -q mode $chan +ee $me $address($me,2)
      raw -q mode $chan +II $me $address($me,2)
    }
    disable #revenge
    titlebar ××× PremaN Script 2.8 [OFF] ×××
    say 4,4 5,5 0,1 S15c14r15i0p15t 14o15f0f 5,5 4,4 
  }
  ..Clear:{
    rlevel enemy
    unset %scan
    unset %e.nick
    unset %r.chan
    unset %slow
    unset %a.clear
    say 4,4 5,5 0,1 S15c14r15i0p15t 14c15l0e15a14r15e0d 5,5 4,4 
  }
  ..Setup
  ...Auto-identify:{
    set %last_i.pass %i.pass
    :rep_i.pass
    unset %i.pass
    set %i.pass $?*="Nick Auto-identify Password:"
    if (%i.pass == $null) {
      if (%last_i.pass == $null) {
        var %conf_null_i.pass = $?!="Disable Auto-identify?"
        if (%conf_null_i.pass == $true) {
          unset %conf_null_i.pass
          unset %last_i.pass
          unset %i.pass
          echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
        }
        else {
          unset %conf_null_i.pass
          goto rep_i.pass
        }
      }
      else {
        var %conf_last_i.pass = $?!="Keep Last Auto-identify: $+ $chr(32) $+ %last_i.pass $+ ?"
        if (%conf_last_i.pass == $true) {
          unset %conf_last_i.pass
          set %i.pass %last_i.pass
          unset %last_i.pass
          echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
        }
        else {
          var %conf_i.pass = $?!="Disable Auto-identify?"
          if (%conf_i.pass == $true) {
            unset %conf_i.pass
            unset %last_i.pass
            unset %i.pass
            echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
          }
          else {
            unset %conf_i.pass
            goto rep_i.pass
          }
        }
      }        
    }
    else {
      unset %last_i.pass
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
    }
  }
  ...Auto-reconnect:{
    unset %slow
    set %last_interval.slow %interval.slow
    :rep_interval.slow
    unset %interval.slow
    set %interval.slow $?="Auto-reconnect Interval:"
    if (%interval.slow == $null) {
      if (%last_interval.slow == $null) {
        var %conf_null_interval.slow = $?!="Disable Auto-reconnect?"
        if (%conf_null_interval.slow == $true) {
          unset %conf_null_interval.slow
          unset %last_interval.slow
          unset %interval.slow
          echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
        }
        else {
          unset %conf_null_interval.slow
          goto rep_interval.slow
        }
      }
      else {
        var %conf_last_interval.slow = $?!="Keep Last Auto-reconnect: $+ $chr(32) $+ %last_interval.slow $+ $chr(32) $+ kick(s)?"
        if (%conf_last_interval.slow == $true) {
          unset %conf_last_interval.slow
          set %interval.slow %last_interval.slow
          unset %last_interval.slow
          echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
        }
        else {
          var %conf_interval.slow = $?!="Disable Auto-reconnect?"
          if (%conf_interval.slow == $true) {
            unset %conf_interval.slow
            unset %last_interval.slow
            unset %interval.slow
            echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
          }
          else {
            unset %conf_interval.slow
            goto rep_interval.slow
          }
        }
      }        
    }
    else {
      unset %last_interval.slow
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }
  ...Auto-clear:{
    unset %a.clear
    set %last_interval.clear %interval.clear
    :rep_interval.clear
    unset %interval.clear
    set %interval.clear $?="Auto-clear Interval:"
    if (%interval.clear == $null) {
      if (%last_interval.clear == $null) {
        var %conf_null_interval.clear = $?!="Disable Auto-clear?"
        if (%conf_null_interval.clear == $true) {
          unset %conf_null_interval.clear
          unset %last_interval.clear
          unset %interval.clear
          echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
        }
        else {
          unset %conf_null_interval.clear
          goto rep_interval.clear
        }
      }
      else {
        var %conf_last_interval.clear = $?!="Keep Last Auto-clear: $+ $chr(32) $+ %last_interval.clear $+ $chr(32) $+ kick(s)?"
        if (%conf_last_interval.clear == $true) {
          unset %conf_last_interval.clear
          set %interval.clear %last_interval.clear
          unset %last_interval.clear
          echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
        }
        else {
          var %conf_interval.clear = $?!="Disable Auto-clear?"
          if (%conf_interval.clear == $true) {
            unset %conf_interval.clear
            unset %last_interval.clear
            unset %interval.clear
            echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
          }
          else {
            unset %conf_interval.clear
            goto rep_interval.clear
          }
        }
      }        
    }
    else {
      unset %last_interval.clear
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }
  ...Status:{
    if (%i.pass == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y 15d14i15s0a15b14l15e0d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15i14d15e0n15t14i15f0y15:8 $+ $chr(32) $+ %i.pass $+ $chr(32) $+ 5,5 4,4 
    }
    if (%interval.slow == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t 14d15i0s15a14b15l0e15d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15r14e15c0o15n14n15e0c15t14:8 $+ $chr(32) $+ %interval.slow $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
    if (%interval.clear == $null) {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r 14d15i0s15a14b15l0e15d 5,5 4,4 
    }
    else {
      echo -a 4,4 5,5 0,1 A15u14t15o0-15c14l15e0a15r14:8 $+ $chr(32) $+ %interval.clear $+ 15 k0i15c14k15(0s15) 5,5 4,4 
    }
  }  
  ..Cycle:{
    hop -c $chan
  }
  ..Part:{
    raw -q part $chan
  }
  ..Quit:{
    quit 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
  }
  .Enemy
  ..Add:{
    if ($$1 == $me) {
      halt
    }
    else {
      auser enemy $$1
    }
  }
  ..Remove:{
    if ($$1 == $me) {
      halt
    }
    else {
      ruser enemy $$1
    }
  }
  ..List:{
    ulist enemy
  }
  ..Kick:{
    if ($$1 == $me) {
      halt
    }
    else {
      var %k.reason = $?="Reason:"
      if (%k.reason == $null) {
        unset %k.reason
        halt
      }
      else {
        if (%k.reason == $chr(32)) {
          raw -q kick $chan $$1 :4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
          unset %k.reason
        }
        else {
          raw -q kick $chan $$1 :4,4 5,5 0,1 $+ $chr(32) $+ %k.reason $+ $chr(32) $+ 5,5 4,4 
          unset %k.reason
        }
      }
    }
  }
  .About:{
    say 4,4 5,5 0,1 P15r14e15m0a15N 14S15c0r15i14p15t8 2.8 9http://www.hawkee.com/snippet/4404/ 5,5 4,4 
  }
}

Comments

(4) RSS

Go to Bottom

PremaN

Comments: 5

mIRC Snippet: War Revenge Kick (PremaN Script 2.8)
Posted on Jun 6, 2008 6:41 am

Bug FIXED in 2.0: Now the auto-reconnect, auto-clear and auto-identify are fully customized. You can change the interval or disable the feature. Right click PremaN-Script-Setup to configure.

PremaN

Comments: 5

mIRC Snippet: War Revenge Kick (PremaN Script 2.8)
Posted on Jun 14, 2008 6:52 am

Bug FIXED in 2.5: Sometimes after Auto-reconnect script fail to kick enemies.

PremaN

Comments: 5

mIRC Snippet: War Revenge Kick (PremaN Script 2.8)
Posted on Jun 21, 2008 9:32 pm

Bug FIXED in 2.7: Sometimes auto-reconnect interval < 3 kick(s) will cause error "Too Fast" while reconnecting and minor bug.

PremaN

Comments: 5

mIRC Snippet: War Revenge Kick (PremaN Script 2.8)
Posted on Jul 16, 2008 6:05 am

Bug FIXED in 2.8: Sometimes while auto-reconnecting, auto-identified nick is jammed and cause error "Already in Use".

War Revenge Kick (PremaN Script 2.8)

Introduction

Grab the Code

Comments

PremaN

My Snippet Tags

Contact

Sponsors


Last seen: Jul 22, 2008 Profile Snippets (1) Comments Received (4) Comments Submitted (5)