home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / islasoft / pro000.dxr / lingo_10.ls < prev    next >
Encoding:
Text File  |  1997-03-07  |  874 b   |  40 lines
  1. on startMovie
  2.   global camino, quepeli, nivel, posicion
  3.   set camino to "@:\islasoft\sonidos\click5.wav"
  4.   set ram to ramNeeded(0, 310)
  5.   set Libre to the freeBytes
  6.   set quepeli to EMPTY
  7.   set nivel to the soundLevel
  8.   if nivel = 0 then
  9.     set posicion to 10
  10.   end if
  11.   if nivel = 1 then
  12.     set posicion to 30
  13.   end if
  14.   if nivel = 2 then
  15.     set posicion to 50
  16.   end if
  17.   if nivel = 3 then
  18.     set posicion to 70
  19.   end if
  20.   if nivel = 4 then
  21.     set posicion to 90
  22.   end if
  23.   if nivel = 5 then
  24.     set posicion to 110
  25.   end if
  26.   if nivel = 6 then
  27.     set posicion to 130
  28.   end if
  29.   if nivel = 7 then
  30.     set posicion to 130
  31.   end if
  32. end
  33.  
  34. on pasaraton mielemento
  35.   global accion
  36.   set accion to ["pelitres", "peliuno", "  pelidos", "brillo", "brillo1 ", "volver", "avance", "volumen", EMPTY, "salir"]
  37.   set queaccion to mielemento - 17
  38.   do(getAt(accion, queaccion))
  39. end
  40.