menu status,channel,query {
PM organizer:pmtam
}
dialog pmtam {
title "PM Organizer"
size -1 -1 219 160
option dbu
box "Allowed Nicknames/IP's", 1, 2 2 87 148
list 2, 6 10 79 137, size extsel hsbar vsbar
button "Add", 3, 126 35 46 15
button "Delete", 4, 93 87 47 14
button "Wipe", 15, 155 71 47 14
edit "", 6, 94 16 113 16, autohs autovs
text "Do not be deceived:", 7, 152 95 50 8
text "Bad company", 8, 161 105 33 8
text "corrupts good morals.", 9, 151 115 53 8
text "1Cor.15:33", 10, 164 124 27 8
text "Made upon special request from the precious Tammy.", 11, 90 4 128 8, disable
text "Jacques7", 12, 187 149 25 8, disable
button "C l o s e", 13, 106 141 69 16, ok cancel
check "On", 14, 95 58 20 10, push
button "Edit", 5, 93 110 47 14
}
alias pmtam { dialog -m pmtam pmtam }
on *:DIALOG:pmtam:init:0: { pmtam.list }
alias pmtam.list {
$iif(%pmtam == on,did -c pmtam 14)
did -r pmtam 2
if ($ulist(*,pmtam,0) > 0) {
var %p = 1
while (%p <= $ulist(*,pmtam,0)) {
did -az pmtam 2 $ulist(*,pmtam,%p) $ulist(*,pmtam,%p).info
inc %p
} } }
on *:DIALOG:pmtam:sclick:*:{
if ($did == 3) { if ($did(pmtam,6).text) { .auser pmtam $did(pmtam,6).text | did -r pmtam 6 | pmtam.list } }
if ($did == 4) { If ($?!="Are you sure you want to delete $did(pmtam,2).seltext ?" == $true) { .ruser pmtam $did(pmtam,2).seltext | did -d pmtam 2 $did(pmtam,2).sel } }
if ($did == 5) { if ($did(pmtam,2).seltext == $null) { var %pmtamm = $input(Select an entry first!,o) | halt } | if ($$input(Edit the entry:,e,Edit,$did(pmtam,2).seltext)) { if ($ifmatch != $did(pmtam,2).seltext) { .auser pmtam $ifmatch | .ruser pmtam $did(pmtam,2).seltext | pmtam.list } } }
if ($did == 15) { If ($?!="Are you truly sure you want to wipe the list ?" == $true) { .rlevel pmtam | pmtam.list } }
if ($did == 14) { $iif(%pmtam == on,unset %pmtam,set %pmtam on) }
}
on ^*:OPEN:?: {
if (%pmtam == on) {
if ($level($nick) != pmtam) { set -u3 %pmtama. [ $+ [ $nick ] ] on }
var %p = 0
while (%p < $ulist(*,pmtam,*)) {
inc %p
if ($ulist(*,pmtam,%p) iswm $address($nick,5)) { set -u3 %pmtamadr. [ $+ [ $nick ] ] off }
}
if ((%pmtama. [ $+ [ $nick ] ] == on) && (%pmtamadr. [ $+ [ $nick ] ] != off)) {
echo -s ~~> $chr(2) $+ $nick $+ $chr(2) tried to PM you @ $time ! Be careful! If you want to add him to your Allow List type /pmtama $nick
.msg $nick You are not in my allow list, I cannot accept your messages. | halt
}
}
}
alias pmtama { .auser pmtam $1 | echo -a ---> $1 has been added to your Allow List. | msg $1 [Auto Message] You have been added to my Allow List. }
menu nicklist {
PM Organizer
.Add:.auser pmtam $address($$1,8) | echo -a ~~> $+ $chr(2) $+ $address($$1,8) $+ $chr(2) has been added ! | msg $$1 [Auto Message] You have been added to my Allow List.
.Remove:if ($level($address($$1,8)) == pmtam) { .ruser pmtam $address($$1,8) | echo -a ~~> $+ $chr(2) $+ $address($$1,8) $+ $chr(2) $+ has been removed ! } | else { echo -a ~~> $address($$1,8) has not been found! }
