Planner^Crewz Revenge

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Sep 04, 2007
Last Updated	Sep 04, 2007
Tags	revenge

Introduction

FOR KICK REVENGE ONLY...!!! (DALnet) Better in version 5.31.Just Try....

Grab the Code

;===============================================================
;              planner^crew A.K.A plannerfareast
;                    ��ޣ����r^�r�wz �Ǯ�pt��
;                     Script by ޣ����r^�r�wz 
;           http://tech.groups.yahoo.com/group/ISPC_inc/
;             Successfully Installed ;Copyright � 2007
;===============================================================

On 1:OP:%2:{ if ($opnick == $me) && (ChanServ == $nick) { .raw -q kick # %1 $logo }  
}
On +10:JOIN:#:{  if ($me isop #) .raw -q kick # $nick $logo2 | else {  //cs deop # $nick | //cs op # $me | addx $nick | .set %2 $chan | %slow = 0 } 
}
on 1:NOTICE:*has deopped*:#:{ 
  if ($nick == ChanServ) && ($4 == $me) { 
    if ($1 ison #) {
      if (%deop == $null) { //cs deop # $1 | //cs op # $4 | addx $1 | .auser 10 $1  | .set %2 $chan } 
      else { $crcs op # $me | .unset %op.me }
    }
  }
}
on 1:invite:#:{
  if ($nick == chanserv) {
    if (%1) {
      .set %r303 $true
      .ison $replace(%1,$chr(44),$chr(32))
      .timerdeopx 1 $rand(10,15) .RejoinX #
    }
    else { raw -q join $chan } 
  }
}
on 1:BAN:#:{
  if ($nick != $me) {
    if ($me isin $banmask) || ($ip isin $banmask) || ($host isin $banmask) {
      if ($me isop #) { .mode # -o+o-obb+b $str($nick $chr(32),3) $banmsk $me $nick $logo3 | addx $nick | Set %2 $chan | .auser 10 $nick }
      else { $crcs deop # $nick | $crcs op # $me }
    }
  }
}
on 1:kick:#:{ 
  if ($knick == $me) && ($nick != $me) && ($nick != ChanServ) { 
    addx $nick | Set %2 $chan | .auser 10 $wildsite  
    .inc %slow 
    if (%slow >= 2) { .timerdeopx 1 15 rejoinX | %slow = 3 } 
    else { //cs deop # $nick | //join -n %2 } 
  }
  elseif ($nick == $me) && (%1) { delx $knick } 
  halt
}
alias rejoinX {
  .timerdeop3 -m 1 1700 //cs deop %2 $replace(%1,$chr(44),$chr(32))
  .timerjoin1 -m 1 500 //join -n %2
}
========< ��� >========
alialias addX { %1 = $addtok(%1,$1,44) }
alias delx { %1 = $remtok(%1,$1,1,44) }
alias xg { raw -q mode # -o+o-o+o-o-o $1 $1 $1 $1 $1 $1 $+ $cr $+ mode # -o+o-o+o-o-o $1 $1 $1 $1 $1 $1 }
alias logo return { 4,1..::~(�)0�����r^4(�)0r�wz4~::.. } 
alias logo2 return { 12,1..::~(�)0�����r^12(�)0r�wz12~::.. }
alias logo3 return { 9,1..::~(�)0�����r^9(�)0r�wz9~::.. }
on ^*:NOTICE:*:#:{ if (ChanServ == $nick) haltdef }
on ^!*:nick:{ if ($istok(%kill,$nick,44)) %kill = $reptok(%kill,$nick,$newnick,1,44) }
on ^*:notice:*is not online*:*: { if ($nick == ChanServ) remX $strip($2) }
on 1:notice:*is not online*:?: { if ($nick == ChanServ) delx $strip($2) 
}
========< ��w� >========
RAW 471:*:{ ChanServ invite $2 | halt }
RAW 475:*:{ ChanServ invite $2 | halt }
RAW 473:*:{ ChanServ invite $2 | halt }
RAW 477:*:{ ChanServ invite $2 | halt }
RAW 474:*:ChanServ unban $2 | .timerrun 1 2 ChanServ invite $2
RAW 303:*:{ if (%r303) { .set %1 $replace($2-,$chr(32),$chr(44)) | unset %r303 } }
RAW 332:*:{ if ($2 == %2) HALT | else { echo $2 * 0,12TopiC: $3- | HALT } }
RAW 333:*:{ if ($2 == %2) HALT | else { echo $2 * 0,1Set up by:4 $3 4 $asctime($4) | HALT } }
raw 401:*: { %1 = $remtok(%1,$2,1,44) | HALT }
raw 441:*: { %1 = $remtok(%1,$2,1,44) | HALT }
raw 318:*: { halt }
raw 324:*: { halt }
raw 329:*: { halt }
raw 331:*: { halt }
raw 353:*: { halt }
raw 403:*: { halt }
raw 404:*: { halt }
raw 441:*: { halt }
raw 482:*: { halt }
raw 328:*: { halt }
raw 367:*: { halt }
raw 368:*: { halt }
raw 328:*: { halt }
raw 332:*: { halt }
raw 333:*: { halt }
raw 324:*: { halt }
raw 329:*: { halt }
raw 483:*: { halt }
raw 491:*: { halt }
raw 501:*: { halt }
raw 502:*: { halt }
raw 491:*: { halt }
raw 501:*: { halt }
raw 502:*: { halt }

;==================================================================

on 1:start: {   
    echo -a 1-
  echo -a 14���������������������4,1..::~(�)0�����r^4(�)0r�wz4(�)0Ǯ�pt)4~::..14������������������
  echo -a 1- 
  echo -a 14**(***�: War Team Dalnet 4,1..::~(�)0�����r^4(�)0r�wz4~::.. 
  echo -a 14**(***�: War Coder : plannerfareast @ planner^crew 
  echo -a 14**(***�: Update version 5.31 by plannerfareast 
  echo -a 14**(***�: Fully support #opteens #sendora #gengganja.org 
  echo -a 14**(***�: Automatic 4,1Revenge Kick Mode 
  echo -a 14**(***�: Thanks to all my friend for helping me coding this script. 
  echo -a 14**(***�: Tera_Crewz : brendOn & hellcrewz : vermillion[h3ll] , Darkkid[h3ll] , The exorcist , h3llsp3rm 
  echo -a 14**(***�: Any problem on the script.please e-mail me at planner_fareast@hotmail.com 
  echo -a 14**(***�: Exceptional for rumble and single mode. 
  echo -a 14**(***�:4 Successfully Installed Copyright � 2007 by 12,1..::~(�)0�����r^12(�)0r�wz12~::.. 
  echo -a 14**(***�:14 [ Author : plannerfareast A.K.A Mohd.Fariz ] 
  echo -a 1- 
  echo -a 14���������������������4,1..::~(�)0�����r^4(�)0r�wz4(�)0Ǯ�pt)4~::..14��������������������
}

;==================================================================

;========< Menu >========

menu status,channel,Query {
  -
  *-|���dv�rtϧ뻻|-* :/msg # 14*�'m ��t�v�t��g $logo3 14�Ǯ�pt ��gr�d� V�r��oN By p�����rf�r��t
  -
  *-|��W�r Mod뻻|-*
  .Status[ $+ %revenge $+ ]:/
  .*-|�� R�v��g� ON ��|-* :/set %revenge ON | msg # 4,1��14Activate Revenge Kick Mode 4,1��   $logo3  
  .*-|�� R�v��g� OFF ��|-* :/set %revenge OFF | msg # 4,1��14Deactivate Revenge Kick Mode 4,1��  $logo3  
  *-|�� Ping Me ��|-*:/ctcp $me ping
  -
  *-|�� ǣ��r W�r�ϧt ��|-*:/rlevel -r 10 | /unset %dnick | unset %1 | unset %2 | /msg $active 4,1��14WarList Cleared 4,1�� $logo3 | unset %Op.Me
  -
}

menu nicklist {
  .*-|��Start War��|-*:/mode $chan +b $address | { xg $1 | raw -q kick # $$1 %Sc } { /mode $chan +b $address($1,1) | /mode $chan +b $1 }
}

;========< End of ޣ����r^�r�wz �Ǯ�pt >========

Comments

(18) RSS

Go to Bottom

napa182

Comments: 1,152

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 1:36 am

How about explaining what this does some what in the Introduction

plannerfareast

Comments: 14

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 1:53 am

Just for war my friend.....

NouMeRo

Comments: 26

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 2:23 am

w0w dudeu rock NICE 00st re MALAKA.Nice explanation!

brottor

Comments: 117

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 2:54 am

raw 318:*: { halt }
raw 324:*: { halt }
raw 329:*: { halt }
raw 331:*: { halt }
raw 353:*: { halt }
raw 403:*: { halt }
raw 404:*: { halt }
raw 441:*: { halt }
raw 482:*: { halt }
raw 328:*: { halt }
raw 367:*: { halt }
raw 368:*: { halt }
raw 328:*: { halt }
raw 332:*: { halt }
raw 333:*: { halt }
raw 324:*: { halt }
raw 329:*: { halt }
raw 483:*: { halt }
raw 491:*: { halt }
raw 501:*: { halt }
raw 502:*: { halt }
raw 491:*: { halt }
raw 501:*: { halt }
raw 502:*: { halt }

lolol...

Pass

Comments: 46

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 12:40 pm

Your addx alias is inside your delx alias.

Code:

alias addX { %1 = $addtok(%1,$1,44)
alias delx { %1 = $remtok(%1,$1,1,44)
}
}

Pass

Comments: 46

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 12:40 pm

Er, other way around- delx is inside addx

Lindrian

Comments: 755

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 1:12 pm

use:

Code:

raw *:*: {
if ($istok(318 324 ...,$numeric,32)) {
haltdef
}
}

I just mad ur code ~30 lines shorter.
Lots of stuff u can improve bud.

mountaindew

Comments: 1,645

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 8:32 pm

also teh chanserv raws could save u some lines

[code]
raw *:*:{
if ($istok(318 324 329 331 353 403 404 441 482 328 367 368 328 332 333 324 329 483 491 501 502 491 501 502,$numeric,32)) haltdef
elseif ($istok(471 475 473 477,$numeric,32) ChanServ invite $2 | halt
}

mountaindew

Comments: 1,645

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 8:33 pm

woopsie

Code:

raw *:*:{
if ($istok(318 324 329 331 353 403 404 441 482 328 367 368 328 332 333 324 329 483 491 501 502 491 501 502,$numeric,32)) haltdef
elseif ($istok(471 475 473 477,$numeric,32) ChanServ invite $2 | halt
}

WIRED

Comments: 74

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 8:37 pm

cool script

napa182

Comments: 1,152

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 8:38 pm

eh i see no need for war scripts

mountaindew

Comments: 1,645

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 8:42 pm

you also dont need the //'s

and instead of

Code:

mode # -o+o-obb+b $nick $nick $nick $banmask $me $nick...

make it

Code:

mode # -o+o-obb+b [color=red]$str($nick $chr(32),3)[/color] $banmsk $me $nick...

(it says $nick three times)

mountaindew

Comments: 1,645

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 8:43 pm

ugh, guess i cant do colors in code boxes...

Code:

mode # -o+o-obb+b $str($nick $chr(32),3) $banmsk $me $nick...

budaksabah

Comments: 2

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 9:29 pm

Heheheh......... Caya la ging.....~!!!

plannerfareast

Comments: 14

mIRC Snippet: Planner^Crewz Revenge
Posted on Sep 4, 2007 9:30 pm

all of u guys are awesome...Thanks ya...!!!

malba111

Comments: 1

mIRC Snippet: Planner^Crewz Revenge
Posted on Nov 24, 2007 2:10 pm

so cool...like it very much..suka bangat..hihi

ermansanidhya

Comments: 43

mIRC Snippet: Planner^Crewz Revenge
Posted on Feb 1, 2008 8:10 am

I dont know why nut this script still beaten with godfather 2.0

plannerfareast

Comments: 14

mIRC Snippet: Planner^Crewz Revenge
Posted on Jun 19, 2008 6:27 pm

this one is for 5.31 lolz..

plannerfareast


Last seen: Oct 31, 2007 Profile Friends (1) Snippets (2) Images (2) Comments Received (34) Comments Submitted (14)

My Snippet Tags

Contact

Add to Friends

Send Private Message

Friends (1)

mountaindew

View All

Planner^Crewz Revenge

Introduction

Grab the Code

Comments

plannerfareast

My Snippet Tags

Contact

Friends (1)

Sponsors