src/map/atcommand.c | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/src/map/atcommand.c b/src/map/atcommand.c
index 50ec913..f92e7f9 100644
--- a/src/map/atcommand.c
+++ b/src/map/atcommand.c
@@ -9361,6 +9361,34 @@ static inline void atcmd_channel_help(int fd, const char *command, bool can_crea
 	clif->message(fd,atcmd_output);
 	return true;
 }
+
+ACMD(ally) {
+	if ( !message || !*message )
+		return false;
+	else if ( sd->status.guild_id == 0 ) {
+		clif->message( fd, "You don't have a guild." );
+		return false;
+	}
+	else if ( sd->sc.data[SC_BERSERK] || sd->sc.data[SC__BLOODYLUST] || sd->sc.data[SC_NOCHAT] )
+		return true;
+	else if ( battle->bc->min_chat_delay ) {
+		if ( DIFF_TICK( sd->cantalk_tick, timer->gettick() ) > 0 )
+			return true;
+		sd->cantalk_tick = timer->gettick() + battle->bc->min_chat_delay;
+	}
+	else {
+		struct guild* g = guild->search( sd->status.guild_id );
+		int i;
+	//	sprintf( atcmd_output, "[Alliance] %s : %s", sd->status.name, message );
+		sprintf( atcmd_output, "[%s] %s : %s", g->name, sd->status.name, message );
+		guild->recv_message( sd->status.guild_id, sd->status.account_id, atcmd_output, strlen(atcmd_output) );
+		for ( i = 0; i < guild->get_alliance_count( g, 0 ); i++ )
+			guild->recv_message( g->alliance[i].guild_id, sd->status.account_id, atcmd_output, strlen(atcmd_output) );
+		logs->chat( LOG_CHAT_GUILD, sd->status.guild_id, sd->status.char_id, sd->status.account_id, mapindex_id2name( sd->mapindex ), sd->bl.x, sd->bl.y, NULL, message);
+	}
+	return true;
+}
+
 /**
  * Fills the reference of available commands in atcommand DBMap
  **/
@@ -9371,6 +9399,7 @@ void atcommand_basecommands(void) {
 	 * Command reference list, place the base of your commands here
 	 **/
 	AtCommandInfo atcommand_base[] = {
+		ACMD_DEF(ally),
 		ACMD_DEF2("warp", mapmove),
 		ACMD_DEF(where),
 		ACMD_DEF(jumpto),