Prince

> Thank you for this tutorial ! > > I didn't tryed that for the moment > > Edit : Tryed , Working perfectly thanks  You cam make a GM icon instead, lol.

Basically, im using RMXP resources so its look weird to the tittle of the game.

Hi there i currently need a logo for my game called Tale of Ninja Online. Its naruto based mmorpg so the logo is gonne look similar to most of the naruto mmo out there. its gonne be a standard logo size with naruto font and abit messy brush at the background.   thanks you so much for your time. sorry i speak bad English. Prince

> Read the code then. Checking if the sum is less than zero doesn't do duck all to fix the problem since the problem is the sum being zero. Think. Thanks you so much, i just did this: ``` If MapNpc(MapNpcNum).num = MAX_MAP_NPCS Then Exit Sub ``` Its working now. Thanks you

> What's the message? Its RTE 9 subscript out of range. > I got this too > > its because npcnum is 0 > > put this on top still doesn't fix it.

After attack the npc then i got this error 

**Introduce** I'm no programmer, i just mess around modgraphic and figure out this cool feature. Actually not a complete feature for a VIP system, so i just tittle it as Rendering graphic over player head. I will update this later to an complete VIP system. I'm using GetPlayerAccess >= 1 to make the graphic appear. **What it will look like**  **Client Side Only** - Download the attachment and put it into "client\data files\graphics\misc" - Go to **ModGraphic** Search for : ``` Public Tex_Shadow As DX8TextureRec ``` Under it add : ``` Public Tex_VIP As DX8TextureRec ``` - In **Private Sub LoadTexture** Search for : ``` ReDim Preserve gTexture(NumTextures) ``` Under Add : ``` Tex_VIP.filepath = App.Path & "\data files\graphics\misc\vip.png" Tex_VIP.Texture = NumTextures - 10 ``` - In **Public Sub UnloadTextures()** Search for : ``` Tex_Shadow.Texture = 0 ``` Under Add : ``` Tex_VIP.Texture = 0 ``` - In **Public Sub DrawPlayer(ByVal Index As Long)** Search for : ``` If GetTickCount > TempPlayer(Index).StartFlash Then Call DrawSprite(Sprite, X, Y, rec) TempPlayer(Index).StartFlash = 0 Else Call DrawSprite(Sprite, X, Y, rec, True) End If ``` Under Add : ``` ' render vip If GetPlayerAccess(Index) >= 1 Then RenderTexture Tex_VIP, ConvertMapX(X - 42), ConvertMapY(Y - 40), 0, 0, 128, 32, 128, 32, D3DColorRGBA(255, 255, 255, 200) End If ``` I will make a complete of the VIP feature in the future. So i don't think this helpful for some reason. Anyway just share it. Prince

I think the walking animation is not looking smooth, different from the last CSDE.

9372 another idiot

> Finsih the effect system rendering. Quest & Guild System. This Engine gonne be  da best.

Please get the Quest system added as soon as possible.

I have a feeling that you gonne be the next dev.

wow cool

A Quest System would be nice ^.^

[](http://www.freemmorpgmaker.com/files/imagehost/#f2d0a0ab85e53bf461f60702c329a21a.PNG)

babies made from : b + a + b + i + e + s = babies lol

2 + 2 / 2 * 2 - 4 = 0

Ok , i sent you my whole things. Thanks you

i have check all of it and it still. Let me do it again or i will upload my whole engine and pm you , would you mind fix that for me ?

Still The Same. It has no change >.<

If i set the price of the item in the shop. ex : 1x Stone For 100 Gold ( Gold Type Set to Currency ) When i buy, it doesn't reduce the amount of the Gold in my inventory also doesn't receive the Stone too, and the message says " Trade Success ". But If I Set the Gold Type to none. It working fine.

And i got runtime error 5 when attack a single monster

Hi Kajamaz , i would like to know if i could do sthing like Let's Play EverEmber Online Youtube Videos. I got 720p quality with Bandicam.com premuim. here is my gameplay video bellow ^.^ http://www.youtube.com/watch?v=KbwnfyEreUA this one is 360p, i not doing 720p because it raise a lot of space. prince

I got Major bug, Currency won't cost. And not receive item too. But if use item type " none " then its ok.

My My , My mistake. I fixed it Sorry. This is the fix :cheesy: >! Function GetPlayerMaxVital(ByVal Index As Long, ByVal Vital As Vitals) As Long Dim i As Long If Index > MAX_PLAYERS Then Exit Function Select Case Vital Case HP Select Case GetPlayerClass(Index) Case 1 ' Warrior GetPlayerMaxVital = (GetPlayerStat(Index, Endurance)) * 15 + 350 Case 2 ' Mage GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (GetPlayerStat(Index, Endurance) / 2)) * 5 + 65 Case Else ' Anything else - Warrior by default GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (GetPlayerStat(Index, Endurance) / 2)) * 15 + 500 End Select For i = 1 To 10 If TempPlayer(Index).Buffs(i) = BUFF_ADD_HP Then GetPlayerMaxVital = GetPlayerMaxVital + TempPlayer(Index).BuffValue(i) >! End If If TempPlayer(Index).Buffs(i) = BUFF_SUB_HP Then GetPlayerMaxVital = GetPlayerMaxVital - TempPlayer(Index).BuffValue(i) End If Next Case MP Select Case GetPlayerClass(Index) Case 1 ' Warrior GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (GetPlayerStat(Index, intelligence) / 2)) * 5 + 25 Case 2 ' Mage GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (GetPlayerStat(Index, Endurance) / 2)) * 15 + 70 GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (GetPlayerStat(Index, intelligence) / 2)) * 30 + 150 Case Else ' Anything else - Warrior by default GetPlayerMaxVital = ((GetPlayerLevel(Index) / 2) + (GetPlayerStat(Index, intelligence) / 2)) * 5 + 25 End Select For i = 1 To 10 If TempPlayer(Index).Buffs(i) = BUFF_ADD_MP Then GetPlayerMaxVital = GetPlayerMaxVital + TempPlayer(Index).BuffValue(i) End If If TempPlayer(Index).Buffs(i) = BUFF_SUB_MP Then GetPlayerMaxVital = GetPlayerMaxVital - TempPlayer(Index).BuffValue(i) End If Next End Select End Function