home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2000 February / DPPCPRO0200.ISO / ps10.dxr / Scripts_4.ls < prev    next >
Encoding:
Text File  |  1999-10-26  |  328 b   |  12 lines
  1. global giCurrentTrackNumber
  2.  
  3. on exitFrame
  4.   if not soundBusy(1) then
  5.     puppetSound(1, "track" & giCurrentTrackNumber)
  6.   end if
  7.   repeat with i = 1 to 10
  8.     set the member of sprite (23 + i) to "free." & i
  9.   end repeat
  10.   set the member of sprite (22 + giCurrentTrackNumber) to "free." & giCurrentTrackNumber - 1 & " roll"
  11. end
  12.