Whitlist

By Kinight on Feb 08, 2008

This code is a whitelist. Special thanks to Shadows Blacklist for making the base of the script. Hope you enjoy! Note: UNTESTED

dialog Whitelist {
  Title "Knight Whitelist"
  size -1 -1 100 40
  option dbu
  button "Add",1, 5 7 25 15
  button "Delete",2, 35 7 25 15
  button "View List",3, 65 7 29 15
  button "Clear List",4, 28 25 40 10
}
on *:DIALOG:Whitelist:sclick:1:{
  /auser Whitelist $?="Enter a Nickname to be Added to Your Whitelist"
  if ($address($!,2) != $null) { /write Whitelist.txt $! - $address($!,2) | echo 4 -a $! with the address of $address($!,2) added to your Whitelist! }
  else { /write Whitelist.txt $! | echo 4 -a $! was added to your Whitelist (With NO Address) }
}
on *:DIALOG:Whitelist:sclick:2:{
  /ruser Whitelist $?="Enter a Nickname to be Deleted from Your Whitelist"
  /write -ds $+ $! Whitelist.txt | echo 4 -a $! Deleted from Your Whitelist 
}
on *:DIALOG:Whitelist:sclick:3:{
  /run Whitelist.txt
}
on *:DIALOG:Whitelist:sclick:4:{
  /remove Whitelist.txt
  /echo 2 -a The Whitelist.txt File has been Removed! Note that the "View List" button won't work unless you "Add" another user!!
}
alias bl {
  dialog -m Whitelist Whitelist
}
; below me, you see mode $chan +a $nick.  Edit the +a to whatever you want!
on Whitelist:JOIN:#:{ if ($me isop #) {mode $chan +a $nick
  cs sop $chan ADD $nick
  msg $chan 4,1 You have been added to 0,1 $nick 4,1 whitelist!
}
menu status,channel {
  Whitelist:/al
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.