[Release] Give 3 Upgraded Items with Color choose

[4Elite]

Hello EPvP!

I release for you a little release for give items upgraded and with color choose!

Screens

 Spoiler

On Navicat


On Game

The fonction

 Spoiler

ALTER PROCEDURE [dbo].[TEventItem3GiveUpgradedColor]
	@szName 	VARCHAR(50),
	@wItemID1	SMALLINT,
	@bLevel1 SMALLINT,
	@bGradeEffect1 SMALLINT,
	@wItemID2	SMALLINT,
	@bLevel2 SMALLINT,
	@bGradeEffect2 SMALLINT,
	@wITemID3	SMALLINT,
	@bLevel3 SMALLINT,
	@bGradeEffect3 SMALLINT,
	@bCount 	TINYINT,
	@szSender VARCHAR(50),
	@szTitle	VARCHAR(256),
	@szMessage	VARCHAR(2048)
AS

DECLARE	@dlID		BIGINT
DECLARE 	@dwCharID	 INT
DECLARE 	@dwMakeID	 INT
DECLARE	@bLenTitle	BINARY(4)
DECLARE	@bLenMessage	BINARY(4)
DECLARE @szT VARCHAR(8)
DECLARE @szM VARCHAR(8)

SELECT @dwCharID=dwCharID FROM TCHARTABLE WHERE szName=@szName
IF @@ROWCOUNT = 0
BEGIN
	PRINT 'FAIL'
	RETURN 0
END

SET @bLenTitle = DATALENGTH(@szTitle)
SET @bLenMessage = DATALENGTH(@szMessage)
SET @szT = RIGHT(master.dbo.fn_sqlvarbasetostr(@bLenTitle), 8)
SET @szTitle  = @szT + @szTitle
SET @szM = RIGHT(master.dbo.fn_sqlvarbasetostr(@bLenMessage), 8)
SET @szMessage = @szM + @szMessage


IF (@szSender = '')
INSERT INTO TPOSTTABLE(
	dwCharID,
	szSender,
	dwSendID,
	szRecvName,
	szTitle,
	szMessage,
	bType,
	bRead,
	dwGold,
	dwSilver,
	dwCooper,
	timeRecv) VALUES(
	@dwCharID,
	'Administrator',
	0,
	@szName,
	@szTitle,
	@szMessage,
	1,
	0,
	0,
	0,
	0,
	GetDate())

ELSE 
INSERT INTO TPOSTTABLE(
	dwCharID,
	szSender,
	dwSendID,
	szRecvName,
	szTitle,
	szMessage,
	bType,
	bRead,
	dwGold,
	dwSilver,
	dwCooper,
	timeRecv) VALUES(
	@dwCharID,
	@szSender,
	0,
	@szName,
	@szTitle,
	@szMessage,
	1,
	0,
	0,
	0,
	0,
	GetDate())


SET @dwMakeID = @@IDENTITY
DECLARE @dwDuraMax INT

IF EXISTS(SELECT TOP 1 dwPostID FROM TPOSTTABLE WHERE dwPostID = @dwMakeID)
BEGIN
	IF(@wItemID1 <> 0)
	BEGIN
		EXEC TGenerateDBItemID @dlID OUTPUT
		SET @dwDuraMax = 0
		SELECT @dwDuraMax = dwDuraMax FROM TITEMCHART WHERE wItemID = @wItemID1

		INSERT INTO TITEMTABLE(
		dlID,bStorageType,dwStorageID,bOwnerType,dwOwnerID,bItemID,wItemID,bLevel,bCount,bGLevel,dwDuraMax,dwDuraCur,bRefineCur,dEndTime,bGradeEffect,
		bMagic1,bMagic2,bMagic3,bMagic4,bMagic5,bMagic6,
		wValue1,wValue2,wValue3,wValue4,wValue5,wValue6,
		dwTime1,dwTime2,dwTime3,dwTime4,dwTime5,dwTime6,bGem) VALUES(
		@dlID,2,@dwMakeID,0,@dwCharID,0,@wItemID1,@bLevel1,@bCount,0,@dwDuraMax,@dwDuraMax,0,0,@bGradeEffect1,
		0,0,0,0,0,0,
		0,0,0,0,0,0,
		0,0,0,0,0,0,0)
	END
	IF(@wItemID2 <> 0)
	BEGIN
		EXEC TGenerateDBItemID @dlID OUTPUT
		SET @dwDuraMax = 0
		SELECT @dwDuraMax = dwDuraMax FROM TITEMCHART WHERE wItemID = @wItemID2

		INSERT INTO TITEMTABLE(
		dlID,bStorageType,dwStorageID,bOwnerType,dwOwnerID,bItemID,wItemID,bLevel,bCount,bGLevel,dwDuraMax,dwDuraCur,bRefineCur,dEndTime,bGradeEffect,
		bMagic1,bMagic2,bMagic3,bMagic4,bMagic5,bMagic6,
		wValue1,wValue2,wValue3,wValue4,wValue5,wValue6,
		dwTime1,dwTime2,dwTime3,dwTime4,dwTime5,dwTime6,bGem) VALUES(
		@dlID,2,@dwMakeID,0,@dwCharID,0,@wItemID2,@bLevel2,@bCount,0,@dwDuraMax,@dwDuraMax,0,0,@bGradeEffect2,
		0,0,0,0,0,0,
		0,0,0,0,0,0,
		0,0,0,0,0,0,0)
	END
	IF(@wItemID3 <> 0)
	BEGIN
		EXEC TGenerateDBItemID @dlID OUTPUT
		SET @dwDuraMax = 0
		SELECT @dwDuraMax = dwDuraMax FROM TITEMCHART WHERE wItemID = @wItemID2

		INSERT INTO TITEMTABLE(
		dlID,bStorageType,dwStorageID,bOwnerType,dwOwnerID,bItemID,wItemID,bLevel,bCount,bGLevel,dwDuraMax,dwDuraCur,bRefineCur,dEndTime,bGradeEffect,
		bMagic1,bMagic2,bMagic3,bMagic4,bMagic5,bMagic6,
		wValue1,wValue2,wValue3,wValue4,wValue5,wValue6,
		dwTime1,dwTime2,dwTime3,dwTime4,dwTime5,dwTime6,bGem) VALUES(
		@dlID,2,@dwMakeID,0,@dwCharID,0,@wItemID3,@bLevel3,@bCount,0,@dwDuraMax,@dwDuraMax,0,0,@bGradeEffect3,
		0,0,0,0,0,0,
		0,0,0,0,0,0,
		0,0,0,0,0,0,0)
	END
END

RETURN @dwMakeID

It's my first release, i hope you liked it.

update : Added fonction if @szSender is blank, szSender = Administrator you can change it on line 58

[glossypvp]

It's not a big deal to do it, you just had to replace a single parameter (or 3 in this case) called bGradeEffect, an other one which is bLevel. Anyways it's a nice release, I'm sure someone out here may find it useful

[4Elite]

I know it's not a big thing, i'm beginner on it
You forgot the szSender parameter

[diogoluis]

Originally Posted by 4Elite

I know it's not a big thing, i'm beginer on it
You forgot the szSender parameter

WTF
Its there -.-

[0x6a6b]

Wouldn't it be better to send items via the cash deposit? (Its instant there )

[NamiFS]

IDK. But I think that if he is beginner it's nice start .. Not matter if it's hard or not.
The important things is that he is trying..

[4Elite]

Thank you Nami

For the moment i'm learning how to create/edit fonctions on the DB and after i think i will start to check the source for see what i can do and learn.

[Baal™]

Thanks for posting !


MfG Baal