Advertisement
Seb

Userlist v1.3 (ini files)

Seb
May 20th, 2010
524
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 2.61 KB | None | 0 0
  1. #########################
  2. #    Userlist System    #
  3. # Version: 1.3+bugfix   #
  4. # By: Sebastien         #
  5. # Mail: xplorer@live.ca #
  6. # Net: irc.undernet.org #
  7. # Chan: #mircscripting  #
  8. #########################
  9. on @*:JOIN:#:{
  10.   if ($readini(ulist\op.ini,$mknickfn($nick),$chan) && $readini(ulist\voice.ini,$mknickfn($nick),$chan) == $address($nick,2)) {
  11.     aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Performing +vo on $+(7,$nick,)
  12.     mode $chan +vo $nick $nick
  13.     return
  14.   }
  15.   if ($readini(ulist\voice.ini,$mknickfn($nick),$chan) == $address($nick,2)) {
  16.     aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Performing +v on $+(7,$nick,)
  17.     mode $chan +v $nick
  18.   }
  19.   if ($readini(ulist\op.ini,$mknickfn($nick),$chan) == $address($nick,2)) {
  20.     aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Performing +o on $+(7,$nick,)
  21.     mode $chan +o $nick
  22.   }
  23. }
  24. alias open.voice { run ulist\voice.ini }
  25. alias open.op { run ulist\op.ini }
  26. alias add.voice {
  27.   writeini ulist\voice.ini $mknickfn($1) $chan $address($1,2)
  28.   aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Added $+(7,$1,) to Voice list
  29.   mode $chan +v $1
  30. }
  31. alias add.op {
  32.   writeini ulist\op.ini $mknickfn($1) $chan $address($1,2)
  33.   aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Added $+(7,$1,) to Op list
  34.   mode $chan +o $1
  35. }
  36. alias del.voice {
  37.   remini ulist\voice.ini $mknickfn($1) $chan $address($1,2)
  38.   aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Removed $+(7,$1,) from Voice list
  39.   mode $chan -v $1
  40. }
  41. alias del.op {
  42.   remini ulist\op.ini $mknickfn($1) $chan $address($1,2)
  43.   aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Removed $+(7,$1,) from Op list
  44.   mode $chan -o $1
  45. }
  46. on *:LOAD:{
  47.   mkdir ulist
  48.   echo $color(notice) -at Loading Auto-mode system
  49.   echo $color(notice) -at For help & Command list type: /help.auto
  50. }
  51. on *:START:{ if (!$window(@Userlist)) { window @Userlist | aline -p @Userlist Userlist Events! (Version: 1.2+bugfix) } }
  52. alias help.auto {  
  53.   echo $color(notice) -at Command list
  54.   echo $color(notice) -at /add.voice <nick>
  55.   echo $color(notice) -at /del.voice <nick>
  56.   echo $color(notice) -at /add.op <nick>
  57.   echo $color(notice) -at /del.op <nick>
  58.   echo $color(notice) -at You Can view all the mode listing with the followings commands, if there is no file, nothing will happen.
  59.   echo $color(notice) -at /open.op
  60.   echo $color(notice) -at /open.voice
  61.   echo $color(notice) -at But i do not suggest you to play with the files, or it could be broken. :/
  62. }
  63.  
  64. on me:*:join:#:{ who # }
  65.  
  66.  
  67. raw 352:*:{ halt }
  68. raw 315:*:{ halt }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement