XdccAutoRequest

#NewScriptBegin XdccAutoRequest
 
Sub RecvDDECmd(Data, Topic)
  if Split(Data, 1) = "SecNettalkApp" Then
    if InStr(1, Split(Data, 3), "irc://") > 0 Then
      if InStr(1,ClipboardText," xdcc send #") > 0 and Left(ClipboardText, 1) = "/" Then
        'Nicht sofort zu der Liste hinzufügen:
        'Send "/xdcc dontadd," + Split(Data, 3) + " " + ClipboardText, 1
        'Sofort hinzufügen:
        Send "/xdcc " + Split(Data, 3) + " " + ClipboardText, 1
      End if
    End if
  End if
End Sub