[EO] Advanced doors, keys, and switches (v 3.0)

[zacktm]

Tried It..  But As I But A Door.. And Move On It's Tile… An Error Appears On Server
Run-time error"9":
Subscript out of range

Any Solution !!!

[benedek11]

The same happens with me. Everything is working, but when i go on the door's tile: subscript our of range 9

? :o

[Justn]

I haven't had any issues with this updated version are you guys sure you are not putting "empty/blank" doors  on the map?

[Murdoc]

@Justn:

> I haven't had any issues with this updated version are you guys sure you are not putting "empty/blank" doors  on the map?

Don't think theyre lying since I had it in "eclipse omega" and people were complainin about the same shit.. Ryoku could fix it if he knew how

[RyokuHasu]

hmmm… I guess I could update it with my special blend that i kept for myself... I did further debug it, but I just never updated it.

I'll do that later I guess, right now its late and i'm gona sleep.

[Justn]

@Murdoc:

> Don't think theyre lying since I had it in "eclipse omega" and people were complainin about the same shit.. Ryoku could fix it if he knew how

i dont think they are lying but this tutorial has been updated since eclipse omega came out not sure if he fixed it or not :p

[Murdoc]

@Justn:

> i dont think they are lying but this tutorial has been updated since eclipse omega came out not sure if he fixed it or not :p

He didn't. Just check the last few posts in this thread. ;-)

[Justn]

this is a completely new thread that he made after  fixing the 2.0 version didnt know if this was the version u used or the older one for omega… but hope he fixes it i havent had any runtime 9 errors since 3.0 i couldnt even use 2.0 cause of runtime errors maybe u guys just did better stress testing it than i have so far but hope u guys get it worked out :)

[Murdoc]

@Justn:

> this is a completely new thread that he made after  fixing the 2.0 version didnt know if this was the version u used or the older one for omega… but hope he fixes it i havent had any runtime 9 errors since 3.0 i couldnt even use 2.0 cause of runtime errors maybe u guys just did better stress testing it than i have so far but hope u guys get it worked out :)

I used this one for eclipse omega.. i thought it was working fine too, until i got complaints about the rte 9.

[Whackeddie99]

so..does this work for EO2 Yes or no?

[erkro1]

Yes

[Whackeddie99]

everyone seems to be complaining about RTE 9

[Justn]

I don't really understand why and nobody posted an error  cause I haven't had one yet and I have been playing around with it for months off and on only thing I left out was the party member thing :S

[karpaz]

??? this tutorial make me one hour and the result …

[](http://imageshack.us/photo/my-images/252/sracka.png/)

[RyokuHasu]

1\. PlayerDoors goes at the bottom of the Player rec

2\. the Doors rec must be above the Player rec

[Peter120]

Hello!
I added the code but in admin panel when I click on my door button nothing happens.
It's name: cmdADoor
Code in it:

>! ```
Private Sub cmdADoor_Click()
' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
>!     If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then

        Exit Sub
    End If

    SendRequestEditdoors

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdAItem_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
>! End Sub
```

Help!

[RyokuHasu]

I cant see code when you put it in a spoiler tag.

[Peter120]

Private Sub cmdADoor_Click()
' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then

        Exit Sub
    End If

    SendRequestEditdoors

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdAItem_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub

End Sub

[RyokuHasu]

Ok then, show me the Sub SendRequestEditdoors, then show me the Handle for the server side.

the thing about programming is that its connected, that parts good, now lets check the next part.

[Peter120]

Sub SendRequestEditdoors
(Bottom of mod client TCP)
```
Public Sub SendRequestEditdoors()
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 CRequestEditDoors
    SendData Buffer.ToArray()
    Set Buffer = Nothing

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendRequestEditdoors", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

```
Bottom of modHandleData (server)

```
'  //////////////////////////////////
' //Request/Save edit Door packets//
'//////////////////////////////////
Sub HandleEditDoors(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim Buffer As clsBuffer

    ' Prevent hacking
    If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then
        Exit Sub
    End If

    Set Buffer = New clsBuffer
    Buffer.WriteLong SDoorsEditor
    SendDataTo Index, Buffer.ToArray()
    Set Buffer = Nothing
End Sub

Sub HandleRequestDoors(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    SendDoors Index
End Sub

Private Sub HandleSaveDoor(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim DoorNum As Long
    Dim Buffer As clsBuffer
    Dim DoorSize As Long
    Dim DoorData() As Byte

    ' Prevent hacking
    If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then
        Exit Sub
    End If

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    DoorNum = Buffer.ReadLong

    ' Prevent hacking
    If DoorNum < 0 Or DoorNum > MAX_DOORS Then
        Exit Sub
    End If

    DoorSize = LenB(Doors(DoorNum))
    ReDim DoorData(DoorSize - 1)
    DoorData = Buffer.ReadBytes(DoorSize)
    CopyMemory ByVal VarPtr(Doors(DoorNum)), ByVal VarPtr(DoorData(0)), DoorSize
    ' Save it
    Call SendUpdateDoorToAll(DoorNum)
    Call SaveDoor(DoorNum)
    Call AddLog(GetPlayerName(Index) & " saved Door #" & DoorNum & ".", ADMIN_LOG)
End Sub

```

[RyokuHasu]

Did you add the stuff in InitMessages()?

and what does your Client handle look like?

[Peter120]

I added the stuff in InitMessages()
and my Modhandledata (bottom)
```
Private Sub HandleDoorsEditor()
    Dim i As Long

    With frmEditor_Doors
        Editor = EDITOR_DOORS
        .lstIndex.Clear

        ' Add the names
        For i = 1 To MAX_DOORS
            .lstIndex.AddItem i & ": " & Trim$(Doors(i).Name)
        Next

        .Show
        .lstIndex.ListIndex = 0
        DoorEditorInit
    End With

End Sub

Private Sub HandleUpdateDoors(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim DoorNum As Long
Dim Buffer As clsBuffer
Dim DoorSize As Long
Dim DoorData() As Byte

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()

    DoorNum = Buffer.ReadLong

    DoorSize = LenB(Doors(DoorNum))
    ReDim DoorData(DoorSize - 1)
    DoorData = Buffer.ReadBytes(DoorSize)

    ClearDoor DoorNum

    CopyMemory ByVal VarPtr(Doors(DoorNum)), ByVal VarPtr(DoorData(0)), DoorSize

    Set Buffer = Nothing

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandleUpdateDoors", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

```

[RyokuHasu]

WTH! >.< I can't find anything wrong with the code!

unless you left something out of the client InitMessages() o.o…..

I'm at a loss...

[Peter120]

:C What Should I do?

[RyokuHasu]

reload the editor to the project.