Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #########################
- # Userlist System #
- # Version: 1.3+bugfix #
- # By: Sebastien #
- # Mail: xplorer@live.ca #
- # Net: irc.undernet.org #
- # Chan: #mircscripting #
- #########################
- on @*:JOIN:#:{
- if ($readini(ulist\op.ini,$mknickfn($nick),$chan) && $readini(ulist\voice.ini,$mknickfn($nick),$chan) == $address($nick,2)) {
- aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Performing +vo on $+(7,$nick,)
- mode $chan +vo $nick $nick
- return
- }
- if ($readini(ulist\voice.ini,$mknickfn($nick),$chan) == $address($nick,2)) {
- aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Performing +v on $+(7,$nick,)
- mode $chan +v $nick
- }
- if ($readini(ulist\op.ini,$mknickfn($nick),$chan) == $address($nick,2)) {
- aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Performing +o on $+(7,$nick,)
- mode $chan +o $nick
- }
- }
- alias open.voice { run ulist\voice.ini }
- alias open.op { run ulist\op.ini }
- alias add.voice {
- writeini ulist\voice.ini $mknickfn($1) $chan $address($1,2)
- aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Added $+(7,$1,) to Voice list
- mode $chan +v $1
- }
- alias add.op {
- writeini ulist\op.ini $mknickfn($1) $chan $address($1,2)
- aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Added $+(7,$1,) to Op list
- mode $chan +o $1
- }
- alias del.voice {
- remini ulist\voice.ini $mknickfn($1) $chan $address($1,2)
- aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Removed $+(7,$1,) from Voice list
- mode $chan -v $1
- }
- alias del.op {
- remini ulist\op.ini $mknickfn($1) $chan $address($1,2)
- aline -p @Userlist $+([,$fulldate,]) $+([14,$chan,]) Removed $+(7,$1,) from Op list
- mode $chan -o $1
- }
- on *:LOAD:{
- mkdir ulist
- echo $color(notice) -at Loading Auto-mode system
- echo $color(notice) -at For help & Command list type: /help.auto
- }
- on *:START:{ if (!$window(@Userlist)) { window @Userlist | aline -p @Userlist Userlist Events! (Version: 1.2+bugfix) } }
- alias help.auto {
- echo $color(notice) -at Command list
- echo $color(notice) -at /add.voice <nick>
- echo $color(notice) -at /del.voice <nick>
- echo $color(notice) -at /add.op <nick>
- echo $color(notice) -at /del.op <nick>
- echo $color(notice) -at You Can view all the mode listing with the followings commands, if there is no file, nothing will happen.
- echo $color(notice) -at /open.op
- echo $color(notice) -at /open.voice
- echo $color(notice) -at But i do not suggest you to play with the files, or it could be broken. :/
- }
- on me:*:join:#:{ who # }
- raw 352:*:{ halt }
- raw 315:*:{ halt }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement