KeyDown - Admin Panel

[Swordmaster]

I currently making an admin panel but im not sure how to make its so If you press 'F1' it will come up. Does this go in frmMirage also? thanks in advance

[Tony]

Check the backup forums. It has a tutorial on it.
and yes it goes in frmMirage.

[Swordmaster]

Thanks

but whats the URL to the forums?

[Tony]

Code:

///////////////////
/// Admin Panel ///
///////////////////

By: Sonire


Okay, first step: Open up frmMirage.

Make a large picture box. Name it picAdmin. Set the visibility to false.


Key: Name - Label (Type)
Inside the picAdmin box, make 17 buttons and 3 text boxes named:
(Make two columns of buttons and text boxes)

(Column 1)
1: btnBan - Ban (Button)
2: btnWarpMeTo - Warp To Me (Button)
3: btnKick - Kick (Button)
4: btnJail - Jail (Button)
5: txtPlayer (Text Box)
(Skip a small space here)
6: btnWarpto - Warpto (Button)
7: txtMap - (Text Box)
(Skip Small Space)
8: btnSprite - Set Sprite (Button)
9: txtSprite - (Text Box)
(Skip Small Space)
10: btnLOC - Location (Button)

(Column 2)
11: btnBanlist - Ban List (Button)
12: btnDelbanlist - Delete List (Button)
(Skip Small Space)
13: btnMapeditor - Map Editor (Butotn)
13: btneditspell - Edit Spells (Button)
14: btnedititem - Edit Item (Button)
15: btnEditShops - Edit Shops (Button)
16: btnEditNPC - Edit NPC (Butotn)
(Skip Small Space)
17: btnMapreport - Map Report (Button)
18: btnRespawn - Respawn (Butotn)
(Skip Small Space)
19: btnclose - Close (Button)

Now, add the following into frmMirage anywhere:


Private Sub btnJail_Click()
If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
Call SendJail(Trim(txtplayer.Text))
Else: Call AddText("You are not authorized to carry out that action", BrightRed)
End If
End Sub
Private Sub btnBan_Click()
If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
Call SendBan(Trim(txtplayer.Text))
Else: Call AddText("You are not authorized to carry out that action", BrightRed)
End If
End Sub

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

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

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

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

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

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

Private Sub btnkick_Click()
If GetPlayerAccess(MyIndex) >= ADMIN_MONITER Then
Call SendKick(Trim(txtplayer.Text))
Else: Call AddText("You are not authorized to carry out that action", BrightRed)
End If
End Sub

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

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

Private Sub btnMapreport_Click()
If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
Call SendData("mapreport" & SEP_CHAR & END_CHAR)
Else: Call AddText("You are not authorized to carry out that action", BrightRed)
End If
End Sub

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



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

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

Private Sub btnWarptome_Click()
If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
Call WarpToMe(Trim(txtplayer.Text))
Else: Call AddText("You are not authorized to carry out that action", BrightRed)
End If
End Sub

Private Sub btnclose_Click()
frmMirage.picAdmin.Visible = False
End Sub

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



Now Open frmMirage and in sub Form_KeyUp()
Right under:

Call CheckInput(0, KeyCode, Shift)

Add:

If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 0 Then
picAdmin.Visible = Not picAdmin.Visible
End If
End If


This should do the trick! Hit F1 and wala!

http://ms.shannaracorp.com/backup-forums/

[Swordmaster]

Thank you! : )

[Tony]

Thanks you! : )

No problem, I like your siggy btw.

[Swordmaster]

I added everything but when i compile i get "Compile Error: Sub or Function not Defined" on

Code:

Private Sub btnJail_Click()
If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then
Call SendJail(Trim(txtPlayer.Text))
Else: Call AddText("You are not authorized to carry out that action", BrightRed)
End If
End Sub

[William]

You dont have the sub SendJail. The code he posted requires more to work, server side too.

[Joost]

There is no SendJail() function in a normal MS. You'll have to add it, or remove that button.

[Swordmaster]

it worked,

but ahh when i press the delete ban list then i press ban list again

it keeps saying Banned IP By and it does that and keeeps going and going and the server and client crash

[Coke]

I know the ban list (at least in 3.0.3) had issues, havent really looked at it though... i think there is a tutorial floating around with reguards to it; not sure o.0

[Swordmaster]

It works fine if you just hit Ban List

But it doesnt work if you hit Delete Ban List THEN Ban List

[Coke]

Errrr, try this:

Only server side
open modServerTCP, find:
Code:

Code:

' :: Ban destroy packet ::

Replace:
Code:

Code:

Call Kill(App.Path & "\banlist.txt")

with:
Code:

Code:

Call ZeroBanList

Now, on modDatabase add anywhere this sub:
Code:

Code:

Sub ZeroBanList()
Dim FileName As String
Dim f As Long, i As Long

FileName = App.Path & "\banlist.txt"
Call Kill(FileName)
' Make sure the file exists
If Not FileExist("banlist.txt") Then
f = FreeFile
Open FileName For Output As #f
Close #f
End If

f = FreeFile
Open FileName For Append As #f
Print #f, "0.0.0.,abc"
Close #f
End Sub

Thats it, =D

TUT By Dragoons Master