Le jeu de labyrinthe fun et gratuit - Retour au site
 
							 
							
						 14
  14   
								
								Hors-ligne
 
							 
							
						 14
  14   
								
								StillMovingMonster.ChangePosition(QPos);TPosComponent(StillMovingMonster).ChangePosition(QPos);Hors-ligne
 
							 
							
						 5
  5   
								
								Hors-ligne
 
							 
							
						 5
  5   
								
								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;Hors-ligne
 
							 
							
						 14
  14   
								
								Map[16,36,1].Obstacle:=DangerousSpider;Hors-ligne
 
							 
							
						 5
  5   
								
								Modifié Xaumina (mars 19, 2011 21:02:51)
Hors-ligne
 
							 
							
						 5
  5   
								
								Pièces jointes :  Screenshot choix.PNG (65,6 KB)
 Screenshot choix.PNG (65,6 KB)
Hors-ligne
 
							 
							
						 14
  14   
								
								 
Hors-ligne
 
							 
							
						 5
  5   
								
								Hors-ligne