[Pedido] Pedido Eclipse

1. O primeiro é que quando eu to editando o mapa e eu altero algo e clico em send, ele da erro 9 no server, algo haver com Subscription algo assim...
   
   
2. O segundo é que quando eu entro no painel de administração escrevendo o comando /admin, ele me abre um painel básico que não me leva pra nenhum dos editores importantes como mapeditor, itemeditor, spelleditor e etc... Todos acabam sendo por comandos, teria como adicionar botões a área administrativa quando eu entrasse em /admin?
   
   
3. O terceiro é que quando eu fecho o servidor clicando no X sem clicar em shutdown, o client se fecha automaticamente sem nenhum aviso prévio, isso se tornaria inconveniente dentro de um jogo MMORPG, seria chato e feio mesmo... Teria como um aviso aparecer na tela e a pessoa poder voltar pro menu principal ou então fechar o jogo mesmo? Se sim, alguém poderia me disponibilizar algo assim?

Tucunareh escreveu:A 2° dúvida, se for na Eclipse Reborn, só apertar "Insert".

Código:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    isShuttingDown = True
    cmdShutDown.Caption = "Cancel"
    Cancel = True
End Sub

Código:

Private Sub cmdShutDown_Click()

Código:

Private Sub cmdShutDown_Click()
    If isShuttingDown Or isLongShuttingDown Then
        isShuttingDown = False
        isLongShuttingDown = False
        cmdShutDown.Caption = "Shutdown"
        GlobalMsg "Shutdown canceled.", BrightBlue
    Else
        isLongShuttingDown = True
        cmdShutDown.Caption = "Cancel"
    End If
End Sub

Código:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        isShuttingDown = True
        cmdShutDown.Caption = "Cancel"
        Cancel = True
End Sub

Código:

If Tick > tmr1000 Then
            If isShuttingDown Then
                Call HandleShutdown
            End If
            tmr1000 = GetTickCount + 1000
        End If

Código:

If Tick > tmrlongti Then
            If isLongShuttingDown Then
                Call HandleLongShutdown
            End If
            tmrlongti = GetTickCount + 1000
        End If

Código:

Dim tmr25 As Long, tmr500 As Long, tmr1000 As Long

Código:

Dim tmr25 As Long, tmr500 As Long, tmr1000 As Long, tmrlongti As Long

Código:

Private Sub HandleShutdown()

Código:

Private Sub HandleLongShutdown()
If Secs <= 0 Then Secs = 900
    If Secs Mod 30 = 0 Or Secs <= 30 Then
        Call GlobalMsg("Desligando em " & Secs & " segundos.", BrightBlue)
        Call TextAdd("Desligamento automatico em " & Secs & " segundos.")
    End If
   
    Secs = Secs - 1
   
    If Secs <= 0 Then
        Call GlobalMsg("Servidor desligado", BrightRed)
        Call DestroyServer
    End If
End Sub

Código:

' reset shutdown value
    isShuttingDown = False

Código:

isLongShuttingDown = False

Código:

Public isShuttingDown As Boolean

Código:

Public isLongShuttingDown As Boolean

Código:

If isShuttingDown Then
                Call AlertMsg(index, "Server is either rebooting or being shutdown.")
                Exit Sub
            End If

Código:

If isShuttingDown Or isLongShuttingDown Then
                Call AlertMsg(index, "Server is either rebooting or being shutdown.")
                Exit Sub
            End If

Código:

Private Sub HandleShutdown()

Código:

Private Sub HandleShutdown()

    If Secs <= 0 Then Secs = 15
    If Secs Mod 5 = 0 Or Secs <= 5 Then
        Call GlobalMsg("Server Shutdown in " & Secs & " seconds.", BrightBlue)
        Call TextAdd("Automated Server Shutdown in " & Secs & " seconds.")
    End If

    Secs = Secs - 1

    If Secs <= 0 Then
        Call GlobalMsg("Server Shutdown.", BrightRed)
        Call DestroyServer
    End If

End Sub