Últimos Codigos Enviados

Top Snippets mejor calificados

Top Me gustan Snippets

Últimos Artículos

Lo mas popular

Iniciar Sesión

Nombre de Usuario

Contraseña



¿Contraseña olvidada?
Recupera tu contraseña.

Usuarios Conectados

· Invitados: 2
· Miembros: 0
· Total Miembros: 464
· Último Miembro: DaglazRek

Últimas Visitas:

Normandlus 00:38:36
kikuchi 12:41:03
Williamvob 3 días
FsDk 1 Semana
SykO 1 Semana
JamesPatty 2 Semanas
nilicar 2 Semanas
DustinCob 2 Semanas
TerrePoMot 2 Semanas
Imimilmer... 2 Semanas

Últimas Descargas

Últimos Comentarios

Mini Charla

Tienes que logearte para enviar un mensaje.

09-05-2020 13:27
Pfft Pfft Grin Cool

08-05-2020 15:04
Angry Sad Angry

11-01-2018 09:31
0_o

04-07-2017 22:29
Angry Sad Angry

13-05-2017 00:03
omg saludos a todos!!

Ver el Tema

 Imprimir Tema
Video Tutorial mSL Parte 2
SykO
Hola, hoy les traego la segunda parte de esta serie espero aprendan algo como siempre :)


Todo lo que se pierde se puede volver a encontrar, menos el tiempo perdido!
 
http://syko.wormzweb.com/
SykO
Descargar código fuente.  Código.
/*

Simple Reproductor v0.1 creado por SykO

*/

alias -l SRVERSION return 1.0

alias simpleReproductor {
  var %ventana = @SimpleReproductor
  if ($window(%ventana)) {
    window -a @SimpleReproductor
  }
  else {
    window -BCpfkz  t %ventana -1 -1 400 70
    titlebar %ventana v $  $SRVERSION creado por SykO
    ;dibuja fondo
    drawrect -rfn %ventana $rgb(face) 1 0 0 400 70
    dibujaInformacion
    dibujaProgreso
    ;anterior
    drawrect -rn %ventana $rgb(frame) 1 5 45 30 20
    drawtext -rn %ventana $rgb(text) webdings 15 12 45 9
    dibujaBotonDePauseYTocar
    ;detener
    drawrect -rn %ventana $rgb(frame) 1 75 45 30 20
    drawtext -rn %ventana $rgb(text) webdings 15 82 45 <
    ;siguiente
    drawrect -rn %ventana $rgb(frame) 1 110 45 30 20
    drawtext -rn %ventana $rgb(text) webdings 15 117 45 :
    ;repetir
    drawrect -rn %ventana $rgb(frame) 1 150 45 30 20
    drawtext -rn %ventana $rgb(text) webdings 15 157 45 `
    ;alertorio
    drawrect -rn %ventana $rgb(frame) 1 185 45 30 20
    drawtext -rn %ventana $rgb(text) webdings 15 192 45 q
    ;directorio
    drawrect -rn %ventana $rgb(frame) 1 225 45 65 20
    drawtext -rn %ventana $rgb(text) tahoma 12 230 47 Directorio
    dibujaVolumen
    drawdot %ventana
  }
}

alias -l dibujaInformacion {
  var %ventana = @SimpleReproductor
  drawrect -rfn %ventana $rgb(face) 1 5 5 390 20
  drawrect -rn %ventana $rgb(frame) 1 5 5 390 20
  var %info = Simple Reproductor v $  $SRVERSION creado por SykO
  if (%sr_tocando_cancion) {
    ;dibuja informacion de cancion
  }
  elseif (%sr_en_pause) {
    %info = PAUSE
  }
  var %x = $calc((390 - $width(%info,tahoma,12)) / 2   5)
  if (%x < 5) {
    %x = 5
  }
  drawtext -rcn %ventana $rgb(text) tahoma 12 %x 7 390 20 %info
}

alias -l dibujaProgreso {
  var %ventana = @SimpleReproductor
  drawrect -rfn %ventana $rgb(face) 1 5 30 390 10
  drawrect -rn %ventana $rgb(frame) 1 5 30 390 10
}

alias -l dibujaBotonDePauseYTocar {
  var %ventana = @SimpleReproductor
  drawrect -rn %ventana $rgb(frame) 1 40 45 30 20
  drawrect -rn %ventana $rgb(frame) 1 40 45 30 20
  var %boton = 4
  if (%sr_en_pause) {
    %info = ;
  }
  drawtext -rn %ventana $rgb(text) webdings 15 47 45 %boton
}

alias -l dibujaVolumen {
  var %ventana = @SimpleReproductor
  drawrect -rfn %ventana $rgb(face) 1 295 50 100 10
  drawrect -rn %ventana $rgb(frame) 1 295 50 100 10

}

;Formato para crear comandos: alias [-l] nombre comando(s)

alias -l anuncia {
  echo -est Escuchando cancion en mi Simple Reproductor v $  $SRVERSION creado por SykO
}

alias -l acualizaProgreso echo -est Acualizando progreso

alias -l cancionAnterior echo -est cancion anterior

alias -l pausaCancion {

}

alias -l tocaCancion {

  anuncia
}

menu @SimpleReproductor {
  sclick: {
    var %m_x = $mouse.x
    var %m_y = $mouse.y
    if ($inrect(%m_x,%m_y,5,45,30,20)) {
      echo -s click en boton anterior
    }
    elseif ($inrect(%m_x,%m_y,40,45,30,20)) {
      echo -s click en boton tocar/pause
    }
    elseif ($inrect(%m_x,%m_y,75,45,30,20)) {
      echo -s click en boton detener
    }
    elseif ($inrect(%m_x,%m_y,110,45,30,20)) {
      echo -s click en boton siguiente
    }
    elseif ($inrect(%m_x,%m_y,150,45,30,20)) {
      echo -s click en boton repetir
    }
    elseif ($inrect(%m_x,%m_y,185,45,30,20)) {
      echo -s click en boton alertorio
    }
    elseif ($inrect(%m_x,%m_y,225,45,65,20)) {
      echo -s click en boton directorio
    }
  }
}



Todo lo que se pierde se puede volver a encontrar, menos el tiempo perdido!
 
http://syko.wormzweb.com/
Saltar al Foro:
EScripting.NET #eScripting, ChatHispano utiliza cookies. Las cookies nos permiten ofrecer nuestros servicios. Más información. Por favor, haga clic en el botón Aceptar para ocultar esta barra y aceptar nuestras cookies. Si usted continúa utilizando Nuestro sitio sin realizar ninguna acción, vamos a suponer que usted consiente nuestras cookies de todos modos.
Cookiebar Panel fromVenue
Generado en 0.18 segundos
2,252,661 Visitas Únicas