home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 165 / XENIATGM165.ISO / cddata / main.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  2003-05-29  |  588 b   |  23 lines
  1. on exitFrame me
  2.   global plailist, csong, channel, ft, tim, rndmenu
  3.   if sound(channel).isBusy() = 0 then
  4.     ft = 0
  5.     changesong()
  6.   end if
  7.   if not (the mouseDown) and (ft = 1) then
  8.     sendSprite(44, #mSetConstrainPos, 1 - (sound(channel).volume / 255.0), 0)
  9.   end if
  10.   if (the ticks - tim) > (15 * 60) then
  11.     put (the ticks - tim) / 60
  12.     oldm = member("sfondo._fake")
  13.     rmenu = random(5)
  14.     repeat while rndmenu = rmenu
  15.       rmenu = random(5)
  16.     end repeat
  17.     rndmenu = rmenu
  18.     imaging(8, member("main" & rndmenu), oldm)
  19.     tim = the ticks
  20.   end if
  21.   go(the frame)
  22. end
  23.