Dies ist eine alte Version des Dokuments!


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:

<code vb> #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 <code>


Eigene Werkzeuge