A Userlist problem I'm having

[AntiSavior]

I've got my bot set to add/remove people to my userlist and whatnot.. But when I load it the bot listens to everyone as if everyone is on my userlist with full access.. Somethings wrong with code btu I can't seem to figure out what

ElseIf intAccess >= 70 And Left((LCase(Message)), 5) = (strTrig & "find") Then

Thats what my commands start out as, and I've got intAccess = 300 -- Probably need mroe information on this but this is my first bot heh, so bare with me..
I've got a Public Sub (GetAccess) and all that good stuff..

[MyndFyre]

I've got my bot set to add/remove people to my userlist and whatnot.. But when I load it the bot listens to everyone as if everyone is on my userlist with full access.. Somethings wrong with code btu I can't seem to figure out what

ElseIf intAccess >= 70 And Left((LCase(Message)), 5) = (strTrig & "find") Then

Thats what my commands start out as, and I've got intAccess = 300 -- Probably need mroe information on this but this is my first bot heh, so bare with me..
I've got a Public Sub (GetAccess) and all that good stuff..

I'm not sure how VB evaluates if-then expressions, but is there a chance that you have a command before this one that says something like, "If intAccess >= 25 And (some other subexpression) Then..."?  If so, you might be be triggering the If intAccess >= value check in that block of code, and since something has already evaluated to true, you're skipping over the rest of the if statements.

The best thing to do is to get the command from the message, by perhaps splitting the message by spaces, and doing a Select Case on the first token of your message string.  Then, for each case, check to see whether or not the user has appropriate access.

So, I'm not sure how to split in VB, but you could do something like this.  Assume you have the first token in strToken.

Code Select Expand


Select Case strToken
 Case ".find"
   If intAccess >= 70 Then
     ' do validated stuff here.
   End If
 Case ".seen"
  'etc.
 Case Else
  ' do nothing?
End Select


[Lenny]

Yes, VB does skip over the rest if one returns true in both "If Then" blocks and "Select Case" statements...

[Adron]

ElseIf intAccess >= 70 And Left((LCase(Message)), 5) = (strTrig & "find") Then

I'm not sure how VB evaluates if-then expressions, but is there a chance that you have a command before this one that says something like, "If intAccess >= 25 And (some other subexpression) Then..."?  If so, you might be be triggering the If intAccess >= value check in that block of code, and since something has already evaluated to true, you're skipping over the rest of the if statements.

Like in every other language I know, it will only skip the rest of the if statements if the whole condition is true. So unless he has another if statement that doesn't match against message not being strTrig & "find", there's no problem.

[MyndFyre]

ElseIf intAccess >= 70 And Left((LCase(Message)), 5) = (strTrig & "find") Then

I'm not sure how VB evaluates if-then expressions, but is there a chance that you have a command before this one that says something like, "If intAccess >= 25 And (some other subexpression) Then..."?  If so, you might be be triggering the If intAccess >= value check in that block of code, and since something has already evaluated to true, you're skipping over the rest of the if statements.

Like in every other language I know, it will only skip the rest of the if statements if the whole condition is true. So unless he has another if statement that doesn't match against message not being strTrig & "find", there's no problem.

Yeah, that was what I wasn't sure about.  Thanks for the clarification, Adron.

Although, it still doesn't negate what I said about the rest of the construction.  

[Adron]

Yeah, that was what I wasn't sure about.  Thanks for the clarification, Adron.

Although, it still doesn't negate what I said about the rest of the construction.  

Absolutely not. I quoted the part I commented on, the rest was fine

[AntiSavior]

Blah, sorry Adron, and Myndfyre lol I found the problem.. It had ntohing to do with my code, It just wasnt going to my Sub "GetAccess" I had, to check to see if the user is in the userlist first..
So basically all I had to do was "Call GetAccess" before any of my commands..

Thanks for the help though guys