PVJsquad Posted January 23, 2013 Author Share Posted January 23, 2013 **INTRO** :"I am so tired of seeing my own guild." That's why I made this tutorial.Here I add a logo on a guild that where the logo was obtained randomly.>! ![](http://www.freemmorpgmaker.com/files/imagehost/pics/13ec2a5a049d8374a8fce43bc022ef57.PNG)![](http://www.freemmorpgmaker.com/files/imagehost/pics/9e8b55ad27085c511d7094638655cb10.PNG) **What i Editing or adding?*** **Client :** modConstants, modGrapichs, modDatabase, modGuild, modHandleData, modTypes, frmEditor_Item* **Server :**modConstants, modGuild, modServerTCP, modPlayer**Require :** **Scott** guild system [http://www.touchofde…eo-2030-guilds/](http://www.touchofdeathforums.com/community/index.php?/topic/124848-eo-2030-guilds/)**Difficulty** **:** Medium**Date Fixed** : none**Extra Files** : none**Recomended** : Start Over Fresh**Engine** : EO 3.0, EA, All Version Suport Guild System in DX8**Notes** :This system must delete your guilds data in sever and your accounts**Version** : v.0.2* **Featured :** adding a reset feature a guild logo with items* **Convert** v.0.1 **to** v.0.2 **:** Add the script with tag **New!****Fix & Bugs :*** **Fix :** add the script with tag **Fix!*** **Bug :** if the master of Guild to replace current logo guild, in guild members are online then the logo will not be edited directly, should re-Login to see how the change logoFixed Thank's to **DarkDino****CLIENT SIDE**first you need make new folder "**guilds**" in "**data files\grapichs**" and content with picturesyou can download in [http://www.mediafire…j8lwhttvrxc3c9h](http://www.mediafire.com/?j8lwhttvrxc3c9h)the icons or logo must 16x16 pixel**New!**Open **modConstants** find```Public Const ITEM_TYPE_SPELL As Byte = 7```add```Public Const ITEM_TYPE_LOGO_GUILD As Byte = 8```open **modGraphics** find```Public Tex_Shadow As DX8TextureRec```add```Public Tex_Guild() As DX8TextureRec```**Fix!**Add/Declare in **Public Sub DrawPlayer**```Dim X2 As Long, Y2 As Long```find```Public NumProjectiles As Long```add```Public NumGuilds As Long```find```' render the actual spriteIf GetTickCount > TempPlayer(Index).StartFlash ThenCall DrawSprite(Sprite, X, Y, rec)TempPlayer(Index).StartFlash = 0ElseCall DrawSprite(Sprite, X, Y, rec, True)End If```add below it```GuildString = Player(Index).GuildNamex2 = ConvertMapX(GetPlayerX(Index) * PIC_X) + TempPlayer(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(GuildString))) / 2) - 18y2 = ConvertMapY(GetPlayerY(Index) * PIC_Y) + TempPlayer(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4)If Not Player(Index).GuildName = vbNullString ThenRenderTexture Tex_Guild(Player(Index).GuildLogo), x2, y2, 0, 0, 16, 16, 16, 16, D3DColorRGBA(255, 255, 255, 200)End If```**Fix : If you not use TempPlayer. Use This**```GuildString = Player(Index).GuildNameX2 = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(GuildString))) / 2) - 18Y2 = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4)If Not Player(Index).GuildName = vbNullString ThenRenderTexture Tex_Guild(Player(Index).GuildLogo), X2, Y2, 0, 0, 16, 16, 16, 16, D3DColorRGBA(255, 255, 255, 200)End If```find```For i = 1 To NumButtons_hTex_Buttons_h(i).Texture = 0Next```add below```For i = 1 To NumGuildsTex_Guild(i).Texture = 0Next```find in sub **LoadTextures()**```Call CheckProjectiles```add```Call CheckGuilds```**Fix!**Open **modDatabse** add in the bottom```Public Sub CheckGuilds()Dim I As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo ErrorHandlerI = 1NumGuilds = 1ReDim Tex_Guild(1)While FileExist(GFX_PATH & "guilds\" & I & GFX_EXT)ReDim Preserve Tex_Guild(NumGuilds)NumTextures = NumTextures + 1ReDim Preserve gTexture(NumTextures)Tex_Guild(NumGuilds).filepath = App.Path & GFX_PATH & "guilds\" & I & GFX_EXTTex_Guild(NumGuilds).Texture = NumTexturesNumGuilds = NumGuilds + 1I = I + 1WendNumGuilds = NumGuilds - 1If NumGuilds = 0 Then Exit SubFor I = 1 To NumGuildsLoadTexture Tex_Guild(I)Next' Error handlerExit SubErrorHandler:HandleError "CheckGuilds", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub```Open **modGuild**in **GuildRec** find```Guild_Color As Integer```add below it```'logo guildGuild_Logo As Long```in **Public Sub HandleSendGuild** find```GuildData.Guild_RecruitRank = Buffer.ReadInteger```add```GuildData.Guild_Logo = Buffer.ReadLong```in **Public Sub GuildSave** find in Case```Buffer.WriteString GuildData.Guild_MOTD```add```Buffer.WriteLong GuildData.Guild_Logo```Open **modHandleData** find in **Private Sub HandlePlayerData**```If Buffer.ReadByte = 1 ThenPlayer(i).GuildName = Buffer.ReadStringElsePlayer(i).GuildName = vbNullStringEnd If```replace with```If Buffer.ReadByte = 1 ThenPlayer(i).GuildName = Buffer.ReadStringPlayer(i).GuildLogo = Buffer.ReadLong 'guild logoElsePlayer(i).GuildName = vbNullStringPlayer(i).GuildLogo = 0End If```Open **modTypes** in **Private Type PlayerRec**add```GuildLogo As Long```**New!CLIENT WORK**Open **frmEditor_Item** in **cmbType** in the list add```Reset Guild Logo```**well Done Lets begin to SERVER SIDE****SERVER SIDE**Open **modConstants** add it very bottom```Public Const MAX_GUILD_LOGO As Long = 10```**Fix!**find```ITEM_TYPE_SPELL As = 7```add```ITEM_TYPE_LOGO_GUILD As = 8```Open **modGuild** find **GuildRec** add before **End Type**```'logo guildGuild_Logo As Long```find in **MakeGuild**```GuildData(GuildSlot).Guild_Members(1).Online = True```add```GuildData(GuildSlot).Guild_Logo = rand(1, MAX_GUILD_LOGO)```find```PlayerMsg Founder_Index, "Welcome to " & GuildData(GuildSlot).Guild_Name & ".", BrightGreen```add```PlayerMsg Founder_Index, "Your Guild Logo Randomly [" & GuildData(GuildSlot).Guild_Logo & "].", BrightGreen```find in **Public Sub ClearGuild(Index As Long)**```GuildData(Index).Guild_RecruitRank = 1```add```GuildData(Index).Guild_Logo = 0```find in **Sub SendGuild(ByVal SendToWholeGuild As Boolean, ByVal Index As Long, ByVal GuildSlot)**```Buffer.WriteInteger GuildData(GuildSlot).Guild_RecruitRank```add```Buffer.WriteLong GuildData(GuildSlot).Guild_Logo```Open **modServerTCP** find```If Player(Index).GuildFileId > 0 ThenIf TempPlayer(Index).tmpGuildSlot > 0 ThenBuffer.WriteByte 1Buffer.WriteString GuildData(TempPlayer(Index).tmpGuildSlot).Guild_NameEnd IfElseBuffer.WriteByte 0End If```replace with```If Player(Index).GuildFileId > 0 ThenIf TempPlayer(Index).tmpGuildSlot > 0 ThenBuffer.WriteByte 1Buffer.WriteString GuildData(TempPlayer(Index).tmpGuildSlot).Guild_NameBuffer.WriteLong GuildData(TempPlayer(Index).tmpGuildSlot).Guild_LogoEnd IfElseBuffer.WriteByte 0Buffer.WriteLong 0End If```**New!**Open **modPlayer** find```Case ITEM_TYPE_SPELL' stat requirementsFor i = 1 To Stats.Stat_Count - 1If GetPlayerRawStat(Index, i) < Item(ItemNum).Stat_Req(i) ThenPlayerMsg Index, "You do not meet the stat requirements to use this item.", BrightRedExit SubEnd IfNext' level requirementIf GetPlayerLevel(Index) < Item(ItemNum).LevelReq ThenPlayerMsg Index, "You do not meet the level requirement to use this item.", BrightRedExit SubEnd If' class requirementIf Item(ItemNum).ClassReq > 0 ThenIf Not GetPlayerClass(Index) = Item(ItemNum).ClassReq ThenPlayerMsg Index, "You do not meet the class requirement to use this item.", BrightRedExit SubEnd IfEnd If' access requirementIf Not GetPlayerAccess(Index) >= Item(ItemNum).AccessReq ThenPlayerMsg Index, "You do not meet the access requirement to use this item.", BrightRedExit SubEnd If' Get the spell numn = Item(ItemNum).Data1If n > 0 Then' Make sure they are the right classIf Spell(n).ClassReq = GetPlayerClass(Index) Or Spell(n).ClassReq = 0 Then' Make sure they are the right leveli = Spell(n).LevelReqIf i <= GetPlayerLevel(Index) Theni = FindOpenSpellSlot(Index)' Make sure they have an open spell slotIf i > 0 Then' Make sure they dont already have the spellIf Not HasSpell(Index, n) ThenCall SetPlayerSpell(Index, i, n)Call SendAnimation(GetPlayerMap(Index), Item(ItemNum).Animation, 0, 0, TARGET_TYPE_PLAYER, Index)Call TakeInvItem(Index, ItemNum, 1)Call PlayerMsg(Index, "You feel the rush of knowledge fill your mind. You can now use " & Trim$(Spell(n).Name) & ".", BrightGreen)ElseCall PlayerMsg(Index, "You already have knowledge of this skill.", BrightRed)End IfElseCall PlayerMsg(Index, "You cannot learn any more skills.", BrightRed)End IfElseCall PlayerMsg(Index, "You must be level " & i & " to learn this skill.", BrightRed)End IfElseCall PlayerMsg(Index, "This spell can only be learned by " & CheckGrammar(GetClassName(Spell(n).ClassReq)) & ".", BrightRed)End IfEnd If' send the soundSendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, ItemNum```add in below```Case ITEM_TYPE_LOGO_GUILD' stat requirementsFor i = 1 To Stats.Stat_Count - 1If GetPlayerRawStat(Index, i) < Item(ItemNum).Stat_Req(i) ThenPlayerMsg Index, "You do not meet the stat requirements to use this item.", BrightRedExit SubEnd IfNext' level requirementIf GetPlayerLevel(Index) < Item(ItemNum).LevelReq ThenPlayerMsg Index, "You do not meet the level requirement to use this item.", BrightRedExit SubEnd If' class requirementIf Item(ItemNum).ClassReq > 0 ThenIf Not GetPlayerClass(Index) = Item(ItemNum).ClassReq ThenPlayerMsg Index, "You do not meet the class requirement to use this item.", BrightRedExit SubEnd IfEnd If' access requirementIf Not GetPlayerAccess(Index) >= Item(ItemNum).AccessReq ThenPlayerMsg Index, "You do not meet the access requirement to use this item.", BrightRedExit SubEnd If'adminIf CheckGuildPermission(Index, 1) = True ThenSetGuildLogo TempPlayer(Index).tmpGuildSlotElsePlayerMsg Index, "Only Founder.", BrightRedExit SubEnd IfSetGuildLogo GuildSlot' send the soundSendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, ItemNum```**New!**in bottom **modPlayer** add```Sub SetGuildLogo(ByVal Index As Long)Dim i As Longi = rand(1, MAX_GUILD_LOGO)If Index < 1 Or i > MAX_GUILD_LOGO Then Exit Sub'prevent HackingIf Not CheckGuildPermission(Index, 1) = True ThenPlayerMsg Index, "Only Founder.", BrightRedExit SubEnd IfGuildData(Index).Guild_Logo = iCall SaveGuild(Index)Call SavePlayer(Index)PlayerMsg Index, "Logo Guild Kamu Secara Acak [" & GuildData(Index).Guild_Logo & "].", BrightGreen'Update user for guild name displayCall SendPlayerData(Index)End Sub```**WELL DONE** Link to comment Share on other sites More sharing options...
hisherwin Posted January 23, 2013 Share Posted January 23, 2013 make one for dx7 and i'll love you xD Link to comment Share on other sites More sharing options...
PVJsquad Posted January 23, 2013 Author Share Posted January 23, 2013 > make one for dx7 and i'll love you xDYou Just need Change the Script in **modGraphics** or in EO 2.0 **modDirectDraw7** from DX8 to DX7 Link to comment Share on other sites More sharing options...
BugSICK Posted January 23, 2013 Share Posted January 23, 2013 can this be added to ER or EA? Link to comment Share on other sites More sharing options...
PVJsquad Posted January 23, 2013 Author Share Posted January 23, 2013 > can this be added to ER or EA?Work Great in EAbut ER if this Engine can add Guild System will surely work Link to comment Share on other sites More sharing options...
erkro1 Posted January 23, 2013 Share Posted January 23, 2013 > require **erwin** guild system> > [http://www.touchofde…eo-2030-guilds/](http://www.touchofdeathforums.com/community/index.php?/topic/124848-eo-2030-guilds/)Thanks for crediting me for something I didn't make lol, it's Scott's system. ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png) Link to comment Share on other sites More sharing options...
PVJsquad Posted January 23, 2013 Author Share Posted January 23, 2013 > Thanks for crediting me for something I didn't make lol, it's Scott's system. ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png)wokwokw sorry technical errors Link to comment Share on other sites More sharing options...
Wortel Angels Posted January 23, 2013 Share Posted January 23, 2013 I wanted to make today an near same system xD But my guild icons wont be random and the players can add new / ChooseThanks for the tutorial that maybe help me with my system :-) Link to comment Share on other sites More sharing options...
PVJsquad Posted January 24, 2013 Author Share Posted January 24, 2013 > I wanted to make today an near same system xD But my guild icons wont be random and the players can add new / Choose> > Thanks for the tutorial that maybe help me with my system :-)Sorry before it steals your ideas ![:D](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/biggrin.png) . But is not it more tense, when the guild logo icon found at random, if the other player can choose icons they would choose the good and ugly that certainly will not be selected. Link to comment Share on other sites More sharing options...
Wortel Angels Posted January 24, 2013 Share Posted January 24, 2013 Nah i wanted to do it like that :1\. Guild Icon folder2\. Players can put in there theyr own made icons 16x163\. Ingame choose at the Guildwindow your icon -> Scrollbar or something else4\. It sends that icon to all which are in that guild (Or just to all its not so big xD)5\. It setts the icon too which the founder made (After relogin of course)–--> But an biiig problem i cant figure out how to let it draw on screen at DX7Make the icon number chooseable is not so hard... it just wont draw on screen Link to comment Share on other sites More sharing options...
abhi2011 Posted January 24, 2013 Share Posted January 24, 2013 Uploading own files is kinda stupid. What if one decides to make a 16x16 porno pic? Link to comment Share on other sites More sharing options...
Wortel Angels Posted January 24, 2013 Share Posted January 24, 2013 xD why should they do.. and if so then i can disable it ;-)And ban the creator ;-)Edit–-And by the way if someone do in an non Erotic ORPG an erotic picture then is he just stupide xDSexual references and textes will be warned and banned ;-) = Pictures too Link to comment Share on other sites More sharing options...
DarkDino Posted January 24, 2013 Share Posted January 24, 2013 Error in Call CheckGuilds ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png) sub or function! fix pls Link to comment Share on other sites More sharing options...
erkro1 Posted January 24, 2013 Share Posted January 24, 2013 > Error in Call CheckGuilds ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png) sub or function! fix plsHave you actually did this tutorial to:http://www.touchofdeathforums.com/community/index.php?/topic/124848-eo-2030-guilds/Because it's required. ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png) Link to comment Share on other sites More sharing options...
DarkDino Posted January 24, 2013 Share Posted January 24, 2013 thanks but i have this guild system ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png).. problem is in this system–------------------Error1:Call CheckGuild Error Sub or FunctionError 2:TempPlayer Error Sub or Function------------------------------**CLIENT SIDE**i fix, nice system ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png)add in modDatabase:```Public Sub CheckGuilds()Dim I As Long' If debug mode, handle error then exit outIf Options.Debug = 1 Then On Error GoTo ErrorHandlerI = 1NumGuilds = 1ReDim Tex_Guild(1)While FileExist(GFX_PATH & "guilds\" & I & GFX_EXT) ReDim Preserve Tex_Guild(NumGuilds) NumTextures = NumTextures + 1 ReDim Preserve gTexture(NumTextures) Tex_Guild(NumGuilds).filepath = App.Path & GFX_PATH & "guilds\" & I & GFX_EXT Tex_Guild(NumGuilds).Texture = NumTextures NumGuilds = NumGuilds + 1 I = I + 1WendNumGuilds = NumGuilds - 1If NumGuilds = 0 Then Exit SubFor I = 1 To NumGuilds LoadTexture Tex_Guild(I)Next' Error handlerExit SubErrorHandler:HandleError "CheckGuilds", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContextErr.ClearExit SubEnd Sub```Add/Declare in Public Sub DrawPlayer```Dim X2 As Long, Y2 As Long```If have problems with TempPlayer, Replace all code with this:```GuildString = Player(Index).GuildNameX2 = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(GuildString))) / 2) - 18Y2 = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4)If Not Player(Index).GuildName = vbNullString ThenRenderTexture Tex_Guild(Player(Index).GuildLogo), X2, Y2, 0, 0, 16, 16, 16, 16, D3DColorRGBA(255, 255, 255, 200)End If```**SERVER SIDE**below this in ModConstantPublic Const ITEM_TYPE_SPELL As Byte = 7Add thisPublic Const ITEM_TYPE_LOGO_GUILD As Byte = 8Good Luck! Link to comment Share on other sites More sharing options...
Scott Posted January 24, 2013 Share Posted January 24, 2013 Looks cool something like this was on my todo list, except I wanted to make a little painter tool ingame instead of uploading images, added it to theadditions section of my thread tho =). Link to comment Share on other sites More sharing options...
abhi2011 Posted January 25, 2013 Share Posted January 25, 2013 > thanks but i have this guild system ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png).. problem is in this system> > –------------------> > Error1:> > Call CheckGuild Error Sub or Function> > Error 2:> > TempPlayer Error Sub or Function> > ------------------------------> > **CLIENT SIDE**> > i fix, nice system ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png)> > add in modDatabase:> > ```> > Public Sub CheckGuilds()> > Dim I As Long> > ' If debug mode, handle error then exit out> > If Options.Debug = 1 Then On Error GoTo ErrorHandler> > I = 1> > NumGuilds = 1> > ReDim Tex_Guild(1)> > While FileExist(GFX_PATH & "guilds\" & I & GFX_EXT)> > ReDim Preserve Tex_Guild(NumGuilds)> > NumTextures = NumTextures + 1> > ReDim Preserve gTexture(NumTextures)> > Tex_Guild(NumGuilds).filepath = App.Path & GFX_PATH & "guilds\" & I & GFX_EXT> > Tex_Guild(NumGuilds).Texture = NumTextures> > NumGuilds = NumGuilds + 1> > I = I + 1> > Wend> > NumGuilds = NumGuilds - 1> > If NumGuilds = 0 Then Exit Sub> > For I = 1 To NumGuilds> > LoadTexture Tex_Guild(I)> > Next> > ' Error handler> > Exit Sub> > ErrorHandler:> > HandleError "CheckGuilds", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext> > Err.Clear> > Exit Sub> > End Sub> > ```> > Add/Declare in Public Sub DrawPlayer> > ```> > Dim X2 As Long, Y2 As Long> > ```> > If have problems with TempPlayer, Replace all code with this:> > ```> > GuildString = Player(Index).GuildName> > X2 = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(GuildString))) / 2) - 18> > Y2 = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4)> > If Not Player(Index).GuildName = vbNullString Then> > RenderTexture Tex_Guild(Player(Index).GuildLogo), X2, Y2, 0, 0, 16, 16, 16, 16, D3DColorRGBA(255, 255, 255, 200)> > End If> > ```> > **SERVER SIDE**> > below this in ModConstant> > Public Const ITEM_TYPE_SPELL As Byte = 7> > Add this> > Public Const ITEM_TYPE_LOGO_GUILD As Byte = 8> > Good Luck!this tutorial should be done only after doing the refrence tutorial give by the OP. Link to comment Share on other sites More sharing options...
PVJsquad Posted January 25, 2013 Author Share Posted January 25, 2013 > thanks but i have this guild system ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png).. problem is in this system> > –------------------> > Error1:> > Call CheckGuild Error Sub or Function> > Error 2:> > TempPlayer Error Sub or Function> > ------------------------------> > **CLIENT SIDE**> > i fix, nice system ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png)> > add in modDatabase:> > ```> > Public Sub CheckGuilds()> > Dim I As Long> > ' If debug mode, handle error then exit out> > If Options.Debug = 1 Then On Error GoTo ErrorHandler> > I = 1> > NumGuilds = 1> > ReDim Tex_Guild(1)> > While FileExist(GFX_PATH & "guilds\" & I & GFX_EXT)> > ReDim Preserve Tex_Guild(NumGuilds)> > NumTextures = NumTextures + 1> > ReDim Preserve gTexture(NumTextures)> > Tex_Guild(NumGuilds).filepath = App.Path & GFX_PATH & "guilds\" & I & GFX_EXT> > Tex_Guild(NumGuilds).Texture = NumTextures> > NumGuilds = NumGuilds + 1> > I = I + 1> > Wend> > NumGuilds = NumGuilds - 1> > If NumGuilds = 0 Then Exit Sub> > For I = 1 To NumGuilds> > LoadTexture Tex_Guild(I)> > Next> > ' Error handler> > Exit Sub> > ErrorHandler:> > HandleError "CheckGuilds", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext> > Err.Clear> > Exit Sub> > End Sub> > ```> > Add/Declare in Public Sub DrawPlayer> > ```> > Dim X2 As Long, Y2 As Long> > ```> > If have problems with TempPlayer, Replace all code with this:> > ```> > GuildString = Player(Index).GuildName> > X2 = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(GuildString))) / 2) - 18> > Y2 = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4)> > If Not Player(Index).GuildName = vbNullString Then> > RenderTexture Tex_Guild(Player(Index).GuildLogo), X2, Y2, 0, 0, 16, 16, 16, 16, D3DColorRGBA(255, 255, 255, 200)> > End If> > ```> > **SERVER SIDE**> > below this in ModConstant> > Public Const ITEM_TYPE_SPELL As Byte = 7> > Add this> > Public Const ITEM_TYPE_LOGO_GUILD As Byte = 8> > Good Luck!cool thank's for fix this Link to comment Share on other sites More sharing options...
My Brave Shine Posted March 19, 2014 Share Posted March 19, 2014 Hey Guys!, in my project this is a problem : /" [http://imageshack.com/a/img854/2862/1br4.jpg](http://imageshack.com/a/img854/2862/1br4.jpg) "how to fix ? give'm light plz.. i tested change that for other "getplayer" or "TempPlayer" but, not compiled :xxx 'm "newbie" at thisThax ^-^ - Grateful already Link to comment Share on other sites More sharing options...
Justn Posted March 19, 2014 Share Posted March 19, 2014 I think it is because you put that code in "drawnpc" and not "drawplayer" Link to comment Share on other sites More sharing options...
My Brave Shine Posted March 19, 2014 Share Posted March 19, 2014 oh dad :X Help me… i try and try.. but nops... now i put the code in "Drawplayer", below pic[http://imageshack.com/a/img600/1889/nn9r.jpg](http://imageshack.com/a/img600/1889/nn9r.jpg)But, in compilation surge this error :X help me plz! this system is wonderfull but missing something in my EO perhaps? Link to comment Share on other sites More sharing options...
PD Posted March 19, 2014 Share Posted March 19, 2014 > oh dad :X Help me… i try and try.. but nops... now i put the code in "Drawplayer", below pic> > [http://imageshack.com/a/img600/1889/nn9r.jpg](http://imageshack.com/a/img600/1889/nn9r.jpg)> > But, in compilation surge this error :X help me plz! this system is wonderfull but missing something in my EO perhaps?Dad? What am I missing here?'GuildString' isn't defined. Link to comment Share on other sites More sharing options...
My Brave Shine Posted March 19, 2014 Share Posted March 19, 2014 i used the system of guilds of Scott : / i need help to set or fix this :x Link to comment Share on other sites More sharing options...
SkywardRiver Posted March 19, 2014 Share Posted March 19, 2014 Use CTRL+F while in VB6 to find this:```Public Sub DrawPlayerName(ByVal Index As Long)Dim TextX As LongDim TextY As LongDim color As LongDim Name As StringDim Text2X As LongDim Text2Y As Long```Directly under that ^^^^ paste this:```Dim GuildString As String```Tell me if anything else go awry.Also add:```Dim GuildString As String```to the top of 'DrawPlayer' Link to comment Share on other sites More sharing options...
PVJsquad Posted March 20, 2014 Author Share Posted March 20, 2014 what your engine? if not DX8 don't add the system Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now