! Fichier de classes


!Class   Papier
!	with  before [;
!            Burn: 	remove noun;   print_ret (The) noun, " brûla et disparu pour toujours.";
!		Examine:    print (The) self, " était en papier.^"; return false ;
!        	],
!	has   ;

Class Livre
!class Papier
	with
	before [;
		!actions par défaut, à surcharger dans les objets si besoin
		Feuilleter : <<Search self>>; 
		Lire : <<Examine self>>;
		Open : <<Search self>>; 
		Close : "Ouvert, fermé, quelle importance ?";
		Attack, Dechirer : "L'écrit avait trop d'importance à mes yeux pour que j'abîme un tel ouvrage !";
		Receive : "Et abîmer ainsi le livre ? Il n'en était pas question.";
	],
	has lisible feuilletable;



!Class   Nourriture
!	with  before [;
!		Burn: 	remove noun; print_ret "Cela brûla avec une mauvaise odeur.";
!		Examine: 	print "C'était de la nourriture.^"; return false ;
!		Eat:  	remove noun; "Rien à en dire.";
!        ],
!  has  edible ;

Class   Bois
  with  before [;
!            Burn:
! 	remove noun;
!      print_ret (The) noun, " brûla et disparu pour toujours.";
            Examine:	print (The) self, " était en bois.^"; return false ;
        ],
  has   ;
    
Class   Lieu
  has   light;

Class   Decor
  has   scenery;

Class   PNJ
  has   animate;
  
Class   Homme class PNJ
  has   male;
  
Class   Femme class PNJ
  has   female;

Class   Monstre
	with 
	name 'monstre' 'bete' 'creature',
	description "Un montre qui en voulait à ma vie.",
	life [;
		Attack: "Je n'étais pas suicidaire, aussi je me gardai de me jeter sur ce monstre sans raison.";
		Ask, Tell: "Le monstre n'avait rien à me répondre.";
    ],
  has   animate;
  
! Classe des objets portail

Class ObjetSpecial
with 
    obtenu 0, ! 1 si obtenu par le joueur à un moment du jeu
    eviter_perte[;
        ! Si l'objet a été obtenu par le joueur au moins une fois
        if (self has moved
        ! Et s'il n'est pas possédé par le joueur
        && (~~IndirectlyContains(player, self))
        ! Et s'il n'est pas dans la roulotte
        && (~~IndirectlyContains(InRoulotte, self)))
        ! Alors le rendre au joueur
        {
            move self to player;
        }
    ],
	before [;
		],
	has ;

Class   ObjetPortail
class ObjetSpecial
	has scored;

Class 	ObjetAutel
class 	ObjetSpecial
	with
		before [;
			Take: if (self in Autely)
				{ print "Il me fut impossible de retirer cet objet de l'autel, ce dernier l'avait comme magnétisé.^" ; rtrue ; }
				else self.obtenu = 1; rfalse ;
			],
	has ;