| Mirage Source http://miragesource.net/forums/ |
|
| Heal MP & SP Tiles (tested) http://miragesource.net/forums/viewtopic.php?f=201&t=4490 |
Page 1 of 1 |
| Author: | DarkX [ Wed Oct 01, 2008 2:12 am ] |
| Post subject: | Heal MP & SP Tiles (tested) |
Ok I am out of town so I can not use my computer, but I figured I would try to right up a tut, but since I do not have a computer around me. So I can not test it out, so I am going to post it and hope someone will test it out. If not I will let you know when I get back in town Mp Attribute Tile :: SERVER SIDE :: In modTypes, add: Code: Public Const TILE_TYPE_MP = 11 In modGamelogic, go to Sub PlayerMove, and add: Code: If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_MP Then Call SetPlayerMP(Index, GetPlayerMaxMP(Index)) Call SendMP(Index) Call PlayerMsg(Index, "You feel a sudden rush of energy through your body as you regain mana!", BrightBlue) End If :: CLIENT SIDE :: In modTypes, add: Code: Public const TILE_TYPE_MP = 11 In modGamelogic, find: Code: If .Type = TILE_TYPE_BLOCKED Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "B", QBColor(BrightRed)) Beneath that, add: Code: If .Type = TILE_TYPE_MP Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "MP", QBColor(BrightGreen)) Find: Code: If frmMirage.optWarp.Value = True Then .Type = TILE_TYPE_WARP .Data1 = EditorWarpMap .Data2 = EditorWarpX .Data3 = EditorWarpY End If Beneath that, add: Code: If frmMirage.optMP.Value = True Then .Type = TILE_TYPE_MP .Data1 = 0 .Data2 = 0 .Data3 = 0 End If Ok go in to frmMirage, or frmMapEditor which everone that you have and make a option button call it optMP and your done. Also side note, if you have converted to having frmMapEditor change the above code to: Code: If frmMapeditor.optMP.Value = True Then .Type = TILE_TYPE_MP .Data1 = 0 .Data2 = 0 .Data3 = 0 End If Ok here's a extra code set for the stamina SP Attribute Tile :: SERVER SIDE :: In modTypes, add: Code: Public Const TILE_TYPE_SP = 12 In modGamelogic, go to Sub PlayerMove, and add: Code: If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_SP Then Call SetPlayerSP(Index, GetPlayerMaxSP(Index)) Call SendSP(Index) Call PlayerMsg(Index, "You feel a sudden rush of energy through your body as you regain Stamina!", BrightYellow) End If :: CLIENT SIDE :: In modTypes, add: Code: Public const TILE_TYPE_SP = 12 In modGamelogic, find: Code: If .Type = TILE_TYPE_BLOCKED Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "B", QBColor(BrightRed)) Beneath that, add: Code: If .Type = TILE_TYPE_SP Then Call DrawText(TexthDC, x * PIC_X + 8, y * PIC_Y + 8, "SP", QBColor(BrightYellow)) Find: Code: If frmMirage.optWarp.Value = True Then .Type = TILE_TYPE_WARP .Data1 = EditorWarpMap .Data2 = EditorWarpX .Data3 = EditorWarpY End If Beneath that, add: Code: If frmMirage.optMP.Value = True Then .Type = TILE_TYPE_SP .Data1 = 0 .Data2 = 0 .Data3 = 0 End If Ok go in to frmMirage, or frmMapEditor which everone that you have and make a option button call it optSP and your done. Also side note, if you have converted to having frmMapEditor change the above code to: Code: If frmMapeditor.optMP.Value = True Then .Type = TILE_TYPE_SP .Data1 = 0 .Data2 = 0 .Data3 = 0 End If Ok Now here's the issue, I cannot remember wether or not there was a SETMAXMP or SP code so double check, and if needed take a clear look at the SETMAXHP code and duplicate it so that you have it. Please let me know if this code works if anyone could please test it. And I know these are in the wrong place, but they are untested so I am not going to post them in the tutorials Forums if the mods want they can move them if these work. |
|
| Page 1 of 1 | All times are UTC |
| Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |
|