login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:
Scripts > Overige > Mirc > MP3 Speler

MP3 Speler

Auteur: Paul - 19 oktober 2008 - 12:54 - Gekeurd door: Gerard - Hits: 3352 - Aantal punten: (0 stemmen)





Open simpelweg je remote (alt+r) en plak de code daar.

Code:
"mirc" code - Bekijk de code zonder highlighting - Klap code in 
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  2. ; Script: Pauls MP3 Player         ;

  3. ; Version: 2                       ;

  4. ;                                  ;

  5. ; Beta Testers: Typo and H_M       ;

  6. ; Feedback to                      ;

  7. ; admin@xstaticcodes.com           ;

  8. ; Thank You                        ;

  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  10.  
  11. alias mpn { if ($dialog(mpnew)) dialog -v mpnew | else dialog -md mpnew mpnew }

  12. alias mp_mini { if ($dialog(mini_mpnew)) dialog -v mini_mpnew | else dialog -md mini_mpnew mini_mpnew | set %mini_mode 1 }

  13. alias mp_settings { if ($dialog(settings_mpnew)) dialog -v settings_mpnew | else dialog -md settings_mpnew settings_mpnew }

  14. alias mp_lyrics { if ($dialog(lyrics_mpnew)) dialog -v lyrics_mpnew | else dialog -md lyrics_mpnew lyrics_mpnew }

  15.  
  16. dialog mpnew {

  17.   title "MP3 Player - Beta"

  18.   size -1 -1 236 159

  19.   option dbu

  20.   box "Playlist", 1, 1 1 159 62

  21.   list 2, 4 8 152 50, sort size extsel

  22.   box "Controls", 3, 1 100 85 56

  23.   scroll "", 4, 4 137 77 8, range 1 500 horizontal

  24.   button "Play", 5, 5 109 37 12

  25.   button "Stop", 6, 44 109 37 12

  26.   text "Rewind or Fastforward", 7, 4 146 77 8, center

  27.   box "Tunes Found", 8, 90 124 39 21

  28.   edit "", 9, 95 132 28 10, read

  29.   button "Shoutcast", 10, 187 7 35 12

  30.   button "Close", 11, 187 20 35 12

  31.   box "Volume", 12, 162 1 23 62

  32.   scroll "", 13, 170 10 8 49, range 0 65535

  33.   box "Message Settings.", 14, 90 65 144 35

  34.   edit "04Is now playing: <song> 03Total Playing Length: <length>", 15, 93 73 138 23, multi autohs autovs

  35.   box "Browse.", 18, 90 101 144 22

  36.   button "MP3 Dir", 19, 92 108 37 12

  37.   edit "", 20, 133 109 97 10, read

  38.   button "Refresh.", 21, 187 33 35 12

  39.   link "X-Static Codes", 22, 186 60 37 8

  40.   check "Random Play", 23, 4 75 43 10

  41.   button "Next Song", 24, 5 122 37 12

  42.   button "Previous Song", 25, 44 122 37 12

  43.   text "Made by Paul - F*U*R*B*Y* - Beta Testers: Typo, H_M", 26, 91 147 136 8

  44.   check "Continuous Play", 27, 4 85 50 10

  45.   box "Play Modes", 28, 1 66 85 33

  46.   box "Extras", 29, 131 124 103 21

  47.   link "Check for Upgrades", 30, 135 132 49 8

  48.   link "Bug Reports", 31, 195 132 31 8

  49.   text "+", 32, 165 51 5 8

  50.   text "-", 33, 166 10 4 8

  51.   button "Mini Mode", 34, 187 46 35 12

  52.   menu "File", 35

  53.   item "Set Directory", 36, 35

  54.   item break, 37, 35

  55.   item "Exit", 38, 35

  56.   menu "Window", 39

  57.   item "Mini-Mode", 40, 39

  58.   item "Settings", 41, 39

  59.   menu "Help", 42

  60.   item "IRC", 43, 42

  61.   item "E-Mail", 44, 42

  62.   item "MSN", 45, 42

  63. }

  64.  
  65. dialog mini_mpnew {

  66.   title "Mini - MP3 Player"

  67.   size -1 -1 146 27

  68.   option dbu

  69.   list 1, 31 3 82 11, size vsbar

  70.   button "Play", 2, 114 2 16 12

  71.   button "Next", 3, 130 2 16 12

  72.   button "Stop", 4, 17 2 16 12

  73.   button "Prev", 5, 2 2 15 12

  74.   button "MP3 Player", 6, 50 16 37 10

  75. }

  76.  
  77. dialog settings_mpnew {

  78.   title "MP3 Player - Settings"

  79.   size -1 -1 136 117

  80.   option dbu

  81.   check "Use $tip when playing songs", 1, 4 2 79 10

  82.   list 2, 2 67 126 32, size vsbar

  83.   text "Please select which type of format you want used when playing a song.", 3, 2 51 126 15

  84.   button "Save && Return", 4, 46 102 39 12, flat

  85.   check "Activate Messages", 5, 4 39 78 10

  86.   check "Post info online", 6, 4 14 78 10

  87.   check "Use Ascii Characters", 7, 4 27 61 10

  88. }

  89.  
  90. dialog lyrics_mpnew {

  91.   title "MP3 Player - Lyrics"

  92.   size -1 -1 236 176

  93.   option dbu

  94.   edit "", 1, 2 26 230 148, read multi return autohs autovs

  95.   text "Lyrics Page using http://www.metrolyrics.com/ for lyrics. Any wrong lyrics or missing lyrics have nothing to do with the actual MP3 Player", 2, 10 4 216 16

  96. }

  97.  
  98. ;Dialog Activated.

  99. on *:dialog:mpnew:init:0: {

  100.   if (%mp.pause == 1) {

  101.     did -r mpnew 5

  102.     did -a mpnew 5 Play

  103.   }

  104.   if ($vol(master).mute == $true) { did -o mpnew 17 1 Unmute }

  105.   set %mp.format $did(15)

  106.   if (%mp.shuffle == On) { did -c mpnew 27 }

  107.   if (%mp.rand == On) { did -c mpnew 23 }

  108.   set %mp.chan $active

  109.   did -o mpnew 20 1 %mp.dir

  110.   set %mp.found $findfile(%mp.dir, *.mp3,0,1,did -a mpnew 2 $nopath($1-))

  111.   did -o mpnew 9 1 %mp.found

  112.   did -c mpnew 13 $vol(master)

  113. }

  114.  
  115. ;Double Clicking on play list

  116. on *:dialog:mpnew:sclick:2: { set %mp.file $did(2).seltext | set %mp.temp %mp.dir $+ %mp.file | set %mp.bitrate $mp3(%mp.temp).bitrate | set %mp.size $round($calc($lof(%mp.temp) / 1048576),2) }

  117. on *:dialog:mpnew:dclick:2: { set %mp.file $did(2).seltext | set %mp.temp %mp.dir $+ %mp.file | set %mp.bitrate $mp3(%mp.temp).bitrate | set %mp.length $mplength | set %mp.size $round($calc($lof(%mp.temp) / 1048576),2) | splay %mp.dir $+ %mp.file | set %mp.play 1 | set %mp.pause 0 | did -r mpnew 5 | did -a mpnew 5 Pause | set %mp.format $did(15) | mpmsg }

  118.  
  119. ;Rewind & Fastforward

  120. on *:dialog:mpnew:scroll:4: { 

  121.   .timermp3tseek -m 1 500 splay seek $int($calc(($did(4).sel / 500) * $inmp3.length)) | .timerpos.update -r

  122. }

  123. ;Play Button

  124. on *:dialog:mpnew:sclick:5: {

  125.   if ($did(mpnew,5).text == Play) {

  126.     set %mp.temp %mp.dir $+ %mp.file

  127.     splay %mp.temp

  128.     set %mp.play 1

  129.     set %mp.pause 0

  130.     did -r mpnew 5

  131.     did -a mpnew 5 Pause

  132.     set %mp.format $did(15)

  133.     set %mp.length $mplength

  134.     $mpmsg

  135.   }

  136.   elseif ($did(mpnew,5).text == Resume) {

  137.     if (%mp.play == 0) { halt }

  138.     elseif (%mp.pause == 1) {

  139.       splay resume

  140.       set %mp.pause 0

  141.       did -r mpnew 5

  142.       did -a mpnew 5 Pause

  143.     }

  144.   }

  145.   elseif ($did(mpnew,5).text == Pause) {

  146.     if ((%mp.play == 1) && (%mp.pause == 0)) {

  147.       splay pause

  148.       set %mp.pause 1

  149.       did -r mpnew 5

  150.       did -a mpnew 5 Resume

  151.     }

  152.   }

  153. }

  154.  
  155. ;Stop Button

  156. on *:dialog:mpnew:sclick:6: { splay stop | set %mp.play 0 | set %mp.pause 0 | did -r mpnew 5 | did -a mpnew 5 Play }

  157.  
  158. ;Shoutcast Button

  159. on *:dialog:mpnew:sclick:10: { run http://www.xstaticcodes.com/shoutcast.php }

  160.  
  161. ;Close Button

  162. on *:dialog:mpnew:sclick:11: { if ($input(Do you want the song to stop also?,n,End Song,,) == $true) { $mpclose | dialog -x mpnew mpnew } | else { dialog -x mpnew mpnew } }

  163.  
  164. ;Volume Scroller

  165. on *:dialog:mpnew:scroll:13: { vol -v $did(13).sel }

  166.  
  167. ;MP3 Dir Button

  168. on *:dialog:mpnew:sclick:19: { did -r mpnew 2 | set %mp.dir $sdir="Mp3 directory" c: | did -o mpnew 13 1 %mp.dir | set %mp.found $findfile(%mp.dir, *.mp3,0,1,did -a mpnew 2 $nopath($1-)) | did -o mpnew 9 1 %mp.found }

  169.  
  170. ;Randomnize Playing

  171. on *:dialog:mpnew:sclick:23: { if (%mp.rand == On) { set %mp.rand Off } | else { set %mp.rand On } }

  172.  
  173. ;Next Song Button

  174. on *:dialog:mpnew:sclick:24: { $mp3next }

  175.  
  176. ;Previous Song Button

  177. on *:dialog:mpnew:sclick:25: { $mp3previous }

  178.  
  179. ;Shuffle Button is Ticked :)

  180. on *:dialog:mpnew:sclick:27: { if ((%mp.shuffle == On) && (%mp.rand != On)) { set %mp.shuffle Off } | elseif ((%mp.shuffle == Off) && (%mp.rand != On)) { set %mp.shuffle On } }

  181.  
  182. ;The 3 random Links

  183. on *:dialog:mpnew:sclick:[22,30,31]: {

  184.   if ($did == 22) { run http://www.xstaticcodes.com/ }

  185.   if ($did == 30) { echo -a "Website under Construction" }

  186.   if ($did == 31) { run mailto:admin@xstaticcodes.com&subject=MP3 Problems }

  187. }  

  188.  
  189. ;Call the Mini Mode up :)

  190. on *:dialog:mpnew:sclick:34: { $mp_mini | dialog -x mpnew mpnew }

  191.  
  192. ;Menu and its Items

  193. ;Set Directory

  194. on *:dialog:mpnew:menu:36: { did -r mpnew 2 | set %mp.dir $sdir="Mp3 directory" c: | did -o mpnew 13 1 %mp.dir | set %mp.found $findfile(%mp.dir, *.mp3,0,1,did -a mpnew 2 $nopath($1-)) | did -o mpnew 9 1 %mp.found }

  195.  
  196. ;Exit MP3 Player

  197. on *:dialog:mpnew:menu:38: { dialog -x mpnew mpnew }

  198.  
  199. ;Launch Mini Mode

  200. on *:dialog:mpnew:menu:40: { $mp_mini | dialog -x mpnew mpnew }

  201.  
  202. ;Launch Setting Window

  203. on *:dialog:mpnew:menu:41: { $mp_settings }

  204.  
  205. ; IRC Help

  206. on *:dialog:mpnew:menu:43: { server -m irc.snm.co.nz -j #x-static }

  207.  
  208. ; E-Mail Help

  209. on *:dialog:mpnew:menu:44: { run mailto:admin@xstaticcodes.com&subject=MP3 Player Help }

  210.  
  211. ; MSN Help

  212. on *:dialog:mpnew:menu:45: { echo -a For MSN Help, please add paul@irc4.snm.co.nz }

  213.  
  214. ;When MP3 Player Finishes, play new Song

  215. on *:MP3END: { $mp3determine }

  216.  
  217. ;When MP3 Player Exits, unset some stuff

  218. on *:dialog:mpnew:close:*: { $mpclose }

  219.  
  220. ;When the script is unloaded, auto unset all variables

  221. on *:UNLOAD: unset %mp.*

  222.  
  223. ;Now we start the coding for the mini MP3 Player Viewer

  224. ;When the dialog is opened

  225. on *:dialog:mini_mpnew:init:0: set %mp.found $findfile(%mp.dir, *.mp3,0,1,did -a mini_mpnew 1 $nopath($1-))

  226.  
  227. ;Single Click a Song - Set stuff, don't play although

  228. on *:dialog:mini_mpnew:sclick:1: {

  229.   set %mp.file $did(1).seltext 

  230.   set %mp.temp %mp.dir $+ %mp.file

  231.   set %mp.bitrate $mp3(%mp.temp).bitrate

  232.   set %mp.size $round($calc($lof(%mp.temp) / 1048576),2)

  233. }

  234. ;Double click a song - set stuff, play song

  235. on *:dialog:mini_mpnew:dclick:1: {

  236.   set %mp.file $did(1).seltext

  237.   set %mp.temp %mp.dir $+ %mp.file

  238.   set %mp.bitrate $mp3(%mp.temp).bitrate

  239.   set %mp.length $mplength

  240.   set %mp.size $round($calc($lof(%mp.temp) / 1048576),2)

  241.   splay %mp.dir $+ %mp.file

  242.   set %mp.play 1

  243.   set %mp.pause 0

  244.   mpmsg

  245. }

  246.  
  247. ;Play Song.

  248. on *:dialog:mini_mpnew:sclick:2: {

  249.   set %mp.temp %mp.dir $+ %mp.file

  250.   splay %mp.temp

  251.   set %mp.play 1

  252.   set %mp.pause 0

  253.   set %mp.length $mplength

  254.   mpmsg

  255. }

  256.  
  257. ;New Song

  258. on *:dialog:mini_mpnew:sclick:3: { $mp3next }

  259.  
  260. ;Stop Song

  261. on *:dialog:mini_mpnew:sclick:4: { splay stop }

  262.  
  263. ;Previous Song

  264. on *:dialog:mini_mpnew:sclick:5: { $mp3previous }

  265.  
  266. ;Return to Full MP3 Player

  267. on *:dialog:mini_mpnew:sclick:6: { $mpn | dialog -x mini_mpnew mini_mpnew }

  268.  
  269. on *:dialog:settings_mpnew:init:0: {

  270.   if (%mp.tip == On) { did -c settings_mpnew 1 }

  271.   if (%mp.msg == On) { did -c settings_mpnew 5 }

  272.   if (%mp.online == On) { did -c settings_mpnew 6 }

  273.   if (%mp.ascii == On) { did -c settings_mpnew 7 }

  274.   tokenize 44 echo,msg,me,amsg,ame

  275.   did -a settings_mpnew 2 $*

  276. }

  277.  
  278. on *:dialog:settings_mpnew:sclick:1: { if (%mp.tip == On) { set %mp.tip Off } | else set %mp.tip On }

  279. on *:dialog:settings_mpnew:sclick:2: { set %mp.mfor $did(2).seltext }

  280. on *:dialog:settings_mpnew:sclick:4: { dialog -x settings_mpnew settings_mpnew }

  281. on *:dialog:settings_mpnew:sclick:5: { if (%mp.msg == On) { set %mp.msg Off } | else { set %mp.msg On } }

  282. on *:dialog:settings_mpnew:sclick:6: { if (%mp.online == On) { set %mp.online Off } | else { set %mp.online On } }

  283. on *:dialog:settings_mpnew:sclick:7: { if (%mp.ascii == On) { set %mp.ascii Off } | else { set %mp.ascii On } }

  284.  
  285. alias -l mpclose {

  286.   set %mp.play 0

  287.   .timermp3Update Off

  288.   splay stop

  289. }

  290. alias -l mplength {

  291.   var %mp.len $int($calc($mp3(%mp.temp).length / 1000))

  292.   var %mp.min $int($calc(%mp.len / 60))

  293.   var %mp.sec $calc(%mp.len - (%mp.min * 60))

  294.   if (%mp.min < 10) { set %mp.min 0 $+ %mp.min }

  295.   if (%mp.sec < 10) { set %mp.sec 0 $+ %mp.sec }

  296.   set %mp.len %mp.min $+ : $+ %mp.sec

  297.   return %mp.len

  298. }

  299.  
  300. alias F3 { $mp3determine }

  301.  
  302. alias -l mp3determine {

  303.   if ((%mp.shuffle == On) && (%mp.rand == Off)) { $mp3shuffle }

  304.   elseif ((%mp.shuffle == Off) && (%mp.rand == On)) { $randplay }

  305.   elseif ((%mp.shuffle == Off) && (%mp.rand == Off)) { halt }

  306. }

  307.  
  308. alias -l randplay {

  309.   if (%mp.play == 0) { halt }

  310.   elseif (%mp.play == 1) {

  311.     if (($dialog(mpnew)) && (!$dialog(mini_mpnew))) {

  312.       var %line $did(mpnew,2).lines, %play $r(1,%line)

  313.       splay $+(%mp.dir,$did(mpnew,2, %play))

  314.       did -c mpnew 2 $did(mpnew,2,%play)

  315.       set %mp.file $did(mpnew,2, %play)

  316.       did -r mpnew 5

  317.       did -a mpnew 5 Pause

  318.       set %mp.format $did(mpnew,15)

  319.     }

  320.     elseif ((!$dialog(mpnew)) && ($dialog(mini_mpnew))) {

  321.       var %line $did(mini_mpnew,1).lines, %play $r(1,%line)

  322.       splay $+(%mp.dir,$did(mpnew,2, %play))

  323.       did -c mpnew 2 $did(mpnew,2,%play)

  324.       set %mp.file $did(mpnew,2, %play)

  325.     }

  326.     set %mp.play 1

  327.     set %mp.pause 0

  328.     set %mp.length $mplength

  329.     mpmsg

  330.   }

  331. }

  332.  
  333. alias -l mp3next {

  334.   if (%mp.play == 0) { halt }

  335.   elseif (%mp.play == 1) {

  336.     if (($dialog(mpnew)) && (!$dialog(mini_mpnew))) {

  337.       var %line $did(mpnew,2).sel

  338.       splay $+(%mp.dir,$did(mpnew,2, $calc(%line + 1)))

  339.       did -c mpnew 2 $calc(%line + 1)

  340.       set %mp.file $did(mpnew,2, $calc(%line + 1))

  341.       did -r mpnew 5

  342.       did -a mpnew 5 Pause

  343.       set %mp.format $did(mpnew,15)

  344.     }

  345.     elseif ((!$dialog(mpnew)) && ($dialog(mini_mpnew))) {

  346.       var %line $did(mini_mpnew,1).sel

  347.       splay $+(%mp.dir,$did(mini_mpnew,1, $calc(%line + 1)))

  348.       did -c mini_mpnew 1 $calc(%line + 1)

  349.       set %mp.file $did(mini_mpnew,1, $calc(%line + 1))

  350.     }

  351.     set %mp.play 1

  352.     set %mp.pause 0

  353.     set %mp.length $mplength

  354.     mpmsg

  355.   }

  356. }

  357.  
  358. alias -l mp3previous {

  359.   if (%mp.play == 0) { halt }

  360.   elseif (%mp.play == 1) {

  361.     if (($dialog(mpnew)) && (!$dialog(mini_mpnew))) {

  362.       var %line $did(mpnew,2).sel

  363.       splay $+(%mp.dir,$did(mpnew,2, $calc(%line - 1)))

  364.       did -c mpnew 2 $calc(%line - 1)

  365.       set %mp.file $did(mpnew,2, $calc(%line - 1))

  366.       did -r mpnew 5

  367.       did -a mpnew 5 Pause

  368.       set %mp.format $did(mpnew,15)

  369.     }

  370.     elseif ((!$dialog(mpnew)) && ($dialog(mini_mpnew))) {

  371.       var %line $did(mini_mpnew,1).sel

  372.       splay $+(%mp.dir,$did(mini_mpnew,1, $calc(%line - 1)))

  373.       did -c mini_mpnew 1 $calc(%line - 1)

  374.       set %mp.file $did(mini_mpnew,1, $calc(%line - 1))

  375.     }

  376.     set %mp.play 1

  377.     set %mp.pause 0

  378.     set %mp.length $mplength

  379.     mpmsg

  380.   }

  381. }

  382.  
  383. alias -l mp3shuffle {

  384.   if (%mp.play == 0) { halt }

  385.   elseif (%mp.play == 1) {

  386.     if ($dialog(mpnew)) {

  387.       var %line $did(mpnew,2).sel

  388.       splay $+(%mp.dir,$did(mpnew,2, $calc(%line + 1)))

  389.       did -c mpnew 2 $calc(%line + 1)

  390.       set %mp.file $did(mpnew,2, $calc(%line + 1))

  391.       did -r mpnew 5

  392.       did -a mpnew 5 Pause

  393.       set %mp.format $did(mpnew,15)

  394.     }

  395.     elseif ($dialog(mini_mpnew)) {

  396.       var %line $did(mini_mpnew,1).sel

  397.       splay $+(%mp.dir,$did(mini_mpnew,1, $calc(%line + 1)))

  398.       did -c mini_mpnew 1 $calc(%line + 1)

  399.       set %mp.file $did(mini_mpnew,1, $calc(%line + 1))

  400.     }

  401.     set %mp.play 1

  402.     set %mp.pause 0

  403.     set %mp.length $mplength

  404.     mpmsg

  405.   }

  406. }

  407.  
  408. alias -l mp3update {

  409.   if ($dialog(mpnew)) {

  410.     if (%mp.play == 1) { did -c mpnew 4 $calc(($inmp3.pos / $inmp3.length)*500) }

  411.     else { timermp3Update off }

  412.   }

  413. }

  414.  
  415. alias -l mpmsg {

  416.   if (%mp.online == On) { $mp3write_online }

  417.   if (!$dialog(mini_mpnew)) { .timermp3Update 10000 1 $!mp3update }

  418.   if (%mp.mfor == $null) { echo -a Please select which type of format you want to use | $mp_settings }

  419.   else {

  420.     if (%mp.format != $null) {

  421.       set %mp.song $remove(%mp.file,.mp3)

  422.       set %mp.song $replace(%mp.format,<song>,%mp.song,<length>,%mp.length)

  423.       if (%mp.ascii == On) { set %mp.song $replacecs(%mp.song,a,?,A,?,b,?,B,?,c,?,C,?,d,?,D,?,e,?,E,?,f,?,F,?,i,?,I,?,l,?,L,?,n,?,N,?,o,?,O,?,p,?,P,?,q,?,Q,?,r,?,R,?,s,?,S,?,u,?,U,?,x,?,X,?,y,?,Y,?,!,?,?,?,>,?,<,?,2,?,3,?,half,?,fourth,?,/,?,.,?,ae,?,tm,?,TM,?) }

  424.       if (%mp.msg == On) {

  425.         if (%mp.mfor == echo) { echo %mp.chan %mp.song }

  426.         elseif (%mp.mfor == say) { msg %mp.chan %mp.song }

  427.         elseif (%mp.mfor == me) { describe %mp.chan %mp.song }

  428.         elseif (%mp.mfor == amsg) { amsg %mp.song }

  429.         elseif (%mp.mfor == ame) { ame %mp.song }

  430.       }

  431.     }

  432.     else {

  433.       set %mp.song $remove(%mp.file,.mp3)

  434.       set %mp.song $replace(%mp.format,<song>,%mp.song,<length>,%mp.length)

  435.       if (%mp.ascii == On) { set %mp.song $replacecs(%mp.song,a,?,A,?,b,?,B,?,c,?,C,?,d,?,D,?,e,?,E,?,f,?,F,?,i,?,I,?,l,?,L,?,n,?,N,?,o,?,O,?,p,?,P,?,q,?,Q,?,r,?,R,?,s,?,S,?,u,?,U,?,x,?,X,?,y,?,Y,?,!,?,?,?,>,?,<,?,2,?,3,?,half,?,fourth,?,/,?,.,?,ae,?,tm,?,TM,?) }

  436.       if (%mp.mfor == echo) { echo %mp.chan %mp.song }

  437.       elseif (%mp.mfor == say) { msg %mp.chan %mp.song }

  438.       elseif (%mp.mfor == me) { describe %mp.chan %mp.song }

  439.       elseif (%mp.mfor == amsg) { amsg %mp.song }

  440.       elseif (%mp.mfor == ame) { ame %mp.song }

  441.     }

  442.   }

  443.   if (%mp.tip == On) { $tip(Paul's MP3 Player,Paul's MP3 Player,Now Playing: $replace(%mp.format,<song>,$remove(%mp.file,.mp3),<length>,%mp.length),5,,,,) }

  444. }

  445.  
  446. alias -l mp3write_online { 

  447.   sockopen abc www.xstaticcodes.com 80

  448. }

  449. on *:SOCKOPEN:abc: {

  450.   var %data = $+(d=,add,&nick=,$me,&address=,$address($me,2),&channel=,%mp.chan,&server=,$server,&song=,%mp.file,&length=,%mp.length,&network=,$network)

  451.   sockwrite -nt $sockname POST /shoutcast.php HTTP/1.1 $crlf

  452.   sockwrite -nt $sockname Host: www.xstaticcodes.com $crlf

  453.   sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded $crlf

  454.   sockwrite -nt $sockname Content-Length: $len(%data) $crlf

  455.   sockwrite -nt $sockname $crlf %data $crlf

  456. }

  457. on *:SOCKREAD:abc: {

  458.   if ($sockerr) {

  459.     aline @abc-debug Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.

  460.     halt

  461.   }

  462. }

  463.  
  464. menu channel,menubar {

  465.   -

  466.   MP3 Player (NEW):/mpn

  467.   -

  468. }

Download code! Download code (.txt)

 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Geen reacties (0)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.017s