rendered paste bodyon *:OPEN:?:{
set %pm.n $nick
set %pm.m $strip($1-,burcm)
inc %pm.c
msg $nick <AScript> Hello $nick, I currently have $query(0) $iif($query(0) == 1,query,queries) open and my idle time is $duration($idle) $+ . <AScript>
msg $nick <AScript> For any question about LINEXEN service, please join #linexen and ask in it. <AScript>
dialog -m pmad $+ $nick pmad $+ $nick
}
on *:dialog:pmad*:init:*: {
did -ra pmad $+ %pm.n 6 %pm.n
did -ra pmad $+ %pm.n 7 %pm.m
}
on *:dialog:pmad*:sclick:*: {
if ($did == 2) {
msg $did(6) <AScript> Your Query has been $chr(2) $+ ACCEPTED $+ $chr(2) $+ ! <AScript>
dialog -x pmad $+ $did(6) pmad $+ $did(6)
}
if ($did == 3) {
msg $did(5) <AScript> Your Query has been $chr(2) $+ DENIED $+ $chr(2) $+ ! <AScript>
close -m $did(6)
dialog -x pmad $+ $did(6) pmad $+ $did(6)
}
if ($did == 5) {
set %pm.mn $did(6)
set %pm.mm $did(7)
dialog -m pmc pmc
dialog -x pmad $+ $did(6) pmad $+ $did(6)
}
}
dialog pmc {
title "Anthony's Script Query MSG"
size -1 -1 275 250
option dbu
tab "PM Message", 1, 1 1 273 247
text "", 4, 58 16 78 8, tab 1
box "PM Message", 5, 70 29 141 57, tab 1
text "", 6, 72 35 137 36, tab 1
button "Accept", 7, 79 87 37 12, tab 1
button "Deny", 8, 122 87 37 12, tab 1
button "Ignore", 9, 165 87 37 12, tab 1
button "Cancel", 10, 122 106 37 12, tab 1 cancel
text "Nick:", 28, 199 129 13 8, tab 1
edit "", 31, 213 127 50 11, tab 1
button "Whois", 32, 220 143 37 12, tab 1
button "Ignore List", 33, 220 155 37 12, tab 1
button "Ping", 34, 220 175 37 12, tab 1
button "Time", 35, 220 187 37 12, tab 1
button "Version", 36, 220 199 37 12, tab 1
button "DCC Send", 37, 220 219 37 12, tab 1
button "DCC Chat", 38, 220 231 37 12, tab 1
text "", 39, 47 118 43 8, tab 1
edit "", 40, 25 130 172 113, tab 1 read multi autovs vsbar
text "", 22, 72 71 137 13, tab 1
tab "Channel Control", 2
list 11, 211 67 62 176, tab 2 size vsbar
list 12, 211 24 62 42, tab 2 size vsbar
text "Common Channels:", 13, 214 16 53 8, tab 2
box "", 14, 3 34 206 212, tab 2
edit "", 15, 5 51 202 171, tab 2 read multi autovs vsbar
edit "", 16, 154 18 50 9, tab 2
text "Nick:", 17, 141 18 12 8, tab 2
button "Check", 18, 164 28 28 8, tab 2
edit "", 19, 4 230 175 12, tab 2 read return autohs
text "Message Here:", 20, 5 222 37 8, tab 2
text "", 3, 7 42 198 8, tab 2
button "Send", 21, 180 230 27 12, tab 2
}
on *:dialog:pmc:init:*: {
did -ra pmc 4 Last PM Nick: %pm.mn
did -ra pmc 31 %pm.mn
did -ra pmc 16 %pm.mn
did -ra pmc 6 %pm.mm
var %x 1 | while (%x <= $comchan($did(pmc,16),0)) {
did -a pmc 12 $comchan($did(pmc,16),%x)
inc %x
}
}
on *:TEXT:*:*:{
if ($dialog(pmc)) {
if ($chan == $did(pmc,14)) {
did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$nick).pnick $+ > $1- $crlf
}
}
}
on *:INPUT:*:{
if ($dialog(pmc)) {
if ($chan == $did(pmc,14)) {
did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$me).pnick $+ > $1- $crlf
}
}
}
on *:CTCPREPLY:PING*:{
if ($dialog(pmc)) {
did -a pmc 40 From $me to $did(pmc,31) $crlf
did -a pmc 40 -------------------- $crlf
did -a pmc 40 $me $+ : %pm.ping $crlf
did -a pmc 40 $did(pmc,31) $+ : $remove($2,$chr(1)) $crlf
did -a pmc 40 -------------------- $crlf
did -a pmc 40 $calc($remove($2,$chr(1)) - %pm.ping) seconds $crlf
unset %pm.ping
}
}
on *:CTCPREPLY:TIME*:{
if ($dialog(pmc)) {
did -a pmc 40 The Time is: $crlf
did -a pmc 40 $2- $crlf
}
}
on *:CTCPREPLY:VERSION*:{
if ($dialog(pmc)) {
did -a pmc 40 User $did(pmc,31) is using: $crlf
did -a pmc 40 $2- $crlf
}
}
on *:dialog:pmc:sclick:*: {
if ($did == 12) {
if ($did(12).seltext) {
if ($did(14) != $did(12).seltext) {
did -r pmc 15
did -n pmc 19
}
did -ra pmc 14 $did(12).seltext
did -r pmc 11
var %x 1 | while (%x <= $nick($did(12).seltext,0)) {
did -a pmc 11 $nick($did(12).seltext,%x).pnick
inc %x
}
}
}
elseif ($did == 7) {
if ($query($gettok($did(pmc,4),4,32)) == $null) {
did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
}
else {
msg $gettok($did(4),4,32) <AScript> Your Query has been $chr(2) $+ ACCEPTED $+ $chr(2) $+ ! <AScript>
dialog -x pmc pmc
}
}
elseif ($did == 8) {
if ($query($gettok($did(pmc,4),4,32)) == $null) {
did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
}
else {
msg $gettok($did(4),4,32) <AScript> Your Query has been $chr(2) $+ DENIED $+ $chr(2) $+ ! <AScript>
close -m $gettok($did(4),4,32)
dialog -x pmc pmc
}
}
elseif ($did == 9) {
if ($query($gettok($did(pmc,4),4,32)) == $null) {
did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
}
else {
msg $gettok($did(4),4,32) <AScript> Your Query has been IGNORED and all further messages will be ignored for the next 15 minutes! <AScript>
ignore on
ignore -pu900 $address($gettok($did(4),4,32),2)
close -m $gettok($did(4),4,32)
dialog -x pmc pmc
}
}
elseif ($did == 33) {
did -r pmc 40
did -a pmc 40 Ignore List: $crlf
did -a pmc 40 -------------------- $crlf
did -a pmc 40 Ignored Users: $crlf $crlf
if ($ignore(0)) {
var %x 1
while (%x <= $ignore(0)) {
did -a pmc 40 $ord(%x) Ignored User: $crlf
did -a pmc 40 Nick/Address: $ignore(%x) $crlf
did -a pmc 40 Type: $ignore(%x).type $crlf
did -a pmc 40 Network: $ignore(%x).network $crlf
did -a pmc 40 Time Left: $duration($ignore(%x).secs) $crlf $crlf
inc %x
}
}
else {
did -a pmc 40 No Ignored Users!
}
}
elseif ($did == 18) {
did -r pmc 12
var %x 1 | while (%x <= $comchan($did(16),0)) {
did -a pmc 12 $comchan($did(16),%x)
inc %x
}
}
elseif ($did == 21) {
if ($did(19)) {
msg $did(14) $did(19)
did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$me).pnick $+ > $did(19) $crlf
did -r pmc 19
}
}
elseif ($did == 34) {
.msg $did(31) $chr(1) $+ PING $ctime $+
set %pm.ping $ctime
did -r pmc 40
did -a pmc 40 Ping Results: $crlf
did -a pmc 40 -------------------- $crlf
}
elseif ($did == 35) {
.msg $did(31) $chr(1) $+ TIME
did -r pmc 40
did -a pmc 40 Time Results: $crlf
did -a pmc 40 -------------------- $crlf
}
elseif ($did == 36) {
.msg $did(31) $chr(1) $+ VERSION
did -r pmc 40
did -a pmc 40 Version Results: $crlf
did -a pmc 40 -------------------- $crlf
}
elseif ($did == 32) {
whois $did(31)
did -r pmc 40
did -a pmc 40 Whois Results: $crlf
did -a pmc 40 -------------------- $crlf
}
}
raw 311:*:{ if ($dialog(pmc)) { did -a pmc 40 Whois: From $1 to $2 $crlf } }
raw 319:*:{ if ($dialog(pmc)) { did -a pmc 40 Channels: $3- $crlf | var %pm.wcomc | var %x 1 | while (%x <= $comchan($did(pmc,31),0)) { set %pm.wcomc %pm.wcomc $comchan($did(pmc,31),%x) | inc %x } | did -a pmc 40 Common Channels: %pm.wcomc $crlf } }
raw 312:*:{ if ($dialog(pmc)) { did -a pmc 40 Network: $4- $crlf } }
raw 330:*:{ if ($dialog(pmc)) { did -a pmc 40 AuthServ Account: $3 $crlf } }
raw 338:*:{ if ($dialog(pmc)) { did -a pmc 40 $1- $crlf } }
raw 317:*:{ if ($dialog(pmc)) { did -a pmc 40 $1- $crlf } }
raw 318:*:{ if ($dialog(pmc)) { did -a pmc 40 $2- $crlf } }
alias pmc {
dialog -m pmc pmc
}