home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / advert.dir / 00005_Script_5 < prev    next >
Text File  |  1997-08-08  |  2KB  |  84 lines
  1. -- click
  2.  
  3. global gChanUpdate
  4. global gCurrentList
  5. global gAnimList
  6. global gCurrentUpdate
  7.  
  8.  
  9. on hClick
  10.   
  11.   
  12.   if the clickon = the chan of gCurrentList then return
  13.   
  14.   set the blend of sprite the chan of gCurrentList to 100
  15.   set the blend of sprite the symbolchan of gCurrentList  to 100
  16.   
  17.   
  18.   repeat with a = 1 to  count(gAnimList)
  19.     set currentchan = getat(gAnimList,a)
  20.     
  21.     set ClickedChan = 0
  22.     
  23.     if the clickon = the symbolchan of currentchan then
  24.       set ClickedChan = 1 
  25.     end if
  26.     
  27.     
  28.     if the clickon = the chan of currentchan then
  29.       set ClickedChan = 1 
  30.     end if
  31.     
  32.     
  33.     
  34.     
  35.     if   ClickedChan = 1  then
  36.       set gCurrentList = getat (ganimList,a)
  37.       
  38.       set the blend of sprite the chan of gCurrentList  to 20
  39.       set the blend of sprite the symbolchan of gCurrentList  to 20
  40.       
  41.       
  42.       set theheader = the header of gCurrentList
  43.       set thetype = the type of gCurrentList
  44.       
  45.       
  46.       set the castNum of sprite 4 to theheader
  47.       set the castNum of sprite 5 to thetype
  48.       
  49.       
  50.       set the loch of sprite 4 to 245
  51.       set the loch of sprite 4 to 240 
  52.       
  53.       set the loch of sprite 5 to the loch of sprite 30
  54.       set the locv of sprite 5 to  230  + (the height of cast thetype /2)
  55.       
  56.       updatestage
  57.       
  58.       set the movierate of sprite 30 to 0
  59.       set the movietime of sprite 30 to the Vidin of gCurrentList
  60.       updatestage
  61.       
  62.       unloadMember member 301,  the number of members
  63.       
  64.       
  65.       set the movierate of sprite 30 to 1
  66.       
  67.       return
  68.       
  69.     end if
  70.     
  71.     
  72.     
  73.     
  74.     
  75.     
  76.     
  77.     
  78.     
  79.   end repeat
  80.   
  81.   
  82.   
  83. end
  84.