Alternativ-Nicks festlegen

Zufälligen Nick wählen:

#NewScriptBegin NickChangeAtStart
 
Sub Load()
  RegEvent "433", 0
End Sub
 
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
  newnick = GetRandomNick
  SendData "NICK " & newnick, ConnID
  SkipEvent
End Sub
 
Function GetRandomNick()
  zfz = int(RND * 4)
  if zfz = 0 Then GetRandomNick = "HanzEins"
  if zfz = 1 Then GetRandomNick = "HanzZwei"
  if zfz = 2 Then GetRandomNick = "HanzDrei"
  if zfz = 3 Then GetRandomNick = "HanzVier"
End Function

Den Nick abhängig von der Verbindung wählen:

#NewScriptBegin NickChangeAtStart
 
Sub Load()
  RegEvent "433", 0
End Sub
 
Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData)
  newnick=""
  conname=lCase(GetVal(ConnID, 4))
 
  if conname="quakenet" Then newnick = "Qnick"
  if conname="euirc" Then newnick = "Eunick"
  if conname="nettalk1" Then newnick = "Netnick"
 'if ...
  if newnick = "" Then newnick = "Andernick"
 
  SendData "NICK " & newnick, ConnID
  SkipEvent
End Sub