#########################
# Userlist System #
# Version: 4.1 #
# By: Sebastien #
# Mail: xplorer@live.ca #
# Net: irc.undernet.org #
# Chan: #mircscripting #
#########################
alias show.oplist {
if ($ini(database\ $+ # $+ .ini,opjoin,0) == $null) { echo -a 14[4AutoOp14] List Empty | halt }
var %o = 1
while (%o <= $ini(database\ $+ # $+ .ini,opjoin,0)) {
echo -a 14[4AutoOp14] $ini(database\ $+ # $+ .ini,opjoin,%o)
inc %o
}
}
alias show.voicelist {
if ($ini(database\ $+ # $+ .ini,voicejoin,0) == $null) { echo -a 14[4AutoVoice14] List Empty | halt }
var %v = 1
while (%v <= $ini(database\ $+ # $+ .ini,voicejoin,0)) {
echo -a 14[7AutoVoice14] $ini(database\ $+ # $+ .ini,opjoin,%v)
inc %v
}
}
alias show.protectlist {
if ($ini(database\ $+ # $+ .ini,protect,0) == $null) { echo -a 14[3Protect14] List Empty | halt }
var %v = 1
while (%v <= $ini(database\ $+ # $+ .ini,protect,0)) {
echo -a 14[3Protect14] $ini(database\ $+ # $+ .ini,opjoin,%v)
inc %v
}
}
alias show.botlist {
if ($ini(database\ $+ # $+ .ini,bot,0) == $null) { echo -a 14[12Bot14] List Empty | halt }
var %v = 1
while (%v <= $ini(database\ $+ # $+ .ini,bot,0)) {
echo -a 14[12Bot14] $ini(database\ $+ # $+ .ini,bot,%v)
inc %v
}
}
on *:JOIN:#:{
if ($readini(database\ $+ $chan $+ .ini, suspend, $address($nick,2))) { msg $chan $+([,$nick,]) Is Suspended | halt }
if ($readini(database\ $+ $chan $+ .ini, infoline, $address($nick,2))) {
if ($nick == $me) { return }
msg $chan ( $+ $nick $+ ) $readini(database\ $+ $chan $+ .ini, infoline, $address($nick,2))
}
if ($readini(database\ $+ $chan $+ .ini, opjoin, $address($nick,2)) == 1) && ($readini(database\ $+ $chan $+ .ini, voicejoin, $address($nick,2)) == 1) {
.mode # +ov # $nick
halt
}
if ($readini(database\ $+ $chan $+ .ini, opjoin, $address($nick,2)) == 1) {
mode $chan +o $nick
halt
}
if ($readini(database\ $+ $chan $+ .ini, voicejoin, $address($nick,2)) == 1) {
mode $chan +v $nick
halt
}
}
on *:KICK:#:{
if ($readini(database\ $+ $chan $+ .ini, protect, $address($knick,2)) == 1) {
ban -k $chan $nick $knick is Protected! [Suspended: 1h]
writeini $+(database\,$chan,.ini) suspend $address($nick,2) 1
.timer 1 3600 remini $+(database\,$chan,.ini) suspend $address($nick,2) 1
}
}
on *:ban:#:{
if ($bnick == $nick) { halt }
if ($readini(database\ $+ $chan $+ .ini, protect, $address($bnick,2)) == 1) {
mode $chan -bo+b $banmask $nick $address($nick,2)
kick $chan $nick $bnick is Protected! [Suspended: 1h]
writeini $+(database\,$chan,.ini) suspend $address($nick,2) 1
.timer 1 3600 remini $+(database\,$chan,.ini) suspend $address($nick,2) 1
}
}
on *:DEOP:#:{
if ($nick == $me) { halt }
if ($opnick == $nick) { halt }
if ($readini(database\ $+ $chan $+ .ini, keepop, $address($opnick,2)) == 1) {
mode $chan -o+o $nick $opnick
;msg $chan $opnick has KeepOp Enabled
}
}
on *:text:.who *:#:{
msg $chan Levels for $2 with this mask :: $address($2,2)
msg $chan $&
$iif($readini(database\ $+ $chan $+ .ini, manager, $address($2,2)),3+manager,4-manager) $&
$iif($readini(database\ $+ $chan $+ .ini, infoline, $address($2,2)),3+infoline,4-infoline) $&
$iif($readini(database\ $+ $chan $+ .ini, opjoin, $address($2,2)),3+autoop,4-autoop) $&
$iif($readini(database\ $+ $chan $+ .ini, voicejoin, $address($2,2)),3+autovoice,4-autovoice) $&
$iif($readini(database\ $+ $chan $+ .ini, keepop, $address($2,2)),3+keepop,4-keepop) $&
$iif($readini(database\ $+ $chan $+ .ini, bot, $address($2,2)),3+bot,4-bot) $&
$iif($readini(database\ $+ $chan $+ .ini, protect, $address($2,2)),3+protect,4-protect) $&
$iif($readini(database\ $+ $chan $+ .ini, friendly, $address($2,2)),3+friendly,4-friendly) $&
$iif($readini(database\ $+ $chan $+ .ini, suspend, $address($2,2)),3+suspend,4-suspend)
$iif($readini(database\ $+ $chan $+ .ini, infoline, $address($2,2)),msg $chan Infoline: $readini(database\ $+ $chan $+ .ini, infoline, $address($2,2)),$null)
}
alias show.levels {
echo -a command disabled for now
msg $chan Levels for $1 with this mask :: $address($1,2)
msg $chan $&
$iif($readini(database\ $+ $chan $+ .ini, manager, $address($1,2)),3+manager,4-manager) $&
$iif($readini(database\ $+ $chan $+ .ini, infoline, $address($1,2)),3+infoline,4-infoline) $&
$iif($readini(database\ $+ $chan $+ .ini, opjoin, $address($1,2)),3+autoop,4-autoop) $&
$iif($readini(database\ $+ $chan $+ .ini, voicejoin, $address($1,2)),3+autovoice,4-autovoice) $&
$iif($readini(database\ $+ $chan $+ .ini, keepop, $address($1,2)),3+keepop,4-keepop) $&
$iif($readini(database\ $+ $chan $+ .ini, bot, $address($1,2)),3+bot,4-bot) $&
$iif($readini(database\ $+ $chan $+ .ini, protect, $address($1,2)),3+protect,4-protect)
}
alias update.levels {
msg $2 Levels for $1 with this mask :: $address($1,2)
msg $2 $&
$iif($readini(database\ $+ $2 $+ .ini, manager, $address($1,2)),3+manager,4-manager) $&
$iif($readini(database\ $+ $2 $+ .ini, infoline, $address($1,2)),3+infoline,4-infoline) $&
$iif($readini(database\ $+ $2 $+ .ini, opjoin, $address($1,2)),3+autoop,4-autoop) $&
$iif($readini(database\ $+ $2 $+ .ini, voicejoin, $address($1,2)),3+autovoice,4-autovoice) $&
$iif($readini(database\ $+ $2 $+ .ini, keepop, $address($1,2)),3+keepop,4-keepop) $&
$iif($readini(database\ $+ $2 $+ .ini, bot, $address($1,2)),3+bot,4-bot) $&
$iif($readini(database\ $+ $2 $+ .ini, protect, $address($1,2)),3+protect,4-protect) $&
$iif($readini(database\ $+ $2 $+ .ini, suspend, $address($2,2)),3+suspend,4-suspend)
}
alias cu.update {
if ($timershow) { halt }
set %dbupchan $chan
.timer $+ show 1 2 update.levels $1 %dbupchan
unset %dbupchan
}
on *:TEXT:.mod *:#:{
if ($readini(database\ $+ $chan $+ .ini, manager, $address($nick,2)) !== 1) {
msg $chan you need manager level to use this command.
HALT
}
if ($readini(database\ $+ $chan $+ .ini, manager, $address($nick,2)) == 1) {
if (+bot isin $3-) { writeini $+(database\,$chan,.ini) bot $address($2,2) 1 | cu.update $2 }
if (+autoop isin $3-) { writeini $+(database\,$chan,.ini) opjoin $address($2,2) 1 | cu.update $2 | mode $chan +o $2 }
if (+autovoice isin $3-) { writeini $+(database\,$chan,.ini) voicejoin $address($2,2) 1 | cu.update $2 | mode $chan +v $2 }
if (+keepop isin $3-) { writeini $+(database\,$chan,.ini) keepop $address($2,2) 1 | cu.update $2 }
if (+protect isin $3-) { writeini $+(database\,$chan,.ini) protect $address($2,2) 1 | cu.update $2 }
if (+manager isin $3-) { writeini $+(database\,$chan,.ini) manager $address($2,2) 1 | cu.update $2 }
if (+suspend isin $3-) { writeini $+(database\,$chan,.ini) suspend $address($2,2) 1 | cu.update $2 }
if (-bot isin $3-) { remini $+(database\,$chan,.ini) bot $address($2,2) | cu.update $2 }
if (-autoop isin $3-) { remini $+(database\,$chan,.ini) opjoin $address($2,2) | cu.update $2 | mode $chan -o $2 }
if (-autovoice isin $3-) { remini $+(database\,$chan,.ini) voicejoin $address($2,2) | cu.update $2 | mode $chan -v $2 }
if (-keepop isin $3-) { remini $+(database\,$chan,.ini) keepop $address($2,2) | cu.update $2 }
if (-protect isin $3-) { remini $+(database\,$chan,.ini) protect $address($2,2) | cu.update $2 }
if (-manager isin $3-) { remini $+(database\,$chan,.ini) manager $address($2,2) | cu.update $2 }
if (-suspend isin $3-) { remini $+(database\,$chan,.ini) suspend $address($2,2) 1 | cu.update $2 }
}
}
on *:text:+infoline *:#:{
writeini $+(database\,$chan,.ini) infoline $address($nick,2) $2-
.notice $nick Added infoline to $nick on $chan :: $2-
}
on *:text:-infoline:#:{
remini $+(database\,$chan,.ini) infoline $address($nick,2)
.notice $nick Removed infoline From $nick on $chan
}
menu nicklist {
~Userlist~
.Add
..manager:writeini $+(database\,$chan,.ini) manager $address($$1,2) 1 | echo -a Added $$1 To manager level on $chan with this host: $address($$1,2) | mode $chan +o $$1
..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
..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
..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
..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)
..Bot:writeini $+(database\,$chan,.ini) bot $address($$1,2) 1 | writeini $+(database\,$chan,.ini) opjoin $address($$1,2) 1 | echo -a Added $$1 To Bot list on $chan with this host: $address($$1,2) | mode # +o $$1
.Remove
..manager:remini $+(database\,$chan,.ini) manager $address($$1,2) | echo -a Removed $$1 From manager list on $chan with this host: $address($$1,2) | mode $chan -o $$1
..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
..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
..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)
..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)
..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)
}
menu channel {
~Userlist~
.Show
..Op:show.oplist
..Voice:show.voicelist
..Protect:show.protectlist
..Bots:show.botlist
}
on *:LOAD:{ echo -a Userlist v3.4+client Succesfully loaded | mkdir database }
Comments