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

[EO 2.0/3.0] Guilds


Scott
 Share

Recommended Posts

How to Fix This?

Error Desc=
–---------------------------------------
Subscript out of Range

    ' check if already in a party
    **If TempPlayer(Index).inParty > 0 Then**

This error appears every time I write
/guild make (name)
/guild admin
and etc

I can not even make the guild because it always appears an error like that
Link to comment
Share on other sites

  • Replies 328
  • Created
  • Last Reply

Top Posters In This Topic

@Lazlike:

> How to Fix This?
>
> Error Desc=
> –---------------------------------------
> Subscript out of Range
>
>     ' check if already in a party
>     **If TempPlayer(Index).inParty > 0 Then**
>
> This error appears every time I write
> /guild make (name)
> /guild admin
> and etc
>
> I can not even make the guild because it always appears an error like that

Give us the whole sub its erroring in.

@Sherwin:

> Re Do it..

Don't reply if you don't know the answer, it has nothing to do with the guild system because its the check for inParty.
Link to comment
Share on other sites

@Zopto:

> tnx mortal
> edite: i found bug when player is rank 1 he can kick some other players  of guild how to fix that o.o?

Are you trying this on the account that founded the guild, if so they have UN-restricted access if not I'll look into it.
Link to comment
Share on other sites

I know look what i sayd i tryid /guild invit (player name) then i tryid only /guild invit to see if the game will give me an error that i need to type /guild invit (player name) like the other commands so i can see if the commant even works.
Link to comment
Share on other sites

@Captain:

> I'm using Dragon Eclipse the DX7 version could that be a problem?

maybe it have alot tutorials and it is litl bugy
try this command /guild invite
dose you add guild system
in eclipse dragon you dont have guild system
Link to comment
Share on other sites

If your not using the text rendering system from eo 2.0 or eo 3.0(There is instructions showing which steps need to be switched out) than it won't work. Paste me your Sub DrawPlayerName(I think thats what it's called sorry if it's not) from modText.
Link to comment
Share on other sites

> 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
> Dim GuildString As String
>
>     ' If debug mode, handle error then exit out
>     If Options.Debug = 1 Then On Error GoTo errorhandler
>
>     ' Check access level
>     If GetPlayerPK(Index) = NO Then
>
>         Select Case GetPlayerAccess(Index)
>             Case 0
>                 color = RGB(255, 96, 0)
>             Case 1
>                 color = QBColor(DarkGrey)
>             Case 2
>                 color = QBColor(Cyan)
>             Case 3
>                 color = QBColor(BrightGreen)
>             Case 4
>                 color = QBColor(Yellow)
>         End Select
>
>     Else
>         color = QBColor(BrightRed)
>     End If
>
>     Name = Trim$(Player(Index).Name)
>     ' calc pos
>     TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name)))
>     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 - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16
>         'Guild TUT
>         Text2Y = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 4
>     End If
>
>     ' Draw name
>     Call DrawText(TexthDC, TextX, TextY, Name, color)
>             If Not Player(Index).GuildName = vbNullString Then
>         Call DrawText(TexthDC, Text2X, Text2Y, GuildString, color)
>     End If
>    
>     ' Error handler
>     Exit Sub
> errorhandler:
>     HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
>     Err.Clear
>     Exit Sub
> End Sub

Its 2.0
Link to comment
Share on other sites

i using eclipse event 2.3
server side
i got this error sub scribe out of range 9
Sub SendDataToGuild(ByVal GuildSlot As Long, ByRef Data() As Byte)

If Player(i).GuildFileId = GuildData(GuildSlot).Guild_Fileid Then
???
how to fix it
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...