By Riht_2 on Jun 14, 2008It's not in very good order, and it's pretty much pointless, but I thought that it was somewhat worth posting. I got help from Kou, mostly to get rid of some of the issues I couldn't fix. It was just a few simple problems with the code--forgetting autovs and autohs, along with $crlf. But it should work fine. Be aware that it may block out other people from sending a PM to you while you run it.
;;Hopefully this will work for you people. ^_^
Dialog spm {
size 100 100 202 221
title "Seperate PM"
edit "", 1, 1 1 200 144, autovs, multi, read
button "Clear", 2, 1 145 200 18
button "Change", 3, 1 162 100 18
edit "", 4, 100 162 100 18, return
edit "", 5, 1 181 200 18, autohs
button "Send", 6, 1 198 200 24, flat
}
On *:Dialog:spm:sclick:*: {
if ($did == 2) { did -r spm 1 }
if ($did == 3) { set %pm $did(4) | echo -a You have switched PM dialog to [ %pm ] $+ ! | .msg %pm -- I wish to speak with you, %pm -- (RihtPm 1.0) }
if ($did == 6) {
if ($did(5) !== $Null) { stmg %pm $did(5) | haltdef | did -a spm 1 [ $me ] says: $did(5) $crlf | did -r spm 5 }
elseif ($did(5) == $Null) { beep 1 4 | echo -a 11-12-2 You can't send nothing! 12-11- }
}
}
On *:Dialog:spm:init:*: {
set %spm On
}
On *:Dialog:spm:close:*: {
set %spm Off
}
On ^*:Text:*:?: {
if (%spm = on) {
if ($Nick = %pm) { did -a spm 1 [ %pm ] says: $1- $crlf }
if ($Nick != %pm) { .timer 1 2 .notice $nick Talking to someone else. }
haltdef
}
}
On ^*:Action:*:?: {
if (%spm = on) {
haltdef
if ($Nick = %pm) { haltdef | did -a spm 1 * $+ [ %pm ] $1- $crlf }
.timer 1 2 .notice $nick Talking to someone else.
}
}
alias stmg {
.msg $1 $2-
}
alias spm {
dialog -mdiaov spm spm
}
menu nicklist,channel,status,query {
Seperate Pm: /spm
}
very inefficient, and easily expanded http://www.hawkee.com/snippet/3082/ my sister made that, and honestly, its a lot better than yours, and i say that in the kindest way, just use it as insperation and ideas, also your dialog can easily be expanded to allow channel talking also:
On ^*:Text:*:%pm: {
if (%spm = on) {
if ($active = %pm) { did -a spm 1 $+(<,$nick>) says: $1- $crlf }
haltdef
}
}
