Pastes:104901  Views:2348427 

Languages:

   ASP
   C#
   C++
   HTML
   Java
   PHP
   VB.NET
   Visual Basic 6

more languages available...


Looking to freelance?

( bids)

Source: GetAFreelancer.com


VB.Net 3D Engine

 

 

 

 

 

 

Here's the requested code from the pastebin:

Wrap Lines   Use Line Numbers
aqui os dejo los codigos...
 
alias mp3search {
splay $read($mircdir\musica.txt, w, $+(*,$1-,*)) | set %cancion $nopath($read($mircdir\musica.txt, w, $+(*,$1-,*))) | .set %mp3.rand $rand(2,15) | set %mp3.calidad $mp3($read($mircdir\musica.txt, w, $+(*,$1-,*))).bitrate $+ .KpS | set %mp3.time $lof($read($mircdir\musica.txt, w, $+(*,$1-,*))) | set %mp3.artista $mp3($read($mircdir\musica.txt, w, $+(*,$1-,*))).artist | %mp3.time = %mp3.time / 16000 | set %mp3.playing yes | .timer 1 %mp3.time set %mp3.playing no | msg $chan 1 Reproduciendo... 14 $nopath($read($mircdir\musica.txt, w, $+(*,$1-,*))) 1• 14 %mp3.artista 1• 14 $duration(%mp3.time) 1 ( 14 $round($calc(($file($read($mircdir\musica.txt, w, $+(*,$1-,*))).size)/1048576),2) $+ Mb 1 - 14 %mp3.calidad 1 )
}
 
alias mp3list {
var %dir $sdir=\\"Seleciona Directorio MP3"
var %c $findfile(%dir,*.mp3;*.wmv;*.wma;.mpeg,0,write musica.txt $1-)
}
 
alias mp3view {
var %lin 1
set %lintotal $lines(musica.txt)
echo $color(info) -a *** lista de musica ***
echo $color(info) -a
while (%lin <= %lintotal) { echo $color(info) -a *** $read(musica.txt,%lin) | inc %lin }
echo $color(info) -a
echo $color(info) -a fin de lista
echo $color(info) -a
echo $color(info) -a Canciones totales: 7 $lines(musica.txt)
msg $chan 14 Tengo 1 $lines(musica.txt) 14 canciones
else { halt }
}
 
alias aleatorio {
splay $read($mircdir\musica.txt) | set %cancion $nopath($read($mircdir\musica.txt)) | .set %mp3.rand $rand(2,15) | set %mp3.calidad $mp3($read($mircdir\musica.txt)).bitrate $+ .KpS | set %mp3.time $lof($read($mircdir\musica.txt)) | set %mp3.artista $mp3($read($mircdir\musica.txt)).artist | %mp3.time = %mp3.time / 16000 | set %mp3.playing yes | .timer 1 %mp3.time set %mp3.playing no | msg $chan 1 Reproduciendo... 14 %mp3.artista 1• 14 $duration(%mp3.time) 1 ( 14 $round($calc(($file($read($mircdir\musica.txt, w, $+(*,$1-,*))).size)/1048576),2) $+ Mb 1 - 14 %mp3.calidad 1 ) 1( 14 Mp3 player Powered By: 1#Anaking 1)
unset $read($mircdir\musica.txt)
}
 
on *:input:*: {
if ($1 == $!rep) { mp3search $2- }
elseif ($1 == $!aleatorio) { aleatorio }
elseif ($1 == $!stop) { splay stop | msg $chan 1parando... 14 4%cancion }
elseif ($1 == $!play) { splay resume }
elseif ($1 == $!pause) { splay pause | msg $chan 1pausando... 14 4%cancion }
elseif ($1 == $!vol) { run SNDVOL32.EXE }
elseif ($1 == $!winamp) { run C:\Archivos de programa\Winamp\winamp.exe }
elseif ($1 == $!inco) { run C:\Archivos de programa\Winamp\ }
elseif ($1 == $!list) { mp3list }
elseif ($1 == $!view) { /mp3view }
}
 
Teneis que poner en un canal del irc
 
$wie y despues $list hay señalais la carpeta donde tengais la musica , vais al chan del irc y poneis $rep "nombre de la cancion sin espacio" o bien $aleatorio y se os pondra cualquier cancion.
Syntax Highlighting:  



Copyright 2007 - NoMorePasting.com