; **********************
; CSP by Smc_S
; **********************
;
;######### DDE related stuff v1.2 ##########
;############# Remote script ###############

on 1:LOAD:{
  /load -a scripts/customdde.mrc
  /set %ddeservname alienDDE
  /set %ddewinyn on
  /set %saydde off
  /set %reactdde on
  /set %ddertext !song
  /set %mp3sendyn on
  /set %mp3sendtrig !sendsong
  /echo DDEwindow script loaded
}

on *:START:{
  /ddeserver on %ddeservname
  /ddewin
}

on 1:TEXT:%mp3sendtrig:#:{
  if %mp3sendyn == on {
  if %wanow != nothing {
   var %file = $nopath(%wafile)
   var %check = $readini(ini\songs.ini,%file,$nick)
   if (%check != true) {
    /writeini -n ini\songs.ini " $+ %file $+ " $nick true 
    /dcc send $nick %wafile
    ;/msg $chan There is currently a problem with DCC file transfers! Sorry :(
    /timer -o 1 60 /writeini -n ini\songs.ini " $+ %file $+ " $nick false
   }
  }
  }
}

on 1:TEXT:%ddertext:#:{
  if %reactdde == on { 
    /msg $chan I'm now listening to %wanow ( %watime ) $ismp3send
  }
}

on 1:TEXT:!list:#:{
  if %reactdde == on { 
    if %wanow != nothing {
      /notice $nick Type  %ddertext to see what I'm currently playing in Winamp
    }
  }
}


on 1:KEYDOWN:@DDE.Input:90,88,67,86,66:{
  if ($keychar == z) /dde winamp_c prev
  if ($keychar == x) /dde winamp_c play
  if ($keychar == c) /dde winamp_c pause
  if ($keychar == v) /dde winamp_c stop
  if ($keychar == b) /dde winamp_c next
}

menu status {
  -
  DDE Window
  .$enabledy(%ddewinyn) Enable:/ddewinon
  .$enabledn(%ddewinyn) Disable:/ddewinoff
  .-
  .Rename Server:/dderename
}