Miscellany

/F3 amsg [-AMSG-] $$?="Enter AMSG:" [- $+ $me $+ -]

alias all { amsg *AMSG* $1- }

dialog pmmodes {
  title "Pm Controller. By Rune4234."
  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. By Rune4234"
  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. By Rune4234"
  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 12Accepted1.
  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 12Accepted1. | 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 12Accepted1. | 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 12Accept1 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
}