+- Mirage Engine (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: Does anyone have... (/showthread.php?tid=2538)
Does anyone have... - timster0 - 30-01-2009
Does anyone have the forms that go with this old tutorial?
http://web.miragesource.com/old-tutorials/temporary_archive/Guild%20System.html
Re: Does anyone have... - Rian - 30-01-2009
Code:
Private Sub cmdClose_Click()
frmGuildCP.Visible = False
End Sub
Private Sub cmdDemote_Click()
If txtName.Text = "" Then
Call MsgBox("You must first enter a playername to demote them.")
Else
Call GuildDemotion(Trim(txtName.Text))
txtName.Text = ""
End If
End Sub
Private Sub cmdInvite_Click()
If txtName.Text = "" Then
Call MsgBox("You must first enter a playername to invite them.")
Else
Call GuildRequest(Trim(txtName.Text))
txtName.Text = ""
End If
End Sub
Private Sub cmdKick_Click()
If txtName.Text = "" Then
Call MsgBox("You must first enter a playername to kick them from the guild.")
Else
Call GuildRemoval(Trim(txtName.Text))
txtName.Text = ""
End If
End Sub
Private Sub cmdPromote_Click()
If txtName.Text = "" Then
Call MsgBox("You must first enter a playername to promote them.")
Else
Call GuildPromotion(Trim(txtName.Text))
txtName.Text = ""
End If
End SubRe: Does anyone have... - Matt - 30-01-2009
I'm pretty sure he means the physical forms..
Re: Does anyone have... - Rian - 30-01-2009
Why would he need the physical forms? That tutorial only came with one form, and that's all the code on the form. Which is pretty much the only code that tutorial lacks.
If he can read, he can figure out what the form name is, and the names of the controls on the form.
Re: Does anyone have... - Matt - 30-01-2009
Rian Wrote:Why would he need the physical forms? That tutorial only came with one form, and that's all the code on the form. Which is pretty much the only code that tutorial lacks.
If he can read, he can figure out what the form name is, and the names of the controls on the form.
I'm pretty sure he can't read.
Re: Does anyone have... - Rian - 30-01-2009
Christ that was a fast response. I'm pretty sure he can.
Re: Does anyone have... - Matt - 30-01-2009
Rian Wrote:Christ that was a fast response. I'm pretty sure he can.
I can't tell.
A guild system is super easy to write from scratch. I just did it. Lol.
Re: Does anyone have... - timster0 - 30-01-2009
Lol, I CAN Read. Thx for the code though.
Re: Does anyone have... - Nean - 30-01-2009
Wow, a guild system WOULD be simple. If I get around to it, I'll write a tutorial up for it. ^^
Re: Does anyone have... - timster0 - 30-01-2009
The hardest part would be the commands, especially since its more complicated to make commands in MS4.
Re: Does anyone have... - timster0 - 30-01-2009
Getting a wierd bug:
"sub or function not defined"
in the:
Code:
' :::::::::::::::::::::::::
' :: Create Guild packet ::
' :::::::::::::::::::::::::
If LCase(Parse(0)) = "createguild" Then
Dim Z As String
' Prevent hacking
If GetPlayerAccess(Index) < ADMIN_CREATOR Then
Call HackingAttempt(Index, "Trying to use powers not available")
Exit Sub
End If
' The Player
n = FindPlayer(Parse(1))
' The Guild
Z = Trim(Parse(2))
Call CreateGuild(n, Z)
Call SetPlayerGuildAccess(n, 4)
Call SendPlayerData(n)
Call GlobalMsg(GetPlayerName(n) & " has joined the ranks of " & Z & ".", Black)
Call AddLog(GetPlayerName(n) & " has joined the ranks of " & Z & ".", ADMIN_LOG)
Exit Sub
End IfHighlighting:
Code:
Call CreateGuildIsn't this the CreateGuild packet though?
Re: Does anyone have... - Matt - 30-01-2009
timster0 Wrote:The hardest part would be the commands, especially since its more complicated to make commands in MS4.
It's WAY easier in MS4..
Re: Does anyone have... - timster0 - 30-01-2009
Really? I found it harder. Anyways, any fix for my problem, I though it might have to do with something about "n" not being defined but It only made it worse XD.
Re: Does anyone have... - Matt - 30-01-2009
You need the sub "CreateGuild"..
Common sense?
Re: Does anyone have... - timster0 - 30-01-2009
But isn't that packet handling the Create Guild stuff? And if I need a sub, where would I put it?
Re: Does anyone have... - Matt - 31-01-2009
timster0 Wrote:But isn't that packet handling the Create Guild stuff? And if I need a sub, where would I put it?
At the bottom of a module? Usually the one that pertains to the type of information.