SHARE
TWEET

Userlist 3.1+client

Seb Jun 13th, 2010 (edited) 249 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #########################
  2. #    Userlist System    #
  3. #  Version: 3.1+client  #
  4. # By: Sebastien         #
  5. # Mail: xplorer@live.ca #
  6. # Net: irc.undernet.org #
  7. # Chan: #mircscripting  #
  8. #########################
  9. alias user {
  10.   msg $chan $iif($readini($+(database\,$1,.ini), $2, $address($3,2)),1,0)
  11.   halt
  12. }
  13.  
  14. on *:JOIN:#:{
  15.   if ($readini(database\ $+ $chan $+ .ini, opjoin, $address($nick,2)) == 1) && ($readini(database\ $+ $chan $+ .ini, voicejoin, $address($nick,2)) == 1) { mode $chan +o+v $nick $nick | halt }
  16.   if ($readini(database\ $+ $chan $+ .ini, opjoin, $address($nick,2)) == 1) { mode $chan +o $nick | halt }
  17.   if ($readini(database\ $+ $chan $+ .ini, voicejoin, $address($nick,2)) == 1) { mode $chan +v $nick | halt }
  18. }
  19.  
  20. on *:KICK:#:{
  21.   if ($nick == $me) { halt }
  22.   if ($readini(database\ $+ $chan $+ .ini, protect, $address($knick,2)) == 1) {
  23.     ban -k $chan $nick $knick is Protected
  24.   }
  25. }
  26. on *:ban:#:{
  27.   if ($nick == $me) { halt }
  28.   if ($bnick == $nick) { halt }
  29.   if ($readini(database\ $+ $chan $+ .ini, protect, $address($bnick,2)) == 1) {
  30.     mode $chan -bo+b $banmask $nick $address($nick,2)
  31.     kick $chan $nick $bnick is Protected
  32.   }
  33. }
  34. on *:DEOP:#:{
  35.   if ($nick == $me) { halt }
  36.   if ($opnick == $nick) { halt }
  37.   if ($readini(database\ $+ $chan $+ .ini, keepop, $address($opnick,2)) == 1) {
  38.     mode $chan -o+o $nick $opnick
  39.   }
  40. }
  41.  
  42. on *:text:.wget *:#:{
  43.   msg $chan Levels for $2 with this mask :: $address($2,2)
  44.   msg $chan $&
  45.     $iif($readini(database\ $+ $chan $+ .ini, opjoin, $address($2,2)),3+AutoOp,4-autoop) $&    
  46.     $iif($readini(database\ $+ $chan $+ .ini, voicejoin, $address($2,2)),3+AutoVoice,4-autovoice) $&    
  47.     $iif($readini(database\ $+ $chan $+ .ini, keepop, $address($2,2)),3+KeepOp,4-keepop) $&    
  48.     $iif($readini(database\ $+ $chan $+ .ini, bot, $address($2,2)),3+Bot,4-bot) $&
  49.     $iif($readini(database\ $+ $chan $+ .ini, protect, $address($2,2)),3+Protect,4-protect)              
  50. }
  51.  
  52. alias showlevels {
  53.   msg $chan Levels for $1 with this mask :: $address($1,2)
  54.   msg $chan $&
  55.     $iif($readini(database\ $+ $chan $+ .ini, opjoin, $address($1,2)),3+AutoOp,4-autoop) $&    
  56.     $iif($readini(database\ $+ $chan $+ .ini, voicejoin, $address($1,2)),3+AutoVoice,4-autovoice) $&    
  57.     $iif($readini(database\ $+ $chan $+ .ini, keepop, $address($1,2)),3+KeepOp,4-keepop) $&    
  58.     $iif($readini(database\ $+ $chan $+ .ini, bot, $address($1,2)),3+Bot,4-bot) $&
  59.     $iif($readini(database\ $+ $chan $+ .ini, protect, $address($1,2)),3+Protect,4-protect)              
  60. }
  61.  
  62. alias echolevels {
  63.   echo -a Levels for $$1 with this mask :: $address($$1,2)
  64.   echo -a $&
  65.     $iif($readini(database\ $+ $chan $+ .ini, opjoin, $address($$1,2)),3+AutoOp,4-autoop) $&    
  66.     $iif($readini(database\ $+ $chan $+ .ini, voicejoin, $address($$1,2)),3+AutoVoice,4-autovoice) $&    
  67.     $iif($readini(database\ $+ $chan $+ .ini, keepop, $address($$1,2)),3+KeepOp,4-keepop) $&    
  68.     $iif($readini(database\ $+ $chan $+ .ini, bot, $address($$1,2)),3+Bot,4-bot) $&    
  69.     $iif($readini(database\ $+ $chan $+ .ini, protect, $address($$1,2)),3+Protect,4-protect)              
  70. }
  71.  
  72.  
  73.  
  74. menu nicklist {
  75.   Userlist
  76.   .Add
  77.   ..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
  78.   ..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
  79.   ..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
  80.   ..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)
  81.   ..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)
  82.   .Remove
  83.   ..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
  84.   ..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  
  85.   ..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)
  86.   ..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)
  87.   ..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)
  88.   .Info
  89.   ..Echo:echolevels $$1
  90. }
  91.  
  92. on *:LOAD:{
  93.   echo -a Userlist v3.1+client Succesfully loaded
  94.   mkdir database
  95. }
RAW Paste Data
Top