// plik zawiera sciezke dostepu do mojego katalogu
#include <stdproperties.h>
#include <ss_types.h>
#include <pl.h>
#include <macros.h>
string polacz_przym(int l, int p, int r){
  int i;
  string pom;
  mixed tpom;
  
  tpom=allocate(2);  
  pom="";
  tpom[0]=this_object()->query_przym(1,0);
  tpom[1]=this_object()->query_pprzym(1,0);
  
    
  for (i=0; i < sizeof(tpom[0]); i++){
    pom=pom+oblicz_przym(tpom[0][i], tpom[1][i], p, r, l);
    pom+=" ";
  }
  return pom;
}
void ustaw_krotki_opis(){
  int i, j;
  mixed *pom;
  string prz;
  int rodzaj=this_object()->query_rodzaj();
  if (!sizeof(this_object()->query_przym(1,0))) {
//    ustaw_shorty(o_lp, o_lm, rodzaj);
    return;
  }
  
  pom=allocate(2);
  pom[0]=allocate(6);
  pom[1]=allocate(6);
  
//  ustaw_rodzaj(rodzaj, 1);
  
  for (j=0; j < 6; j++)
      pom[0][j]=polacz_przym(0,j, rodzaj)+this_object()->query_nazwa(j);
  for (j=0; j < 6; j++)
    pom[1][j]=polacz_przym(1,j, rodzaj)+this_object()->query_pnazwa(j);
  this_object()->ustaw_shorty(pom[0], pom[1], rodzaj);
}