Unnamed

### CREATE USER ###
proc new:proc {nick host hand chan text} {
 set user [lindex [split $text] 0]
 set rank [lindex [split $text] 1]
 set rhost [getchanhost $user]

foreach chan [channels] { if [channel get $chan rankscript] {
if {$user == ""} {
putserv "PRIVMSG $chan :\002Syntax is:\002 .new <user> \[rank\]"
return
} else {


 ini_write "db/userfile.ini" "$user" "nick" "$user"
        switch -- $rank {
                owner {ini_write "db/userfile.ini" "$user" "rank" "Owner" }
                master {ini_write "db/userfile.ini" "$user" "rank" "Master" }
                admin {ini_write "db/userfile.ini" "$user" "rank" "Admin" }
                op {ini_write "db/userfile.ini" "$user" "rank" "OP" }
                voice {ini_write "db/userfile.ini" "$user" "rank" "Voice" }
                default {ini_write "db/userfile.ini" "$user" "rank" "Friend" }
        }

 ini_write "db/userfile.ini" "$user" "channel" "NONE"
 ini_write "db/userfile.ini" "$user" "rep" "5"
 ini_write "db/userfile.ini" "$user" "host" "$rhost"
 ini_write "db/userfile.ini" "$user" "auth" "NO"
   }
  }
 }
}