Hi, i need a script, wich will send me all $ValidateNick requests per private message.
thx alot.
Sorry for my bad english ...
Need help ... plz
Moderator: Moderators
-
- Posts: 10
- Joined: 2003-03-03 17:56
Need help ... plz
°--=={HiGhSp33d HUB}==--° highspeedhub.no-ip.org
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
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
-
- Posts: 10
- Joined: 2003-03-03 17:56
The Script won´t work
The script won´t work ... ive removed the NEXT of the second script but it won´t send me anny PM on $ValidateNick
°--=={HiGhSp33d HUB}==--° highspeedhub.no-ip.org