home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 51 / Mobiclic51.iso / mac / DATA / JEUX / Quiz.dir / 00001_Script_1 next >
Text File  |  2003-01-27  |  4KB  |  135 lines
  1. global gzeFlag_Retour,  gFlagQuizz
  2. ----------------------------------
  3. on startMovie
  4.   getInfo_bandeauTitre--paramΘtrage gΘomΘtrique du dΘplacement du bandeau-titre de movie
  5.   Eker_BG_JLM -- renseignement automatique de l'Θquerre bleue
  6.   show_title -- apparition du bandeau-titre de module
  7. end
  8. -------------------
  9. on debut
  10.   case( the frame >gzeFlag_Retour) of
  11.     1:
  12.       gFlagQuizz = 2
  13.       go "DEBUT"
  14.     0:
  15.       go movie "@//sommaire"
  16.   end case
  17. end
  18. ------------------
  19. on prepareMovie
  20.   getInfo_titre_module -- renseignement automatique n░ et titre du bandeau  de cyber ou titre du bandeau de rubrique
  21.   spritesMenus
  22.   gzeFlag_Retour = label("FLAG_POUR_RETOUR")
  23. end
  24. -------------
  25. on stopMovie
  26.   --  if the runMode = "Projector" then
  27.   gzeFlag_Retour = VOID
  28. --  gFlagQuizz  = VOID
  29.   --  end if
  30.   RAZ_pistes_son
  31.   coupeson(1)
  32. end
  33. -----------
  34. on revoir
  35.   initFilm
  36.   go to movie(the movieName)
  37. end
  38. ---òòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòò
  39. on SERIE_01
  40.   global questions,ListeQuestions,score,jeu,mode
  41.   sound close 3
  42.   afficherPistes 24,"26>31"
  43.   masquerPistes 38
  44.   set questions = []
  45.   set mode=""
  46.   set jeu=1
  47.   put 0 into field "erreur"
  48.   set score=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
  49.   tirageQuestions(15)
  50.   set Q = getAt(listeQuestions,1)
  51.   add questions, Q
  52.   put Q into field "question"
  53.   go to frame "quiz"
  54.   set the memberNum of sprite 24 = Q - 1+ the number of member "T1"
  55.   joueson "Quiz" & string(Q)
  56. end
  57. ---òòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòò
  58. on SERIE_02
  59.   global questions,ListeQuestions,score,jeu,mode
  60.   sound close 3
  61.   afficherPistes 24,"26>31"
  62.   masquerPistes 38
  63.   set questions = []
  64.   set jeu=2
  65.   set mode=""
  66.   put 0 into field "erreur"
  67.   set score=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
  68.   tirageQuestions(15)
  69.   repeat with i=1 to 15
  70.     setAt listeQuestions, i, 15+getAt(listeQuestions,i)
  71.   end repeat
  72.   set Q = getAt(listeQuestions,1)
  73.   add questions, Q
  74.   put Q into field "question"
  75.   put listeQuestions
  76.   go to frame "quiz"
  77.   set the memberNum of sprite 24 = Q - 1+ the number of member "T1"
  78.   joueson "Quiz" & string(Q)
  79. end
  80. ---òòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòò
  81. on SERIE_03
  82.   global questions,ListeQuestions,score,jeu,mode
  83.   sound close 3
  84.   afficherPistes 24,"26>31"
  85.   masquerPistes 38
  86.   set jeu=3
  87.   set mode=""
  88.   set questions = []
  89.   put 0 into field "erreur"
  90.   set score=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
  91.   tirageQuestions(15)
  92.   repeat with i=1 to 15
  93.     setAt listeQuestions, i, 30+getAt(listeQuestions,i)
  94.   end repeat
  95.   set Q = getAt(listeQuestions,1)
  96.   add questions, Q
  97.   put Q into field "question"
  98.   put listeQuestions
  99.   go to frame "quiz"
  100.   set the memberNum of sprite 24 = Q - 1+ the number of member "T1"
  101.   joueson "Quiz" & string(Q)
  102. end
  103. ---òòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòò
  104. on SERIE_04
  105.   global questions,ListeQuestions,score,jeu,mode
  106.   sound close 3
  107.   afficherPistes 24,"26>31"
  108.   masquerPistes 38
  109.   set jeu=0
  110.   set mode=""
  111.   set questions = []
  112.   put 0 into field "erreur"
  113.   set score=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
  114.   tirageQuestions(45)
  115.   set Q = getAt(listeQuestions,1)
  116.   add questions, Q
  117.   put Q into field "question"
  118.   go to frame "quiz"
  119.   set the memberNum of sprite 24 = Q - 1+ the number of member "T1"
  120.   joueson "Quiz" & string(Q)
  121.   put line(Q) of field "rΘponses"
  122. end
  123.  
  124. ---òòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòòò
  125. on tirageQuestions n
  126.   global ListeQuestions
  127.   set ListeQuestions=[]
  128.   repeat while count(ListeQuestions)<15
  129.     set q = random(n)
  130.     if getOne(ListeQuestions, q)=0 then
  131.       add ListeQuestions, q
  132.     end if
  133.   end repeat
  134.   put "Tirage alΘatoire :" & ListeQuestions
  135. end tirageQuestions