Swift Multimedia Spanish/Spanish_Net.iso/COMP.DXR/00006.ls

Text File | 1996-06-07 | 1.2 KB | 46 lines

on enterFrame
  set myCorrect to 0
  set the puppet of sprite 14 to 1
  set the moveableSprite of sprite 14 to 1
  set the puppet of sprite 15 to 1
  set the moveableSprite of sprite 15 to 1
  set the puppet of sprite 16 to 1
  set the moveableSprite of sprite 16 to 1
  set the puppet of sprite 17 to 1
  set the moveableSprite of sprite 17 to 1
  set the puppet of sprite 18 to 1
  set the moveableSprite of sprite 18 to 1
  set the puppet of sprite 19 to 1
  set the moveableSprite of sprite 19 to 1
  if sprite 14 intersects 8 then
    set myCorrect to myCorrect + 1
  end if
  if sprite 15 intersects 9 then
    set myCorrect to myCorrect + 1
  end if
  if sprite 16 intersects 10 then
    set myCorrect to myCorrect + 1
  end if
  if sprite 17 intersects 11 then
    set myCorrect to myCorrect + 1
  end if
  if sprite 18 intersects 12 then
    set myCorrect to myCorrect + 1
  end if
  if sprite 19 intersects 13 then
    set myCorrect to myCorrect + 1
  end if
  if (myCorrect = 6) and (the stillDown = 0) then
    repeat while soundBusy(2)
    end repeat
    repeat with i = 14 to 19
      puppetSprite(i, 0)
    end repeat
    go("correct")
  end if
end

on exitFrame
  go(the frame)
end