Dies ist eine alte Version des Dokuments!


CTCP-Antworten unterbinden

Sub Serv_Notice(Text, Nick, Receiver, ConnID)
  if asc(mid(Text,1,1)) = 1 Then
    i=instr(2,Text," ")
    if i=0 then i=len(Text)-1
    print "*** CTCP-anfrage unterbunden (" + mid(Text,2,i-2) + ")"
    skipevent
  end if
End Sub

Eine andere Variante:

Sub Serv_Notice(Text, Nick, Receiver, ConnID)
  if asc(mid(Text,1,1)) = 1 Then
    i=instr(2,Text," ")
    if i=0 then i=len(Text)-1
    SendData "NOTICE " & Nick & " :Finger weg!", ConnID
    print "*** CTCP-anfrage unterbunden (" + mid(Text,2,i-2) + ")"
    skipevent
  end if
End Sub

Anmerkung: Der Code scheint fehlerhaft zu sein. Eingehende CTCP-Anfragen (z.B. Version) werden nach wie vor beantwortet, CTCP-Replys von anderen Clients werden jedoch mit „*** CTCP-anfrage unterbunden“ quitiert.


Eigene Werkzeuge