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

(EO) Guild menu *UPDATE*


tslusny
 Share

Recommended Posts

  • Replies 99
  • Created
  • Last Reply

Top Posters In This Topic

> Here is the Guild Menu and pic!

Thx bro i added it as attachment to main post ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)

> I think part of this is in either ED or Freedom.. Might want to look into that Death. Although I was planning on rewriting most of it, I don't think I ever did? Aside from fixing the color system.

Yea it is in Freedom Online i think, and fixing color system is easy 2do too, idk why Scott dont fixed it yet
Link to comment
Share on other sites

> Thx bro i added it as attachment to main post ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)
>
> Yea it is in Freedom Online i think, and fixing color system is easy 2do too, idk why Scott dont fixed it yet

It's not broken, I just never got around to it and decided it was not important enough to hold off the release for =).
Link to comment
Share on other sites

> I fixed the issue I was having, thanks Scott and Deathbeam for clarifying what I did wrong
>
> to get it working properly
>
> Server side find this in ModServerTCP
>
> ```
> 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
> ```
>
> under add
>
> ```
> If Player(index).GuildFileId > 0 Then
>
> If TempPlayer(index).TmpGuildSlot > 0 Then
>
> Buffer.WriteByte 1
>
> Buffer.WriteLong Player(index).GuildMemberId
>
> End If
>
> Else
>
> Buffer.WriteByte 0
>
> End If
> ```
>
> Save and compile

I don't get it, shouldn't you replace it instead of put it under?

EDIT: Sorry for quoting an old post, I'm just really confused.
Link to comment
Share on other sites

Okay, I decided to simplify and fix (Because of updates) kira423's post on how to fix this.

>! > I fixed the issue I was having, thanks Scott and Deathbeam for clarifying what I did wrong
>
> to get it working properly
>
> Server side find this in ModServerTCP
>
> ```
> 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
> ```
>
> under add
>
> ```
> If Player(index).GuildFileId > 0 Then
>
> If TempPlayer(index).TmpGuildSlot > 0 Then
>
> Buffer.WriteByte 1
>
> Buffer.WriteLong Player(index).GuildMemberId
>
> End If
>
> Else
>
> Buffer.WriteByte 0
>
> End If
> ```
>
> Save and compile
>
> then Client side find this in ModTypes
>
> ```
> GuildName As String
> ```
>
> under add
>
> ```
> GuildMemberId As Long
> ```
>
> in ModHandleData find
>
> ```
> If Buffer.ReadByte = 1 Then
>
> Player(i).GuildName = Buffer.ReadString
>
> Else
>
> Player(i).GuildName = vbNullString
>
> End If
> ```
>
> under add
>
> ```
> If Buffer.ReadByte = 1 Then
>
> Player(i).GuildMemberId = Buffer.ReadLong
>
> Else
>
> Player(i).GuildMemberId = 0
>
> End If
> ```
>
> Finally in ModGeneral find
>
> ```
> If GuildData.Guild_Members(MyIndex).Rank > 5 Then
>
> frmMain.lblGuildDisband.visible = True
>
> Else
>
> frmMain.lblGuildDisband.visible = False
>
> End If
> ```
>
> and change to
>
> ```
> If Player(MyIndex).GuildMemberId > 0 Then
>
> If GuildData.Guild_Members(Player(MyIndex).GuildMemberId).Rank > 5 Then
>
> frmMain.lblGuildDisband.visible = True
>
> Else
>
> frmMain.lblGuildDisband.visible = False
>
> End If
>
> End If
> ```<– This implements what Scott said below

>! **NOTICE:** _This is an edited version of a quote!_
>! > I fixed the issue I was having, thanks Scott and Deathbeam for clarifying what I did wrong
>
> to get it working properly
>
> Server side find this in ModServerTCP
>
> ```
> Buffer.WriteByte 1
>
> Buffer.WriteString GuildData(TempPlayer(index).TmpGuildSlot).Guild_Name
> ```
>
> add under
>
> ```
> Buffer.WriteLong Player(index).GuildMemberId
> ```
>
> Save and compile
>
> then Client side find this in ModTypes
>
> ```
> GuildName As String
> ```
>
> under add
>
> ```
> GuildMemberId As Long
> ```
>
> in ModHandleData find
>
> ```
> Player(i).GuildName = Buffer.ReadString
>
> Else
>
> Player(i).GuildName = vbNullString
> ```
>
> replace with
>
> ```
> Player(i).GuildName = Buffer.ReadString
>
> Player(i).GuildMemberId = Buffer.ReadLong
>
> Else
>
> Player(i).GuildName = vbNullString
>
> Player(i).GuildMemberId = 0
> ```
>
> Finally in ModGeneral find
>
> ```
> If GuildData.Guild_Members(MyIndex).Rank > 5 Then
>
> .lblGuildDisband.visible = True
>
> .lblGuildFounder.Visible = True
>
> Else
>
> .lblGuildDisband.visible = False
>
> .lblGuildFounder.Visible = False
>
> End If
> ```
>
> and change to
>
> ```
> If Player(MyIndex).GuildMemberId > 0 Then
>
> If GuildData.Guild_Members(Player(MyIndex).GuildMemberId).Rank > 5 Then
>
> .lblGuildDisband.visible = True
>
> .lblGuildFounder.Visible = True
>
> Else
>
> .lblGuildDisband.visible = False
>
> .lblGuildFounder.Visible = False
>
> End If
>
> End If
> ```<– This implements what Scott said below
>
> Also in ModGeneral, find and delete
>
> ```
> .lblGuildCDesc.Visible = False
> ```
Link to comment
Share on other sites

  • 2 weeks later...
  • 4 months later...
  • 5 months later...

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


×
×
  • Create New...