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 
  } 
}