PsicoIRC - Lets make a script

Hola a todos. Este es un llamado a los interesados para construir un script para el foro. Esto significa trabajo en grupo, repartido entre varios integrantes, organizado y centralizado en este thread para poder dar origen a un script rapido y solido y que brinde las opciones que los usuarios de PsicoFXP queremos para el chat.
Dicho asi parece mucho trabajo, pero si logramos reunirnos 5 o 6 scripters la tarea es menos que ligera. Ademas necesitamos unos cuantos diseñadores para crear una GUI aceptable a los usuarios del foro.
Este proyecto no promete ni premios ni nada, pero tampoco lo niega, queda en un ‘veremos…’ por ahora. Para los interesados les dejo el boceto de trabajo:
1 - Definir correctamente entre todos lo que queremos que tenga el script, desde ya queda excluida la posibilidad de WAR debido a la contradiccion que esa capacidad plantea y las reglas generales de convivencia en el foro.
2 - Repartir los cargos en la creacion de script, al estar yo (qwerty) trabajando en mi propio script no dispongo de mucho tiempo para scriptear enteramente para el PsicoIRC pero sin embargo si para controlar el trabajo de otros y centralizarlo, por eso me proclamo como ‘Main Scripter’, es decir el que no hace nada pero se lleva todos los creditos .
3 - Una ves con los cargos y los contenidos empezar a scriptear. Se hara sin plasos cronologicos fijos, pero trataremos de que las tareas sean lo mas pequeñas posibles asi podemos cumplir rapido y de la mejor manera (siempre es mas facil pensar todo el potencial de algo chico que las miles de opciones que algo grande plantea).
4 - Juntar todo en un Script (esta sera mas que nada mi tarea) darle la gui necesaria (aqui entran en juego los diseñadores graficos) y comenzar a betatestear.
5 - Con al menos una semana de betatest por parte de todos los scripters + betatesters ‘extra’ hacer un “Release Oficial” del script y ponerlo en la seccion Downloads de PsicoFXP, ademas de hacerselo llegar a cuanto usuario muestre interes.
6 - Sentarse en la puerta de su casa y ver pasar el cadaver de su enemigo - Refran Chino.
Eso es todo amigos.
Updates - Mantener al dia tanto el codigo como la version del cliente en la que corra el script.
18 years, 2 months ago
Bueno, ahora que hay una propuesta pongo aparte mis ideas, son discutibles como las de cualquier otro asi que no las tomen como ley por favor:
SeguridadProteccion contra flood
Deteccion de Ataques DoS
Proteccion general de canales
AntiSpam
VisualisacionBarra Gui con los contenidos mas importantes del script
Soporte para mTS (mIRC Theme Standar)
DiversionJukebox con la capacidad para reproducir listas de temas
Menus de entretenimiento configurables
ExtrasSoporte para Addons especificos del script
Panel de Control con acceso a la configuracion de todos los puntos anteriores.
Obiamente como cliente propongo el mIRC, ya que ademas de ser el mas usado es en que mas scripters encontraremos.
Creo que no debe haber ningun sistema de auto-update o auto-download ya que eso es demasido avanzado y nadie lo usa en realidad, preferiria que gastaramos tiempo realizando un mejor codigo y mas rapido.
Sobre el mTS es lo mas abierto a discusion de todo esto, simplemente lo propuse porque tengo una engine hecha por mi que se podria retocar para que funcione con el script.
18 years, 2 months ago
Otras cuestiones que se me ocurrieron:
¿Usamos DLL? En mi opinion si, en especial MDX.
Dialogo de Conexion rapida. Estilo el del looksharp, con soporte para proxys, socks, http proxys, wingates y bncs.
18 years, 2 months ago
Bueno veamos,,,me parece bien lo ke plantio ud, no mucha mdx, sola la necesaria,,, viendo ke solo respondi yo por ahora esperare a ke otro lo haga, pq asi no vamo pa ningun lado
18 years, 2 months ago
Si, hacen falta mas todabia. Pero de a pocos se empieza, calculo que Agustin no leyo esto y que se va a sumar. Por ahi a blah le interese. Alguno mas…. se escuchan ofertas .
18 years, 2 months ago
Yo me anoto con el diseño si no me tiran nada complicado algo puedo hacer mien bonito, en cuanto despues a betatestear me anoto, ahi vamos a sobrar gente =)
Y por ultimo hago lo que fuese en cuanto a scripting como add-ons, todos sabran los que me conozcan que para armar cosas elementales de un script no sirvo… prefiero mas tirarles algunas ideas aca y asi ir colaborando y si alguna vez armo algo lendo se lo presto para que vean y hagan lo que quieran.
Después, en cuanto al contenido del script propuesto por qwerty estoy de acuerdo en todo y agrego algunas cosas:
en cuánto a lo de la deteccion de DoS digo yo, ¿se puede? si, se puede pero… eso creo que para la gente de conex. via dial-up no les conviene, tal vez trave mucho el script.
Despues en cuanto a la visualizacion, estoy SUPER de acuerdo de usar el sistema MTS y si se puede armar algo con la engine de qwer todo joya pero el unico detalle es q como theme predeterm deberían de poner mi theme ;-) adrIRC, bajenla desde mircscripts.org espero que pronto publiquen el update sino no vale la pena verla. Aun me falta sumarle mas schemes, eso si.
por ultimo esa idea de la barra GUI me parecio muy buena si es lo que me imagino, la onda tipo la que tiene el “siRC” (vean mircscripts.org).
18 years, 1 month ago
La idea de la barra Gui es estilo la del looksharp o del ircap, con un mp3 player ahi al alcanze todo el tiempo. Tambien podemos usar el dll de GrimZ el menueditor, asi cambiamos por completo la barra del mIRC y dejamos la barra gui solo para el mp3 player y algo urgente, como un “mostrador de mensajes importantes” (Ataques, Logs del Firewall, etc).
18 years, 1 month ago
PD: Sobre lo de la mTS Engine empezemos a trabajar sobre la que hice:
http://www.zerodx.tk para los que no la tienen. Ademas me gustaria agregar al medidor de lag la variante de que sea en milisegundos, y si nos animamos a ponerlo en el toolbar del mIRC. Eso lo haria quedar realmente bien.
18 years, 1 month ago
Angel, conta conmigo para lo que quieras, yo puedo dedicarme a full los fines de semana y algun ratito a la noche, perdon por no leer esto antes, pero me habia enculado por algo que habia pasado con el board (no con el foro de IRC) y no entre….
Cuenten conmigo para lo que quieran, como los tarados de ICQ perdieron mi pass y tan viendo como me lo devuelven (eso dice en el mail), no lo puedo usar fuera de mi casa, asi q ponganme en su contacto del msn please [email protected] , diganme q hago y lo empiezo, tambien diganme cual seria la perspectiva, si un script onda q cosa…..
Xq si empezamos un IRCap empiezo ya a hacer PELOTUDECES, si hacemos algo un poco mas grosso necesito ponerme a pensar en algo innovador… asi q decidan y vamos, cuenten conmigo
18 years, 1 month ago
bueno che este es un addoncito medio pedorro que hice de escrituras sientanse libres de cambiarle lo que quieran, no usarlo, etc. Espero que les sriva de algo. Los archivos van todos en la carpeta base del mirc.
18 years, 1 month ago
Hey, yo mañana empiezo con lo del jukebox, yo habia ideado un mp3 player medio pesadito, y bastante bugeado de vago q soy, asi q lo mejoro un toke y lo subo, a mi me copo y a quienes se lo mostre tambien, ojala les guste.. nos vemos mañana!
18 years, 1 month ago
que boludo me olvide de ponerle algun popup
para abrir el dialogo pongan en la barra:
/dialog -mdo escritura escritura
disculpen
18 years, 1 month ago
Trata de no usar graficos, de hacer ‘alias -l’ y que todo caiga bajo algo como jukebox.play, jukebox.stop, y asi… asi despues le metemos una grafico que nos ayuda la gente mas canchera en el tema (la del foro de Diseño).
Tambien estaria bueno un playlist (dialogo+mdx, si necesitas iconos pedime), todo recomendaciones si no te gusta algo hacelo a tu estilo y despues lo vemos.
18 years, 1 month ago
El addon a ´FacuX` se lo mangue yo, esta bueno. Por ahi le mejoremos un poco el dialogo y adaptemos el codigo, pero tambien es una base para empezar a laburar. Todos estan interiorisados con lo de mTS y de acuerdo?. Asi paso una version mas renovada de la engin (con soporte para mTS 1.2).
18 years, 1 month ago
No entiendo nada pero nada de lo que hablan pero me ofrezco como BETATESTER que para eso no hay que saber mucho o eso al menos creo.Cuenten conmigo.
18 years, 1 month ago
Mejor, un betatester que sepa al respecto por ahi obia cosas que un ignoto del tema veria mas claramente. Igual faltan un par de semanas de desarollo, yo te mando un msg cuando este o date unas vueltas cada tanto por aca.
18 years, 1 month ago
Okey… hago la base sin grafico y q depues algun capo haga el diseño (gracias a la school del orto retrazo la publicacion de mi trabajo un dia )
18 years, 1 month ago
Si, el colegio nos tiene para el cachetaso a todos en estos dias.
Che, fijense que en unas horas mas o menos posteo la mTS Engine nueva, con soporte para mTS 1.3. Estence atentos.
18 years, 1 month ago
Insisto una vieja idea que ya se habia hablado entre gonx y qwer hace un tiempo… taría bueno armarle algun tipo de juego <siempre multiplayer, obvio>. Yo no me anoto para hacerlo porque es mas de lo que se, no tengo idea siquiera de como arrancar.
Si alguno se le ocurre hacer algo bienvenido sea, solo tiro la idea ;-) Por ejemplo me encantaría jugar al Ajedrez o un truco!
18 years, 1 month ago
Gonx esta haciendo un addoncito propio sobre un truco, despues se le podria agregar la idea que pusiste vos de los “requisitos” que tienen que tener los addons del Script para vos y listo, con eso ya lo tendriamos. Igual ahora laburemos sobre la base del script, theme engine esta andando, estoy testeando una que ya tengo andando con los standar 1.0 1.1 1.2 y 1.3 inclusive, aunque hay algo de los dos ultimos que aun no da al 100% de su capacidad (lo de las multiple fonts).
Despues posteo aca el codigo de la nueva engine y depaso agarren y vallan pensando en las protecciones.
Facu ya puso su addon de los estilos de escritura, eso es algo para ir viendo. Creo que puedo acelerarlo aun mas.
18 years, 1 month ago
on *:INPUT:#: {
/.msg # $1-
if ($1 ison #) {
; aca le meten el sistema de decoracion de nicks q kieran, yo puse eso como ejemplo
if ($me isop #) { /echo # $left($1,3) $+ $right($1,-3) $2- | .halt }
if ($me ishop #) { /echo # $left($1,3) $+ $right($1,-3) $2- | .halt }
if ($me isvoice #) { /echo # $left($1,3) $+ $right($1,-3) $2- | .halt }
if ($me isreg #) { /echo # $left($1,3) $+ $right($1,-3) $2- | .halt }
}
else {
if ($me isop #) { /echo # $1- | .halt }
if ($me ishop #) { /echo # $1- | .halt }
if ($me isvoice #) { echo # $1- | .halt }
if ($me isreg #) { echo # $1- | .halt }
}
}
Eso es bien sencillo, pero necesario en cualquier script, el comentario se refiere a que hay q idar un sistema de decoracion, yo lo haria, pero prefiero q los muchachos de diseño digan q diseño queda lindo antes de trabajar.
18 years, 1 month ago
agustin creo que no sabes lo que es una “mts engine” y para que sirve. visita
Con la mts engine de qwerty ya estaria todo eso hecho, bah… con la engine cargas themes y con las themes ya tenes esos detalles. en todo caso habría que armar una theme default del script. yo estoy ideando agregar mas schemes a la mía y cambiar el prefijo por el redondelito (alt+3) –> •
Ejemplo:
0 11• Quits00 eSlacK 11(Reason: iNGENI{} ScripT ver: 2.0 ()11)
ó
0 11::: Quits00 eSlacK 11(Reason: iNGENI{} ScripT ver: 2.0 ()11)
y después están:
0 11›› Joins 11(00#warez11)00: 11satanas
0 11‹‹ Parts 11(00#warez11): 11satanas
0 11::: Error:00 Cannot join #Fenix 11(Reason:00You're Banned (+b)11)
18 years, 1 month ago
Es verdad, fijate bajando mi mts engine y un par de themes de mircscripts.org.
Aca dejo el readme de una version vieja del engine, pero es el unico que hice en castellano. Asi sacan info y la van aprovechando:
Publicado por qwerty en el mTS Engine 1.0Alpha2: “Readme-es.txt”
qwerty's mIRC Theme Standard Engine
———————————– - - -
Simplemente un hermoso sistema de themes que permite que
vean mucho mejor las giladas que decimos en el chat.
Instalación:
———————————– - - -
1ro: Descompriman mts-engine-1.0Alpha.zip en alguna carpeta
Ej.: C:\Archivos de Programa\mIRC\
2do: Ejecuten el mIRC, si no esta andando, y carguen el archivo
mts-engine.mrc como un script remoto:
Ej.1: Tipear en la ventana del status del mIRC:
/load -rs C:\Archivos de Programa\mIRC\mTS-Engine.mrc
Ej.2: Ir al menú Tools > Remote… (Alt+R). En el “mIRC Editor”
ir al menú File > Load > Script.. y en el dialogo que
aparece seleccionar el archivo mts-engine.mrc y darle OK.
3ro: Aparece un dialogo en el que nos pide seleccionar un archivo .mts,
donde hallan descomprimido el archivo se habrá creado una carpeta
\Themes, allí hay una selección de estos archivos.
4to: Una ves elegido el archivo apretar “Load theme”.
Ej.: \Themes\BoAmp\boamp.mts
Listo.
Uso
———————————– - - -
Ahora tiene un sistema de themes 100% operante, aunque le faltan cosas
por hacer (ver Lista ToDo). Simplemente cambia el aspecto del mIRC y
permite modificarlo cuantas veces quieran usando los archivos .mts que
vienen con el paquete o que se pueden conseguir en los links de la
sección info de este archivo.
Para cambiar el aspecto aparecerá una opción en el menú Command del mIRC
llamada “Load theme…” y que mostrara el mismo dialogo que el paso 3 de
la instalación.
Notas
———————————– - - -
Este addon no debe ser usado con otro script que cambie el aspecto del
mIRC. Ej.: Usarlo con el looksharp causara problemas.
ToDo
———————————– - - -
- Sonidos.
Todavía no reproduce los sonidos, pero tampoco hay themes que los
usen por ahora así que no tengo apuro en esto.
- Dialogo.
Un buen dialogo que haga previews de las themes y muestre la
información que traen.
- Theme Downloader.
Una opción (que se veria en el dialogo) que permitiría bajar las
themes directamente de la web de mircscripts.org sin necesidad de
entrar ahí con el navegador.
- Corregir muchos bugs.
Para esto necesito que la testen.
Info
———————————– - - -
* AngelCaidoLabs:
http://AngelCaidoLabs.com.ar
* mIRC Theme Standard:
http://www.mircscripts.org/mts.php
* Themes:
http://www.mircscripts.org/files.php?type=theme
or
http://www.scriptaz.com/archives.php?view=themes
Contacto
———————————– - - -
qwerty <[email protected]>
http://AngelCaidoLabs.com.ar
Reflexión
———————————– - - -
No puedes hacer nada a prueba de inveciles por que estos son
muy ingeniosos.
Despues les tengo que pasar esa mas nueva… tambien podria hacerle un readme en castellano ¿no?
18 years, 1 month ago
Screenshot:
Asi se ve con la theme crk, en su momento me gustaba mucho esta theme pero ahora prefiero la pulsar, igual se pueden cambiar mientras estas chateando sin necesidad de reiniciar el script ni nada raro.
18 years, 1 month ago
che, no va mas meterse diciendo “conta conmigo” o decir “me anoto para el diseño”. Entren y dejen un trabajo, ahi ya son parte de esto y de a poco se arma el scri' =P
18 years, 1 month ago
Bueno, veamos como sigue esto: .zip
Esa engine tiene soporte para mTS 1.3 y List*, ahora habria que ponernos las pilas en testearla, asi depaso me ayudan y seguimos con algo
Agustin: Como va esa Jukebox?
ramm: Vos que estas haciendo exactamente?, si no estas haciendo nada te copas con un nick completor y un buen servicio de escrituras (usando la base que nos dejo Facu) asi agarramos y terminamos con el manejo de texts.
18 years, 1 month ago
Seguro va a tener cosas de XDCC, DCC, Warez en general, es mas hasta estube viendo si un addon que estaba haciendo para mi script tambien lo pongo aca (un navegador de FServers).
¿PREACHER vos sos el del Cathedral Script?
18 years, 1 month ago
¿Te gustaria sumarte a esto?
Por ahi te acuerdes de mi, chateamos hace un tiempo, qwerty de #warez en Ciudad Internet .
18 years, 1 month ago
uhh navegador de fservers??? que sarpado
taria bueno hacer uno con la interface de cuteftp o algo así.
Había uno q venia con el orbital o el killer zombie creo q era un administrador de ftp, se podría tomar ese de base……………..
perdon si digo alguna incoherencia, estoy bajo los efectos de los alcaloides
18 years, 1 month ago
Jua!, no es bueno internet + drogas, hace mal a la salud.
Yo pense mas en tomar mas la interfase del WS Ftp, me parece mas intuitiva aun.
18 years, 1 month ago
PREACHER: Deci que queres hacer, asi es mas comodo. Por ahora creo que Agustin se esta ocupando del mp3 player, las protecciones son una pabada… solo necesitan un buen dialogo pero eso lo tengo casi cocinado, me pongo algun dia y lo termino. Lo de los DCC pense en sacar de mi script eso, y la engine para las themes usemos la mia, es mucho bardo hacer otra . Asi que sabiendo eso elegi a que te tiras.
18 years, 1 month ago
MM
dejame pensar.
A mi si hay algo que me gusta es crear cosas BIEN originales y lo más simples posibles (dado q hace mucho q no scripteo).
Cualquiier cosita avisame.
Es con lal ultima version del mIRC, no?? (No scripteo desde la ver 5.81 jeje asiq me tengo q poner al dia porq me dijeron que hay varias cosas copadas nuevas)
18 years, 1 month ago
Si, con la ultima version (6.01 por ahora). De la 5.81 cambiaron bastantes cosas… lo mas importante es lo de conexiones simultaneas a varios servers (/scid, $cid, etc), despues el resto es lo mismo pero agregandole eso en su mayoria.
18 years, 1 month ago
mmmm que hago que hago…..sr. qwerty ando medio colgado como vera…. le cuento que me encargo de antispam io, el tema es que como hacemos para concordar un poco los dialogs, y ke no keden tan disparejo, vió , en todo caso hago el codigo y depues alguien haga los dialogs, o a partir del primero ke tire algun dialog de cualquier cosa, seguir esa linea….
en 2do lugar, agrego un ctcp Manager ke ta pasable.
nos vemos…
18 years, 1 month ago
Hagamos los codigos primero, despues emparejamos eso. Y despues le hacemo dialogos, como regla general tratemos de que las configuraciones se guarden en hash tables asi despues es mas facil pasarlo a dialogos. Les parece?
18 years, 1 month ago
Lokos.. recien empiezo a meterme con los codigos de script… asi que no puedo aportar creo… pero me encanta la idea ke tuvieron, sigan asi, los apoyo completamente.. y obvio ke kiero ser betatester, digan de donde se puede bajar algo mas o menos usable o terminado para probarlo y ahi estare..
17 years, 11 months ago
Aparentemente no esta funcionando mucho esto asi que por ahora saco el tema de importatne, cuando halla mas scripters (Espero que este semi curso que estoy posteando a medida que puedo ayude) Pondre la idea devuelta, por ahora no hay mucho tiempo para trabajarlo aparentemente asi que sera hasta la proxima.
17 years, 11 months ago
bueno me las arreglo, vos decime que queres de la forma mas sencilla posible y algo puedo tirar.
¿un panel de control con 25 botones? puedo o lo que te ocurra.
Un dialog con varias solapas… tambien.
Un sitema away.
Un reproductor mp3.
cosas asi y de produccion propia. Nada de plagios (feo pero mio)
En fin lo que este a mi alcance.
Sal2.
17 years, 11 months ago
;fue echo con onda y medio a las apuradas se puede mejorar, Obiboi
alias script {
set %Obi $dialog(script)
if (%obi) unset %Obi
else dialog -mdo script script
}
dialog script {
title “DialogdePrueba”
size 222 271 509 185
menu “Opcion1”, 12
menu “Opcion2”, 13
menu “opcion3”, 14
box “Script”, 15, 9 0 488 156, disabled
button “Boton uno”, 1, 41 33 88 24
button “Boton Cinco”, 2, 41 73 88 24
button “Boton Dos”, 3, 145 33 88 24
button “Boton seis”, 4, 145 73 88 24
button “Boton Tres”, 5, 241 33 88 24
button “Boton Siete”, 6, 241 73 88 24
button “Boton Cuatro”, 7, 337 33 88 24
button “Boton Ocho”, 8, 337 73 88 24
radio “Lo que quieras”, 9, 57 121 107 16
radio “Lo que quieras2”, 10, 57 137 123 16
link "http://lafuturapaginadelscript“, 11, 281 129 216 16
button ”&Hide", 16, 0 0 0 0, hide Ok
}
on *:dialog:script:sclick:1: { /boton uno }
on *:dialog:script:sclick:2: { /boton cinco }
on *:dialog:script:sclick:3: { /botondos }
on *:dialog:script:sclick:4: { /boton seis }
on *:dialog:script:sclick:5: { /boton tres }
on *:dialog:script:sclick:6: { /boton 7 }
on *:dialog:script:sclick:7: { /boton cuatro }
on *:dialog:script:sclick:8: { /boton 8 }
on *:dialog:script:sclick:9: { /loquequieras }
on *:dialog:script:sclick:10: { /loquequieras2 }
on *:dialog:script:sclick:11: { run http://lapaginadelscript }
; lo que haga falta al servicio de la causa espero que toleren mi dislexia en los dedos y que “no se” sea una respuesta valida.
En cuanto al reproductor lo envi cuando quieras y lo demas tambien
17 years, 11 months ago
se activa con /script (que original no?)
Se le puede agrgar un icono sonido ante cualquier evento y otras cosas.
Al fin y al cabo que tiene que tener un buen script
Buenos graficos
muchos sonidos
y que escriba en colores XD
17 years, 11 months ago
;“reproductor” mp3 usa el winamp u otro en remotes
Alias setup {
set %mp3.dir $sdir=“Localiza tus mp3” | /echo -a mp³ directorio: %mp3.dir
set %mp3.player $findfile(c:\,winamp.exe,1) | /echo -a mp³ Reproduciendo: %mp3.player
}
Alias playmp3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir=“MP3 directorio” }
if (%mp3.player == $null) { set %mp3.player $dir=“Donde esta tu reproductor? (winamp.exe)” winamp.exe }
%mp3.dir1 = %mp3.dir $+ \ $+ *.mp?
set %mp3 $dir=“Cual MP3 queres reproducir?” %mp3.dir1
if (%mp3 == $null) { goto end }
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 8,2 $replace($remove($lower($nopath(%mp3)),.mp2,.mp3), _,_) ..2 11- 0,12
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
Alias randomp3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir=“Directorio de MP3” }
if (%mp3.player == $null) { set %mp3.player $dir=“Ubicacion del winamp (winamp.exe)” *.exe }
set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)
set %rand.mp3.2 $rand(1,%rand.mp3.1)
set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say (Reproducir 12 $replace($remove($lower($nopath(%mp3)),.mp2,.mp3), _,_) ..2
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
alias playlist {
set %mp3.list.starttime $ctime
set %mp3.list.nick $me
set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt
window -dhnal @list
$findfile(%mp3.dir,*.mp3,@list)
set %mp3.list.total $findfile(%mp3.dir,*.mp3,0)
write %mp3.list.textfile $cr
write -c %mp3.list.textfile $me $+ 's Mp3 List by: j00r mum
write %mp3.list.textfile type ! $+ $me nombre.mp3 en el canal.
write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 archivos
set %mp3.list.count 1
set %mp3.list.filesize.total 0
set %mp3.list.file.lastdir “”
:next
set %mp3.list.file $line(@list,%mp3.list.count)
set %mp3.list.file.dir $nofile(%mp3.list.file)
set %mp3.list.file.name $nopath(%mp3.list.file)
set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3)
set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count))
if (%mp3.list.file.dir != %mp3.list.file.lastdir) {
write %mp3.list.textfile $cr
write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ]
write %mp3.list.textfile $cr
}
else { }
set %mp3.list.file.lastdir %mp3.list.file.dir
if %mp3.list.count > 1 {
if %mp3.list.filesize > %mp3.list.filesize.high {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filename.high %mp3.list.file.name }
elseif %mp3.list.filesize < %mp3.list.filesize.low {
set %mp3.list.filesize.low %mp3.list.filesize
set %mp3.list.filename.low %mp3.list.file.name
}
}
else {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filesize.low %mp3.list.filesize
}
write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB
inc %mp3.list.filesize.total %mp3.list.filesize
inc %mp3.list.count 1
if ( %mp3.list.count < %mp3.list.total ) { goto next }
:end
window -c @list
write %mp3.list.textfile
write %mp3.list.textfile $cr
if %mp3.list.filesize.total < 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB }
else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB }
set %mp3.list.time $calc($ctime - %mp3.list.starttime)
/run %mp3.list.textfile | echo -a mp3 La lista $calc(%mp3.list.total - 1) ha sido creada
}
alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) }
alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 }
alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps }
alias mp3.bitrate {
if (($1 == $null) || ($exists($1-) == $false)) return 0
set %_bitrate $read -l1 $1-
if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 }
set %_bitrate $asc($mid(%_bitrate,3,1))
.timer 1 1 unset %_bitrate
return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16))))
}
alias mp3.len {
if ($1 == $null) || ($exists($1) == $false) return 0m0s
else { return $dur($round($calc(($lof($1-) * .00smile / $remove($mp3.bitrate($1-),000)),0))) }
}
17 years, 11 months ago
Listo, tengo para revisar gracias Obiboi.
Che si te pones las lapis y le haces una interface copada podes llegar a anotar el reproductor en el concurso
17 years, 11 months ago
No tiene una interface por ahora, son lineas de comandos faltan algunas.

.:/playmp3
.:/randomp3
Y luego crear la lista con los mp3 que quieras o tengas.
Esto seria completo pero la segunda opcion a veces no funca bien en fin.
Bueno veo de anotarme.
17 years, 11 months ago
 

Buscar mensajes