Et c'est quoi le message ?

OK j'ai compris je crois, la ligne que je t'ai donnée :

StillMovingMonster.ChangePosition(QPos);

Replace-là encore par :

TPosComponent(StillMovingMonster).ChangePosition(QPos);

Le problème est maintenant réglé de ce côté-là. Mais j'ai un autre problème avec integer et string, qui sont imcompatibles entre eux. Peux-tu me corriger ça ?

Non, c'est dans un autre composant. mais enfin, si on peut me corriger ça... Voici mon code :

obstacle TMiniQuestOfTheSpiders
  name 'Mini quête des araignées';
  image 'Characters/LittleGirl';

  on Pushing do
  var
    Selected: Integer;
  begin
    inherited;

    if not KeyPressed then
      Exit;

    Selected := Player.ShowSelectionMsg(
      'Oh, bonjour ! Je m''appelle Violette. Mon papa il a un gros problème...'+
      ' En fait c''est comme tous les papas et toutes les mamans et tous les '+
      'enfants du village. C''est des grosses araignées dangereuses. Elles '+
      'sont jaunes avec des yeux rouges... Et en plus elles sont méchantes ! '+
      'Dis, tu veux bien nous aider ? Mais il faut avoir un grappin.'
      ['Oui', 'Non']
      );

    if Selected = 0 then
    begin
      Player.ShowMessage ('Chouette alors ! Les grandes araignées se cachent un peu partout dans le village. Trouve-les et détruit-les !');
      //Master.Map['ForestMap'].Map[16,36,1].Obstacle:=DangerousSpider;
    end else
    begin
      Player.ShowMessage ('Beuh... c''est pas juste. Tu voudras bien la prochaine fois ?');
    end;
  end;
end;

En admettant que le grappin puisse être une arme, bien sûr. Sinon ce sera autre chose.

Écris juste :

Map[16,36,1].Obstacle:=DangerousSpider;

Ca ne fonctionne toujours pas.
J'envoie un screenshot.

Dans ce message-là, car l'autre a été modifié.

OK c'est beaucoup plus clair. Il m'a fallu moins d'une seconde pour trouver l'erreur
Il te manque une virgule (,) à la fin de la ligne précédente (donc la ligne numérotée 997 dans ce screenshot).

Merci !