Need help ... plz

[cyberjack1488]

Hi, i need a script, wich will send me all $ValidateNick requests per private message.


thx alot.


Sorry for my bad english ...

[TasMan]

Code: Select all

Dim sBotName, aWho

Sub Main
  sBotName = "ValidateNicker"
  aWho = Array("Yourname", "Another")

  frmHub.RegisterBotName(CStr(sBotName))
End Sub

Sub DataArival(curUser, sData)
  If Left(sData, 13) = "$ValidateNick" Then
    Dim i

    For i = 0 To UBound(aWho)
      If colUsers.Online(CStr(aWho(i))) Then colUsers.ItemByName(CStr(aWho(i)).PrivateMessage CStr(sBotName), "Validate nick request from " & curUser.IP & " - " & CStr(sData)
    Next
  End If
End Sub

[TasMan]

or if you just want it sent to a single user, this is better

Code: Select all

Dim sBotName, sWho 

Sub Main 
  sBotName = "ValidateNicker" 
  sWho = "Yourname"

  frmHub.RegisterBotName(CStr(sBotName)) 
End Sub 

Sub DataArival(curUser, sData) 
  If Left(sData, 13) = "$ValidateNick" Then 
      If colUsers.Online(CStr(sWho)) Then colUsers.ItemByName(CStr(sWho)).PrivateMessage CStr(sBotName), "Validate nick request from " & curUser.IP & " - " & CStr(sData) 
    Next 
  End If 
End Sub 

[TasMan]

lol 3 posts in a row

remove that next statement in the second script....the first script needs another ) after ItemByName(CStr(aWho(i))...

[cyberjack1488]

The script won´t work ... ive removed the NEXT of the second script but it won´t send me anny PM on $ValidateNick

[TasMan]

hmmmm the script is fine....it seems that the NMDC hub doesn't send the $ValidateNick message to the DataArival sub...

[Gadget]

Nope, but it activates NewUserConnected(curUser) or OpConnected(curUser) sub...