PIRATE
obj->flags |= PIRATE;
if (curobj->flags & PIRATE)
if (obj->image == '@' && (curkl->flags & PIRATE)) {
setimage(curkl, curkl->flags & PIRATE ? 'P' : 'R');
else if ((curkl->flags & (PIRATE|FRIENDLY)) == PIRATE) {
obj->flags & PIRATE ? 'P' : 'R');
obj->flags&PIRATE ? 'P':'R');
*filler = occupant[y][x]->flags & PIRATE ? 'P' : 'R';