Hey, could anyone help me with this functiona and get it work 100 %...
Thank you..
//greetings Night
'If NOT curUser.bOperator Then
lPos = InStr(1, sCurData, "> ")
sTheText = Mid(sCurData, lPos + 2)
If LCase(Left(sTheText, = "+regnick") Then
VIP = Mid(curUser.sName, 1, 5)
OPSU = Mid(curUser.sName, 1, 4)
If VIP = "[VIP]" And NOT(curUser.bOperator) Then
curUser.PrivateMessage CStr(sBotName), "You have tried to register your nickname with [VIP] in, and therefore been kicked"
frmHub.DoEventsForMe
curUser.kick()
Allow = 1
ElseIf OPSU = "[OP]" And NOT(curUser.bOperator) Then
curUser.PrivateMessage CStr(sBotName), "You have tried to register your nickname with [OP] in, and therefore been kicked"
frmHub.DoEventsForMe
curUser.kick()
Allow = 1
ElseIf OPSU = "[SU]" And NOT(curUser.bOperator) Then
curUser.PrivateMessage CStr(sBotName), "You have tried to register your nickname with [SU] in, and therefore been kicked"
frmHub.DoEventsForMe
curUser.kick()
Allow = 1
Script Help
Moderator: Moderators
-
- Posts: 210
- Joined: 2003-01-23 17:24
- Location: Nevada
- Contact:
It would probably be a bit better if you told us a bit what you need help with exactly..
For example, what is the script supposed to do, and what exactly doesn't work with it ?
An other thing that would help is which arguments you pass to your function... For example, you start right away with
but never tell us what exactly you passed as sCurData argument to your function and what data is contained in sCurData at that point =)
For example, what is the script supposed to do, and what exactly doesn't work with it ?
An other thing that would help is which arguments you pass to your function... For example, you start right away with
Code: Select all
lPos = InStr(1, sCurData, "> ")