eAthena, rAthena npc script loop-party

//eAthena style attach party
if (getcharid(1)) {
	getpartymember(getcharid(1),2);
	set .@partymembercount, $@partymembercount;
	copyarray .@partymemberaid[0], $@partymemberaid[0], .@partymembercount;
	for (set .@i, 0; .@i < .@partymembercount; set .@i, .@i + 1) {
		// Attach party member to this script
		if (attachrid(.@partymemberaid[.@i])) {
			// Check if party member is not AFK
			if (!checkvending() && !checkchatting()) {

				// Do your stuff for each active party member...

			}
		}
	}
}
//rAthena style attach party
if (getcharid(1)) {
	// Attach all party members to this script
	addrid(2,0,getcharid(1));
	// Check if party member is not AFK
	if (!checkvending() && !checkchatting()) {

		// Do your stuff for each active party member...

	}
}