Mirage Source http://miragesource.net/forums/ |
|
KeyDown - Admin Panel http://miragesource.net/forums/viewtopic.php?f=201&t=1459 |
Page 1 of 11 |
Author: | Swordmaster [ Wed Mar 07, 2007 1:16 am ] |
Post subject: | KeyDown - Admin Panel |
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 |
Author: | Tony [ Wed Mar 07, 2007 1:20 am ] |
Post subject: | |
Check the backup forums. It has a tutorial on it. and yes it goes in frmMirage. |
Author: | Swordmaster [ Wed Mar 07, 2007 1:23 am ] |
Post subject: | |
Thanks but whats the URL to the forums? |
Author: | Tony [ Wed Mar 07, 2007 1:42 am ] |
Post subject: | |
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/ |
Author: | Swordmaster [ Wed Mar 07, 2007 1:43 am ] |
Post subject: | |
Thank you! : ) |
Author: | Tony [ Wed Mar 07, 2007 1:48 am ] |
Post subject: | |
Swordmaster wrote: Thanks you! : )
No problem, I like your siggy btw. |
Author: | Swordmaster [ Wed Mar 07, 2007 7:37 pm ] |
Post subject: | |
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 |
Author: | William [ Wed Mar 07, 2007 7:42 pm ] |
Post subject: | |
You dont have the sub SendJail. The code he posted requires more to work, server side too. |
Author: | Joost [ Wed Mar 07, 2007 7:43 pm ] |
Post subject: | |
There is no SendJail() function in a normal MS. You'll have to add it, or remove that button. |
Author: | Swordmaster [ Wed Mar 07, 2007 11:15 pm ] |
Post subject: | |
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 |
Author: | Coke [ Thu Mar 08, 2007 12:18 am ] |
Post subject: | |
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 |
Author: | Swordmaster [ Thu Mar 08, 2007 1:23 am ] |
Post subject: | |
It works fine if you just hit Ban List But it doesnt work if you hit Delete Ban List THEN Ban List |
Author: | Coke [ Thu Mar 08, 2007 7:21 am ] |
Post subject: | |
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 |
Author: | wanai [ Thu May 26, 2022 12:13 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
Back |
Author: | wanai [ Thu May 26, 2022 12:14 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
187.3 |
Author: | wanai [ Thu May 26, 2022 12:15 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
CHAP |
Author: | wanai [ Thu May 26, 2022 12:16 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
Next |
Author: | wanai [ Thu May 26, 2022 12:17 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
Koke |
Author: | wanai [ Thu May 26, 2022 12:18 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
Kobo |
Author: | wanai [ Thu May 26, 2022 12:19 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
Olga |
Author: | wanai [ Thu May 26, 2022 12:21 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
Dion |
Author: | wanai [ Thu May 26, 2022 12:22 pm ] |
Post subject: | Re: KeyDown - Admin Panel |
Youn |
Page 1 of 11 | All times are UTC |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |