Module food (nurmite)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 881 fois - Téléchargée 56 fois

Contenu du snippet

Voila un premier jet pour le module de gestion de la nourriture. Le code est commenté mais de toute façon très simple.

Source / Exemple :


Const Food_None = 0
Const Food_BigMac = 1
Const Food_Saucisse = 2

'énumération des types de nourriture possibles
Public Enum Food
    Food_None
    Food_BigMac
    Food_Saucisse
End Enum

'définition du type de case "nourriture" pour ajouter des
'caractéristiques comme l'odeur...
Public Type CaseFood
    FoodType As Food
    FoodOdour As Odorat.Odour
End Type

'map dynamique de la nourriture
Dim MapFood() As Food

'procédure d'intialisation : permet d'avoir une map dynamique
Public Sub InitializeFood(X As Integer, Y As Integer, FoodPreserve As Boolean)
    If FoodPreserve = True Then
        ReDim Preserve MapFood(X, Y)
    Else
        ReDim MapFood(X, Y)
    End If
End Sub

'ajout de nourriture...
Public Sub AddFood(X As Integer, Y As Integer, FoodType As Food)
    MapFood(X, Y) = FoodType
End Sub

'suppression de nourriture
Public Sub RemoveFood(X As Integer, Y As Integer)
    MapFood(X, Y) = Food_None
End Sub

'permet de connaître le type de nourriture
Public Function WhichFood(X As Integer, Y As Integer) As Food
    WhatFood = MapFood(X, Y)
End Function

'permet seulement de savoir s'il y a de la nourriture
Public Function IsFood(X As Integer, Y As Integer) As Boolean
    If MapFood(X, Y) = Food_None Then IsFood = False Else IsFood = True
End Function

Conclusion :


Bon, dites-moi si c'est dans l'esprit ou pas maintenant !

A voir également

Ajouter un commentaire

Commentaires

Messages postés
25
Date d'inscription
mardi 4 novembre 2003
Statut
Membre
Dernière intervention
21 mars 2005

Yop !

Erreur d'inattention surement dans la fonction WhichFood, tu renvoies sur WhatFood (!?).

Et sinon à part ça, c'est pour faire un jeu ?
Messages postés
73
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
14 décembre 2010

Coool la note ! moi j'ai rien compris à sa que ya écris là donc je note pô !
rien compris ! ! !
ouaip, moi aussi, d ailleurs...
votre avis m'intéresse !!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.