home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / bigtop / shockwav / 27_pollu.dcr / 00101.ls < prev    next >
Encoding:
Text File  |  1996-04-10  |  3.6 KB  |  87 lines
  1. on initAnim
  2.   global dispatchTable, soundData, loopData, castData, FXbgdData, FXfgdData, bgdData, curLayer, curDataChannel, kBaseReplaySpr, kNbChannels, kRecordSpr, kHiliteSpr, kFrameCue, kEmptyFrameList, kStageBoundsSpr, kStageRect, stageCenterH, stageCenterV, kSliderSpr, kShuttleBarSpr, memorySpr, curClipNum, curClipRecord, curClipType, selectedClip, firstSharedCast, curBgdNum, kBgdHeight, kBgdSpr, bgdMinV, bgdMaxV, kBgdFXspr, kFgdFXspr, kSoundFolder, PCflag, savedSoundLevel, saveDoneScript, loopSpr, soundSpr, playBtnSpr, frameCounterSpr, loopCols, soundCols, VOLorgH, VOLorgV, SELorgH, SELorgV, stackIsLocked, frameStrSize, maxFrames, palSpr1, PALspr2, PALspr3, PALspr4, PALspr5, contentBtnBounds, PPALptr, BPALptr, NPALptr, XPALptr, FLXpalPtr, PRFpalPtr, PDXpalPtr, CYLpalPtr, VVMpalPtr, RBMpalPtr, propPALlist, soundPalList, kToonDirPath, firstSndOffset, castNumList, castOffset, curFrame, scoreData, loopFlag
  3.   if not voidp(kToonDirPath) then
  4.     exit
  5.   end if
  6.   set castNumList to value(the text of field "castNumList")
  7.   set castOffset to 300
  8.   set loopFlag to 0
  9.   set the exitLock to 1
  10.   set frameCounterSpr to 30
  11.   puppetSprite(frameCounterSpr, 1)
  12.   put "1" into field "frameCounter"
  13.   set firstSndInCast to 2700
  14.   set firstSndFrame to 20
  15.   set firstSndOffset to firstSndInCast - firstSndFrame
  16.   set firstSharedCast to 1000
  17.   set lastCast to the number of castMembers
  18.   repeat with x = firstSharedCast to lastCast
  19.     if the size of cast x <> 0 then
  20.       preLoadCast(x)
  21.     end if
  22.   end repeat
  23.   set kNbChannels to 12
  24.   set scoreCellSize to 18
  25.   set frameStrSize to (scoreCellSize * kNbChannels) + 2
  26.   set savedSoundLevel to the soundLevel
  27.   set the soundLevel to 7
  28.   set the volume of sound 1 to 3 * 36
  29.   set the volume of sound 2 to 3 * 36
  30.   set memorySpr to 42
  31.   puppetSprite(memorySpr, 1)
  32.   formatField("fileNameField", "Geneva", 9, "Plain", 2)
  33.   set palSpr1 to 33
  34.   set PALspr2 to palSpr1 + 1
  35.   set PALspr3 to palSpr1 + 2
  36.   set PALspr4 to palSpr1 + 3
  37.   set PALspr5 to palSpr1 + 4
  38.   repeat with x = palSpr1 to PALspr5
  39.     puppetSprite(x, 1)
  40.   end repeat
  41.   set kBaseReplaySpr to 5
  42.   set kRecordSpr to kBaseReplaySpr + kNbChannels
  43.   set kFgdFXspr to kBaseReplaySpr + kNbChannels + 1
  44.   set kHiliteSpr to kBaseReplaySpr + kNbChannels + 2
  45.   set kBgdFXspr to kBaseReplaySpr - 1
  46.   set kBgdSpr to kBaseReplaySpr - 2
  47.   set kFrameCue to 6
  48.   set kSliderSpr to 29
  49.   set kShuttleBarSpr to kSliderSpr - 1
  50.   set kTLmaskSpr to 20
  51.   set kBRmaskSpr to 21
  52.   set kStageBoundsSpr to 2
  53.   set kBgdHeight to 560
  54.   set playBtnSpr to 27
  55.   set kStageRect to the rect of sprite kStageBoundsSpr
  56.   set stageCenterH to getAt(kStageRect, 1) + ((getAt(kStageRect, 3) - getAt(kStageRect, 1)) / 2)
  57.   set stageCenterV to getAt(kStageRect, 2) + ((getAt(kStageRect, 4) - getAt(kStageRect, 2)) / 2)
  58.   set SELorgH to getAt(kStageRect, 1) + 319
  59.   set SELorgV to getAt(kStageRect, 2) + 33
  60.   set VOLorgH to getAt(kStageRect, 1) + 23
  61.   set VOLorgV to getAt(kStageRect, 2) + 150
  62.   set bgdOffset to (kBgdHeight - the height of sprite kStageBoundsSpr) / 2
  63.   set bgdMinV to stageCenterV - bgdOffset
  64.   set bgdMaxV to stageCenterV + bgdOffset
  65.   set curLayer to 1
  66.   set curFrame to 1
  67.   set curClipNum to 1
  68.   set selectedClip to EMPTY
  69.   set curClipType to "C"
  70.   set curBgdNum to 1
  71.   repeat with x = kBaseReplaySpr - 2 to kBaseReplaySpr + kNbChannels + 2
  72.     puppetSprite(x, 1)
  73.   end repeat
  74.   set the blend of sprite kRecordSpr to 30
  75.   puppetSprite(playBtnSpr, 1)
  76.   loadAnimData()
  77.   initCredits()
  78.   doPause(45)
  79.   displayFrame(1, 0)
  80.   doPause(45)
  81.   set spr to 27
  82.   puppetSprite(spr, 1)
  83.   set the castNum of sprite spr to the number of cast "stopBtn"
  84.   updateStage()
  85.   replay(spr)
  86. end
  87.