home *** CD-ROM | disk | FTP | other *** search
/ Sverigejakten / sverigejakten.iso / SUCCESS.DIR / 00007_Script_global < prev    next >
Text File  |  2003-08-12  |  2KB  |  54 lines
  1. global animation_script
  2.  
  3.  
  4. -- object playing lip-synchronized sound
  5. on lipSync
  6.   set temp_sprite=value(item 1 of animation_script)
  7.   set temp_actor=item 3 of animation_script
  8.   preload member (temp_actor &"m1")
  9.   preload member (temp_actor &"m2")
  10.   preload member (temp_actor &"m3")
  11.   preload member (temp_actor &"m4")
  12.   preload member (temp_actor &"m5")
  13.   --preload member (item 4 of animation_script) of castlib "sound"
  14.   set the member of sprite temp_sprite=member (temp_actor &"m1")
  15.   set the visible of sprite temp_sprite=1
  16.   puppetsound 1, member (item 4 of animation_script) of castlib "sound"
  17.   updatestage
  18.   set temp_mousedown=the mousedown
  19.   
  20.   set temp_ticks=the ticks
  21.   repeat while soundbusy(1)=1
  22.     if the mousedown> temp_mousedown then set temp_mousedown=1
  23.     if the mousedown< temp_mousedown then 
  24.       set animation_script=#cancel
  25.       puppetsprite temp_sprite, 0
  26.       go to "end"
  27.       exit repeat
  28.     end if
  29.     
  30.     -- ##disabled for speed if true_realtime=1 then mapRealTime
  31.     set temp_goalmouth=(random(4))+1
  32.     set temp_mouth=2
  33.     repeat while (temp_mouth-1)<(temp_goalmouth-1)
  34.       if temp_ticks < the ticks-5 then
  35.         set the member of sprite temp_sprite=member (temp_actor &"m" &temp_mouth) 
  36.         updatestage
  37.         set temp_ticks=the ticks
  38.       end if
  39.       set temp_mouth=temp_mouth+1
  40.     end repeat
  41.     
  42.     repeat while (temp_mouth-1)>0
  43.       if temp_ticks < the ticks-5 then
  44.         set the member of sprite temp_sprite=member (temp_actor &"m" &temp_mouth) 
  45.         updatestage
  46.         set temp_ticks=the ticks
  47.       end if
  48.       set temp_mouth=temp_mouth-1
  49.     end repeat
  50.   end repeat
  51.   sound stop 1
  52.   updatestage
  53. end
  54.