/* lina sluzaca do przywiazywania na blankach murow i nie tylko 
 * napisane przez Alfena
 */
 
 
inherit "/std/object";

#include "local.h"
#include "lina.h"
#include <stdproperties.h>
#include <pl.h>


int dlugosc_liny;   // w centymetrach
int grubosc_liny;   // w centymetrach kwadratowych
int gestosc_liny;   // gestosc liniowa w gramach/centymetr
int wartosc_liny;   // warotsc_liny za 100 centymetrow
int przywiazana, kierunek;  // 1 - up, 0 - down



void
set_kierunek_wspinaczki(int k)
{
  kierunek = k;
}




void
set_dlugosc_liny(int dl)
{
  if (dl < 1)
    dl = 1;
  dlugosc_liny  = dl;
}


int 
query_dlugosc_liny()
{
  return dlugosc_liny;
}


void
set_gestosc_liny(int g)
{
  if (g <1 )
    g = 1;
  gestosc_liny = g;
}


int
query_gestosc_liny()
{
  return gestosc_liny;
}


void
set_wartosc_liny(int w)
{
  wartosc_liny = w;
}



int
query_wartosc_liny()
{
  return wartosc_liny;
}


void
set_grubosc_liny(int gr)
{
  if (gr < 1)
    gr = 1;
  grubosc_liny = gr;
}



int query_grubosc_liny()
{
  return grubosc_liny;
}



void
create_lina()
{
  set_dlugosc_liny(500);   // 5 metrow
  set_grubosc_liny(1);   // 1 centymetr kwadratowy
  set_gestosc_liny(5);   // 5 gram na owcentymetr
  set_wartosc_liny(50);  // 50 miedziakow za metr
  
  set_long ("Zwykla, upleciona z konopii lina.\n");
  dodaj_przym("zwykly", "zwykli");
}





void
create_object()
{
  add_prop(OBJ_I_VALUE, "@@wartosc_calkowita_liny");
  add_prop(OBJ_I_VOLUME, "@@objetosc_liny");
  add_prop(OBJ_I_WEIGHT, "@@ciezar_liny");
  
  ustaw_nazwe( ({"lina", "liny", "linie", "line", "lina", "linie"}),
  	       ({"liny", "lin", "linom", "liny", "linami", "linach"}),
  	       PL_ZENSKI );
  create_lina();
}



int objetosc_liny()
{
  return dlugosc_liny*grubosc_liny;
}



int ciezar_liny()
{
  return dlugosc_liny*gestosc_liny;
}


int
wartosc_calkowita_liny()
{
  return wartosc_liny*dlugosc_liny/100;
}