Just Another PM Catcher. (More Features)

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	8.5
Scores Submitted	4
Date Added	Jan 31, 2008
Last Updated	Feb 13, 2008

Introduction

Hey guys, I just figured I get annoyed when people PM me when they dont ask first. Heres a script to help you if you feel the same. To change your away state, just type /pm to load up the dialog to change your state to Available. Comments/Constructive criticism/Ratings are much appreciated!

-Update-

Auto Response to your nick on away with your away message

Grab the Code

on *:load:{
  set %power on
}
alias pm {
  .dialog -md pm pm
}
on *:dialog:pm:init:0:{
  if (%power == on) {
    did -c pm 14
    did -u pm 13
  }
  if (%power == off) {
    did -u pm 14
    did -c pm 13
  }
}
on *:dialog:pm:close:{
  set %power $iif($did(pm,13).state == 1,on,off)
}
dialog pm {
  title "Query..."
  size -1 -1 144 242
  option pixels
  box "", 12, 0 0 143 156
  text "From:", 1, 4 28 77 15
  edit "", 2, 43 28 88 15, read autohs
  text "Text", 3, 4 46 77 15
  edit "", 4, 4 66 134 84, read return multi autohs autovs
  text "...What would you like to do?", 5, 2 160 143 17
  button "Accept", 6, 3 177 68 21
  button "Deny", 7, 71 177 70 21
  button "Ignore", 8, 3 198 68 21
  button "Warn", 9, 71 198 70 21
  button "Kick", 10, 3 219 68 21
  button "Ban", 11, 71 219 70 21
  check "Away", 13, 75 9 63 17
  check "Avaliable", 14, 5 9 65 17
}
on *:TEXT:$(* $+ $me $+ *):#:{
  if (%power == off) {
    /notice $nick Auto response to the word " $+ $me $+ " in: $1-
    /timer 1 3 /notice $nick [I am not currently avaliable: [ $+ %away $+ ]]
  }
}
alias telnet {
  /run telnet $1 $2
}
on *:OPEN:?:{
  if (%power == on) {
    .dialog -mod pm pm
    .did -a pm 2 $nick
    .did -a pm 4 $1-
    .close -m $nick
    /msg $nick [Please hold. Your PM request is being processed.]
  }
  if (%power == off) {
    /window @Answering_Machine
    aline @Answering_Machine < $+ $nick $+ >  $1-
    .close -m $nick
    /query $nick [I am not currently available: [ $+ %away $+ ]]
  }
}
on *:DIALOG:pm:sclick:13:{
   if ($did(pm,13).state == 1) {
     did -u pm 14
     set %power off
     set %away $$?="Away Reason?"

}
   if ($did(pm,13).state == 0) {
     did -c pm 14
     set %power on
   }
}
on *:DIALOG:pm:sclick:14:{
   if ($did(pm,14).state == 1) {
     did -u pm 13
     set %power on
     unset %away
   }
   if ($did(pm,14).state == 0) {
     did -c pm 13
     set %power off
   }
}
on *:dialog:pm:sclick:9:{
  /msg $did(pm,2).text This is your one and only warning: DON'T PM without permission!
  .dialog -x pm pm
}
on *:dialog:pm:sclick:10:{
  /kick $active $did(pm,2).text DONT PM without permission, especially OPs.
  /msg $did(pm,2).text Never PM without permission...
}
on *:dialog:pm:sclick:11:{
  /ban -k $$?="Channel?" $did(pm,2).text You have been banned for PM abuse.  Think it through next time...
}
on *:dialog:pm:sclick:6:{
  /query $did(pm,2).text
  /msg $did(pm,2).text [PM request accepted. Spit it out, stooge.]
  .dialog -x pm pm
}
on *:dialog:pm:sclick:7:{
  /msg $did(pm,2).text [PM request denied by $me $+ .]
  .dialog -x pm pm
}
on *:dialog:pm:sclick:8:{
  /msg $did(pm,2).text [You have been deemed exessively annoying!  You have been ignored]
  /ignore $nick
  .dialog -x pm pm
}

Comments

(14) RSS

Go to Bottom

Scakk

Comments: 237

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Jan 31, 2008 4:46 am

