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

[EO 2.0/3.0] Guilds


Scott
 Share

Recommended Posts

  • Replies 328
  • Created
  • Last Reply

Top Posters In This Topic

@devilfrenzy:

> Can not find it.  Help me      !!
>
>   ' Checks to save players every 5 minutes - Can be tweaked
>         If Tick > LastUpdateSavePlayers Then
>             UpdateSavePlayers
>             LastUpdateSavePlayers = GetTickCount + 300000
>         End If

Sub ServerLoop() in ModServerLoop
Link to comment
Share on other sites

  • 2 weeks later...
@wito35:

> HI. I have a problem with this. What should I do now?

If I where you  I would try not to skip the first step for the client side additions =D

CLIENT

FIND:

```
Public Sub DrawPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim Name As String
```

UNDER ADD:

```
Dim Text2X As Long
Dim Text2Y As Long
Dim GuildString As String
```
Link to comment
Share on other sites

@wito35:

> HI. I have a problem with this. What should I do now?
>
> >! ![](http://img24.imageshack.us/img24/5008/error3r.jpg)
>
> Please help.

You dont added dims at top of sub drawplayername
Add Dim text2x as long, text 2y as long under dim NpcNum as Long
Link to comment
Share on other sites

Actually I'm sorry you mis followed a step, you need to add that section of code to DrawPlayerName not DrawNpcName my bad.

Move

```
If Not Player(Index).GuildName = vbNullString Then
        Call DrawText(TexthDC, Text2X, Text2Y, GuildString, color)
    End If
```
to DrawPlayerName
Link to comment
Share on other sites

  • 2 weeks later...
  • 3 weeks later...
Find this line
```
MyText = LCase$(ChatText)

```
Replace with this line

```
MyText = ChatText

```
Note though, with how the default eclipse system works commands will be case sentitive now.  Next time I release an update I'll include a fix for this.
Link to comment
Share on other sites

@Scott:

> Find the line
> ```
> MyText = LCase$(ChatText)
>
> ```
> Replace with line
>
> ```
> MyText = ChatText
>
> ```
> Note though, with how the default eclipse system works now commands will be case sentitive now.  Next time I release an update I'll include a fix for this.

When are you releasing an update…I'm adding it now and I need it bug free, I saw that list on page 9\. Have you fixed all of those errors yet?
Link to comment
Share on other sites

@Whack:

> When are you releasing an update…I'm adding it now and I need it bug free, I saw that list on page 9\. Have you fixed all of those errors yet?

I've gotten side tracked I admit, not much has been done but I do still plan on doing everything on the list.  I've gotten side tracked with my next project I plan on releasing but seeing as most of the fixes are just small things I'll do my best to make some time for it asap.
Link to comment
Share on other sites

@Scott:

> I've gotten side tracked I admit, not much has been done but I do still plan on doing everything on the list.  I've gotten side tracked with my next project I plan on releasing but seeing as most of the fixes are just small things I'll do my best to make some time for it asap.

I would really appreciate it. I've actually been silently waiting for those for awhile now and I finally decided to say something.
Link to comment
Share on other sites

Exclusive Steps For Eclipse Origins 3.0
Do **not** follow these steps if you are using Eclipse Origins 2.0

–------------------------------------------------------------

FIND:

```
    Name = Trim$(Player(Index).Name)
    ' calc pos
    TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(Name))) / 2)
```

UNDER ADD:

```
    'guild
    GuildString = Player(Index).GuildName
    Text2X = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).xOffset + (PIC_X \ 2) - (getWidth(Font_Default, (Trim$(GuildString))) / 2)

```
–------------------------------------------------------------

FIND:

```
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - 16
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4) + 16
    End If

```

REPLACE WITH:

```
    'new
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - 16
        'Guild TUT
        Text2Y = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4) + 16
        'Guild TUT
        Text2Y = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).yOffset - (Tex_Character(GetPlayerSprite(Index)).Height / 4)
    End If

```

–------------------------------------------------------------

FIND:

```
    ' Draw name
    'Call DrawText(TexthDC, TextX, TextY, Name, Color)
    RenderText Font_Default, Name, TextX, TextY, color, 0
```

UNDER ADD:

```
    If Not Player(Index).GuildName = vbNullString Then
        'Call DrawText(TexthDC, Text2X, Text2Y, GuildString, color)
        RenderText Font_Default, GuildString, Text2X, Text2Y, color, 0
    End If
```

–------------------------------------------------------------
Link to comment
Share on other sites

@Whack:

> Good job; _**I**_ happened to have that stuff done. Do you think you could fix these asap:

Working on it, I just posted that real quick since it only changed 3 lines really.  I'll post the rest in a bundle together should be within a few days I started working on it today but I have other stuff to do.
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


×
×
  • Create New...