Hostmasks bei Joins anzeigen

#NewScriptBegin JoinMod
 
Sub Load()
  RegEvent "JOIN", 0
End Sub
 
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
  if GetVal(ConnID, 5) <> Sender Then
    PhraseData RawData, ConnID
    Print " (" & Mid(Split(RawData, 1), 2) & ")", GetFrame(ConnID, Text), Rgb(0,128,0), 1
    SkipEvent
  End if
End Sub

Mit folgender Variante werden die Hostmasks zusätzlich bei PARTs und QUITs angezeigt: 

#NewScriptBegin JoinMod
 
Dim FrameIDs
 
Sub Load()
  RegEvent "JOIN", 0
  RegEvent "PART", 0
  RegEvent "QUIT", 0
End Sub
 
Sub Chan_Quit(Nick, Channel, QuitMsg, FrameID, ConnID)
  FrameIDs = FrameIDs + Str(FrameID) + " "
End Sub
 
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
  if GetVal(ConnID, 5) <> Sender Then
    if EventID = "QUIT" Then
      FrameIDs=""
      PhraseData RawData, ConnID
      i=1
      Do Until Len(Split(FrameIDs,i))=0
        Print " (" & Mid(Split(RawData, 1), 2) & ")", Val(Split(FrameIDs,i)), Rgb(181,181,181), 1
        i=i+1
      Loop
    else
      PhraseData RawData, ConnID
      Print " (" & Mid(Split(RawData, 1), 2) & ")", GetFrame(ConnID, Text), Rgb(181,181,181), 1
    End if
    SkipEvent
  End if
End Sub

Eigene Werkzeuge