blues

on *:TEXT:*:?:{
  if ($readini(privmsg.ini, flood, $nick) > 4) { pmreject $nick }
  if ($readini(privmsg.ini, accepted, $nick) !== $null) { halt }
  if ($readini(privmsg.ini, allowed, $nick) !== $null || $readini(privmsg.ini, allowed, $address($nick,2)) !== $null) {
    writeini privmsg.ini accepted $nick 1
    font $$1 12 Verdana
    msg $nick 09Hostname found on auto-accept list. Query Accepted.
    halt
  }
  if ($readini(privmsg.ini, hold, $nick) !== $null) {
    close -m $nick
    writeini privmsg.ini flood $nick $calc($readini(privmsg.ini, flood, $nick) + 1)
    .msg $nick 04Please wait until I have accepted your Private Message.
  }
  if ($readini(privmsg.ini, deny, $address($nick,2)) !== $null) {
    close -m $nick
    .msg $nick 07 I am sorry but private messages from your host: " $+ $address($nick,2) $+ " is denied.
  }
  else {
    close -m $nick
    .timer 1 1 askirc $nick $address($nick,2) $1-
    writeini privmsg.ini hold $nick 1
    writeini privmsg.ini flood $nick 1
    .msg $nick 12Please Wait while I 03Accept or 04Reject Your Private message.
  }
}
on *:ACTION:*:?:{
  if ($readini(privmsg.ini, flood, $nick) > 4) { pmreject $nick }
  if ($readini(privmsg.ini, accepted, $nick) !== $null) { halt }
  if ($readini(privmsg.ini, allowed, $nick) !== $null || $readini(privmsg.ini, allowed, $address($nick,2)) !== $null) {
    writeini privmsg.ini accepted $$1 1
    font $$1 12 Verdana
    msg $nick 09Hostname found on auto-accept list. Query Accepted.
    halt
  }
  if ($readini(privmsg.ini, hold, $nick) !== $null) {
    close -m $nick
    writeini privmsg.ini flood $nick $calc($readini(privmsg.ini, flood, $nick) + 1)
    .msg $nick 04Please wait until I have accepted your Private Message.
  }
  if ($readini(privmsg.ini, deny, $address($nick,2)) !== $null) {
    close -m $nick
    .msg $nick 07 I am sorry but private messages from your host: " $+ $address($nick,2) $+ " is denied.
  }
  else {
    close -m $nick
    .timer 1 1 askirc $nick $address($nick,2) $1-
    writeini privmsg.ini hold $nick 1
    writeini privmsg.ini flood $nick 1
    .msg $nick 12Please Wait while I 03Accept or 04Reject Your Private message.
  }
}
alias askirc {
  //set %query1 [ $+ [ $1 ] ] $input($1 PM Accept? - Message: $3-,y,Query)
  if (%query1 [ $+ [ $1 ] ] !== $false) {
    query $1
    remini privmsg.ini hold $1
    remini privmsg.ini flood $1
    writeini privmsg.ini accepted $1 1
    .msg $1 03I have accepted your private messages. Thank you for waiting.
  }
  else {
    remini privmsg.ini hold $1
    remini privmsg.ini flood $1
    writeini privmsg.ini deny $2 1
    .msg $1 07I have rejected your private message. Your pm's are now automaticly ignored by my client. Kill Yourself $1 $+ .
  }
}
alias pmreject {
  close -m $1
  dialog -x privmsg
  remini privmsg.ini hold $1
  remini privmsg.ini flood $1
  writeini privmsg.ini deny $address($1,2) 1
  .msg $1 07Pm flood detected. Auto Rejected. Your pm's are now automaticly ignored by my client. Please Kill Yourself $1 $+ .
  unset %pmnick
  unset %pmtext
  unset %pmaddress
}
on *:CLOSE:?:{
  remini privmsg.ini accepted $nick
}
alias query {
  writeini privmsg.ini accepted $$1 1
  query $$1-
  font $$1 12 Verdana
}
menu menubar {
  PM Control Panel:/dialog -m PMControl PMControl
}
dialog PMControl {
  title "PM Control Panel"
  size -1 -1 203 174
  option dbu
  text "Denied Hostnames", 1, 8 3 52 8
  combo 2, 6 14 60 79, size
  text "Auto Accept", 3, 99 3 40 8
  combo 4, 95 14 60 79, size
  button "Add", 5, 6 95 19 12
  button "Add", 6, 97 95 19 12
  button "Del", 7, 34 95 19 12
  button "Del", 8, 122 95 19 12
  list 9, 12 132 132 29, size
  text "On Hold", 10, 16 119 25 8
  button "OK", 11, 160 158 37 12, ok
}
on *:DIALOG:PMControl:init:0:{
  loadblock
}
alias loadblock {
  set %init.block 1
  while (%init.block !== $null) {
    if ($ini(privmsg.ini, deny, %init.block) !== $null) {
      did -a PMControl 2 $ini(privmsg.ini, deny, %init.block)
      inc %init.block 1
    }
    else { unset %init.block | loadallow }
  }
}
alias loadallow {
  set %init.allow 1
  while (%init.allow !== $null) {
    if ($ini(privmsg.ini, allowed, %init.allow) !== $null) {
      did -a PMControl 4 $ini(privmsg.ini, allowed, %init.allow)
      inc %init.allow 1
    }
    else { unset %init.allow | loadhold }
  }
}
alias loadhold {
  set %init.hold 1
  while (%init.hold !== $null) {
    if ($ini(privmsg.ini, hold, %init.hold) !== $null) {
      did -a PMControl 9 $ini(privmsg.ini, hold, %init.hold)
      inc %init.hold 1
    }
    else { unset %init.hold }
  }
}
on *:DIALOG:PMCOntrol:sclick:5:{
  writeini privmsg.ini deny $did(PMControl,2,0) 1
  did -a PMControl 2 $did(PMControl,2,0)
}
on *:DIALOG:PMCOntrol:sclick:6:{
  writeini privmsg.ini allowed $did(PMControl,4,0) 1
  did -a PMControl 4 $did(PMControl,4,0)
}
on *:DIALOG:PMControl:sclick:7:{
  remini privmsg.ini deny $did(PMControl,2,0)
  did -r PMControl 2
  loadblock
}
on *:DIALOG:PMControl:sclick:8:{
  remini privmsg.ini allowed $did(PMControl,4,0)
  did -r PMControl 4
  loadallow
}
on *:EXIT:{
  remini privmsg.ini hold
  remini privmsg.ini accept
}