Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

[EO 3.0]Random Logo Guild System[v.0.2]

PVJsquad

By PVJsquad,
in Source

 Share

Recommended Posts

PVJsquad Newbie

PVJsquad

Posted
  • Author
Posted
**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 logo

Fixed Thank's to **DarkDino**

**CLIENT SIDE**

first you need make new folder "**guilds**" in "**data files\grapichs**" and content with pictures

you 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 sprite
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
```
add below it

```
GuildString = Player(Index).GuildName
x2 = ConvertMapX(GetPlayerX(Index) * PIC_X) + TempPlayer(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(GuildString))) / 2) - 18
y2 = ConvertMapY(GetPlayerY(Index) * PIC_Y) + TempPlayer(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
```**Fix : If you not use TempPlayer. Use 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
```find

```
For i = 1 To NumButtons_h
Tex_Buttons_h(i).Texture = 0
Next
```
add below

```
For i = 1 To NumGuilds
Tex_Guild(i).Texture = 0
Next
```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 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
```Open **modGuild**

in **GuildRec** find

```
Guild_Color As Integer
```
add below it

```
'logo guild
Guild_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 Then
Player(i).GuildName = Buffer.ReadString
Else
Player(i).GuildName = vbNullString
End If
```
replace with

```
If Buffer.ReadByte = 1 Then
Player(i).GuildName = Buffer.ReadString
Player(i).GuildLogo = Buffer.ReadLong 'guild logo
Else
Player(i).GuildName = vbNullString
Player(i).GuildLogo = 0
End 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 guild
Guild_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 Then
If TempPlayer(Index).tmpGuildSlot > 0 Then
Buffer.WriteByte 1
Buffer.WriteString GuildData(TempPlayer(Index).tmpGuildSlot).Guild_Name
End If
Else
Buffer.WriteByte 0
End If
```
replace with

```
If Player(Index).GuildFileId > 0 Then
If TempPlayer(Index).tmpGuildSlot > 0 Then
Buffer.WriteByte 1
Buffer.WriteString GuildData(TempPlayer(Index).tmpGuildSlot).Guild_Name
Buffer.WriteLong GuildData(TempPlayer(Index).tmpGuildSlot).Guild_Logo
End If
Else
Buffer.WriteByte 0
Buffer.WriteLong 0
End If
```**New!**
Open **modPlayer** find

```
Case ITEM_TYPE_SPELL

' stat requirements
For i = 1 To Stats.Stat_Count - 1
If GetPlayerRawStat(Index, i) < Item(ItemNum).Stat_Req(i) Then
PlayerMsg Index, "You do not meet the stat requirements to use this item.", BrightRed
Exit Sub
End If
Next

' level requirement
If GetPlayerLevel(Index) < Item(ItemNum).LevelReq Then
PlayerMsg Index, "You do not meet the level requirement to use this item.", BrightRed
Exit Sub
End If

' class requirement
If Item(ItemNum).ClassReq > 0 Then
If Not GetPlayerClass(Index) = Item(ItemNum).ClassReq Then
PlayerMsg Index, "You do not meet the class requirement to use this item.", BrightRed
Exit Sub
End If
End If

' access requirement
If Not GetPlayerAccess(Index) >= Item(ItemNum).AccessReq Then
PlayerMsg Index, "You do not meet the access requirement to use this item.", BrightRed
Exit Sub
End If

' Get the spell num
n = Item(ItemNum).Data1
If n > 0 Then
' Make sure they are the right class
If Spell(n).ClassReq = GetPlayerClass(Index) Or Spell(n).ClassReq = 0 Then
' Make sure they are the right level
i = Spell(n).LevelReq
If i <= GetPlayerLevel(Index) Then
i = FindOpenSpellSlot(Index)
' Make sure they have an open spell slot
If i > 0 Then
' Make sure they dont already have the spell
If Not HasSpell(Index, n) Then
Call 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)
Else
Call PlayerMsg(Index, "You already have knowledge of this skill.", BrightRed)
End If
Else
Call PlayerMsg(Index, "You cannot learn any more skills.", BrightRed)
End If
Else
Call PlayerMsg(Index, "You must be level " & i & " to learn this skill.", BrightRed)
End If
Else
Call PlayerMsg(Index, "This spell can only be learned by " & CheckGrammar(GetClassName(Spell(n).ClassReq)) & ".", BrightRed)
End If
End If

