This is a mIRC script for use on the RC channels with pgkbot.

• /gl brings up 4 dialogs. This alias deletes users from the greylist and adds them to the blacklist.
• /bl brings up 4 dialogs. This alias adds users to the blacklist.
• $me is replaced with your current IRC nickname. You can either change it to your regular IRC nick, or your Wikipedia nick (or change the default reason if wish to).

All answers are optional, and if you make a mistake, you are asked if you're sure in the 4th dialog (clicking no cancels the action).

alias gl {
  .set -n %blacklist.name $?="Please enter Wikipedia username to remove from greylist and add to blacklist"
  .set -n %blacklist.time $?="Please enter time in hours"
  .set -n %blacklist.reason $?="Please enter reason for adding to blacklist"
  .set %blacklist.action $?!="Are you sure?"

  if %blacklist.action == $true {

    msg $active computer gl del %blacklist.name

    if $len(%blacklist.reason) != 0 {
      if $len(%blacklist.time) != 0 {
        msg $active computer bl add %blacklist.name x= $+ %blacklist.time r= $+ %blacklist.reason
      }
      elseif $len(%blacklist.time) == 0 {
        msg $active computer bl add %blacklist.name r= $+ %blacklist.reason
      }
    }

    elseif $len(%blacklist.reason) == 0 {
      if $len(%blacklist.time) != 0 {
        msg $active computer bl add %blacklist.name x= $+ %blacklist.time r=Requested by $me
      }
      elseif $len(%blacklist.time) == 0 {
        msg $active computer bl add %blacklist.name r=Requested by $me
      }
    }
  }
  unset %blacklist.*
}


alias bl {
  .set -n %blacklist.name $?="Please enter Wikipedia username to add to blacklist"
  .set -n %blacklist.time $?="Please enter time in hours"
  .set -n %blacklist.reason $?="Please enter reason for adding to blacklist"
  .set %blacklist.action $?!="Are you sure?"

  if %blacklist.action == $true {
    if $len(%blacklist.reason) != 0 {
      if $len(%blacklist.time) != 0 {
        msg $active computer bl add %blacklist.name x= $+ %blacklist.time r= $+ %blacklist.reason
      }
      elseif $len(%blacklist.time) == 0 {
        msg $active computer bl add %blacklist.name r= $+ %blacklist.reason
      }
    }

    elseif $len(%blacklist.reason) == 0 {
      if $len(%blacklist.time) != 0 {
        msg $active computer bl add %blacklist.name x= $+ %blacklist.time r=Requested by $me
      }
      elseif $len(%blacklist.time) == 0 {
        msg $active computer bl add %blacklist.name r=Requested by $me
      }
    }
  }
  unset %blacklist.*
}