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