[Feature]Admin Panel

[Doomy]

Some of this i scripted by my self others was from help. And some i looked at other sources and got ideas and some i just ripped.
Hope you enjoy

Components
Microsoft Tagged Dialog Control
Check it then

Create A Form Called frmAdmin
Create A SSTab with these properties
Tabs - 4, Tabs Per Row - 4

Then Name Them. I named mine Admin, Map, Sprite, Develop

Admin First

Create A Label Called btnBan
This is a ban button
Put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_CREATOR Then
        Call SendBan(Trim$(txtPlayer.Text))
    Else: Auth = "You are not authorized to carry out that action"
         Call AddText(Auth, BrightRed)
    End If

Create a button called btnWarpMeTo
This is Warp To Me
Put This Inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call WarpMeTo(Trim$(txtPlayer.Text))
    Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

Create a button called btnKick
This is Kick
Put This Inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MONITER Then
        Call SendKick(frmAdmin.txtPlayer.Text)
        Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

Create a Button called btnSetAccess
This is Set Access
Put This inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_CREATOR Then
      Call SendSetAccess(Trim$(txtPlayerAdmin.Text), Trim$(txtAccess.Text))
   Else: Auth = "You are not authorized to carry out that action"
         Call AddText(Auth, BrightRed)
   End If

Create a label called Access Level
Then create a txtbox called txtAccess

Create a label called Player Name
Then Create a txtbox called txtPlayerAdmin


Now on to Map Tab
Create a button called btnLOC
This is Location
put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call SendRequestLocation
    Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

Create a button called btnRespawn
This is Respawn
put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call SendMapRespawn
    Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

Create a button called btnWarpto
This is Warp To
put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call WarpTo(Val(txtMap.Text))
    Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

Create a label called Map Number
then create a txtbox called txtMap

Now onto sprite tab
create a button called btnSprite
This is Set Sprite
then put this inside it

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call SendSetSprite(Val(txtSprite.Text))
    Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

create a button called btnPlayerSprite
This is Set Player Sprite
then put this inside it

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        If Trim$(txtPlayer.Text)  vbNullString Then
            If Trim$(txtSprite.Text)  vbNullString Then
                Call SendSetPlayerSprite(Trim$(txtPlayer.Text), Trim$(txtSprite.Text))
            End If
        End If
    Else: Auth = "You are not authorized to carry out that action"
    Call AddText(Auth, BrightRed)
    End If

create a label called player name
then create a txtbox called txtPlayer

create a label called Sprite number
then create a txtbox called txtSprite

now on to the develop tab
create a button called btnMapeditor
This is Map Editor
then put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call SendRequestEditMap
         frmMirage.Width = 14175
    Else: Auth = "You are not authorized to carry out that action"
             Call AddText(Auth, BrightRed)
    End If

create a button called btneditspell
This is Spell Editor
then put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditSpell
    Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

create a button called btnedititem
This is Item Editor
then put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditItem
    Else: Auth = "You are not authorized to carry out that action"
         Call AddText(Auth, BrightRed)
    End If

create a button called btnEditShops
This is Shop Editor
then put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditShop
    Else: Auth = "You are not authorized to carry out that action"
         Call AddText(Auth, BrightRed)
    End If

Create a button called btnEditNPC
This is NPC Editor
then put this inside

Code:

If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
        Call SendRequestEditNpc
    Else: Auth = "You are not authorized to carry out that action"
        Call AddText(Auth, BrightRed)
    End If

To put this as a hot key for f1 go to KeyDown in frmMirage
then put this inside

Code:

If KeyCode = vbKeyF1 then
    frmAdminPanel.visible = true
    end if

Hope you guys like
Tell me what you think plz

Admin form
XD
http://www.mediafire.com/?mdim4mozmom