home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / artwaug.dxr / 00006_ADDAdvertBreak.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  1.4 KB  |  37 lines
  1. on ADDAdvertBreak x
  2.   global ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList
  3.   set ADDAdCount to 1 + ADDAdCount
  4.   if ADDAdCount < 401 then
  5.     if (ADDAdCount > 399) and (ADDAdCount < 403) then
  6.       set TempInfoList to getAt(IFLButtonList, x)
  7.       set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6)
  8.       set the locH of sprite ADDADvertSprite to getAt(TempInfoList, 7)
  9.       set the locV of sprite ADDADvertSprite to getAt(TempInfoList, 8)
  10.       set the ink of sprite ADDADvertSprite to 36
  11.     end if
  12.   else
  13.     set ADDADCOntTwo to 1 + ADDADCOntTwo
  14.     if ADDADCOntTwo < 100 then
  15.       if (ADDAdCount > 402) and (ADDAdCount < 406) then
  16.         set TempInfoList to getAt(IFLButtonList, x)
  17.         set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6) + 1
  18.         set the ink of sprite ADDADvertSprite to 36
  19.       else
  20.         if ADDAdCount = 406 then
  21.           set ADDAdCount to 399
  22.           set TempInfoList to getAt(IFLButtonList, x)
  23.           set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6)
  24.           set the ink of sprite ADDADvertSprite to 36
  25.         end if
  26.       end if
  27.     else
  28.       set ADDADCOntTwo to 0
  29.       set ADDAdCount to 0
  30.       set TempInfoList to getAt(IFLButtonList, x)
  31.       set the castNum of sprite ADDADvertSprite to getAt(TempInfoList, 6)
  32.       set the locH of sprite ADDADvertSprite to 2000
  33.     end if
  34.   end if
  35.   updateStage()
  36. end
  37.