XCept Query Blocker v1.0

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	2.0
Scores Submitted	1
Date Added	Mar 26, 2007
Last Updated	Mar 28, 2007
Tags	block query xcept

Introduction

Another basic script, this time a Query Blocker. One extra key feature is that if you flood the person using this system, it ignores them for 10 seconds.

Grab the Code

on *:START: {
  set %xc.version v1.0
  set %XCeptPmBlockv1.0 on
  XPB
}
on *:UNLOAD: { unload.cmds }
on *:EXIT: { unload.cmds }
alias -l unload.cmds {
  var %i 1
  While ($query(%i)) {
    .timerexpire $+ $query(%i) off
     inc %i
  }
  echo -a 3,1.9:15XCept Query Blocker %xc.version
  echo -a 3,1.9:15Have a nice day!
  unset %xc.version %XCeptPmBlockv1.0 %i
}
alias XPB {
  echo -a $chr(31)
  echo -a 3,1.9:15XCept Query Blocker %xc.version
  echo -a 3,1.9:15When queried, type "accept" or "decline"
  echo -a 3,1.9:15in the window of the person sending you the query
  echo -a 3,1.9:15If you are flooded by the person, it will ignore them for 10 seconds
  echo -a 3,1.9:15You can Enable/Disable this script by right clicking in any channel
  echo -a 3,1.9:15Type /XPB to see this again
  echo -a 3,1.9:15XCept Query Blocker %xc.version
  echo -a $chr(31)
}
menu channel {
  $iif(%XCeptPmBlockv1.0 = on,$style(1)) $+ XCept Query Blocker %xc.version://if (%XCeptPmBlockv1.0 = on) { .timer 1 .1 /set %XCeptPmBlockv1.0 off | .disable #XCeptPmBlockv1.0 } | //if (%XCeptPmBlockv1.0 = off) { .timer 1 .1 /set %XCeptPmBlockv1.0 on | .enable #XCeptPmBlockv1.0 }
}
#XCeptPmBlockv1.0 off
on *:OPEN:?:*: {
  msg $nick $ltheme Please wait will I choose to Accept/Decline your Query $+ $rtheme
  set -z %PMFld. [ $+ [ $nick ] ] 2
  echo -a $ltheme $nick is sending you a Private Message $+ $rtheme
  .timerexpire $+ $nick 1 60 /expire $nick
}
on *:TEXT:*:?: {
  If (%PMFld. [ $+ [ $nick ] ] >= 5) {
    msg $nick $ltheme Added to ignore list for 10 seconds $+ $rtheme
    .ignore -pu10 $address($nick,4)
    .window -c $nick
  }
  If (%PMFld. [ $+ [ $nick ] ] < 5) { inc %PMfld. [ $+ [ $nick ] ] 1 }
}
alias expire {
  If ($query($1)) {
    msg $1 $ltheme I'm sorry, I did not get to your Query in time. Auto-Declined $+ $rtheme
    .window -c $1
  }
}
alias -l decline {
  If ($query($1)) {
    msg $1 $ltheme Your Query has been Declined $+ $rtheme
    .window -c $1
    .timerexpire $+ $1 off
  }
}
alias -l accept {
  If ($query($1)) {
    msg $1 $ltheme Your Query has been Accepted $+ $rtheme
    .timerexpire $+ $1 off
  }
}
on *:INPUT:?: {
  If ($query($active)) && (!$ctrlenter) {
    If (!$2) {
      If ($1 = accept) || ($1 = decline) {
        haltdef
        $1 $active
      }
    }
  }
}
#XCeptPmBlockv1.0 end
alias -l ltheme { return 3,1.9:14XCept Query Blocker %xc.version $+ .15 }
alias -l rtheme { return 9:3. }

Comments

(2) RSS

Go to Bottom

|MELIORITE|

Comments: 144

mIRC Snippet: XCept Query Blocker v1.0
Posted on Mar 27, 2007 2:06 am

I like how it appears so fluent and efficient. Personally, if someone was flooding my query I\'d wanna ignore them for a day (heehee). Anyway... nice work... Wondering if certain nicks can be added to be generally accepted?

Pwntage`Ninja

Comments: 25

mIRC Snippet: XCept Query Blocker v1.0
Posted on Mar 27, 2007 3:05 pm

Certainly. A good idea =] I can add in a small dialog for that :S like a 50x50 pixel one, not a big one =] Thanks <3

XCept Query Blocker v1.0

Introduction

Grab the Code

Comments

Pwntage`Ninja

My Snippet Tags

Contact

Friends (1)

Sponsors


Last seen: Aug 17, 2008 Profile Friends (1) Scripts (3) Snippets (17) Images (1) Comments Received (72) Comments Submitted (25) Forum Posts (23)