home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2000 February / DPPCPRO0200.ISO / ps10.dxr / Scripts_20.ls < prev    next >
Encoding:
Text File  |  1999-10-26  |  308 b   |  15 lines
  1. global giCurrentTrackNumber
  2.  
  3. on exitFrame
  4.   if not soundBusy(1) then
  5.     giCurrentTrackNumber = giCurrentTrackNumber + 1
  6.     if giCurrentTrackNumber > 10 then
  7.       giCurrentTrackNumber = 2
  8.     end if
  9.     puppetSound(1, "track" & giCurrentTrackNumber)
  10.     go(the frame)
  11.   else
  12.     go(the frame)
  13.   end if
  14. end
  15.