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