home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / advert.dir / 00004_Script_4 < prev    next >
Text File  |  1997-08-08  |  2KB  |  86 lines
  1. -- update
  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 hupdate
  13.   
  14.   if the  movietime of sprite 30 > the VidOut of gCurrentList then
  15.     set the movietime of sprite 30 to the Vidin of gCurrentList
  16.     return
  17.   end if
  18.   
  19.   if the timer > gNavTime then
  20.     if the mouseh < 200 then 
  21.       
  22.       if gRoll = 0 then
  23.         
  24.         
  25.         repeat with a = 1 to  count(gAnimList)
  26.           set currentchan = getat(gAnimList,a)
  27.           
  28.           set thechan = the chan of currentchan
  29.           set theSymChan = the symbolchan of currentchan
  30.           
  31.           if rollover( thechan) then
  32.             set  gRoll = a
  33.             return
  34.           end if
  35.           
  36.           if rollover( theSymChan) then
  37.             set  gRoll = a
  38.             return
  39.           end if
  40.           updatestage
  41.           
  42.         end repeat
  43.       else
  44.         set currentchan = getat(gAnimList,gRoll)
  45.         
  46.         set thechan = the chan of currentchan
  47.         set theSymbolChan = the SymbolChan of currentchan
  48.         
  49.         set rollcheck = 0
  50.         
  51.         if rollover( thechan) then
  52.           set rollcheck = 1
  53.         end if
  54.         
  55.         if rollover( theSymbolChan) then
  56.           set rollcheck = 1
  57.         end if
  58.         
  59.         if rollcheck = 0 then 
  60.           set gRoll = 0
  61.           return
  62.         end if
  63.         
  64.         set theOut = the spOut of currentchan
  65.         
  66.         set the castNum of sprite thechan to the castNum of sprite thechan + 1
  67.         
  68.         if the castNum of sprite thechan > theOut then
  69.           set theIn = the spin of currentchan
  70.           set the castNum of sprite thechan to theIn
  71.         end if
  72.    
  73.       end if
  74.   else
  75.       set gRoll = 0
  76.       
  77.     end if
  78.     
  79.     set gNavTime = the timer + 5
  80.     
  81.   end if
  82.   
  83.   
  84.   
  85. end
  86.