diff --git a/Codigo/Protocol_GmCommands.bas b/Codigo/Protocol_GmCommands.bas index 07f9e349..24858145 100644 --- a/Codigo/Protocol_GmCommands.bas +++ b/Codigo/Protocol_GmCommands.bas @@ -4965,12 +4965,20 @@ On Error GoTo HandleFeatureToggle_Err: Exit Sub End If If (UserList(UserIndex).flags.Privilegios And (e_PlayerType.Admin)) Then - Call SetFeatureToggle(name, value > 0) -'Msg1006= variable configurada correctamente. -Call WriteLocaleMsg(UserIndex, "1006", e_FontTypeNames.FONTTYPE_INFO) + If Name = "SGRACEFULLY" Then + Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Server ยป closing down now.", e_FontTypeNames.FONTTYPE_PROMEDIO_MENOR)) + Call GuardarUsuarios + Call EcharPjsNoPrivilegiados + frmMain.GuardarYCerrar = True + Unload frmMain + Else + Call SetFeatureToggle(Name, Value > 0) + 'Msg1006= variable configurada correctamente. + Call WriteLocaleMsg(UserIndex, "1006", e_FontTypeNames.FONTTYPE_INFO) + End If Else -'Msg1007= no tienes permisos para realizar esta accion. -Call WriteLocaleMsg(UserIndex, "1007", e_FontTypeNames.FONTTYPE_INFO) + 'Msg1007= no tienes permisos para realizar esta accion. + Call WriteLocaleMsg(UserIndex, "1007", e_FontTypeNames.FONTTYPE_INFO) End If Exit Sub HandleFeatureToggle_Err: diff --git a/Codigo/frmMain.frm b/Codigo/frmMain.frm index 250e847a..8ca117ec 100644 --- a/Codigo/frmMain.frm +++ b/Codigo/frmMain.frm @@ -612,7 +612,7 @@ Const WM_MOUSEMOVE = &H200 Const WM_LBUTTONDBLCLK = &H203 Const WM_RBUTTONUP = &H205 -Private GuardarYCerrar As Boolean +Public GuardarYCerrar As Boolean Private tHechizosMinutesCounter As Byte Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long