inherit "/std/object";

#include "local.h"
#include <stdproperties.h>
#include <pl.h>
#include <macros.h>
#include <ss_types.h>
#define TP this_player()

string snotdesc ()
{
  string 
  opis = "Ogladasz resztki zmasakrowanego snotlinga. Prawdopodobnie sluzyl on jako " +
         "rekwizyt do snotballa, a poza tym dostal sie w lapy Opluja Krwawego.\n";
    
  if (TP->query_alignment() > 450)
  {
      set_alarm(0.5,0.0,"skoncz");
      }
  else
      { 
        opis+="\nPrzyszedl ci do glowy swietny pomysl: Sprobuj podrzucic lub"+
                " zawiazac te resztki.\n";
        TP->command("zarechocz zlowieszczo");
      }
  return opis;
}

void create_object()
{

  ustaw_nazwe(({"resztki snotlinga","resztek snotlinga","resztkom snotlinga","resztki snotlinga","resztkami snotlinga","resztkach snotlinga"}),PL_MESKI_NOS_NZYW);
  dodaj_nazwy(({"resztki","resztek","resztkom","resztki","resztkami","resztkach"}), PL_MESKI_NOS_NZYW);
  set_long ("@@snotdesc");

  add_prop(OBJ_I_WEIGHT, 8000);
  add_prop(OBJ_I_VOLUME, 3000);
}

int podrzuc (string s)
{
    object obj;
    if (s=="snotlinga" || s=="cialo snotlinga" || s=="resztki" || s=="resztki snotlinga")
    {
        if (TP->query_stat(SS_DEX) < 45 )
        {
              write ("Twoja niezdarnosc nie pozwala ci zlapac resztek snotlinga, ktore z mlaskiem laduja na podlodze.\n");
              say(QCIMIE(TP, PL_MIA)+ " podrzuca resztki snotlinga.\n");
              say(QCIMIE(TP, PL_MIA)+ " klaszcze.\n");
              say("Resztki snotlinga laduja na podlodze z glosnym mlasnieciem.\n");
              TP->command("zaczerwien sie");
              move(environment(TP));
        }
        else
        {
             write ("Podrzucasz resztki snotlinga, klaszczesz i lapiesz je z powrotem.\n");
             say(QCIMIE(TP, PL_MIA)+ " podrzuca resztki snotlinga, klaszcze i lapie je z powrotem.\n");
        }       
   }  
   else write ("Co chcesz podrzucic? Moze resztki snotlinga?\n");
  return 1;  
}
int zwiaz (string s)
{
    object obj;
    if (s=="snotlinga" || s=="cialo snotlinga" || s=="resztki" || s=="resztki snotlinga")
    {
        if (TP->query_stat(SS_DEX) + TP->query_stat(SS_INT) < 90 )
        {
              write ("Twoja niezdarnosc nie pozwala ci zawiazac resztek snotlinga w wezel 'Osemke'.\n");
              say(QCIMIE(TP, PL_MIA)+ " kompromituje sie probujac zawiazac 'Osemke' ze snotlinga.\n");
              TP->command("zaczerwien sie");
        }
        else
        {
             write ("Z latwoscia i nonszalancja zawiazujesz snotlinga na supel zwany 'Osemka'.\n");
             say(QCIMIE(TP, PL_MIA)+ " bez trudu zawiazuje szczatki snotlinga w 'Osemke'.\n");
             say("Zrecznosc "+QCIMIE(TP, PL_DOP)+ " cie zadziwia.\n");
        }       
   }  
   else write ("Co chcesz zawiazac? Moze resztki snotlinga?\n");
  return 1;  
}

void init()
{
  ::init();
  add_action (podrzuc,"podrzuc");
  add_action (zwiaz,"zawiaz");
  add_action (zwiaz,"zwiaz");
}

void
skoncz()
{
   write("\nMizerne resztki tego stworzenia wzbudzaja twoja litosc. Odmawiasz krotka" +
              " modlitwe do Morra.\n");
       say(QCIMIE(TP, PL_MIA)+ " pochyla sie nad resztkami snotlinga i odmiawia krotka modlitwe.\n");
       write("Resztki snotlinga znikaja w oslepiajacym blysku swiatla!\n");
       say("Resztki snotlinga znikaja w oslepiajacym blysku swiatla!\n");
       remove_object();
}