### REPUTATION POINTS ### # For admin's proc rep:proc {nick host hand chan text} { set user [lindex [split $text] 0] set rep [lindex [split $text] 1] set num [string is digit $rep] foreach chan [channels] { if [channel get $chan rankscript] { set a [ini_read "db/userfile.ini" "$user" "nick"] if {$a !=";" && $num == "1"} { ini_write "db/userfile.ini" "$user" "rep" "$rep" putserv "PRIVMSG $chan :$user\'s Rep is now: [ini_read "db/userfile.ini" "$user" "rep"]" } elseif {$a == ";"} { putserv "PRIVMSG $chan :User is not in the database" } elseif {$num == "0"} { putserv "PRIVMSG $chan :Rep Points Must Be Numeric" } } } } # For users proc urep:proc {nick host hand chan text} { set user [lindex [split $text] 0] set flag [lindex [split $text] 1] foreach chan [channels] { if [channel get $chan rankscript] { if {$flag == "-"} {set t "\0555" } elseif {$flag == "+"} {set t "\0535" } set a [ini_read "db/userfile.ini" "$user" "nick"] set b [expr [ini_read "db/userfile.ini" "$user" "rep"] $t] set c [ini_read "db/banfile.ini" "$nick" "nick"] set d [ini_read "db/banfile.ini" "$nick" "host"] set e [ini_read "db/banfile.ini" "$nick" "repuser"] if {$c == "$nick" && $d == "$host" && $e == "$user"} { putserv "PRIVMSG $chan :You may not add any more rep to \002$user\002 for: <\002 1 DAY \002>" return } if {$a !=";" && $flag != ""} { ini_write "db/userfile.ini" "$user" "rep" "$b" putserv "PRIVMSG $chan :$user\'s Rep is now: [ini_read "db/userfile.ini" "$user" "rep"]" ini_write "db/banfile.ini" "$nick" "nick" "$nick" ini_write "db/banfile.ini" "$nick" "host" "$host" if {$e != "$user"} { set x 0 set y [incr x 1] ini_write "db/banfile.ini" "$nick" "$y" "$user" } else { ini_write "db/banfile.ini" "$nick" "repuser" "$user" } putserv "PRIVMSG $chan :You may not add any more rep to $user for <\002 1 DAY \002>" } elseif {$a == ";"} { putserv "PRIVMSG $chan :User is not in the database" return } } } }