home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 2 #3 / Blender_2_3.iso / BLENDER / FILES / CONTEST.DIR / 00048.ls < prev    next >
Encoding:
Text File  |  1996-04-01  |  242 b   |  15 lines
  1. on exitFrame
  2.   if the timeoutLapsed > (5 * 60) then
  3.     sound playFile 2, "brth.aif"
  4.     CLEANUP()
  5.     go(#next)
  6.   else
  7.     if random(100) > 95 then
  8.       go(the frame - 1)
  9.     else
  10.       go(the frame)
  11.     end if
  12.   end if
  13.   updateStage()
  14. end
  15.