Runtime Error 424- Object Required. (Guilds)

[Ganjika]

After trying to make a Guild called "Administration" with /guild make Administration I get this error.

I can't even get back into that character without it giving me this same error again and crashing as it did the

first time now. I can make a new character and get back into the game but the other one which i tried to make the

first guild on crashed and showed error.


[Stein]

Miiight want to debug that one. Kind of hard to make a guess without any code. Right now all I could say would be either;

1) Pandas

2) Poodles

3) Wilfred Muffinface

4) Cookadoodledee

Which aren't really all that helpful.

[Scott]

Delete all your old user accounts the format changed those old accounts will all causes issues.

[Ganjika]


(above: debug report of ModGuild).

(below: actual code of ModGuild).

**ModGuild**

```

Public Const MAX_GUILD_MEMBERS As Long = 50

Public Const MAX_GUILD_RANKS As Long = 6

Public Const MAX_GUILD_RANKS_PERMISSION As Long = 6

Public GuildData As GuildRec

Public Type GuildRanksRec

'General variables

Used As Boolean

Name As String

'Rank Variables

RankPermission(1 To MAX_GUILD_RANKS_PERMISSION) As Byte

RankPermissionName(1 To MAX_GUILD_RANKS_PERMISSION) As String

End Type

Public Type GuildMemberRec

'User login/name

Used As Boolean

User_Login As String

User_Name As String

Founder As Boolean

'Guild Variables

Rank As Integer

Comment As String * 300

End Type

Public Type GuildRec

In_Use As Boolean

Guild_Name As String

'Guild file number for saving

Guild_Fileid As Long

Guild_Members(1 To MAX_GUILD_MEMBERS) As GuildMemberRec

Guild_Ranks(1 To MAX_GUILD_RANKS) As GuildRanksRec

'Message of the day

Guild_MOTD As String * 100

'The rank recruits start at

Guild_RecruitRank As Integer

Guild_Color As Integer

End Type

Public Sub HandleAdminGuild(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim Buffer As clsBuffer

Dim i As Integer

Dim b As Integer

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

If Buffer.ReadByte = 1 Then

frmGuildAdmin.Visible = True

Else

frmGuildAdmin.Visible = False

End If

Set Buffer = Nothing

' Error handler

Exit Sub

errorhandler:

HandleError "HandleAdminGuild", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

End Sub

Public Sub HandleSendGuild(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim Buffer As clsBuffer

Dim i As Integer

Dim b As Integer

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

GuildData.Guild_Name = Buffer.ReadString

GuildData.Guild_Color = Buffer.ReadInteger

GuildData.Guild_MOTD = Buffer.ReadString

GuildData.Guild_RecruitRank = Buffer.ReadInteger

'Get Members

For i = 1 To MAX_GUILD_MEMBERS

GuildData.Guild_Members(i).User_Name = Buffer.ReadString

GuildData.Guild_Members(i).Rank = Buffer.ReadInteger

GuildData.Guild_Members(i).Comment = Buffer.ReadString

Next i

'Get Ranks

For i = 1 To MAX_GUILD_RANKS

GuildData.Guild_Ranks(i).Name = Buffer.ReadString

For b = 1 To MAX_GUILD_RANKS_PERMISSION

GuildData.Guild_Ranks(i).RankPermission( = Buffer.ReadByte

GuildData.Guild_Ranks(i).RankPermissionName( = Buffer.ReadString

Next b

Next i

'Update Guildadmin data

Call frmGuildAdmin.Load_Guild_Admin

Set Buffer = Nothing

' Error handler

Exit Sub

errorhandler:

HandleError "HandleSendGuild", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

End Sub

Public Sub GuildMsg(ByVal text As String)

Dim Buffer As clsBuffer

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteLong CSayGuild

Buffer.WriteString text

SendData Buffer.ToArray()

Set Buffer = Nothing

' Error handler

Exit Sub

errorhandler:

HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

Public Sub GuildCommand(ByVal Command As Integer, ByVal SendText As String)

Dim Buffer As clsBuffer

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteLong CGuildCommand

Buffer.WriteInteger Command

Buffer.WriteString SendText

SendData Buffer.ToArray()

Set Buffer = Nothing

' Error handler

Exit Sub

errorhandler:

HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

Public Sub GuildSave(ByVal SaveType As Integer, ByVal Index As Integer)

Dim Buffer As clsBuffer

Dim i As Integer

Dim b As Integer

'SaveType

'1=options

'2=users

'3=ranks

If Index = 0 Then Exit Sub

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteLong CSaveGuild

Buffer.WriteInteger SaveType

Buffer.WriteInteger Index

Select Case SaveType

Case 1

'options

Buffer.WriteInteger GuildData.Guild_Color

Buffer.WriteInteger GuildData.Guild_RecruitRank

Buffer.WriteString GuildData.Guild_MOTD

Case 2

'users

Buffer.WriteInteger GuildData.Guild_Members(Index).Rank

Buffer.WriteString GuildData.Guild_Members(Index).Comment

Case 3

'ranks

Buffer.WriteString GuildData.Guild_Ranks(Index).Name

For i = 1 To MAX_GUILD_RANKS_PERMISSION

Buffer.WriteByte GuildData.Guild_Ranks(Index).RankPermission(i)

Next i

End Select

SendData Buffer.ToArray()

Set Buffer = Nothing

' Error handler

Exit Sub

errorhandler:

HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

```

[Stein]

… If you read the highlighted line, you'll notice that it's from a seperate form that it's calling, not a module.

[Ganjika]

> … If you read the highlighted line, you'll notice that it's from a seperate form that it's calling, not a module.

I read the line - I'm just still fairly new. :shrug:

How should i proceed?

[Stein]

Make sure frmGuildAdmin exists, and then check if the sub Load_Guild_Admin on it exists.

[Ganjika]

My problem was that i forgot to add->module and add->form, thank you so much for helping me find this, I highly appreciate your input. Have a good one. =]