Smart Steps: 2nd Grade/SSGRADE2.iso/pc/media/notions/maths/m2008.dxr/00079_Init.ls

Text File | 1999-03-27 | 727 b | 29 lines

on exitFrame
  global gNumeroMod, Consigne, result, nbr, fin, GoodRep
  set fin to 0
  set result to 0
  set nbr to 1
  set GoodRep to 0
  repeat with i = 5 to 36
    if the memberNum of sprite i <> 0 then
      set the puppet of sprite i to 1
    end if
  end repeat
  Cmain(4, 3)
  Cmain(5, 4)
  Cmain(38, 2)
  TireAuHasard()
  puppetTransition(5, 1, 10, 1)
  updateStage()
  set the locH of sprite 31 to the locH of sprite i - 500
  set the locH of sprite 33 to the locH of sprite i - 500
  set the locV of sprite 32 to the locV of sprite i - 500
  set the puppet of sprite 45 to 1
  set the puppet of sprite 38 to 1
  set the puppet of sprite 39 to 1
  CodeImage(1)
  if Consigne then
    joue("Consigne.AIF")
  end if
end