Miscellany

dialog pmmodes { 
  title "Pm Controller" 
  size -1 -1 90 51 
  option dbu 
  box "Auto Modes:", 1, 1 -1 85 50 
  text "Auto Accept:", 2, 5 10 41 8 
  button "Change", 3, 40 10 40 8 
  text "Auto Decline:", 4, 5 20 41 8 
  button "Change", 5, 40 20 40 8 
  button "Clear Modes", 6, 5 35 37 12 
  button "Okay", 7, 45 35 37 12, ok 
} 

on *:dialog:pmmodes:sclick:6: { 
  unset %autodecline 
  unset %autoaccept 
  echo ***Modes cleared.  
} 

on *:dialog:pmmodes:sclick:5: { 
  if (%autodecline == off) || (%autoaccept == $null) { 
    set %autodecline on 
    echo ***Auto Decline enabled. 
    halt 
  } 
  echo ***Auto Decline disabled. 
  set %autodecline off 
} 

on *:dialog:pmmodes:sclick:3: { 
  if (%autoaccept == off) || (%autoaccept == $null) { 
    set %autoaccept on 
    echo ***Auto Accept enabled. 
    halt 
  } 
  echo ***Auto Accept disabled. 
  set %autoaccept off 
} 

dialog pmoptions { 
  title "Pm Controller." 
  size -1 -1 140 51 
  option dbu 
  box "PM Controller Auto Options", 1, 1 -1 83 33 
  button "Apply", 6, 5 34 37 12 
  button "Okay", 2, 45 34 37 12, ok 
  text "Accept:", 3, 5 10 25 8 
  edit "", 4, 30 9 50 10 
  text "Decline", 5, 5 20 25 8 
  edit "", 7, 30 19 50 10 
  button "Ignore Nick", 8, 85 5 37 12 
  button "Ignore Host", 9, 85 20 37 12 
  button "Other Modes", 10, 85 34 37 12, 
  box "Other Tools", 11, 84 -1 41 50 
} 
on *:dialog:pmoptions:sclick:8: { 
  silence + $+ $$?="Enter nick:" 
} 

on *:dialog:pmoptions:sclick:9: { 
  set %nick $$?="Enter nick:" 
  if (%nick == $null) { halt } 
  silence + $+ $address(%nick,4) 
  unset %nick 
} 
on *:dialog:pmoptions:sclick:10: { 
  dialog -m pmmodes pmmodes 
} 
on *:dialog:pmoptions:sclick:6: { 
  if ($read(autoaccept.txt,nw,$did(4))) || ($read(autodecline.txt,nw,$did(7))) { 
    echo ***No changes were made. 
    halt 
  } 
  if ($did(4) == $null) && ($did(7) == $null) { 
    echo ***No changes were made. 
    halt 
  } 
  write autoaccept.txt $did(4) 
  write autodecline.txt $did(7) 
  echo -a ***Changes made sucessfully. 
} 

dialog pm { 
  title "Pm Controller." 
  size -1 -1 140 51 
  option dbu 
  box "PM Controller", 900, 1 1 138 49 
  edit "", 3, 4 10 132 10, read 
  text "From:", 5, 4 24 14 8 
  edit "", 7, 20 24 116 10, read 
  button "Accept", 1, 5 34 37 12 
  button "Decline", 2, 44 34 37 12 
  button "Options", 10, 83 34 37 12 
} 

on *:dialog:pm:sclick:1:{ 
  window -w %pmnick 
  msg %pmnick Your PM has been 4Accepted1. 
  dialog -x pm 
  window -a %pmnick 
  unset %pmnick 
} 
on *:dialog:pm:sclick:2:{ 
  close -m %pmnick 
  msg %pmnick Your PM has been 4Declined1. 
  dialog -x pm 
  echo ***PM from: %pmnick $+ . %content 
  write private.txt $adate ( $+ $time $+ ) %pmnick $+ : %content 
  unset %content 
  unset %pmnick 
} 
on *:dialog:pm:sclick:10: { 
  dialog -m pmoptions pmoptions 
} 
on *:OPEN:?: { 
  if (%query.blocker) { 
    if ($dialog(pm)) { halt } 
    else { 
      if (%autoaccept == on) { msg $nick Auto Accept is enabled. PM 4Accepted1. | halt } 
      if (%autodecline == on) { msg $nick Auto Decline is enabled. PM 4Declined1. | echo ***PM from: $nick $+ . $1- | window -c $nick | write private.txt $adate ( $+ $time $+ ) $nick $+ : $1- | halt } 
      if ($read(autoaccept.txt,nw,$nick)) { msg $nick You're PM was Auto 4Accepted1. | halt } 
      if ($read(autodecline.txt,nw,$nick)) { msg $nick You're PM was Auto 4Declined1. | echo ***PM from: $nick $+ . $1- | window -c $nick | write private.txt $adate ( $+ $time $+ ) $nick $+ : $1- | halt }        
      %pmnick = $nick 
      window -h %pmnick 
      msg %pmnick Please wait a moment for me to 4Accept1 or 4Decline1 your PM. 
      dialog -m pm pm 
      set %content $1-      
      did -a pm 7 %pmnick 
      did -a pm 3 $1- 
    } 
  } 
} 
menu * { 
  PM Controller 
  . $+ $iif(%query.blocker,Turn Off,Turn On) $+ : $iif(%query.blocker,unset %query.blocker,set %query.blocker on)) 
  .-  
  .Options: /dialog -m pmoptions pmoptions 
}