PureBasic

chikun a écrit :Dobro: tu es tombé dedans kan tété ptit ? mais ou est cette version 8 ?

j'ai pour habitude de réediter toujours le même code !! (une bonne habitude ça evite des topic a rallonge !!)

donc, il est a la meme place que la version 7
qui etait a la meme place que la version 6 etc ...

la version 8 merdoie encore un peu , mais je suis dessus

ok version 8

c extra, c jubilant
pour se rapprocher de la réalité (les dessins attendront), pourrais tu faire en sorte que les phéromones soit tout juste perceptibles: RGB(19,17,6) et qu'elles se dégrade peu à peu juska noir complet ou le trait deviens des points de plus en plus espacés

c drole , leurs déplacement (rapide) sont ceux des fourmis noir ici (Reunion) ; par la suite , faudra faire un sol plutôt marron et les fourmis bien noir.

Lache pas l'affaire!!

j'ai mis à jour ma petite modif avec la dernière version de Dobro

Le Soldat Inconnu a écrit :j'ai mis à jour ma petite modif avec la dernière version de Dobro

je dois avoir de la M**de dans les yeux, je vois pas ou t'a modifié ?

tu voudrai pas isoler le truc , que je comprenne ?

j'ai modifier :

l'initialisation des fourmis

Code : Tout sélectionner

; *********** cree le  sprite  fourmi*****************
; prepare les fourmis en leur chargeant en "rom" les coordonée de leur nid
; et en leur indiquant leur mode a la naissance !! "recherche"
For i = 0 To nbr_fourmi
  fourmi(i)\x = nid(0)\x : fourmi(i)\y = nid(0)\y
  fourmi(i)\memoire_nid_x = nid(0)\x ; on donne a la fourmi la memoire de la coordonné de son nid
  fourmi(i)\memoire_nid_y = nid(0)\y ; de cette façon elle saura ou se trouve celui-ci
  fourmi(i)\mode = "recherche"
  fourmi(i)\angle = Random(360) ; ICI
Next i

Le choix de la direction

Code : Tout sélectionner

temp = Random(50)
          If temp = 25
            fourmi(i)\angle + Random(91) - 45 ; choix de la direction ; Encore ICI
          EndIf

Les collisions avec le bord de l'écran

Code : Tout sélectionner

If fourmi(i)\x < 10
        fourmi(i)\x = 10
        If fourmi(i)\angle > 180
          fourmi(i)\angle = 270
        Else
          fourmi(i)\angle = 90
        EndIf
      EndIf
      If fourmi(i)\x > EcranX - 20
        fourmi(i)\x = EcranX - 20
        If fourmi(i)\angle > 0
          fourmi(i)\angle = 90
        Else
          fourmi(i)\angle = 270
        EndIf
      EndIf
     
      If fourmi(i)\y < 10
        fourmi(i)\y = 10
        If fourmi(i)\angle > 90
          fourmi(i)\angle = 180
        Else
          fourmi(i)\angle = 0
        EndIf
      EndIf
      If fourmi(i)\y > EcranY - 20 ; 768
        fourmi(i)\y = EcranY - 20
        If fourmi(i)\angle > 270
          fourmi(i)\angle = 0
        Else
          fourmi(i)\angle = 180
        EndIf
      EndIf

Merci

ce sera integré dans les future versions

version 11

corrige pas mal de bugs , meme s'il reste une ou 2 fourmis
qui au lieu de retourner au point de bouffe indiqué par leur pheromones
se repli sur un autre point de bouffe !!??!!

a part ça leur comportement est maintenant assez cohérents !

ça peu faire une bonne base, pour commencer a toucher le graphisme !!

(attention , actuellement les fourmis ont besoin de lire la couleur des pheromones pour savoir ou ce trouve la bouffe !)

ps : je suis passé en mode fenetré , car lorsque tu fait un jeux, c'est mieux
pour le debuggage !!

en mode plein ecran , on ne peut pas debugger !!
faut le savoir

le jeux, une fois mis au point , on peux facilement repasser en plein ecran

la version 10 inclue les sprites 3D pour la rotation
plus un sprite "fourmi_bouffe" qui va suivre la fourmis losqu'elle ramene de la bouffe au nid

la version 11 regle quelque bug

version 11.4

j'ai viré encore quelques incoherences

j'ai acceléré la degradation des pheromones
parceque sinon certaines fourmis restaient prisoniere des traces

et du coup restaient cantonné au dernier endroit ou elles avaient trouvé de la bouffe !

ce qui d'ailleurs respect la réalité , lorsque des fourmis ont trouvé de la bouffe
elle restent en patrouille dans le coin, histoire que des fois, ils y aurait quelque chose d'autres a emmener au nid !!

je pense par ailleurs que c'est parceque les pheromones sont encore active dans ce coins , mon prg démontre d'ailleurs assez bien ce fait !

on se rend compte que les traces de pheromones sont souvent plus concentrés, vers la bouffe que ver le nid !

derniere version !! Version 12

j'estime cette version stable !!

elle répond au cahier des charges

ce programme amène quelques reflexion

1 plus un objet bouffe est loin de la fourmilliere
plus il faudra de fourmis pour rapatrier la bouffe
a cause de la volatibilité des pheromones

en effet une seule fourmis qui trouve la bouffe lointaine, fait la trace
mais le temps qu'elle arrive au nid, la trace a commencer de se dégrader
donc, il y a moins de chance qu'une autre ou plusieurs fourmis trouve la trace, pour lui venir en aide !

(faudrai savoir si les fourmis entre elle communique l'emplacement de la bouffe, comme pour les abeilles par exemple

)

on se rend bien compte que lorsque de la bouffe a ete trouvé
et toute ramené , les fourmis ont tendance a retomber sur les trace de pheromones qui restent, et tourne autour de l'endroit ou a ete trouvé la bouffe donc,

2- plus les bouffes sont proche les unes des autres, plus elles ont de chance d'etre trouvé !

3- plus une bouffe est proche du nid , plus vite elle est ramenée !!
imaginez , la pauvre sauterelle qui a le malheur de sauter juste a coté d'un nid !!

ce programme m'a passé "5 minutes" , c'etait bien sympath

ps : imaginez qu'il ne s'agit non pas de fourmis et de nid
mais d'un serveur (le nid) , et des connecté (la bouffe)
les fourmis symbolisant le trafic des connections !!

on copie bien la nature non ?

faudrait faire un jeu de stratégie avec une fourmilière

Le Soldat Inconnu a écrit :faudrait faire un jeu de stratégie avec une fourmilière

je suis une grosse feignasse !!

PureBasic

une fourmiliere (enfin le debut)