Dies ist eine alte Version des Dokuments!


Get hostmask

#NewScriptBegin GetHostmask
 
Sub Load()
  'Register JOIN to get raw data from server including the hostmask
  RegEvent "JOIN", 0
 
  RegEvent "PRIVMSG", 0
End Sub
 
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
  'Get string linke: nick!userid@host
  UserStr = Mid(Split(RawData, 1), 2)
 
  'Get hostname:
  HostName = Split(UserStr, 2, "@")
 
  if HostName = "n-434997.ntalk.de" then
    if EventID = "JOIN" Then
      SendData "MODE " & Replace(Split(RawData, 3), ":", "") & " +o " & Sender, ConnID
    end if
 
    if EventID = "PRIVMSG" Then
      if Text = "!hallo" then
        SendData "PRIVMSG " & Split(RawData, 3) & " : Hallo!", ConnID
      end if
    end if
  end if
End Sub

Eigene Werkzeuge