#########################
#    Userlist System    #
#  Version: 3.1+Bot     #
# By: Sebastien         #
# Mail: xplorer@live.ca #
# Net: irc.undernet.org #
# Chan: #mircscripting  #
#########################
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:.wget *:#:{
  msg $chan Levels for $2 with this mask :: $address($2,2)
  msg $chan $&
    $iif($readini(database\ $+ $chan $+ .ini, chanbot, $address($2,2)),3+chanbot,4-chanbot) $&    
    $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, 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 showlevels {
  echo -a command disabled for now
  ;msg $chan Levels for $1 with this mask :: $address($1,2)
  ;msg $chan $&
    $iif($readini(database\ $+ $chan $+ .ini, chanbot, $address($1,2)),3+chanbot,4-chanbot) $&    
    $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, chanbot, $address($1,2)),3+chanbot,4-chanbot) $&    
    $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, chanbot, $address($nick,2)) !== 1) { 
    msg $chan you need CHANBOT level to use this command.
    HALT 
  }
  if ($readini(database\ $+ $chan $+ .ini, chanbot, $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 (+chanbot isin $3-) { writeini $+(database\,$chan,.ini) chanbot $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 (-chanbot isin $3-) { remini $+(database\,$chan,.ini) chanbot $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
  ..ChanBot:writeini $+(database\,$chan,.ini) chanbot $address($$1,2) 1 | echo -a Added $$1 To Chanbot 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 | echo -a Added $$1 To Bot list on $chan with this host: $address($$1,2)
  .Remove
  ..ChanBot:remini $+(database\,$chan,.ini) chanbot $address($$1,2) | echo -a Removed $$1 From ChanBot 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)
}

on *:LOAD:{ echo -a Userlist v3.1+client Succesfully loaded | mkdir database }