0/5 (22 avis)
Vue 4 597 fois - Téléchargée 319 fois
;******************************************************************** ;*---------- Remote Radio-World-One ----- Version 2.1 ----- 02/09 -* ;******************************************************************** ;*---------------Created and Scripted by PsychoFlex-----------------* ;******************************************************************** ;* http://www.Another-world.fr / irc.Another-world.fr : 13005 * ;******************************************************************** ;********************* PsychoFlex@another-world.fr ****************** ;******************************************************************** ;*-IMPORTANT : NE PAS TOUCHER SINON CELA NE FONCTIONNE PLUS, MERCI!-* ;******************************************************************** ;******************************* ;*** DEFINITION MENU CHANNEL *** ;******************************* menu channel { Radio-World-One: Radioworldone } ;*************************** ;*** DEFINITION DIALOGUE *** ;*************************** dialog Radio { title "Radio-World-One Player" icon $scriptdirbmp\Another.ico, 0 size -1 -1 157 60 option dbu box " Radio-World-One ", 1, 5 3 147 55 list 2, 8 40 15 15, size list 3, 22 40 15 15, size list 4, 36 40 15 15, size list 5, 50 40 15 15, size check ">", 6, 138 13 10 10, push button "Annoncer", 7, 100 41 35 12, center edit "", 8, 8 27 141 10, read center autohs text "<< Actuellement à l'Antenne >>", 9, 45 15 85 8, right edit "", 10, 8 14 30 10, read center combo 11, 8 65 140 40, size drop } on 1:dialog:Radio:*:*: { if ($devent == init) { if ($hget(WorldOne) != WorldOne) hmake WorldOne 100 .World.Plug .WorldOne.stop mdx SetMircVersion $version mdx MarkDialog $dname $dialog(radio).hwnd radio mdx SetBorderStyle $dname 8,10 clientedge mdx SetBorderStyle $dname 6,7 staticedge mdx SetFont $dname 1,6,7,8,9,10,11 14 900 Arial mdx SetColor 2,3,4,5,6,7,9 background $rgb(1,2,30) mdx SetColor 9 textbg $rgb(1,2,30) mdx SetColor 9 text [ $rgb(192,192,192) ] mdx SetColor 8,10 background $rgb(0,0,0) mdx SetColor 8,10 textbg $rgb(0,0,0) mdx SetColor 8,10 text [ $rgb(55,155,255) ] mdx SetColor 1 background $rgb(180,180,180) mdx SetDialog $dname bgcolor $rgb(1,2,30) mdx SetControlMDX $dname 2,3,4,5 ToolBar flat nodivider > $bars mdx SetBorderStyle $dname 2,3,4,5 did -i $dname 2,3,4,5 1 bmpsize 22 22 did -i $dname 2 1 setimage +nh 0 bmp $img(Lecture) did -i $dname 3 1 setimage +nh 0 bmp $img(vol+) did -i $dname 4 1 setimage +nh 0 bmp $img(vol-) did -i $dname 5 1 setimage +nh 0 bmp $img(Sons) did -a $dname 2 1 $chr(9) $+ Lecture/Stop did -a $dname 3 1 $chr(9) $+ Augmenter le Volume did -a $dname 4 1 $chr(9) $+ Diminuer le Volume did -a $dname 5 1 $chr(9) $+ Mode Silence did -a $dname 11 Canal Actif did -a $dname 11 Tous les Canaux du Serveur did -a $dname 11 Canal Actif sur Tous les Serveurs did -a $dname 11 Tous les Canaux de Tous les Serveurs if ($gettok(%WorldOne,1,32) > 0) did -c $dname 11 $gettok(%WorldOne,1,32) else did -c $dname 11 1 if ($gettok(%WorldOne,2,32) > 0) var %a $WorldOne.Amp(misc,setvolume $gettok(%WorldOne,2,32)) if ($gettok(%WorldOne,3,32) = 0) did -u $dname 6 did -ra $dname 6 $iif($gettok(%WorldOne,3,32) = 1,<,>) dialog -sb $dname -1 -1 157 $iif($gettok(%WorldOne,3,32) = 1,80,60) } if ($devent == sclick) { if ($did == 2) WorldOne.lecture if ($did == 3) World.vol +20 if ($did == 4) World.vol -20 if ($did == 5) { if ($rrad(Sons) == off) { vol -vu1 $vol(master) | did -i $dname 5 1 setimage +nh 1 bmp $img(SSons) | .wrad Sons on } | else { vol -vu2 $vol(master) | did -i $dname 5 1 setimage +nh 1 bmp $img(Sons) | .wrad Sons off } } if ($did == 6) { set %WorldOne $did(Radio,11).sel $mid($dll($WorldOne.Amp,Misc,getvolume),4) $did(Radio,6).state did -ra $dname 6 $iif($gettok(%WorldOne,3,32) = 1 ,<,>) dialog -sb Radio -1 -1 157 $iif($gettok(%WorldOne,3,32) = 1,80,60) } if ($did == 7) .timerRWO 1 3 WorldOne.All $did(Radio,11).sel écoute 6[8 $hget(WorldOne,stream) 6]11 sur 6[9 #13Radio9-13World9-13One 6]9-13[ 6A9-13n9-6o9-13t9-6h9-13e9-6r9-15-9-6S9-13c9-6r9-13i9-6p9-13T6?9-13V06 $+ 209 $+ .06 $+ 0 13] } if ($devent == close) { set %WorldOne $did(Radio,11).sel $mid($dll($WorldOne.Amp,Misc,getvolume),4) $did(Radio,6).state WorldOne.stop } } ;**************************** ;*** DEFINITION DES ALIAS *** ;**************************** alias F7 Radioworldone alias Radioworldone dialog $iif($dialog(Radio),-ie Radio Radio,-omd Radio Radio) alias -l mdx { var %dll = $scriptdir\dll\mdx.dll | return $dll(%dll,$1,$2-) } alias -l bars return $scriptdir\dll\BARS.MDX alias -l WorldOne.Amp return $scriptdirplugins\amp_in.dll alias -l img { return $scriptdirbmp\ $+ $$1 $+ .bmp } alias -l wrad { .writeini Radio-World-One\Radio-World-One.ini Setup $1- } alias -l rrad { return $readini(Radio-World-One\Radio-World-One.ini,Setup,$1) } alias -l Radioworld { return $readini(Radio-World-One\Radio-World-One.ini,WorldOne,$1) } alias -l World.Plug { var %a $dll($WorldOne.Amp,PluginManager,load input $scriptdirplugins\in_vorbis.dll) var %a $dll($WorldOne.Amp,PluginManager,load input $scriptdirplugins\in_mp3.dll) var %a $dll($WorldOne.Amp,PluginManager,load output $scriptdirplugins\out_ds.dll) } alias -l t.f return $iif($len($1) == 1,$+(0,$1),$1) alias -l WorldOne.time { var %a $gettok($dll($WorldOne.Amp,CurrentMusic,position),2,32),%x $int($calc(%a / 1000 / 60)) var %h $int($calc(%x / 60)),%m $int($calc(%x - %h * 60)),%s $int($calc(%a / 1000 - 60 * %x)) var %b $+($t.f(%h),:,$t.f(%m),:,$t.f(%s)) if ($did(Radio,10) != %b) did -ra Radio 10 %b } alias -l WorldOne.afftime { WorldOne.time var %a $WorldOne.current if ($did(Radio,8) != %a) { did -ra Radio 8 %a | did -u Radio 8 1 1 } } alias -l WorldOne.lecture { if ($dll($WorldOne.Amp,CurrentMusic,status) == OK playing) { WorldOne.stop | did -i Radio 2 1 setimage +nh 1 bmp $img(Lecture) } else { var %b $Radioworld(adresse) if $right(%b,3) != ogg { var %a $dll($WorldOne.Amp,Play, $+ %b $+ .mp3) } else var %a $dll($WorldOne.Amp,Play,%b) .timerWorldOne -iom 0 1000 WorldOne.afftime did -i Radio 2 1 setimage +nh 1 bmp $img(Stop) } } alias -l WorldOne.stop { var %a $dll($WorldOne.Amp,Stop,.) did -i radio 2 1 setimage +nh 1 bmp $img(Lecture) .timerWorldOne off did -r Radio 8 did -ra Radio 10 --:--:-- } alias -l World.vol { var %a $dll($WorldOne.Amp,Misc,setvolume $calc($mid($dll($WorldOne.Amp,Misc,getvolume),4) + $1)) var %a $mid($dll($WorldOne.Amp,Misc,getvolume),4) if (%a < 0) var %a $dll($WorldOne.Amp,Misc,setvolume 0) elseif (%a > 260) var %a $dll($WorldOne.Amp,Misc,setvolume 260) } alias -l WorldOne.current { if ($mid($dll($WorldOne.Amp,CurrentMusic,status),4) != stopped) { var %a $mid($dll($WorldOne.Amp,CurrentMusic,title),3) var %b $remove(%a,$chr(40),$chr(41),$chr(93),$chr(91),$chr(123),$chr(125)) if (($chr(40) isin %a) && ($len($gettok(%a,1,40)) > 1) ) { hadd WorldOne stream $gettok(%a,1- $+ $WorldOne.testtitreradio(%a) $+ ,40) var %d = $wildtok(%a,#*,1,32) if ($hget(WorldOne,stream2) != %d) { hadd WorldOne stream2 %d } } else { if ((timed out isin %a) || (could not connect isin %a) || (unknown host isin %a)) { } elseif (([ICY 200 OK] isin %a) || (HTTP/ isin %a)) { hdel WorldOne stream2 } elseif (connecting isin %a) { hdel WorldOne stream2 | hadd WorldOne stream connection... } elseif (buffer isin %a) { hdel WorldOne stream2 | hadd WorldOne stream Mise en mémoire tampon... } else { if ($len($hget(WorldOne,stream2)) == 0) { hadd WorldOne stream $remove(%a,$chr(40),$chr(41)) hadd WorldOne stream2 $remove(%a,$chr(40),$chr(41)) } } } return $hget(WorldOne,stream) } else WorldOne.stop } alias -l WorldOne.testtitreradio { var %a $remove($1-,$chr(32)),%x $numtok(%a,40) while (%x) { if ($right($gettok(%a,%x,40),1) != $chr(41)) return %x dec %x } } on 1:ACTIVE:*: { if ($dialog(Radio) == Radio) && ($len($server) > 0) && (# isin $active) hadd WorldOne cid $cid $active } alias -l WorldOne.All { if ($mid($dll($WorldOne.Amp,CurrentMusic,status),4) != stopped) { if (1 == $1) { scid $gettok($hget(WorldOne,cid),1,32) describe $gettok($hget(WorldOne,cid),2,32) $2- } elseif (2 == $1) { scid $gettok($hget(WorldOne,cid),1,32) ame $2- } elseif (3 == $1) { Scon -at1 WorldOne.Aff $gettok($hget(WorldOne,cid),2,32) $2- } elseif (4 == $1) { Scon -at1 ame $2- } } } alias -l WorldOne.Aff { var %y $chan(0) while (%y) { if (($chan(%y) isin $1) || ($1 == ALL)) describe $chan(%y) $2- dec %y } } ON 1:LOAD:{ echo -a 12Merci $me $+ , d'avoir installé 6[13 Radio-World-One Player V2.1 6] 7By PsychoFlex 12et bonne utilisation et écoute 4!!! 9- 6( Petit Rappel : 13Il est conseillé d'être connecté pour l'utiliser 6) } ON 1:UNLOAD:{ echo -a 12Désinstallation de 6[13 Radio-World-One Player V2.1 6] 7By PsychoFlex 12est 4terminée, 12Merci pour votre utilisation de 4Radio-World-One Player!!! }
6 mars 2009 à 13:46
Cela fait plaisir de te voir ici.
18 févr. 2009 à 16:41
en plus contre qui? contre Vin :p je me fache jamais contre lui :)
pour le tokenize ça evite trop de calcules je pense que ça sera plus rapide
mes commentaires sont des idées a toi de voir ce qu'il te va :)
@+
16 févr. 2009 à 23:25
Je rectifie simplement sur le fait que je dois être l'un des plus rigoureux de ce site (relis donc mon premier com) ^^, ce n'est pas de la prétention, c'est au bien au contraire chiant pour les autres. Mais la rigeur s'applique à l'optimisation de calculs, l'amélioration des performances d'un algorithme, mais pas (dans la plupart des cas) à la sémantique du code. Par exemple :
if (%pouet == 1) {
echo -a ok
}
else {
echo -a pas ok
}
n'est pas moins rigoureux que
echo -a $iif(%pouet,ok,pas ok)
C'est simplement la syntaxe qui est optimisée dans le 2ème cas. Donc aucune notion de rigueur là-dedans.
On avait déjà eu de bons débats sur ce site pour évaluer la rapidité d'interprétation du parser mIRC quand on mettait trop d'accolades inutiles, ou bien les différences entre les notions $null, $false, $true, 0 et 1, etc...
Ensuite, je n'étais pas du tout faché ^^ et je pense que WorldDMT non plus (j'espère, du moins ^^).
Enfin, je voulais également revenir sur $scriptdir et $mircdir. Moi aussi ayant été jusqu'à maintenant sur la version 6.17, e ne comprenais pas pourquoi WorldDMT, tu t'obstinais à préciser ceci... et bien j'ai vu par moi même en passant sous la 6.35 ^^. Et tu avais raison. Les répertoires d'installation sont partagés en deux, c'est assez lourd (tout ça à cause de Vista...). Bref, sur ce coup là tu as eu raison d'insister (sur d'autres sources aussi).
16 févr. 2009 à 23:04
et oui j'ai ma facon de coder, qui est differente des facons des autres, la j'apprends pleins de choses que je connais pas, je test, j'observe, voit, pis déduit ce qui me correspond ou non !
Sinon j'ai mis %a pour une simple raison, c'est que si je met %b cela me retourne l'info mais erroné.
Sinon le fichier.ini n'est pas dans plugins, mais dans Radio-World-One, enfin bref, pour le tokenize, j'y avais pensé mais pas mis en pratique, par contre c'est interressant de voir comment chacun peut voir le code et comment il l'ecrirait, ca m'apprends beaucoup, merci encore a vous 2 :)
le -ie, c'est simplement que si le dialog est reduit il s'agrandit ( le but c'est un script que je monte pour des gens, qui sont des newbies, donc pas faire trop complexe, ni compliqué, et j'avoue mon script perso est bien different de celui que je monte ) la plupart des gens crée des scripts mais souvent sans penser au tous debutants, c'est cela que je cherche a faire, un script ou l'on peut personnaliser, et en meme temps, qui soit simple, rien de compliqué !
c'est pas un script Hightec, mais cela me permet de decouvrir beaucoup de chose sur le scripting, et les commandes existantes.
Et de permettre a des gens sans aucunes experiences de mirc ou du scripting, de se divertir et de se crée leur script.
Je le fais par plaisir d'apprendre et de partager.
Je vois dans la personnalité de WorldDMT, beaucoup de perfectionnisme et de rigueur, dans Uaip, beaucoup d'humanité, et de liberté.
Je suis un melange des deux, je veux un code propre, et humain ( mais s'il n'est pas parfait, je lui demande de bien fonctionner )
Sinon pour information, le mirc que j'utilise c'est un vieux mirc 6.17 en francais ( perso je tourne sous 6.21 ) par commodité de compatibilité, mais cela m'instruit beaucoup si je dois un jour passer a un mirc 6.31 ou plus. ($scriptdir)
Merci a vous 2 en tout cas, car j'apprends pleins de choses
16 févr. 2009 à 10:54
et ne pas utilisé le $scriptdir "est une faute" car a partir de la version 6.3 le $mircdir est different des autres versions inferieur et quand je vois par exp
".writeini Radio-World-One\Radio-World-One.ini Setup $1-" celà veux dire que le chemin est $mircdir dans la version 6.21 j'explique encore plus le dossier "Radio-World-One" est dans le dossier du mIRC (a coté de l'icone mirc.exe) mais dans la version 6.32 ça passe pas pareil.
et en plus le fichier.ini est dans un dossier qui s'appel "plugins" donc ça j'appel ça une faute
pour le reste j'ai presisé en disant "si tu veux" donc juste une proposition :)
d'apres qu'il a demandé des idées bien avant
@+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.