+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: KeyDown - Admin Panel (/showthread.php?tid=796)
KeyDown - Admin Panel - Swordmaster - 07-03-2007
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 - 07-03-2007
Check the backup forums. It has a tutorial on it.
and yes it goes in frmMirage.
- Swordmaster - 07-03-2007
Thanks
but whats the URL to the forums?
- Tony - 07-03-2007
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 - 07-03-2007
Thank you! : )
- Tony - 07-03-2007
Swordmaster Wrote:Thanks you! : )
No problem, I like your siggy btw.
- Swordmaster - 07-03-2007
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 - 07-03-2007
You dont have the sub SendJail. The code he posted requires more to work, server side too.
- Joost - 07-03-2007
There is no SendJail() function in a normal MS. You'll have to add it, or remove that button.
- Swordmaster - 07-03-2007
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 - 08-03-2007
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 - 08-03-2007
It works fine if you just hit Ban List
But it doesnt work if you hit Delete Ban List THEN Ban List
- Coke - 08-03-2007
Errrr, try this:
Quote: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