home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / advert.dir / 00002_Script_2 < prev    next >
Text File  |  1997-08-08  |  2KB  |  112 lines
  1. -- start/stop
  2.  
  3. global gChanUpdate
  4. global gCurrentList
  5. global gAnimList
  6. global gCurrentUpdate
  7. global gNavDelay
  8. global gNavtime
  9. global gRoll
  10.  
  11.  
  12. on hStart
  13.   
  14.   set the exitLock to TRUE
  15.   
  16.   set requiredk =  2.5  * 1000 
  17.   
  18.   put "requiredk: " , requiredk
  19.   set gotk = the freeblock / 1024
  20. --  alert ""&gotk&""
  21.   put "gotk: " , gotk
  22.   
  23. --  if gotk < requiredk  then
  24. --    alert "There is insufficent memory to run this program"
  25. --    quit
  26. --  end if
  27.   
  28.   if the quickTimePresent =  0 then
  29.     alert "please install Quicktime"
  30.     quit
  31.   end if
  32.   
  33.   
  34.   
  35.   
  36.   if the machinetype = 256 then
  37.     if the colordepth <> 16 then
  38.       alert "please reset your monitor to 16 bit"
  39. --      quit
  40.     end if
  41.     
  42.   else
  43.     if the colordepth <> 16 then
  44.       set the colordepth to 16
  45.     end if
  46.     puppetsound 1,random(7) + 101
  47.     hOpenRear
  48.   end if
  49.   
  50.   
  51.   
  52.   set NumofNav = the number of lines in field "animData"
  53.   
  54.   set gRoll = 0
  55.   set gCurrentUpdate = 1
  56.   set gAnimList = []
  57.   set gBaseChan = 11
  58.   
  59.   repeat with a = 2 to NumofNav
  60.     
  61.     set gCurrent = [:]
  62.     
  63.     addprop gCurrent,#chan,gBaseChan
  64.     
  65.     addprop gCurrent,#spin,the value of word 1 of line a of field "animData"
  66.     addprop gCurrent,#spOut,the value of word  2 of line a of field "animData"
  67.     addprop gCurrent,#Vidin,the value of word  3 of line a of field "animData"
  68.     addprop gCurrent,#VidOut,the value of word  4 of line a of field "animData"
  69.     addprop gCurrent,#Symbol,the value of word  5 of line a of field "animData"
  70.     addprop gCurrent,#Header,the value of word  6 of line a of field "animData"
  71.     addprop gCurrent,#type,the value of word  7 of line a of field "animData"
  72.     
  73.     addprop gCurrent,#SymbolChan ,gBaseChan + 1  
  74.     set   gBaseChan = gBaseChan + 2
  75.     add gAnimList , gCurrent
  76.   end repeat
  77.   
  78.   
  79. end
  80.  
  81.  
  82.  
  83. on hstop
  84.   
  85.   if the machinetype <> 256 then
  86.     disposeRearWindow
  87.   end if
  88.   
  89. end
  90.  
  91. on stopmovie
  92.   
  93.   hstop
  94. end
  95.  
  96.  
  97.  
  98. on keydown
  99.   if the commandDown and ¼
  100.    (the key = "." or the key = "q") then
  101.     
  102.     if the type of cast the castNum of sprite 30 =  #video then
  103.       set the movietime of sprite 30 to 0
  104.     end if
  105.     
  106.     updatestage
  107.     go "end"
  108.     
  109.   end if
  110.   
  111. end
  112.