What PC? 1996 August/WPCAUG96.ISO/mgiwaug.dxr/00022_MGIFlashComp,MGIFlashTwoComp.ls

Text File | 1996-06-14 | 1.2 KB | 40 lines

on MGIFlashComp
  global MGICompCounter, MGICompOneSprite, MGICompOnStage, MGISTONEON, MGIBigBoxSprite
  if MGICompOnStage = 1 then
    if MGICompCounter = 3 then
      set the castNum of sprite MGICompOneSprite to the castNum of sprite MGICompOneSprite + 1
      updateStage()
    else
      if MGICompCounter = 6 then
        set MGICompCounter to 0
        set the castNum of sprite MGICompOneSprite to the castNum of sprite MGICompOneSprite - 1
        updateStage()
      end if
    end if
    set MGICompCounter to 1 + MGICompCounter
    if MGISTONEON = 2 then
      set MGISTONEON to 0
      set the locH of sprite 48 to 2000
      forget(window "STONEY")
      updateStage()
    end if
  end if
end

on MGIFlashTwoComp
  global MGICompTwoCounter, MGICompTwoSprite, MGICompTwoOnStage
  if MGICompTwoOnStage = 1 then
    if MGICompTwoCounter = 3 then
      set the castNum of sprite MGICompTwoSprite to the castNum of sprite MGICompTwoSprite + 1
      updateStage()
    else
      if MGICompTwoCounter = 6 then
        set MGICompTwoCounter to 0
        set the castNum of sprite MGICompTwoSprite to the castNum of sprite MGICompTwoSprite - 1
        updateStage()
      end if
    end if
    set MGICompTwoCounter to 1 + MGICompTwoCounter
  end if
end