By Lysergic Diethylamide on Jan 31, 2008Hey 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
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
}
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!!!!!
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
