[PAYLAŞIM] SQL 2008 İçin Başlangıç İtemleri Ekleme Sistemi.

Selam ;

Size Bugün SQL 2008 İçin Başlangıç İtemleri Ekleme Sistemi Anlatacağım

TABLO EKLİYORUZ






CREATE TABLE [dbo].[baslangic] (
[class] [smallint] NULL ,
[stritem] [varchar](400) NULL ,
) ON [PRIMARY]
GO


KOD 2:

PROSEDÜR EKLİYORUZ.

Kod:
--Modifiye : ReaLısty
ALTER PROCEDURE [dbo].[baslangicitem]
@account varchar(21)
AS
begin

declare @class smallint

select @class = cast(substring(cast(class as varchar(3)),2,2) as
varchar(2)) from userdata where struserid=@account

if @class=1 or @class=5 or @class=6
set @class = 1 --War

if @class=2 or @class=7 or @class=8
set @class = 2 -- Rog

if @class=3 or @class=9 or @class=10
set @class = 3 --Mag

if @class=4 or @class=11 or @class=12
set @class = 4 -- Pri

update userdata set stritem = (select stritem from baslangic where
class=@class) where struserid=@account

end












CREATE_NEW_CHAR
PROSEDÜRÜNDE, ALTTAKİ KODUN HEMEN ÜSTÜNE,

Kod:
IF @@ERROR <> 0
BEGIN
ROLLBACK TRAN
SET @nRet = 4
RETURN
END

COMMIT TRAN
SET @nRet = 0


BUNU EKLİYORUZ
Kod:
exec baslangicitem @CharID








----------------------------------------------------------------------
İNVENTORY EDİTOR İLE BİR WARRİOR KARAKTERE
BAŞLANGIÇ İTEMLERİ EKLEYİP ÇIKIN.
KARAKTER ADI : Warrior
VE DAHA SONRA ALTTAKİ KODU QA DA UYGULAYIN

Kod:
update baslangic set stritem = ( select stritem from USERDATA where
struserid = 'Warrior' )
where class = '1'

-----------------------------------------------------------------------

----------------------------------------------------------------------
İNVENTORY EDİTOR İLE BİR ROGUE KARAKTERE
BAŞLANGIÇ İTEMLERİ EKLEYİP ÇIKIN.
KARAKTER ADI : ROGUE
VE DAHA SONRA ALTTAKİ KODU QA DA UYGULAYIN
Kod:
update baslangic set stritem = ( select stritem from USERDATA where
struserid = 'ROGUE' )
where class = '2'

-----------------------------------------------------------------------


----------------------------------------------------------------------
İNVENTORY EDİTOR İLE BİR MAGE KARAKTERE
BAŞLANGIÇ İTEMLERİ EKLEYİP ÇIKIN.
KARAKTER ADI : Mage
VE DAHA SONRA ALTTAKİ KODU QA DA UYGULAYIN
Kod:
update baslangic set stritem = ( select stritem from USERDATA where
struserid = 'Mage' )
where class = '3'

-----------------------------------------------------------------------


----------------------------------------------------------------------
İNVENTORY EDİTOR İLE BİR PRİEST KARAKTERE BAŞLANGIÇ İTEMLERİ EKLEYİP
ÇIKIN.
KARAKTER ADI : Priest
VE DAHA SONRA ALTTAKİ KODU QA DA UYGULAYIN
Kod:
update baslangic set stritem = ( select stritem from USERDATA where
struserid = 'Priest' )
where class = '4'