coin

 ###############################################################################
### !rearm <nick> : Redonne son arme à un chasseur.
 ###############################################################################
proc ::DuckHunt::rearm {nick host hand chan target} {
	if { [channel get $chan DuckHunt] } {
		if { [set target [::tcl::string::trim $target]] == "" } {
			# Message : "\037Syntaxe\037 : \002%s\002 \00314<\003nick\00314>\003 \00307|\003 Rend son arme à un joueur qui a été désarmé automatiquement ou manuellement au moyen de la commande \"%s\"."
			::DuckHunt::display_output help PRIVMSG $chan [::msgcat::mc m71 $::DuckHunt::rearm_cmd]
		} else {
			set lower_target [::tcl::string::tolower $target]
			::DuckHunt::read_database
			::DuckHunt::ckeck_for_pending_rename $chan $nick $lower_target [md5 "$chan,$lower_target"]
			if {
				!([::tcl::dict::exists $::DuckHunt::player_data $chan])
				|| !([::tcl::dict::exists $::DuckHunt::player_data $chan $lower_target])
			} then {
				# Message : "%s > %s n'a pas été trouvé dans la liste des chasseurs de canards sur %s."
				::DuckHunt::display_output help PRIVMSG $chan [::msgcat::mc m67 $nick $target $chan]
			} else {
				if { [::DuckHunt::get_data $lower_target $chan "gun"] == 1 } {
					# Message : "%s a déjà une arme et regarde %s sans comprendre."
					::DuckHunt::display_output help PRIVMSG $chan [::msgcat::mc m72 $target $nick]
				} else {
					::tcl::dict::set ::DuckHunt::player_data $chan $lower_target "gun" 1
					# Message : "%s rend son arme à %s."
					::DuckHunt::display_output help PRIVMSG $chan [::msgcat::mc m73 $nick $target]
					::DuckHunt::write_database
					if { $::DuckHunt::hunting_logs } {
						::DuckHunt::add_to_log $chan [unixtime] $nick - $target - "rearm" 0 -
					}
				}
			}
			::DuckHunt::purge_db_from_memory
		}
	}
}