input mp-scratch; beginfig(1); draw Drapeau; endfig; beginfig(2); draw QLutinPresse; endfig; beginfig(3); draw MettreVar("nom variable","0"); endfig; beginfig(4); draw AjouterVar("nom variable","1"); endfig; beginfig(5); draw OvalVar("$x$"); endfig; beginfig(6); draw OvalVar("$y$"); endfig; beginfig(7); draw Basculer(OvalApp("nom du costume")); endfig; beginfig(8); draw DireT(OvalNb("\phantom{X}"),"2"); endfig; beginfig(9); draw Aller("0","0"); endfig; beginfig(10); draw OvalOp("nombre aléatoire entre",OvalNb("\phantom{X}")," et ",OvalNb("\phantom{X}")); endfig; beginfig(11); draw OvalOp("regroupe",RecText("\phantom{Hello}"),RecText("\phantom{Hello}")); endfig; beginfig(12); draw OvalOp(OvalNb("\phantom{X}"),"$\bm{\times}$",OvalNb("\phantom{X}")); endfig; beginfig(13); % initialisation draw Drapeau; draw Aller("0","0"); draw Basculer(OvalApp("ball-a")); draw DireT("Bonjour !","2"); draw DireT("Le but du jeu est de me retrouver à partir de mes coordonnées","5"); draw DireT("Clique sur moi pour commencer !","3"); endfig; beginfig(14); % le sous-marin est trouvé draw QLutinPresse; draw Basculer(OvalApp("subMarine")); draw DireT("Bravo, tu m'as trouvé !","2"); draw AjouterVar("score","1"); draw Basculer(OvalApp("ball-a")); picture BB[]; BB0=OvalOp(OvalNb("4"),"$\bm{\times}$",OvalNb("50")); BB1=OvalOp("nombre aléatoire entre ",OvalNb("-4")," et ",BB0); BB2=OvalOp(OvalNb("3"),"$\bm{\times}$",OvalNb("50")); BB3=OvalOp("nombre aléatoire entre ",OvalNb("-3")," et ",BB2); draw MettreVar("x",BB1); draw MettreVar("y",BB3); draw DireT("Attention, je vais me cacher en...","2"); BB4=OvalOp("regroupe",OvalVar("y"),RecText(")")); BB5=OvalOp("regroupe",RecText(";"),BB4); BB6=OvalOp("regroupe",OvalVar("x"),BB5); BB7=OvalOp("regroupe",RecText("("),BB6); draw DireT(BB7,"3"); draw Aller(OvalVar("x"),OvalVar("y")); endfig; beginfig(15); % le sous-marin est manqué (partie arrière plan touchée) draw QScenePressee; draw AjouterVar("score","-1"); endfig; end