API tools faq
paste
Guest User

Untitled

a guest
May 17th, 2018
144
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 10.86 KB | None | 0 0
raw download clone embed print report
  1. on *:LOAD:{
  2.   if ($version < 7) {
  3.     echo -a 12-----------------------------------
  4.     echo -a 12Você precisa da versão 7.0 ou superior do mirc para executar esse script.
  5.     echo -a 12-----------------------------------
  6.     /unload -rs $script
  7.   }
  8.   set %mpcolor1 12
  9.   set %mpcolor2 14
  10.   set %mpcolor3 12
  11.   set %mpcolor4 14
  12.   echo -a 12-----------------------------------
  13.   echo -a 12MPClassic info carregado.
  14.   echo -a 12É necessário uma versão recente do MPC-HC para que esse script funcione corretamente.
  15.   echo -a 12Certifique-se que a interface web do seu player está ativada na porta 13579
  16.   echo -a 12Se não estiver vá em options>player>web interface e marque "[x]Listen on port"
  17.   echo -a 12Para sua segurança ative a opção "Allow access from localhost only"
  18.   echo -a 12Comandos:
  19.   echo -a 12Escreva "/mpc" com o player aberto mostrar a info...
  20.   echo -a 12Escreva "/mpconfig" para configurar as cores.
  21.   echo -a 12Escreva "/mpcshot" para salvar uma snapshot do vídeo em reprodução em um servidor remoto.
  22.   echo -a 12Escreva "/mpcshot local" para salvar uma snapshot do vídeo em uma pasta local.
  23.   echo -a 12-----------------------------------
  24. }
  25. on *:UNLOAD:{
  26.   echo -a 12-----------------------------------
  27.   echo -a 04MPClassic info descarregado...
  28.   echo -a 12-----------------------------------
  29. }
  30. alias mpc {
  31.   if ($active == Status Window) {
  32.     echo -a */mpc Você não está em um canal.
  33.     } | else {
  34.     sockopen player localhost 13579
  35.   }
  36. }
  37.  
  38. on *:sockopen:player:{
  39.   if ($sockerr) {
  40.     echo -a  [ Player não está rodando. ]
  41.     sockclose player
  42.   }
  43.   else {
  44.     sockwrite -nt player GET /status.html HTTP/1.1
  45.     sockwrite -nt player
  46.   }
  47. }
  48.  
  49. on *:sockread:player:{
  50.   if ($sockerr) return
  51.   :nexthread
  52.   sockread -f %temp
  53.   if ($sockbr == 0) return
  54.   if (%temp == $null) %temp = -
  55.   if (OnStatus isin %temp) {
  56.     var %statusinfo = $regex(statusinfo,%temp,OnStatus[(]'(.*)', '(.*)', (.*), '(.*)', (.*), '(.*)', (.*), (.*), '(.*)'[)])
  57.     if (%statusinfo == 1) {
  58.       var %mpcFile = $regml(statusinfo,1)
  59.       var %mpcFile = $replace(%mpcFile,$chr(92),$NULL)
  60.       var %mpcStatus = $regml(statusinfo,2)
  61.       var %mpcFrame = $regml(statusinfo,3)
  62.       var %mpcTotalFrame = $regml(statusinfo,5)
  63.       var %mpcTime = $regml(statusinfo,4)
  64.       var %mpcTotalTime = $regml(statusinfo,6)
  65.       var %percent = $int($round($calc(($int(%mpcFrame)*100)/$int(%mpcTotalFrame)),1))
  66.       var %filelocation = $regml(statusinfo,9)
  67.  
  68.       var %color1 =  $+ %mpcolor1
  69.       var %color2 =  $+ %mpcolor2
  70.       if (%mpcolor3) && (%mpcolor4) {
  71.         var %barcolor1 =  $+ %mpcolor3 $+ , $+ %mpcolor3 $+ >
  72.         var %barcolor2 =  $+ %mpcolor4 $+ , $+ %mpcolor4 $+ =
  73.         } | else {
  74.         var %barcolor1 = >
  75.         var %barcolor2 = =
  76.       }
  77.       var %barin = $int($calc(%percent / 7))
  78.       var %barout = $int($calc(100 / 7 - %barin))
  79.       var %progressbar = $str(%barcolor1,%barin) $+ $str(%barcolor2,%barout)
  80.       var %hours = $gettok(%mpcTotalTime, 1, 58)
  81.       var %minutes = $gettok(%mpcTotalTime, 2, 58)
  82.       var %seconds = $gettok(%mpcTotalTime, 3, 58)
  83.       var %totalseconds = $int($calc($calc(%hours * 60 * 60) + $calc(%minutes * 60) + %seconds))
  84.       var %filerate = ~ $+ $int($calc(($file(%filelocation).size  / 1024) / %totalseconds)) $+ KB/s
  85.       if ($int($calc($file(%filelocation).size / 1024 / 1024)) >= 1) {
  86.         var %filesize = $int($calc($file(%filelocation).size / 1024 / 1024)) $+ MB
  87.         } | else {
  88.         var %filesize = $int($calc($file(%filelocation).size / 1024)) $+ KB
  89.       }
  90.       var %finalmsg = %color1 $+ :: $+ %color2 %color2 $+ MPClassic %color1 $+ :: [ $+ %progressbar $+ ] $+ %color2 %percent $+ % %color1 $+ :: $+ %color2 %mpcFile %color1 $+ :: $+ %color2 %mpcTime / %mpcTotalTime %color1 $+ :: $+ %color2 %filerate %color1 $+ :: $+ %color2 %filesize $+ %color1 ::
  91.       if (c isincs $gettok($chan($active).mode,1,32)) {
  92.         var %finalmsg = $strip(%finalmsg)
  93.       }
  94.       msg $active %finalmsg
  95.     }
  96.   }
  97.   goto nexthread
  98. }
  99. dialog mpclassicdiag {
  100.   title "MPClassic info: config"
  101.   size -1 -1 230 190
  102.   text "(Número da cor)", 1, 26 10 140 15, right
  103.   text "Cor da fonte 1:", 2, 20 30 80 15, right
  104.   text "(1-15)", 8, 160 30 30 15, right
  105.   edit "", 3, 105 28 50 20
  106.   text "Cor da fonte 2:", 4, 20 58 80 15, right
  107.   text "(1-15)", 9, 160 58 30 15, right
  108.   edit "", 5, 105 55 50 20
  109.   text "Cor da Barra 1:", 10, 20 88 80 15, right
  110.   text "(1-15)", 11, 160 88 30 15, right
  111.   edit "", 12, 105 85 50 20
  112.   text "Cor da Barra 2:", 13, 20 120 80 15, right
  113.   text "(1-15)", 14, 160 120 30 15, right
  114.   edit "", 15, 105 117 50 20
  115.   button "OK", 7, 75 150 100 30, ok cancel
  116. }
  117. on *:DIALOG:mpclassicdiag:*:*: {
  118.   if ($devent == init) {
  119.     if (%mpcolor1) { did -a $dname 3 %mpcolor1 }
  120.     else {
  121.       did -a $dname 3 12
  122.     }
  123.     if (%mpcolor2) { did -a $dname 5 %mpcolor2 }
  124.     else {
  125.       did -a $dname 5 14
  126.     }
  127.     if (%mpcolor3) { did -a $dname 12 %mpcolor3 }
  128.     else {
  129.       did -a $dname 12 12
  130.     }
  131.     if (%mpcolor4) { did -a $dname 15 %mpcolor4 }
  132.     else {
  133.       did -a $dname 15 14
  134.     }
  135.   }
  136.   if ($devent == close) {
  137.     var %save1 = $did($dname, 3).text
  138.     var %save2 = $did($dname, 5).text
  139.     var %save3 = $did($dname, 12).text
  140.     var %save4 = $did($dname, 15).text
  141.     if (%save1 isnum) {
  142.       if (%save1 <= 15) && (%save1 >= 1) {
  143.         set %mpcolor1 $int(%save1)
  144.       }
  145.     }
  146.     if (%save2 isnum) {
  147.       if (%save2 <= 15) && (%save2 >= 1) {    
  148.         set %mpcolor2 $int(%save2)
  149.       }
  150.     }
  151.     if (%save3 isnum) {
  152.       if (%save3 <= 15) && (%save3 >= 1) {    
  153.         set %mpcolor3 $int(%save3)
  154.       }
  155.     }
  156.     if (%save4 isnum) {
  157.       if (%save3 <= 15) && (%save3 >= 1) {    
  158.         set %mpcolor4 $int(%save4)
  159.       }
  160.     }
  161.   }
  162. }
  163. alias mpconfig { if (!$dialog(mpclassicdiag)) { dialog  -m mpclassicdiag mpclassicdiag } }
  164.  
  165. alias mpcshot {
  166.   if ($active == Status Window) {
  167.     echo -a */mpcshot Você não está em um canal.
  168.     } | else {
  169.     if ($sock(mpcshot,status) == 1) || ($sock(mpcsupload,status) == 1) {
  170.       echo -a Alguma transferência está em andamento, aguarde o término da mesma.
  171.       halt
  172.     }
  173.     if ($1 == local) {
  174.       var %tempfilename = $ctime $+ _ $+ $rand(100,999) $+ .jpg
  175.       set %sdldir $mircdir $+ %tempfilename
  176.       unset %tempupfile
  177.       } | else {
  178.       var %tempfilename = $ctime $+ _ $+ $rand(100,999) $+ .jpg
  179.       set %sdldir $mircdir $+ %tempfilename
  180.       set %tempupfile $mircdir $+ %tempfilename
  181.     }
  182.     sockopen mpcshot localhost 13579
  183.   }
  184. }
  185.  
  186. alias mpcsup {
  187.   %hostofphpfile = api.imgur.com
  188.   %locationofphpfile = /2/upload
  189.   %mpcsuploadkey = 0272dfc8c40bf29cb6ceb6865f862c7f
  190.   if (%tempupfile != $null) {
  191.     if ($exists(%tempupfile) == $true) {
  192.       %dest = %tempupfile
  193.       .remove mpcsupload.tmp
  194.       if ($active != Status Window) {
  195.         echo -s Enviando arquivo...
  196.         } | else {
  197.         echo -s Enviando arquivo...
  198.       }
  199.       sockopen mpcsupload %hostofphpfile 80
  200.       } | else {
  201.       echo -s Não foi possível carregar o arquivo temporário.
  202.       unset %tempupfile
  203.     }
  204.   }
  205. }
  206. On *:sockopen:mpcsupload:{
  207.   var %b = $md5(mpcsupload) | write -c mpcsupload.tmp $+(--,%b,$lf,$&
  208.     Content-Disposition: form-data; name='key',$lf,$lf,$&
  209.     %mpcsuploadkey,$lf,$&
  210.     --,%b,$lf,$&
  211.     Content-Disposition: form-data; name='image'; filename=',$nopath(%dest),',$lf,$lf)
  212.   .copy -a " $+ %dest $+ " mpcsupload.tmp
  213.   write mpcsupload.tmp -- $+ %b
  214.  
  215.   var %write = sockwrite -tn mpcsupload
  216.   %write POST %locationofphpfile HTTP/1.1
  217.   %write Host: %hostofphpfile
  218.   %write Connection: close
  219.   %write Content-Type: multipart/form-data; boundary= $+ %b
  220.   %write Content-Length: $file(mpcsupload.tmp)
  221.   %write
  222.   .fopen mpcsupload mpcsupload.tmp
  223. }
  224.  
  225. On *:sockwrite:mpcsupload:{
  226.   if $sock(mpcsupload).sq > 8192 || !$fopen(mpcsupload) { return }
  227.   if $fread(mpcsupload,8192,&a) {
  228.     sockwrite mpcsupload &a
  229.   }
  230.   else .fclose mpcsupload
  231. }
  232.  
  233. on *:sockread:mpcsupload:{
  234.   if ($sockerr) return
  235.   :nextread
  236.   sockread %temp
  237.   if ($sockbr == 0) return
  238.   if (%temp == $null) %temp = -
  239.   if ($regex(%temp,HTTP/1.1 200 OK) >= 1) {
  240.     echo -s Status... OK.
  241.     echo -s 12-----------------------------------
  242.   }
  243.   elseif ($regex(%temp,HTTP/1.1 (30[0-9]|40[0-9]|50[0-9])) >= 1) {
  244.     echo -s Status... ERRO.
  245.     echo -s 12-----------------------------------
  246.     .sockclose mpcsupload
  247.   }
  248.   var %original = $regex(original,%temp,<original>(.*)</original>)
  249.   var %filesize = $regex(fsize,%temp,<size>(.*)</size>)
  250.   var %fwidth = $regex(fwidth,%temp,<width>(.*)</width>)
  251.   var %fheight = $regex(fheight,%temp,<height>(.*)</height>)
  252.   if (%original == 1) {
  253.     var %filesize = $int($calc($regml(fsize,1) / 1024))
  254.     var %fwidth = $regml(fwidth,1)
  255.     var %fheight = $regml(fheight,1)
  256.     var %color1 =  $+ %mpcolor1
  257.     var %color2 =  $+ %mpcolor2
  258.     var %snapshotmsg = $regml(original,1)
  259.     if (c isincs $gettok($chan(%chantarget).mode,1,32)) {
  260.       var %snapshotmsg = $strip(%snapshotmsg)
  261.     }
  262.     /msg %chantarget %snapshotmsg
  263.   }
  264.   goto nextread
  265. }
  266.  
  267.  
  268. On *:sockclose:mpcsupload:cleanmpcsupload
  269. alias cleanmpcsupload {
  270.   .sockclose mpcsupload
  271.   if $fopen(mpcsupload) { .fclose mpcsupload }
  272.   .remove mpcsupload.tmp
  273.   .remove %tempupfile
  274.   unset %chantarget
  275.   unset %sdldir
  276.   unset %dest
  277.   unset %hostofphpfile
  278.   unset %locationofphpfile
  279.   unset %mpcsuploadkey
  280.   unset %tempupfile
  281. }
  282.  
  283. on *:sockopen:mpcshot:{
  284.   if ($sockerr) {
  285.     echo -a  [ Player não está rodando. ]
  286.     sockclose mpcshot
  287.   }
  288.   else {
  289.     sockwrite -nt mpcshot GET /snapshot.jpg HTTP/1.1
  290.     sockwrite -nt mpcshot
  291.   }
  292. }
  293.  
  294. on *:sockread:mpcshot:{
  295.   if (!$sockerr) {
  296.     while $sock($sockname).rq {
  297.       sockread &b
  298.       bwrite %sdldir -1 -1 &b
  299.     }
  300.   }
  301.   else .sockclose $sockname
  302.   unset %dl.dir
  303. }
  304.  
  305. On *:sockclose:mpcshot:{
  306.   .sockclose mpcshot
  307.   if $fopen(mpcshot) { .fclose mpcshot }
  308.   if ($exists(%sdldir) == $true) {
  309.     if ($file(%sdldir).size <= 110) {
  310.       .remove %sdldir
  311.       echo -a Erro ao baixar snapshot. | halt
  312.     }
  313.     var %numline = 1
  314.     :nextlopp
  315.     if ($regex($read(%sdldir,%numline),ÿØÿÛ) == 1) {
  316.       goto continue
  317.       } | else {
  318.       var %tamanho = $calc(%tamanho + $len($read(%sdldir,%numline)))
  319.       inc %numline
  320.       goto nextlopp
  321.     }
  322.     :continue
  323.     var %tamanho = $calc(%tamanho + 20)
  324.     bread %sdldir %tamanho $calc($file(%sdldir).size - %tamanho) &unheaderfile
  325.     write -c %sdldir
  326.     bwrite %sdldir -1 -1 &unheaderfile
  327.     if (%tempupfile != $null) {
  328.       echo -s 12-----------------------------------
  329.       echo -s Salvando arquivo temporário... OK.
  330.       set %chantarget $active
  331.       .mpcsup
  332.       } | else {
  333.       echo -a Arquivo salvo em: %sdldir
  334.     }
  335.     } | else {
  336.     echo -a Erro ao baixar snapshot.
  337.   }
  338.   unset %sdldir
  339.   unset %setline
  340. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!