Script Help

Which hub software is the best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...)

Moderator: Moderators

Locked
Night
Posts: 10
Joined: 2003-06-03 14:06
Location: sweden
Contact:

Script Help

Post by Night » 2003-06-04 08:32

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, 8) = "+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
Posts: 210
Joined: 2003-01-23 17:24
Location: Nevada
Contact:

Post by ButterflySoul » 2003-06-04 11:30

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 =)
[CoZ] Children of Zeus
-----
Shadows DC Hub - VBS and JS scripting at their best

Locked