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