Script Help

[Night]

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

[ButterflySoul]

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

Code: Select all

lPos = InStr(1, sCurData, "> ") 

but never tell us what exactly you passed as sCurData argument to your function and what data is contained in sCurData at that point =)