Everyone can get admin [Resolved]

[Zzbrandon]

Ok so I changed this to

If GetPlayerAccess(Index) < ADMIN_CREATOR Then

to

If GetPlayerAccess(Index) = ADMIN_CREATOR Then

Because there is a higher Access that is for members and I dont want them getting hold of admin and stuff but it doesnt seem to work I can still open with any Access?

How can I change the code to only make ADMIN_CREATOR be able to use the command?

[Matt]

Compile the code.

[Zzbrandon]

I did that lol I compiled the project I edited in server and client also It does not work

[or3o]

where exactly in the code did you change this?

[Zzbrandon]

ModInput

```

Case "/admin"

If GetPlayerAccess(MyIndex) = ADMIN_CREATOR Then GoTo Continue

frmMain.picAdmin.Visible = Not frmMain.picAdmin.Visible

```

[or3o]

If getplayeracess(myindex) < 3 then

exit sub

end if

try putting that above your code

[Zzbrandon]

Dude the thing is though members is access 5 and I only want access 4 for command and others. Because their different accesses below 4

[or3o]

wow so basically you gave members the highest access….

just change it to if getplayeraccess(myindex) > 4 then

exit sub

end if

[Zzbrandon]

Doesnt the > mean less than 4  so people with a lower access of 4 will have admin panel too.

[Guest]

Okay both of you are misunderstanding the code.

```

If GetPlayerAccess(MyIndex) = ADMIN_CREATOR Then GoTo Continue

```

What this is saying is that if their access level is ADMIN_CREATOR then go to the Continue. The Continue in this case is an exit out line of code that prevents members who are NOT Admins from entering Admin commands.

[Zzbrandon]

So delete

```

GoTo Continue

```

[Guest]

No, change the = back to a <.

[Zzbrandon]

Yea but that is making it if Access is 4 or Greater than they can Access but I dont want that because Member's Access is 5.

[or3o]

lol soz sekaru i was just going off the top of my head, i hadnt actually looked to see what he was talking about. I should prolly pay more attention.

and why the hell did you make members access 5? it just seems like a bad way of putting it.

[Guest]

> Yea but that is making it if Access is 4 or Greater than they can Access but I dont want that because Member's Access is 5.

Admin = 5, Member = 0 (or 1, can't remember which).

> lol soz sekaru i was just going off the top of my head, i hadnt actually looked to see what he was talking about. I should prolly pay more attention.
>
> and why the hell did you make members access 5? it just seems like a bad way of putting it.

No worries man, I just remembered that because I made the same mistake when Robin changed the way commands were handled.

[Zzbrandon]

No but I customly added Member's to byte 5 lol 0 = regualr player 

[Guest]

Okay so your regular players are 1, admins are 4 and "members" are 5?

[cheatking]

```
If GetPlayerAccess(MyIndex) <> ADMIN_CREATOR Then GoTo Continue
```
<> = not equal.

[Zzbrandon]

here it is:

' Admin constants

Public Const ADMIN_MONITOR As Byte = 1

Public Const ADMIN_MAPPER As Byte = 2

Public Const ADMIN_DEVELOPER As Byte = 3

Public Const ADMIN_CREATOR As Byte = 4

' Player constants

Public Const Player_Member As Byte = 5

[Zzbrandon]

so <> will make it So only admin_Creator will be able to use?

[cheatking]

Correct, if PlayerAccess is not equal to ADMIN_CREATOR then skip admin shiz

[Guest]

> ```
>
> If GetPlayerAccess(MyIndex) <> ADMIN_CREATOR Then GoTo Continue
>
> ```
> <> = not equal.

I was explaining his code to him.

But yeah, like mrsean said just use "If GetPlayerAccess(MyIndex) <> ADMIN_CREATOR Then GoTo Continue".

[Zzbrandon]

Thanks guys lol already 2 pages I think I do ask to much I been here for 2 months and too many posts 

So <> is just like equal sign in vb6?

[cheatking]

for added fun:

```

' Admin constants

Public Const ADMIN_MONITOR As Byte = 1

Public Const ADMIN_MAPPER As Byte = 2

Public Const ADMIN_DEVELOPER As Byte = 4

Public Const ADMIN_CREATOR As Byte = 8

' Player constants

Public Const Player_Member As Byte = 16

If NOT(GetPlayerAccess(MyIndex) AND (ADMIN_CREATOR Or ADMIN_DEVELOPER)) Then GoTo Continue

```

That will (hopefully) allow ADMIN_CREATOR or ADMIN_DEVELOPER to access it. You'll have to change all the checks though.

Or suffix new ones with _NEW e.g. ADMIN_CREATOR_NEW

Something like that, My VB6 foo is rusty.

[Reference](http://www.vb6.us/tutorials/how-utilize-binary-flags-your-program).

[cheatking]

> Thanks guys lol already 2 pages I think I do ask to much I been here for 2 months and too many posts 
>
> So <> is just like equal sign in vb6?

No, It's not equal to. If the player's access is not equal to admin_creator, go to the continue label.