on *:OPEN:?:{
set %pm.n $nick
set %pm.m $strip($1-,burcm)
inc %pm.c
set %pm.n $nick
set %pm.m $strip($1-,burcm)
inc %pm.c
dialog -m pmad $+ $nick pmad $+ $nick
msg $nick 10,1[0,1 Hey, what's up $nick $+ . If your contacting me about a design, I will help you ASAP. 10,1]
msg $nick 10,1[0,1 I currently have $query(0) $iif($query(0) == 1,query,queries) $+ open. 10,1]
msg $nick 10,1[0,1 I have currently been idle for $duration($idle) $+ . 10,1]
msg $nick 10,1[0,1 If you need a design, please type design. If you need a tryout, please type tryout. 10,1]
}
on *:TEXT:design:?: {
msg $nick 10,1[0,1 I work for8,1 Golden0,1Media as a graphics designer. I have the best prices for the best designs. 10,1]
msg $nick 10,1[0,1 If you need anything else non graphics related. Have a nice day. 10,1]
}
on *:TEXT:tryout:?: {
msg $nick 10,1[0,1 I am one of the two leaders of teamATROCITY 8,1 (0,1 callofDUTY8,1 ) 10,1]
msg $nick 10,1[0,1 If you are looking for a tryout or wanting to right for our sexy team, please continue. 10,1]
msg $nick 10,1[0,1 If you have nothing callofduty remaining, please have a nice day. - SEXY COD4 10,1]
}
dialog pmad* {
title "PM Accept/Deny"
size -1 -1 160 97
option dbu
box "PM Message", 1, 14 11 125 56
button "Accept", 2, 14 69 37 12
button "Deny", 3, 58 69 37 12
button "Cancel", 4, 58 83 37 12, cancel
button "More...", 5, 102 69 37 12
text "", 6, 5 3 66 8
text "", 7, 16 18 121 47
}
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) 10,1[0,1 Your query has been $chr(2) $+ ACCEPTED $+ $chr(2) ! 10,1]
dialog -x pmad $+ $did(6) pmad $+ $did(6)
}
if ($did == 3) {
msg $did(5) 10,1[0,1 Your query has been $chr(2) $+ DENIED $+ $chr(2) ! 10,1]
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 "Private Message Control"
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) 10,1[0,1 Your query has been $chr(2) $+ ACCEPTED $+ $chr(2) ! 10,1]
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) 10,1[0,1 Your query has been $chr(2) $+ DENIED $+ $chr(2) ! 10,1]
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) 10,1[0,1 Your query has been IGNORED and all further messages will be ignored for the next 15 minutes ! 10,1]
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
}