' send the sound
SendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, ItemNum
```
add in below

```
Case ITEM_TYPE_LOGO_GUILD

' stat requirements
For i = 1 To Stats.Stat_Count - 1
If GetPlayerRawStat(Index, i) < Item(ItemNum).Stat_Req(i) Then
PlayerMsg Index, "You do not meet the stat requirements to use this item.", BrightRed
Exit Sub
End If
Next

' level requirement
If GetPlayerLevel(Index) < Item(ItemNum).LevelReq Then
PlayerMsg Index, "You do not meet the level requirement to use this item.", BrightRed
Exit Sub
End If

' class requirement
If Item(ItemNum).ClassReq > 0 Then
If Not GetPlayerClass(Index) = Item(ItemNum).ClassReq Then
PlayerMsg Index, "You do not meet the class requirement to use this item.", BrightRed
Exit Sub
End If
End If

' access requirement
If Not GetPlayerAccess(Index) >= Item(ItemNum).AccessReq Then
PlayerMsg Index, "You do not meet the access requirement to use this item.", BrightRed
Exit Sub
End If

'admin
If CheckGuildPermission(Index, 1) = True Then
SetGuildLogo TempPlayer(Index).tmpGuildSlot
Else
PlayerMsg Index, "Only Founder.", BrightRed
Exit Sub
End If

SetGuildLogo GuildSlot

' send the sound
SendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, ItemNum
```**New!**
in bottom **modPlayer** add

```
Sub SetGuildLogo(ByVal Index As Long)
Dim i As Long

i = rand(1, MAX_GUILD_LOGO)

If Index < 1 Or i > MAX_GUILD_LOGO Then Exit Sub
'prevent Hacking
If Not CheckGuildPermission(Index, 1) = True Then
PlayerMsg Index, "Only Founder.", BrightRed
Exit Sub
End If

GuildData(Index).Guild_Logo = i
Call SaveGuild(Index)
Call SavePlayer(Index)

PlayerMsg Index, "Logo Guild Kamu Secara Acak [" & GuildData(Index).Guild_Logo & "].", BrightGreen

'Update user for guild name display
Call SendPlayerData(Index)

End Sub
```
**WELL DONE**
Link to comment
Share on other sites
erkro1 Newbie

erkro1

Posted
Posted
> 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
PVJsquad Newbie

PVJsquad

Posted
  • Author
Posted
> 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
Wortel Angels Newbie

Wortel Angels

Posted
Posted
Nah i wanted to do it like that :

1\. Guild Icon folder

2\. Players can put in there theyr own made icons 16x16

3\. Ingame choose at the Guildwindow your icon -> Scrollbar or something else

4\. 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 DX7

Make the icon number chooseable is not so hard... it just wont draw on screen
Link to comment
Share on other sites
erkro1 Newbie

erkro1

Posted
Posted
> Error in Call CheckGuilds ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/sad.png) sub or function! fix pls

Have 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
DarkDino Newbie

DarkDino

Posted
Posted
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!
Link to comment
Share on other sites
abhi2011 Newbie

abhi2011

Posted
Posted
> 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
PVJsquad Newbie

PVJsquad

Posted
  • Author
Posted
> 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
  • 1 year later...
My Brave Shine Newbie

My Brave Shine

Posted
Posted
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 this

Thax ^-^ - Grateful already
Link to comment
Share on other sites
My Brave Shine Newbie

My Brave Shine

Posted
Posted
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
PD Newbie

PD

Posted
Posted
> 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
SkywardRiver Newbie

SkywardRiver

Posted
Posted
Use CTRL+F while in VB6 to find this:

```

Public Sub DrawPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim Name As String
Dim Text2X As Long
Dim 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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...