Slap revenge v2

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	3
Date Added	Nov 29, 2007
Last Updated	Nov 29, 2007
Tags	revenge slap

Introduction

Nothing you'd expect from a regular slap revenge. Option to add protected users from the script, remove prot. users, kick flooders (with a customizable kick msg), and enable or disable the script with ease. All available through a channel or status popup.

Grab the Code

; ����������������������
; �� A simple slap revenge
; �� made by Hayate 
; ����������������������

; �� ALIAS

alias -l slap return $iif($2,$iif($gettok(%slap.revenge,$1,58) iswm $2,$true,$false),$iif($gettok(%slap.revenge,$1,58),$true,$false))
alias -l slap.msg return $iif($gettok(%slap.revenge,3,58),$v1,Slap flood.)
alias -l slaps.prot return $($+(%,slaps,.,prot),2)
alias -l slaps.add.prot { 
  var %u = $input(Enter a nick to add to the list,qe)
  if ($findtok($slaps.prot,%u,58)) .echo -q $input(User is already in list!,io)
  elseif (%u) { 
    set %slaps.prot $addtok(%slaps.prot,%u,58)
    .echo -q $input(Successfully added %u to the list ( Current list: $replace($slaps.prot,:,$+($chr(44),$chr(32))) ),io)
  }
  elseif (!%u) .echo -q $input(Insufficient parameters,io)
}
alias -l slaps.rem.prot { 
  var %u = $input(Enter a nick to remove from the list:,qe)
  if (!$findtok($slaps.prot,%u,58)) .echo -q $input(User is not in the list!,io)
  elseif (!%u) halt
  else { 
    set %slaps.prot $deltok(%slaps.prot,$findtok($slaps.prot,%u,58),58)
    .echo -q $input(Successfully removed %u from the list ( Current list: $replace($slaps.prot,:,$+($chr(44),$chr(32))) ),io)
  }
}

alias -l slap.revenge.en { 
  if ($1 iswm script) { 
    if ($slap(1,enabled)) set %slap.revenge $+(disabled:,$iif($slap(2,kick),$gettok($($+(%,slap,.,revenge),2),2,58),$iif($slap(2,kick),:kick,$iif($slap(3),$+(:,$slap.msg)))))
    else set %slap.revenge $+(enabled:,$iif($slap(2,kick),$gettok($($+(%,slap,.,revenge),2),2,58),$iif($slap(2,kick),:kick,$iif($slap(3),$+(:,$slap.msg)))))
  }
  elseif ($1 iswm kick) { 
    if ($slap(2,kick)) set %slap.revenge $+($iif($slap(1,enabled),enabled,$gettok($($+(%,slap,.,revenge),2),1,58)),:nokick,$iif($slap(3),$+(:,$slap.msg)))
    else { 
      var %t = $input(Would you like to set a kick message ( Current: $iif($slap(3),$slap.msg,None) ),yn,Slap kick msg?)
      if (%t) var %u = $input(Message:,qe)
      set %slap.revenge $+($iif($slap(1,enabled),enabled,$gettok($($+(%,slap,.,revenge),2),1,58)),:kick,$iif(%t,$iif(%u,$+(:,%u),$+(:,Slap flood.)),$iif($slap(3),$+(:,$slap.msg),$+(:,None))))
    }
  }
}

; �� EVENT

on *:action:$($+($+(*,slaps,*),$+(*,$me,*))):#:{ 
  if (!$findtok($slaps.prot,$nick,58)) { 
    if ($slap(1,enabled)) { 
      inc -z %temp.slap.flood 10
      if ($($+(%,temp,.,slap,.,flood),2) > 40) { 
        if (($me isop $chan) && ($slap(2,kick))) kick # $nick $slap.msg
        halt
      }
      else describe # $replace($1-,$me,$nick)
    }
  }
}

on *:LOAD:set %slap.revenge enabled:kick:Slap flood.
on *:UNLOAD:unset %slap.revenge

; �� MENU

menu channel,status { 
  $iif($slap(1,enabled),Slap revenge (on),Slap revenge (off)):
  .$iif($slap(1,enabled),$style(1) Enabled,Enabled):slap.revenge.en script
  .$iif($slap(1,enabled),$iif($slap(2,kick),$style(1) Kick on flood, Kick on flood),$style(2) Kick on flood):slap.revenge.en kick
  .-
  .Add protected user:slaps.add.prot
  .Remove protected user:slaps.rem.prot
  .List protected users:echo -ac info * Slap revenge protected users: $replace($slaps.prot,:,$+($chr(44),$chr(32)))
}

Comments

(5) RSS

Go to Bottom

Korvin

Comments: 238

mIRC Snippet: Slap revenge v2
Posted on Nov 29, 2007 9:38 pm

whats the real point?

humming_hi

Comments: 9

mIRC Snippet: Slap revenge v2
Posted on Nov 29, 2007 10:04 pm

Korvin, To make you ask questions? =P -- looks good Hayate

Hayate

Comments: 10

mIRC Snippet: Slap revenge v2
Posted on Nov 29, 2007 10:29 pm

thanks humming_hi. Korvin, made it for a friend -> bored, decided to take it a step further and figured it would be of use to some people -> released it. I thought it was a step up for the 5-10 line pieces of codes on here that do the same thing.

SLS10

Comments: 35

mIRC Snippet: Slap revenge v2
Posted on Dec 2, 2007 1:06 pm

The script is very nice and handy for slap fights.

Hayate

Comments: 10

mIRC Snippet: Slap revenge v2
Posted on Dec 7, 2007 12:26 pm

Thank you SLS10 for your comment.

Slap revenge v2

Introduction

Grab the Code

Comments

Hayate

My Snippet Tags

Contact

Sponsors

		Ontario, Canada
Last seen: Dec 07, 2007 Profile Snippets (1) Images (1) Comments Received (5) Comments Submitted (10) Forum Posts (9)