home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / advert.dir / 00003_Script_3 < prev    next >
Text File  |  1997-08-08  |  2KB  |  90 lines
  1. -- init
  2.  
  3. global gChanUpdate
  4. global gCurrentList
  5. global gAnimList
  6. global gCurrentUpdate
  7. global gNavDelay
  8. global gNavtime
  9. global gRoll
  10. global gstartVid
  11.  
  12. on hinit
  13.   
  14.   
  15.   
  16.   
  17.   set vspace = 440 / count(gAnimList)
  18.   
  19.   set basevspace = (440 / count(gAnimList) - (vspace/1.7)) + 20
  20.   
  21.   
  22.   
  23.   
  24.   repeat with a = 1 to  count(gAnimList)
  25.     
  26.     set currentchan = getat(gAnimList,a)
  27.     
  28.     set thechan = the chan of currentchan
  29.     set theIn = the spin of currentchan
  30.     set theSym = the symbol of currentchan
  31.     set theSymChan = the symbolchan of currentchan
  32.     
  33.     puppetSprite thechan, true
  34.     puppetSprite theSymChan, true
  35.     
  36.     set the loch of sprite thechan to 50
  37.     set the locv of sprite thechan to basevspace
  38.     set the castNum of sprite thechan to theIn
  39.     
  40.     set the loch of sprite theSymChan to the loch of sprite thechan + 75
  41.     set the locv of sprite theSymChan to  the locv of sprite thechan
  42.     set the castNum of sprite theSymChan to theSym
  43.     
  44.     
  45.     
  46.     set basevspace = basevspace + vspace
  47.     
  48.     
  49.   end repeat
  50.   
  51.   
  52.   set gCurrentList = getat (ganimList,1)
  53.   
  54.   set theVidIn = the Vidin of gCurrentList
  55.   set theChan = the chan of gCurrentList
  56.   set thesymbolchan = the symbolchan of gCurrentList
  57.   set theheader = the header of gCurrentList
  58.   set thetype = the type of gCurrentList
  59.   
  60.   
  61.   
  62.   
  63.   set the blend of sprite  thechan  to 50
  64.   set the blend of sprite  thesymbolchan   to 50
  65.   
  66.   puppetSprite 4, true
  67.   puppetSprite 5, true
  68.   
  69.   set the castNum of sprite 4 to theheader
  70.   set the castNum of sprite 5 to thetype
  71.   
  72.   
  73.   set the loch of sprite 4 to 240
  74.   set the locv of sprite 4 to 165
  75.   
  76.   set the loch of sprite 5 to  449
  77.   set the locv of sprite 5 to 230  + (the height of cast thetype /2)
  78.   
  79.   
  80.   
  81.   set gNavTime = the timer + 5
  82.   
  83.   preloadMember member 1, 301
  84.   
  85.   set gstartVid = TheVidin
  86.  
  87. end
  88.  
  89.  
  90.