Guest User

Untitled

a guest
Dec 5th, 2017
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.76 KB | None | 0 0
  1. # K1ll3r_B0y - #Ir4dex Ownz!
  2. # Modo de uso: /play NOMEDOARQUIVO.EXT
  3.  
  4. alias play {
  5.   play $_rest
  6.   complete
  7. }
  8.  
  9. proc play { file } {
  10.  
  11.   #sete aqui o diretório Padrão das músicas
  12.   set sound_dir "/root/Musica"
  13.   #sete aqui o comando do player para executar a música
  14.   set sound_command "banshee --play"  
  15.  
  16.   #verifica a exitência da música
  17.   if { [file exists "$sound_dir/$file"] } {
  18.     set cmd "$sound_command $sound_dir/$file &"
  19.   } elseif { [file exists $file] } {
  20.     set cmd "$sound_command $file &"
  21.   } elseif { [file exists "[xchatdir] $file"] } {
  22.     set cmd "$sound_command [xchatdir] $file &"
  23.   } else {
  24.     print "Nao foi possivel encontrar a musica: $file"
  25.     return
  26.   }
  27.   /me ":mp3 System: está ouvindo $file"
  28.   eval "exec $cmd"
  29.  
  30.  
  31. }
Add Comment
Please, Sign In to add comment