NURMITES : DEBUT DE MODULE DU CERVEAU

'Voici le module de cerveau tout frais que je viens de faire
'Comme je sais pas la fonction pr se deplacer, j'utilise : Bouge(Nurmite as nurm, Direction as direction)

Const NURM_Free = True
Const NURM_Action = False

Type Nurm
    XPos As Integer
    YPos As Integer
    Age As Integer
    Generation As Integer
    Memory As NurmMemoryMatrix
    State As NurmState
    WorldVue As Vision
    Trajectoire As Route
    Props As Bio
End Type

Type NurmMemoryMatrix
End Type

Type NurmState
    Action As Boolean
    Action_Type As String
    Vie As Integer
    Sommeil As Integer
    Faim As Integer
    Soif As Integer
    Maladie As Integer
End Type

Type Bio
    Vie_Max As Integer
    Intelligence As Integer
    Resistance As Integer
    Vue As Integer
    Odorat As Integer
    Ouie As Integer
End Type

Type Vision
End Type

Type Route
End Type

'Cette fonction doit être appelee a chaque changement de cycle absolument !!!
Public Function NurmNewCycle(Nurmite As Nurm)
    Dim tmp As Integer
    Dim malus As Integer

    'Augmente la faim du Nurm
    tmp = Int(Rnd * 100) + 1
    Nurmite.State.Faim = Nurmite.State.Faim + tmp

    'Augmente la soif du Nurm
    tmp = Int(Rnd * 100) + 1
    Nurmite.State.Soif = Nurmite.State.Soif + tmp

    'Augmente le sommeil du Nurm
    tmp = Int(Rnd * 100) + 1
    Nurmite.State.Sommeil = Nurmite.State.Sommeil + tmp

    'Teste la faim, la soif et le sommeil du Nurmite
    If Nurmite.State.Faim > (Nurmite.Props.Resistance * 100) Then Nurmite.State.Action_Type = "FAIM"
    If Nurmite.State.Sommeil > (Nurmite.Props.Resistance * 100) Then Nurmite.State.Action_Type = "SOMMEIL"
    If Nurmite.State.Soif > (Nurmite.Props.Resistance * 100) Then Nurmite.State.Action_Type = "SOIF"

    'Teste la maladie qui est due au vent
    malus = (((Int(Rnd * windspeed) + 3) * 8) - Nurmite.State.Props.Resistance)
    'Puis c'est la pluie qui afaiblit le nurmite
    If IsRaining = True Then
        malus = malus + (((Int(Rnd * 6) + 3) * 8) - Nurmite.State.Props.Resistance)
    End If
    'S'il n'y a aucun malus, le nurmite reprend des forces
    If malus <= 0 Then malus = -((Int(Rnd * 5) + 1) * Nurmite.Props.Resistance)

    'Ajoute le malus a la valeur de maladie du nurm
    Nurmite.State.Maladie = Nurmite.State.Maladie + malus

    'Execute l'action du Nurm
    Select Case Nurmite.State.Action_Type
        Case "FAIM"
            NurmChercheManger Nurmite, ODEUR_VIANDE
        Case "SOIF"
            NurmChercheManger Nurmite, ODEUR_EAU
        Case "SOMMEIL"
            NurmDort (Nurmite)
    End Select
End Function

'Fonction appelée quand le Nurm mange
'Je m'occupe pas des fonctions de NurmFood.bas
Public Function NurmMange(Nurmite As Nurm)
    Nurmite.State.Faim = Nurmite.State.Faim - 1500
    If Nurmite.State.Faim > (Nurmite.Props.Resistance * 100) Then Nurmite.State.Action_Type = "FAIM"
End Function

'Quand le Nurm boit...
'Teste aussi s'il a encore soif
Public Function NurmBoit(Nurmite As Nurm)
    Nurmite.State.Soif = Nurmite.State.Soif - 1500
    If Nurmite.State.Soif > (Nurmite.Props.Resistance * 100) Then Nurmite.State.Action_Type = "SOIF"
End Function

'Et là quand il dort
Public Function NurmDort(Nurmite As Nurm)
    Nurmite.State.Sommeil = Nurmite.State.Sommeil - 1500
    If Nurmite.State.Sommeil > (Nurmite.Props.Resistance * 100) Then Nurmite.State.Action_Type = "SOMMEIL"
End Function

'Recherche de nourriture quand il a faim ou soif
'Retourne Vrai si le nurmite a trouve a mange
'Retourne Faux si le nurmite n'a rien trouve...
Public Function NurmChercheManger(Nurmite As Nurm, Odeur As Odeur) As Boolean
    'Cherche une odeur quelconque
    Direction = FindNearestOdeur(Nurmite, Odeur)
    'S'il trouve l'odeur de la viande
    If Direction <> "" Then
        Bouge Nurmite, Direction
    Else
    'S'il ne trouve pas l'odeur de la viande, on va voir s'il est assez intelligent pour en chercher...
    'Comme ca ca renforce l'idee de la selection naturelle
    'Un nurmite peut mourir de faim s'il est pas assez intelligent pour chercher a manger
        If Nurmite.Props.Intelligence >= (Int(Rnd * 20) + 1) Then
            Direction = DetectNouvelleOdeur(Nurmite)
        End If
    End If
End Function

Public Function NurmDort(Nurmite As Nurm)
    Dim malus As Integer
    If DuBruit(Nurmite) = True Then malus = Int(Rnd * 100) + 1
    Nurmite.State.Sommeil = Nurmite.State.Sommeil - (Int(Rnd * 200) + 100)
End Function