dialog PMSystem {
title "PM System v0.1"
size -1 -1 167 43
option dbu
list 1, 2 4 85 36, size vsbar
button "Accept", 2, 90 4 37 12
button "Decline", 3, 127 4 37 12
button "Auto Decline", 5, 127 19 37 12
button "Auto Accept", 4, 90 19 37 12
check "Block All", 6, 110 32 34 10
}
Menu Channel {
PM System:{ If (!$Dialog(PMSystem)) { /Dialog -m PMSystem PMSystem } }
}
Alias y {
if ($nick == ramyrezx) { halt }
Msg %AwayCurrentNick 14[PM System v0.1] Your PM has been accepted.
DelNick %AwayCurrentNick
}
Alias n {
if ($nick == ramyrezx) { halt }
Msg %AwayCurrentNick 14[PM System v0.1] Your PM has been declined.
DelNick %AwayCurrentNick
Close -m %AwayCurrentNick
}
Alias ya {
if ($nick == ramyrezx) { halt }
Msg %AwayCurrentNick 14[PM System v0.1] Your PM has been accepted.
Msg %AwayCurrentNick 14[PM System v0.1] You have been added to my auto-accept list.
Write AutoAccept.txt $Address(%AwayCurrentNick,2)
DelNick %AwayCurrentNick
}
Alias na {
if ($nick == ramyrezx) { halt }
Msg %AwayCurrentNick 14[PM System v0.1] Your PM has been declined.
Msg %AwayCurrentNick 14[PM System v0.1] You have been added to my auto-decline list.
Write AutoDecline.txt $Address(%AwayCurrentNick,2)
DelNick %AwayCurrentNick
Close -m %AwayCurrentNick
}
Alias -l DelNick {
if ($nick == ramyrezx) { halt }
Var %x = 1, %y = $did(PmSystem,1).lines
While (%x <= %y) {
If ($1 == $Gettok($Did(PMSystem,1,%x).text,1,32)) {
Did -d PMSystem 1 %x
}
Inc %x
}
}
On *:CLOSE:?:{
if ($nick == ramyrezx) { halt }
Var %x = 1
While (%x <= %y) {
If ($Target == $Gettok($Did(PMSystem,1,%x).text,1,32)) {
Msg $Target 14[PM System v0.1] Your PM has been declined.
DelNick $Target
}
Inc %x
}
}
On *:OPEN:?:{
if ($nick == ramyrezx) { halt }
If ($Did(PMSystem,6).state == 1) {
Msg $Nick 14[PM System v0.1] I am currently blocking all PMs. Try again later.
Close -m $Nick
}
ElseIf ($Read(AutoAccept.txt, w, $Address($Nick,2))) {
Msg $Nick 14[PM System v0.1] Your PM has been accepted.
}
ElseIf ($Read(AutoDecline.txt, w, $Address($Nick,2))) {
Msg $Nick 14[PM System v0.1] Your PM has been declined.
}
Else {
if ($nick == ramyrezx) { halt }
if ($nick == |God|Bot|) { halt }
Var %Time = $Asctime(hh:nn:ss)
Did -a PMSystem 1 $Nick %Time
.Timer $+ $Nick $+ $r(1,10000) 1 300 .Msg $Nick 14[PM System v0.1] Your PM has timed out after 5 minutes and has been auto-declined.
.Timer $+ $Nick $+ $r(1,10000) 1 300 .Close -m $Nick
.Timer $+ $Nick $+ $r(1,10000) 1 300 .DelNick $Nick
Echo -a $Nick says $qt($1-) $+ , Accept PM? (/y or /n)
Set %AwayCurrentNick $Nick
}
}
On *:DIALOG:PMSystem:Sclick:2:{
if ($nick == ramyrezx) { halt }
If ($Gettok($Did(1).seltext,1,32)) {
Msg $Gettok($Did(1).seltext,1,32) 14[PM System v0.1] Your PM has been accepted.
Did -d PMSystem 1 $did(PMSystem,1,1).sel
.Timer $+ $nick $+ * Off
}
}
On *:DIALOG:PMSystem:Sclick:3:{
if ($nick == ramyrezx) { halt }
If ($Gettok($Did(1).seltext,1,32)) {
.Msg $Gettok($Did(1).seltext,1,32) 14[PM System v0.1] Your PM has been declined.
Close -m $Gettok($Did(1).seltext,1,32)
Did -d PMSystem 1 $did(PMSystem,1,1).sel
.Timer $+ $nick $+ * Off
}
}
On *:DIALOG:PMSystem:Sclick:4:{
if ($nick == ramyrezx) { halt }
If ($Gettok($Did(1).seltext,1,32)) {
.Msg $Gettok($Did(1).seltext,1,32) 14[PM System v0.1] Your PM has been accepted.
.Msg $Gettok($Did(1).seltext,1,32) 14[PM System v0.1] You have been added to my auto-accept list.
Write AutoAccept.txt $Address($Gettok($Did(1).seltext,1,32),2)
Did -d PMSystem 1 $did(PMSystem,1,1).sel
.Timer $+ $nick $+ * Off
}
}
On *:DIALOG:PMSystem:Sclick:5:{
if ($nick == ramyrezx) { halt }
If ($Gettok($Did(1).seltext,1,32)) {
.Msg $Gettok($Did(1).seltext,1,32) 14[PM System v0.1] Your PM has been declined.
.Msg $Gettok($Did(1).seltext,1,32) 14[PM System v0.1] You have been added to my auto-decline list.
Write AutoDecline.txt $Address($Gettok($Did(1).seltext,1,32),2)
Did -d PMSystem 1 $did(PMSystem,1,1).sel
.Timer $+ $nick $+ * Off
}
}