What PC? 1996 November/WPCNOV96.ISO/artwnov.dxr/00006_ADDAdvertBreak.ls

Text File | 1996-09-17 | 1.5 KB | 39 lines

on ADDAdvertBreak x
  global ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, ARTNOADFLASH
  if ARTNOADFLASH = 0 then
    set ADDAdCount to 1 + ADDAdCount
    if ADDAdCount < 401 then
      if (ADDAdCount > 399) and (ADDAdCount < 403) then
        set TempInfoList to getAt(IFLButtonList, x)
        set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6)
        set the locH of sprite ADDADvertSprite to getAt(TempInfoList, 7)
        set the locV of sprite ADDADvertSprite to getAt(TempInfoList, 8)
        set the ink of sprite ADDADvertSprite to 36
      end if
    else
      set ADDADCOntTwo to 1 + ADDADCOntTwo
      if ADDADCOntTwo < 100 then
        if (ADDAdCount > 402) and (ADDAdCount < 406) then
          set TempInfoList to getAt(IFLButtonList, x)
          set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6) + 1
          set the ink of sprite ADDADvertSprite to 36
        else
          if ADDAdCount = 406 then
            set ADDAdCount to 399
            set TempInfoList to getAt(IFLButtonList, x)
            set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6)
            set the ink of sprite ADDADvertSprite to 36
          end if
        end if
      else
        set ADDADCOntTwo to 0
        set ADDAdCount to 0
        set TempInfoList to getAt(IFLButtonList, x)
        set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6)
        set the locH of sprite ADDADvertSprite to 2000
      end if
    end if
    updateStage()
  end if
end