home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00105.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  963 b   |  28 lines
  1. on displayFX frameNum
  2.   global scoreData, FXbgdData, kBgdFXspr, FXfgdData, kFgdFXspr, stageCenterH, stageCenterV
  3.   if frameNum > count(FXbgdData) then
  4.     set the locH of sprite kBgdFXspr to -1000
  5.   else
  6.     set curFX to getAt(FXbgdData, frameNum)
  7.     if curFX = 0 then
  8.       set the locH of sprite kBgdFXspr to -1000
  9.     else
  10.       set the castNum of sprite kBgdFXspr to adjustCastNum(curFX)
  11.       set the locH of sprite kBgdFXspr to stageCenterH
  12.       set the locV of sprite kBgdFXspr to stageCenterV
  13.     end if
  14.   end if
  15.   if frameNum > count(FXfgdData) then
  16.     set the locH of sprite kFgdFXspr to -1000
  17.   else
  18.     set curFX to getAt(FXfgdData, frameNum)
  19.     if curFX = 0 then
  20.       set the locH of sprite kFgdFXspr to -1000
  21.     else
  22.       set the castNum of sprite kFgdFXspr to adjustCastNum(getAt(curFX, 1))
  23.       set the locH of sprite kFgdFXspr to getAt(curFX, 2) - 80
  24.       set the locV of sprite kFgdFXspr to getAt(curFX, 3) - 35
  25.     end if
  26.   end if
  27. end
  28.