User:TheJC/Scripts

This is a mIRC script for use on the RC channels with pgkbot. 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).
 * brings up 4 dialogs. This alias deletes users from the greylist and adds them to the blacklist.
 * brings up 4 dialogs. This alias adds users to the blacklist.
 * 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).

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