//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;
}