What PC? 1997 February/WPCFEB97.ISO/dxrs/mgiwfeb.dxr/00022_MGIFlashComp,MGIFlashTwoComp.ls

Text File | 1996-12-05 | 2.0 KB | 65 lines

on MGIFlashComp
  global MGICompCounter, MGICompOneSprite, MGICompOnStage, MGISTONEON, MGIBigBoxSprite, MGISTCompCounter, STComp
  if MGICompOnStage = 1 then
    if MGISTONEON <> 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
    else
      if STComp = 0 then
        set STComp to 1
        set the locH of sprite 22 to 200
        set the locV of sprite 22 to 200
        updateStage()
      else
        if STComp = 1 then
          if MGISTCompCounter = 2 then
            set the castNum of sprite 22 to the castNum of sprite 22 + 1
            updateStage()
          else
            if MGISTCompCounter = 4 then
              set MGISTCompCounter to 0
              set the castNum of sprite 22 to the castNum of sprite 22 - 1
              updateStage()
            end if
          end if
          set MGISTCompCounter to 1 + MGISTCompCounter
        end if
      end if
    end if
    if MGISTONEON = 2 then
      set MGISTONEON to 0
      set STComp to 0
      set the locH of sprite 48 to 2000
      set the locH of sprite 22 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