DJMatt Query Blocker

By DJMattIrc on Feb 22, 2009

You Just UpLoad With Alt+R And Paste This Into The ReMote And Press OK Then Right Hand Click In The Room And Click On DJMatt Query Blocker It Will Un Tick Then Right Hand Click Agen And Click On DJMatt Query Blocker Then Yore All Dun

on *:START: {
  Set %DJMatt.version v1.0
  Set %DJMattPmBlockv1.0 on
  DJ
}
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 4,1.13:12DJMatt Query Blocker13:4. %xc.version
  echo -a 4,1.13:12Thanks For Using DJMattPmBlocker And Have a nice Day :)13:4.
  unset %xc.version %DJMattPmBlockv1.0 %i
}
alias DJ {
  echo -a $Chr(31)
  echo -a 4,1.13:12DJMatt Query Blocker13:4. %xc.version13:4.
  echo -a 4,1.13:12When queried, type "Accept" Or "Decline"13:4.
  echo -a 4,1.13:12in the window of the person sending you the query13:4.
  echo -a 4,1.13:12If you are flooded by the person, it will ignore them For 10 seconds13:4.
  echo -a 4,1.13:12You can Enable/Disable this script by Right clicking in any channel13:4.
  echo -a 4,1.13:12Type /DJ To see this again13:4.
  echo -a 4,1.13:12DJMatt Query Blocker13:4. %xc.version13:4.
  echo -a $Chr(31)
}
menu channel {
  $iif(%DJMattPmBlockv1.0 = on,$style(1)) $+ DJMatt Query Blocker %xc.version://If (%DJMattPmBlockv1.0 = on) { .Timer 1 .1 /Set %DJMattPmBlockv1.0 off | .disable #DJMattPmBlockv1.0 } | //If (%DJMattPmBlockv1.0 = off) { .Timer 1 .1 /Set %DJMattPmBlockv1.0 on | .enable #DJMattPmBlockv1.0 }
}
#DJMattPmBlockv1.0 off
on *:OPEN:?:*: {
  msg $nick $ltheme 11Please wait will I choose To Accept/Decline your Query $+ $rtheme
  Set -z %PMFld. [ $+ [ $nick ] ] 2
  echo -a $ltheme $nick 12Is sending you a Private Message $+ $rtheme
  .timerexpire $+ $nick 1 60 /expire $nick
}
on *:TEXT:*:?: {
  If (%PMFld. [ $+ [ $nick ] ] >= 5) {
    msg $nick $ltheme 13Added 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 11I'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 7Your Query has been Declined $+ $rtheme
    .window -c $1
    .timerexpire $+ $1 off
  }
}
alias -l accept {
  If ($query($1)) {
    msg $1 $ltheme 4Your Query has been Accepted $+ $rtheme
    .timerexpire $+ $1 off
  }
}
on *:INPUT:?: {
  If ($query($active)) && (!$ctrlenter) {
    If (!$2) {
      If ($1 = accept) || ($1 = decline) {
        haltdef
        $1 $active
      }
    }
  }
}
#DJMattPmBlockv1.0 End
alias -l ltheme { return 4,1.13:12DJMatt Query Blocker13:4. %xc.version $+ .13:4. }
alias -l rtheme { return 13:4. }

Comments

Sign in to comment.
airfreshner   -  Feb 24, 2009

Looks very simular to scripts in relaybytez mIRC

 Respond  
DJMattIrc   -  Feb 22, 2009

Im New To All This So Hope You Like It And Plz Do Not Rip This!!!!!!!!!

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.