home *** CD-ROM | disk | FTP | other *** search
/ Sverigejakten / sverigejakten.iso / SUCCESS.DIR / 00004_Script_4 < prev    next >
Text File  |  2003-08-12  |  433b  |  19 lines

  1. on exitFrame
  2.   global movie_time
  3.   global crimeno
  4.   global level
  5.   global savepath
  6.   set the filename of castlib "savegame" = savepath
  7.   
  8.   set temp_time=the ticks
  9.   set temp_time2=temp_time
  10.   puppetsound 1, member "brus" of castlib "sound"
  11.   repeat while temp_time>the ticks-60
  12.     repeat while temp_time2>the ticks-4
  13.     end repeat
  14.     
  15.     updatestage
  16.     set temp_time2=the ticks
  17.   end repeat
  18.   sound stop 1
  19. end