Mirage Source

Credit to: Asrrin


Client Side


Ok, Find "Sub SendAddChar"

now add "ByVal kingdom As Long" to the sub title,
should look like



now in modTypes find "Type PlayerRec"

now add under 'general



Now again in modTypes find "Sub ClearPlayer(ByVal Index As Long)"

now under "Player(Index).PK = NO"

add



Now at the VERY bottom of modTypes add these



Now in modGameLogic find "MENU_STATE_ADDCHAR"

now there will be a code like this




Change it to look like this




Now in modGameLogic again find "Sub BltPlayerName(ByVal Index As Long)"

Now change this to.



Or change it how it will work with your game.

Now find "If LCase(Parse(0)) = "playerdata" Then"

now under this "Call SetPlayerPK(i, Val(Parse(9)))"

PUT this



Now on the Form called newchar.frm or whatever. Add a listbox add 2 items to the list Kingdom 1 and Kingdom 2, they can be renamed later. Make sure the name of the listbox is "lstKingdom"



OK NOW FOR SERVER SIDE CODE



Find "Sub SavePlayer(ByVal Index As Long)"

underneath "Call PutVar(FileName, "CHAR" & i, "ShieldSlot", STR(Player(Index).Char(i).ShieldSlot))"

put



Now find "Sub LoadPlayer(ByVal Index As Long, ByVal Name As String)"

under "Player(Index).Char(i).ShieldSlot = Val(GetVar(FileName, "CHAR" & i, "ShieldSlot"))"

put



Now find "Sub AddChar"

and add "ByVal kingdom As Long" to the sub's title like you did in the client.


Now in the same Sub comment out



You don't need these anymore.

Now instead of that put this





Now find "Type PlayerRec"

and add this in



now find "Sub ClearPlayer(ByVal Index As Long)"

And add this in



now find "Sub ClearChar(ByVal Index As Long, ByVal CharNum As Long)"

and add this in



Now at the very bottom on modTypes add these



now find "Sub HandleData(ByVal Index As Long, ByVal Data As String)"

and add this in



now find "CharNum = Val(Parse(4))"

and add this in



find "Call AddChar(Index, Name, Sex, Class, CharNum)"

and change it too



now find "Sub SendJoinMap(ByVal Index As Long)"

add this



and on the one below add this



Now find "Sub SendLeaveMap(ByVal Index As Long, ByVal MapNum As Long)"

and add this



now find "Sub SendPlayerData(ByVal Index As Long)"

and add this



Alrite, That should be everything, I hope it works.
____________________________________________________________

I saw a request for guilds, and while I don't have a tutorial for full-working guilds, I do have this saved on my PC. It should be a decent starting point for anyone to work guilds into their game.

EDIT: Edited to make it look cleaner with italics, some bold, and code.

What does this do?

it's a very basic and general guild system.

_________________

Why not try my app, ColorEye, on your Android devlce?
Do you like social gaming? Fight it out in Battle Juice!

I am a professional software developer in Salt Lake City, UT.

Also sets the player's spawn point depending on the kingdom.

The "tutorial" itself is copy/paste, but you can use it to learn a few things and go from there. That's what I did with my first MS project.

Is this different from the Kingdom Tutorial on that "25 Tutorials" list/site?

Wow, this is old.

This was old when I first joined MS.

Nice find.

_________________

http://www.freewebs.com/centurymm/tutorials.txt ?

Yes it is.

_________________

I remember Asrrin made it for his own MS game, which was supposed to be this vastly different project from the standard medieval stuff. He was using a space-age theme with all sorts of ships and everything. Really original ideas, but he never had the time to complete the game so he quit the project.

I didn't quit my project, just put it on indefinite hiatus, kinda like Duke Nukem: Forever

_________________

_________________
https://www.pandoras-jewelry.com/ Pandora Jewelry
https://www.pandoraoutlet.org/ Pandora Outlet
https://www.jordanshoess.com/ Jordan Shoes
https://www.air-jordan4.com/ Air Jordan 4
https://www.charms-pandora.com/ Pandora Charms