home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-1.dxr / 00017_Handlers control rollover botones.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  2.5 KB  |  106 lines
  1. on ayuda sMember
  2.   global bAyuda, nIdioma
  3.   if bAyuda then
  4.     set the member of sprite 47 to member sMember of castLib ("mensajes" & nIdioma)
  5.     set the visible of sprite 47 to 1
  6.     updateStage()
  7.   end if
  8. end
  9.  
  10. on boton nSprite, sPrefijo, nMaxBolas, sMember
  11.   global nContTiempo, bAyuda
  12.   repeat while rollOver(nSprite) and not (the mouseDown)
  13.     if nContTiempo = 0 then
  14.       set nContTiempo to the timer
  15.     end if
  16.     puppetSprite(23, 1)
  17.     set sMiembro to sPrefijo & "1"
  18.     set the member of sprite 23 to member sMiembro of castLib "elementos graficos"
  19.     updateStage()
  20.     if the timer > (nContTiempo + 80) then
  21.       set nCont to 1
  22.       set nFactor to 1
  23.       repeat while rollOver(nSprite) and not (the mouseDown)
  24.         set nCont to nCont + nFactor
  25.         if (nCont > nMaxBolas) or (nCont <= 0) then
  26.           if nSprite = 22 then
  27.             if nCont > nMaxBolas then
  28.               set nCont to nMaxBolas - 1
  29.             else
  30.               set nCont to 2
  31.             end if
  32.             set nFactor to nFactor * -1
  33.           else
  34.             set nCont to 1
  35.           end if
  36.         end if
  37.         set sMiembro to sPrefijo & nCont
  38.         set the member of sprite 23 to member sMiembro of castLib "elementos graficos"
  39.         updateStage()
  40.         startTimer()
  41.         repeat while rollOver(nSprite) and (the timer < 7)
  42.           nothing()
  43.         end repeat
  44.       end repeat
  45.     end if
  46.     puppetSprite(23, 0)
  47.   end repeat
  48. end
  49.  
  50. on roll
  51.   repeat with xx = 10 to 26
  52.     if rollOver(xx) then
  53.       return xx
  54.     end if
  55.   end repeat
  56. end
  57.  
  58. on rollboton
  59.   global bVideoNormal, nContTiempo
  60.   set nContTiempo to 0
  61.   case roll() of
  62.     10:
  63.       ayuda("volumen")
  64.     11:
  65.       if bVideoNormal then
  66.         ayuda("video reducido")
  67.       else
  68.         ayuda("video normal")
  69.       end if
  70.     12:
  71.       ayuda("salida")
  72.     13:
  73.       ayuda("panic")
  74.     14:
  75.       ayuda("ayuda")
  76.     15:
  77.       ayuda("modulo 8")
  78.       boton(15, "CD2 ", 16, "modulo 8")
  79.     16:
  80.       ayuda("modulo 7")
  81.       boton(16, "CD2 ", 16, "modulo 7")
  82.     17:
  83.       ayuda("modulo 6")
  84.       boton(17, "CD2 ", 16, "modulo 6")
  85.     18:
  86.       ayuda("modulo 5")
  87.       boton(18, "CD2 ", 16, "modulo 5")
  88.     19:
  89.       ayuda("modulo 4")
  90.       boton(19, "FOTO-", 8, "modulo 4")
  91.     20:
  92.       ayuda("modulo 3")
  93.       boton(20, "Mov_UVR_1/", 9, "modulo 3")
  94.     21:
  95.       ayuda("modulo 2")
  96.       boton(21, "PASEFOTOS-", 18, "modulo 2")
  97.     22:
  98.       ayuda("modulo 1")
  99.       boton(22, "Strip ", 9, "modulo 1")
  100.     24:
  101.       ayuda("1.1")
  102.     otherwise:
  103.       set the visible of sprite 47 to 0
  104.   end case
  105. end
  106.