Frankenscript PM Blocker

[volante{Kyr}]

on *:OPEN:?: {
set %q.msg $1-
set %q.nick $nick
set %q.time $asctime((HH:nn:ss))
msg $nick »¦« Auto Message »¦« Please wait while I decide do I talk to you or not... hmmmmm...
close -m $nick
dialog -md Query Query
}

; After PM'ed (Window Portion Of Accept, Block, View

dialog Query {
title "Query"
size 300 300 170 40
option dbu
text "Accept Query?", 987, 1 1 100 6, right,
button "Yes", 5, 2 17 50 11, ok,
button "No", 10, 59 17 50 11, ok,
button "View", 11, 117 17 50 11, default,
}
on *:DIALOG:Query:sclick:5:{
query %q.nick
timer 1 2 //echo -a %q.time < $+ %q.nick $+ > %q.msg
timer 1 3 msg %q.nick »¦« Auto Message »¦« Ok...feel free to speak | unset %q.*
}
on *:DIALOG:Query:sclick:10:{
msg %q.nick »¦« Auto Message »¦« Not now....I am either tied up or have too many windows going, I will pm you back as soon as I can
unset %q.*
}
on *:DIALOG:Query:sclick:11:{
.window -c @view_Query
window +el @view_Query 300 15 250 480
titlebar @view_Query
aline @view_Query %q.time < $+ %q.nick $+ > %q.msg
}