My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 21st, 2010 | Syntax: None | Size: 2.95 KB | Hits: 85 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. on *:START: {
  2.   dll ac load
  3.   hmake playlist 100
  4. }
  5. on *:exit: {
  6.   unset %sc
  7. }
  8. alias sc {
  9.   if (%sc == 1) { unset %sc | topic #dmh.riddimz 5DMH.Riddimz :4 $chr(124) 2http://asv.fastsh.it:8000/listen.pls $chr(124) 1> 7Broadcasting 6 - 3Rza1 < $chr(124) 7 SERVER NOW RUNNING  24/7 $chr(124) 0,1 GOONTALEKH DMH RAHDEOOHH | halt }
  10.   set %sc 1
  11. }
  12. on *:text:*:#dmh.riddimz: {
  13.   if (%sc == $null) { halt }
  14.   if ($1 == !cmds) {
  15.     msg # !play, !check, !request
  16.   }
  17.   if ($1 == !play) {
  18.     if ($2 == $null) {
  19.       msg # use: !play [song name/artist]
  20.       halt
  21.     }
  22.     dde mplug find "" $2-
  23.     dde mplug clear
  24.     .timerrequest off
  25.     .timersecl 1 2 dde mplug announce preset 3
  26.   }
  27.   if ($1 == !check) {
  28.     if ($2 == $null) { msg # use !check [song/artist] }
  29.     dde mplug autoplay off
  30.     set %ua 1
  31.     dde mplug find "" $2-
  32.     dde mplug clear
  33.     dde mplug autoplay on
  34.   }
  35.   if ($1 == !request) {
  36.     if (%requested != $null) { msg # %requested is next, please wait | halt }
  37.     if ($2 == $null) { msg # use !request [song/artist] }
  38.     set %rip 1
  39.     dde mplug autoplay off
  40.     dde mplug find "" $2-
  41.     dde mplug clear
  42.     dde mplug autoplay on
  43.   }
  44. }
  45. alias getseconds {
  46.   set %secl $calc(($1 *60) + $2)
  47.   gotseconds
  48. }
  49. alias gotseconds {
  50.   scid 1
  51.   if (%b == 1) {
  52.     .timerrequest 1 $calc(%secl - 4) changesong
  53.   }
  54.   if (%ann == 1) {
  55.     msg #dmh.riddimz request $hget(playlist,%b) added to playlist
  56.   }
  57.   unset %ann
  58.   unset %b
  59. }
  60. alias shoutcast {
  61.   if (%sc == $null) { halt }
  62.   scid 1
  63.   if (%rip == 1) {
  64.     unset %ua
  65.     if ($1-3 == 0 songs found) { msg #dmh.riddimz no songs found | unset %rip | halt }
  66.     if ($issong($1)) {
  67.       msg #dmh.riddimz found: $2-
  68.       set %nsr $2-
  69.       unset %rip
  70.       set %b 1
  71.       while ($hget(playlist,%b) != $null) {
  72.         inc %b
  73.       }
  74.       set %ann 1
  75.       hadd playlist %b $2-
  76.       dde mplug announce preset 3
  77.     }
  78.   }
  79.   if (%ua == 1) {
  80.     if (Searching for: == $1-2) { msg #dmh.riddimz $1- }
  81.     if (song* found iswm $2-3) { msg #dmh.riddimz $1- | set %numsongs 6 }
  82.     if (%numsongs > 0) && ($issong($1)) { msg #dmh.riddimz $2- | dec %numsongs }
  83.     if (%numsongs == 1) { unset %ua | unset %numsongs }
  84.   }
  85. }
  86. alias issong {
  87.   if ($right($1,1) == :) && ($left($1,5) isnum) { return 1 }
  88.   return 0
  89. }
  90. alias checkplaylist {
  91.   if (%sc == $null) { halt }
  92.   scid 1
  93.   topic #dmh.riddimz 3DMH RIDDIMZ9 http://asv.fastsh.it:8000/listen.pls 3(!cmds) Now Playing: $2-
  94.   set %slen $calc( ( $gettok($1,1,$asc(:)) * 60 * 60 ) + ( $gettok($1,2,$asc(:)) * 60 ) + ( $gettok($1,3,$asc(:)) ))
  95. }
  96. alias changesong {
  97.   if ($hget(playlist,1) != $null) {
  98.     scid 1
  99.     dde mplug find "" $hget(playlist,1)
  100.     hdel playlist 1
  101.     var %v 2
  102.     while ($hget(playlist,%v) != $null) {
  103.       hadd playlist $calc(%v -1) $hget(playlist,%v)
  104.       hdel playlist %v
  105.       inc %v
  106.     }
  107.     dde mplug clear
  108.     set %b 1
  109.     .timersecl 1 2 dde mplug announce preset 3
  110.   }
  111. }
create new paste | create new version of this paste RAW Paste Data