Querys blocken

Wenn der Inaktiv-Modus für eine Verbindung aktiviert ist, bewirkt das Script, das dort nur Querys angezeigt werden wenn man selber das Queryfesnter geöffnet hat.

#NewScriptBegin NoQuery
 
Sub Load()
  RegEvent "PRIVMSG", 0
End Sub
 
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
  if IsSilent(ConnID) = 1 Then
    Dest = Split(RawData, 3)
    if left(Dest, 1) <> "#" and Asc(Left(Text,1)) > 5 Then
      if GetCaption(GetFrame(ConnID, Dest)) <> Dest Then
        print "- Query from " & Sender & ": " & Text, 0, Rgb(0,128,0)
        SkipEvent
      End if
    End if
  End if
End Sub

Wenn ausnahmslos alle Query geblockt werden sollen muss es so aussehen:

#NewScriptBegin NoQuery
 
Sub Load()
  RegEvent "PRIVMSG", 0
End Sub
 
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
  Dest = Split(RawData, 3)
  if left(Dest, 1) <> "#" and Asc(Left(Text,1)) > 5 Then
    if GetCaption(GetFrame(ConnID, Dest)) <> Dest Then
      print "- Query from " & Sender & ": " & Text, 0, Rgb(0,128,0)
      SkipEvent
    End if
  End if
End Sub