Couple ideas

1) Change below to

Code:

text "", 2, 43 28 88 15
text "", 4, 4 66 134 84

to this

Code:

text "", 2, 43 28 88 15,read
text "", 4, 4 66 134 84,read

2) Change the below

Code:

.did -ar pm 2 $nick
.did -ar pm 4 $1-

to this

Code:

.did -a pm 2 $nick
.did -a pm 4 $1-

Scakk

Comments: 237

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Jan 31, 2008 4:47 am

This

Code:

text "", 2, 43 28 88 15,read
text "", 4, 4 66 134 84,read

Should be

Code:

edit "", 2, 43 28 88 15,read
edit "", 4, 4 66 134 84,read

water_dragon

Comments: 50

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Jan 31, 2008 8:12 am

Not Bad 8/10 (ya gonna have to come up with somethink far better to get 10/10 from me :P)

Comments: 1,382

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Jan 31, 2008 10:58 am

@water_dragon - I Think you have to submit a score an rate it...Select an push the button....

Lysergic Diethylamide

Comments: 40

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Jan 31, 2008 12:46 pm

Hey thanks Scakk I'll make those changes. It's really basic coding on the inside, but I'm trying to learn these goddamned things.. Lol. Thanks for the comments guys.

Lysergic Diethylamide

Comments: 40

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Jan 31, 2008 12:49 pm

Alright the corrections have been made, and Scakk, that does look better! Thanks!

tzar469

Comments: 17

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Feb 1, 2008 11:42 pm

You spelled "available" wrong. "Dont" needs an apostrophe: "Don't" Other than that, you've got a good script :)

Cheiron

Comments: 328

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Feb 3, 2008 6:45 am

nice clean looking script.. gets an 8 from me and submitted too :) good one

Lysergic Diethylamide

Comments: 40

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Feb 4, 2008 5:48 pm

tzar469 I have changed those spelling errors especially for you. XD Also a couple other things I didn't catch till right now such as the $$?"Channel?" That was dumb. That got on my nerves alot. that was changed to $active. I'm looking for a way to make this happen: When you get a PM, make the common channel you have with that person the active channel so the kick/ban actually works. Because, as i've recently learned, the person that PM's you isnt always in your active channel. And thanks Cheiron :D

Fan_Of_Ur_Mom

Comments: 18

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Feb 13, 2008 10:02 pm

Change
on *:TEXT:*poon*:#:{

to
on *:TEXT:$(* $+ $me $+ *):#:{

>.> I think that should work a little better then having it highlight for only just one nick. :P *skips off*

� /server -m fan.dx3k.com 8000 � � http://fan.dx3k.com/ �

SnoooP

Comments: 320

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Feb 17, 2008 12:17 am

niceeee :D:D i like it alot!

Gemster

Comments: 56

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Apr 25, 2008 2:39 pm

this is good, id like it better if u could add nicks to it like freinds that will bypass the dialog and let them pm u as normal :D

SpotRedDog

Comments: 81

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Apr 25, 2008 3:18 pm

I look forward to using this it looks clean and neat I can't wait to see if it works. I have tried so many and they always aren't working or weren't written right and fixing them only made them even worse but the Kick/Ban I am praying works being a Op can be a pain at time's and so I hope this works.../me cross's finger's, knocks on wood, throws salt over left shoulder!!!!!

SpotRedDog

Comments: 81

mIRC Snippet: Just Another PM Catcher. (More Features)
Posted on Apr 25, 2008 8:21 pm

Quick question: Why is this in the script I can't figure out why cna you explain? Please....

alias telnet {
/run telnet $1 $2
}

Lysergic Diethylamide

		Colorado
Last seen: Sep 18, 2008 Profile \| Website Friends (1) Snippets (3) Images (2) Comments Received (28) Comments Submitted (40) Forum Posts (113)

My Snippet Tags

Contact

Add to Friends

Send Private Message

AOL AIM:

MSN: raver2thabone@hotmail.com

Friends (1)

napa182

View All

Just Another PM Catcher. (More Features)

Introduction

Grab the Code

Comments

Lysergic Diethylamide

My Snippet Tags

Contact

Friends (1)

Sponsors