SHARE
TWEET

Userlist v3.8

Seb Oct 9th, 2010 (edited) 306 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;    Userlist System  Version: 3.8
  2. ; By: xplo  Mail: SebLemery@gmail.com
  3. ; Net: irc.undernet.org @ #mircscripting  
  4. ; I hope you accepted the on LOAD events
  5. ; If not you HAVE to type this command --> /mkdir database
  6. ; Its in this folder all the files will be saved.
  7.  
  8. alias x return $readini($+(database\,#,.ini),$1,$wildsite)
  9.  
  10. on *:JOIN:#:{
  11.   if ($x(blacklist)) && ($me isop $chan)  { ban # $nick | kick # $nick User is blacklisted from # | halt }
  12.   if ($x(shitlist)) && ($me isop $chan)  { ban # $nick | kick # $nick User is blacklisted from # | halt }  
  13.   if ($readini(database\ $+ $chan $+ .ini, infoline, $address($nick,2))) {
  14.     if ($nick == $me) { return }
  15.     msg $chan ***( $+ $nick $+ ) $readini(database\ $+ $chan $+ .ini, infoline, $address($nick,2))
  16.   }
  17.   if ($x(opjoin) && $x(voicejoin)) { mode $chan +o+v $nick $nick | halt }
  18.   if ($readini(database\ $+ $chan $+ .ini, opjoin, $address($nick,2)) == 1) { mode $chan +o $nick | halt }
  19.   if ($readini(database\ $+ $chan $+ .ini, voicejoin, $address($nick,2)) == 1) { mode $chan +v $nick | halt }
  20. }
  21.  
  22. on *:KICK:#:{
  23.   if ($nick == $me) { halt }
  24.   if ($readini(database\ $+ $chan $+ .ini, protect, $address($knick,2)) == 1) {
  25.     ban -k $chan $nick $knick is Protected
  26.   }
  27. }
  28.  
  29. on *:ban:#:{
  30.   if ($nick == $me) { halt }
  31.   if ($bnick == $nick) { halt }
  32.   if ($readini(database\ $+ $chan $+ .ini, protect, $address($bnick,2)) == 1) {
  33.     mode $chan -bo+b $banmask $nick $address($nick,2)
  34.     kick $chan $nick $bnick is Protected
  35.   }
  36. }
  37.  
  38. on *:DEOP:#:{
  39.   if ($nick == $me) { halt }
  40.   if ($opnick == $nick) { halt }
  41.   if ($readini(database\ $+ $chan $+ .ini, keepop, $address($opnick,2)) == 1) {
  42.     mode $chan -o+o $nick $opnick
  43.   }
  44. }
  45.  
  46.  
  47. alias saylevels {
  48.   msg $chan Levels for $1 with this mask :: $address($1,2)
  49.   msg $chan $&
  50.     $iif($readini(database\ $+ $chan $+ .ini, opjoin, $address($1,2)),3+autoop,4-autoop) $&    
  51.     $iif($readini(database\ $+ $chan $+ .ini, voicejoin, $address($1,2)),3+autovoice,4-autovoice) $&    
  52.     $iif($readini(database\ $+ $chan $+ .ini, keepop, $address($1,2)),3+Keepop,4-keepop) $&    
  53.     $iif($readini(database\ $+ $chan $+ .ini, bot, $address($1,2)),3+bot,4-bot) $&
  54.     $iif($readini(database\ $+ $chan $+ .ini, protect, $address($1,2)),3+protect,4-protect)              
  55. }
  56.  
  57. alias echolevels {
  58.   echo $color(notice) -a Levels for $$1 with this mask :: $address($$1,2)
  59.   echo $color(notice) -a $&
  60.     $iif($readini(database\ $+ $chan $+ .ini, opjoin, $address($$1,2)),3+autoop,4-autoop) $&    
  61.     $iif($readini(database\ $+ $chan $+ .ini, voicejoin, $address($$1,2)),3+autovoice,4-autovoice) $&    
  62.     $iif($readini(database\ $+ $chan $+ .ini, keepop, $address($$1,2)),3+Keepop,4-keepop) $&    
  63.     $iif($readini(database\ $+ $chan $+ .ini, bot, $address($$1,2)),3+bot,4-bot) $&    
  64.     $iif($readini(database\ $+ $chan $+ .ini, protect, $address($$1,2)),3+protect,4-protect)              
  65. }
  66.  
  67.  
  68. menu nicklist {
  69.   Userlist
  70.   .Add
  71.   ..Op:writeini $+(database\,$chan,.ini) opjoin $address($$1,2) 1 | echo -a Added $$1 To Op list on $chan with this host: $address($$1,2) | mode $chan +o $$1
  72.   ..Voice:writeini $+(database\,$chan,.ini) voicejoin $address($$1,2) 1 | echo -a Added $$1 To Voice list on $chan with this host: $address($$1,2) | mode $chan +v $$1
  73.   ..KeepOp:writeini $+(database\,$chan,.ini) keepop $address($$1,2) 1 | echo -a Added $$1 To KeepOp list on $chan with this host: $address($$1,2) | mode $chan +o $$1
  74.   ..Protect:writeini $+(database\,$chan,.ini) protect $address($$1,2) 1 | echo -a Added $$1 To protect list on $chan with this host: $address($$1,2)
  75.   ..Bot:writeini $+(database\,$chan,.ini) bot $address($$1,2) 1 | echo -a Added $$1 To Bot list on $chan with this host: $address($$1,2)
  76.   ..Blacklist
  77.   ...Local:writeini $+(database\,$chan,.ini) blacklist $address($$1,2) $$?="Blacklist Reason?" | ban # $address($$1,2) | kick # $$1 You are blacklisted from # | echo -a Added $$1 To Blacklist on $chan with this host: $address($$1,2)
  78.   ...Global:writeini database\blacklist.ini shitlist $address($$1,2) $$?="Blacklist Reason?" | ban # $address($$1,2) | kick # $$1 You are blacklisted from # | echo -a Added $$1 To Blacklist on $chan with this host: $address($$1,2)
  79.   .Remove
  80.   ..Op:remini $+(database\,$chan,.ini) opjoin $address($$1,2) | echo -a Removed $$1 From Op list on $chan with this host: $address($$1,2) | mode $chan -o $$1
  81.   ..Voice:remini $+(database\,$chan,.ini) voicejoin $address($$1,2) | echo -a Removed $$1 From Voice list on $chan with this host: $address($$1,2) | mode $chan -v $$1  
  82.   ..KeepOp:remini $+(database\,$chan,.ini) KeepOp $address($$1,2) 1 | echo -a Removed $$1 From KeepOp list on $chan with this host: $address($$1,2)
  83.   ..Protect:remini $+(database\,$chan,.ini) protect $address($$1,2) 1 | echo -a Removed $$1 From protect list on $chan with this host: $address($$1,2)
  84.   ..Bot:remini $+(database\,$chan,.ini) bot $address($$1,2) 1 | echo -a Removed $$1 From Bot list on $chan with this host: $address($$1,2)
  85.   .Level $$1
  86.   ..Echo:echolevels $$1
  87.   ..Say #:saylevels $$1
  88. }
  89. menu channel {
  90.   Userlist
  91.   .Blacklist
  92.   ..Global:writeini database\shitlist.ini blacklist $$?="*!*@user.host.here" $$?="Blacklist Reason?" | ban # $address($$1,2) | echo -a Added $$1 To Blacklist on $chan with this host: $address($$1,2)
  93.   ..Local:writeini $+(database\,$chan,.ini) blacklist $address($$1,2) $$?="Blacklist Reason?" | ban # $address($$1,2) | echo -a Added $$1 To Blacklist on $chan with this host: $address($$1,2)
  94.   .Clear # 's database
  95.   ..Are you sure?
  96.   ...Yes:remove -b $+(database\,$chan,.ini) | echo $color(notice) -at Database for # is deleted. $fulldate
  97.   ...No: echo -a Moron?
  98. }
  99.  
  100. on *:LOAD:{
  101.   echo -a Userlist v3.1+client Succesfully loaded
  102.   mkdir database
  103. }
RAW Paste Data
Top