function	script	party_p	{

set .@name$[0],getcharid(1);
set .@count, $@partymembercount;
set .@accid[0], $@partymembercid[0];

copyarray .@name$[0], $@partymembername$[0], $@partymembercount;
for (set .@i,0; .@i < .@count; set .@i, .@i+1)
		{
		mes (.@i +1) + ". ^0000FF" + .@name$[.@i] + "^000000";
		}
		next;
set .@a$[0],.@cid[0];
set .@b$[0],.@kk;
set .@c$[0],.@var$;
.@sql = query_sql("SELECT charid,key,value FROM char_reg_num",.@cid[0],.@kk,.@var$[0]);
for (set .@j,0; .@j < .@a$; set .@j, .@j+1)
		{
		mes (.@i +1) + ". ^0000FF" + .@name$[.@i] + "^000000 is + .@a$[.@j] + of + .@c$ +";
		}
		return;
}