//Author	:	Goddameit
//Version	:	2012/06/24 - 04:19
//Web		:	http://goo.gl/8Nedn
/*
I added some checks to make sure that will not happen some errors what I didn't expect for.
Test in eA15*** SQL
*/
function	script	AllGuildMemberEvent	{
	if(!set(.@gid,getcastledata(getarg(0),1)))
		return;
	query_sql("select account_id, char_id from `guild_member` where guild_id = '"+.@gid+"'", .@gmaid, .@gmcid);
	set .@amount,getarraysize(.@gmcid);
	for(set .@i,0;.@i<.@amount;set .@i,.@i+1)
	{
		if(!.@gmaid[.@i])
			continue;
		query_sql("select last_ip from `login` where account_id = '"+.@gmaid[.@i]+"'",.@ip$);
		query_sql("select account_id from `login` where last_ip= '"+.@ip$+"'",.@aa);
		set .@bb,getarraysize(.@aa);		
		for(set .@i2,1;.@i2<.@bb;set .@i2,.@i2+1)
		{
			for(set .@i3,0;.@i3<.@amount;set .@i3,.@i3+1)
			{
				if(.@aa[.@i2]==.@gmaid[.@i3])
				{
					set .@gmaid[.@i3],0;
					set .@gmcid[.@i3],0;
				}
			}
		}
		if(attachrid(.@gmaid[.@i]))
		{
			message strcharinfo(0),"VICTOR!!";
			getitem 607,1;
			detachrid;
		}
	}
	return;
}
-	script	AGME	-1,{
OnAgitEnd:
	setarray .@maps$[0],"aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05",
		"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05",
		"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05",
		"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05";
	for( set .@i,0; .@i <= 19; set .@i, .@i+1)
	{
		callfunc "AllGuildMemberEvent",.@maps$[.@i];
	}
	end;
}