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