Dies unterbindet das Löschen von Charakteren unter level 20
z.B. um das ausnutzen von Aka's zu unterbinden etc.
Code:
USE [w00_Character]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[p_Char_Delete]
/*
Character Delete
2004.6 By CJC
2014.1 modified by D0n!
Input:
nCharNo = Character number to be delete.
Output:
0 = Delete OK
1 = 해당 캐릭이 이미 지워진 캐릭임
2 = 해당 캐릭을 찾을수 없음
3 = 해당 캐릭을 지울수 없음
Desc:
- 지워진 캐릭의 ID는 '아뒤~날짜#시도횟수' 형태로 바뀐다.
- 버그 방지로 아뒤에는 '~'는 사용되면 안된다.
*/
@nCharNo int,
@nRet int OUTPUT
AS
DECLARE @nLevel smallint
SET @nLevel = (SELECT nLevel FROM tCharacter WHERE nCharNo = @nCharNo)
-- Check if Level is under 20
IF @nLevel < 20
BEGIN
SET @nRet = 3
RETURN
END
ELSE
SET NOCOUNT ON
-- 이미 지워진 캐릭인지 조사
IF EXISTS(SELECT nCharNo FROM tCharacter(NOLOCK) WHERE nCharNo = @nCharNo AND bDeleted > 0)
BEGIN
SET @nRet = 1
RETURN
END
-- 지워질 캐릭의 이름 얻기
DECLARE @sID nvarchar(40)
SET @sID = ''
SELECT @sID = sID FROM tCharacter(NOLOCK) WHERE nCharNo = @nCharNo
IF LEN(@sID) = 0
BEGIN
SET @nRet = 2 -- 해당 캐릭이 없음
RETURN
END
-- 아뒤내에 최초 삭제마크 이후의 문자는 모두 지운다.(지운거 또 지울수 있음으로 오류방지용)
DECLARE @DeleteMark nvarchar(2)
SET @DeleteMark = N'~' -- 삭제 마크 세팅
DECLARE @StartDeleteMark int
SET @StartDeleteMark = CHARINDEX( @DeleteMark, @sID )
IF @StartDeleteMark > 0
SET @sID = LEFT( @sID, @StartDeleteMark-1 )
-- 지워질 캐릭의 ID를 변경
DECLARE @CurrentDate datetime
SET @CurrentDate = GETDATE()
DECLARE @nDeleteCount int
SET @nDeleteCount = 0
DECLARE @sChangedID nvarchar(40)
NAME_CHANGE: -- 이름 만들기 '아뒤' + 삭제마크 + '날짜' + '#시도횟수'
SET @sChangedID =
RTRIM(@sID) +
@DeleteMark + DATENAME(year, @CurrentDate) + DATENAME(month, @CurrentDate) + DATENAME(day, @CurrentDate) +
N'#' + CAST( @nDeleteCount AS nvarchar(2) )
-- 캐릭 지우기
UPDATE tCharacter SET
bDeleted = 1,
dDeletedDate = GETDATE(),
sID = @sChangedID
WHERE nCharNo = @nCharNo
-- 실패시 50번 이름을 바꾸면서 시도한다.
IF @@ERROR = 2601 -- 인덱스키 중복인 경우
BEGIN
SET @nDeleteCount = @nDeleteCount + 1
IF @nDeleteCount < 50
GOTO NAME_CHANGE
-- 실패
SET @nRet = 3
RETURN
END
-- 성공
SET @nRet = 0
-- end
Die Message die dazu ausgegeben wird befindet sich in der
TextData.shn
eTextID: 1076860256
