YENİ SİTEMİZE TASINDIK WWW.PVPSERVERLER.ACE.ST
Kareli Karesiz Np Sembolleri
Yazar Mesaj SouL_SlayéR Forum Kurucusu
Ruh Hali : Mesaj Sayısı Yaş Leader Point: Kayıt tarihi Tecrube Puanı Tecrube Puanı : (1000/1200) Umarım İşinize Yarar 100 User Olmadan Güncellemeyin !!!
SouL_SlayéR Forum Kurucusu
Ruh Hali : Mesaj Sayısı Yaş Leader Point: Kayıt tarihi Tecrube Puanı Tecrube Puanı : (1000/1200) DEVAMI!!!
SouL_SlayéR Forum Kurucusu
Ruh Hali : Mesaj Sayısı Yaş Leader Point: Kayıt tarihi Tecrube Puanı Tecrube Puanı : (1000/1200) Ve İkinci devamın Devamı
Şimdi Geldik Procedurelerimizi Oluşturmaya
USER_KNIGHTS_RATING_UPDATE
Kod:
CREATE PROCEDURE USER_KNIGHTS_RATING_UPDATE
AS
/*
Author : AKUMA
*/
SET NOCOUNT ON
IF EXISTS (select * from sysobjects where id = object_id(N'[dbo].[USER_RATING_TEMP]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
DROP TABLE [dbo].[USER_RATING_TEMP]
CREATE TABLE [dbo].[USER_RATING_TEMP] (
[nRank] [int] IDENTITY (1, 1) NOT NULL ,
[strUserID] [char] (21) NULL,
[strKnightsName] [char] (21) NULL ,
[nLoyalty] [int] NULL ,
) ON [PRIMARY]
INSERT INTO USER_RATING_TEMP SELECT TOP 100 USERDATA.strUserId, KNIGHTS.IDName, USERDATA.Loyalty
FROM USERDATA INNER JOIN
KNIGHTS ON USERDATA.Knights = KNIGHTS.IDNum
WHERE (USERDATA.Nation = 1) and (USERDATA.City <> 255 ) and (USERDATA.Authority = 1)
ORDER BY USERDATA.Loyalty DESC
INSERT INTO USER_RATING_TEMP SELECT TOP 100 USERDATA.strUserId, KNIGHTS.IDName, USERDATA.Loyalty
FROM USERDATA INNER JOIN
KNIGHTS ON USERDATA.Knights = KNIGHTS.IDNum
WHERE (USERDATA.Nation = 2) and (USERDATA.City <> 255 ) and (USERDATA.Authority = 1)
ORDER BY USERDATA.Loyalty DESC
CREATE INDEX [IX_RATING_RANK] ON [dbo].[USER_RATING_TEMP]([nRank]) ON [PRIMARY]
DECLARE @strCharID char(21)
DECLARE @strKnightsID char(21)
DECLARE @nIndex smallint
DECLARE @nLoyalty int
SET @strCharID = NULL
SET @strKnightsID = NULL
SET @nIndex = 0
SET @nLoyalty = 0
DECLARE JOBS CURSOR FOR
SELECT nRank, strUserID, strKnightsName, nLoyalty FROM USER_RATING_TEMP
OPEN JOBS
FETCH NEXT FROM JOBS
INTO @nIndex, @strCharID, @strKnightsID, @nLoyalty
WHILE @@fetch_status = 0
BEGIN
IF @nIndex < 101
UPDATE USER_KNIGHTS_RANK SET strKarusUserID = @strCharID, strKarusKnightsName = @strKnightsID, nKarusLoyalty = @nLoyalty WHERE shIndex = @nIndex
ELSE
UPDATE USER_KNIGHTS_RANK SET strElmoUserID = @strCharID, strElmoKnightsName = @strKnightsID, nElmoLoyalty = @nLoyalty WHERE shIndex = @nIndex-100
FETCH NEXT FROM JOBS
INTO @nIndex, @strCharID, @strKnightsID, @nLoyalty
END
CLOSE JOBS
DEALLOCATE JOBS
IF EXISTS (select * from sysobjects where id = object_id(N'[dbo].[USER_RATING_TEMP]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
DROP TABLE [dbo].[USER_RATING_TEMP]
SET NOCOUNT OFF
UPDATE_PERSONAL_RANK Proceduresi
Kod:
CREATE PROCEDURE UPDATE_PERSONAL_RANK
AS
/*
Author : AKUMA
*/
DECLARE @tUpdateDate SMALLDATETIME
SET @tUpdateDate =CONVERT(VARCHAR(15) , GETDATE(),102)
SET @tUpdateDate = DATEADD(HH,DATEPART(HH,dateadd(mi, 10, GETDATE())),@tUpdateDate)
IF EXISTS (select * from sysobjects where id = object_id(N'[dbo].[KARUS_USER_RANK]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
DROP TABLE [dbo].[KARUS_USER_RANK]
IF EXISTS (select * from sysobjects where id = object_id(N'[dbo].[ELMORAD_USER_RANK]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
DROP TABLE [dbo].[ELMORAD_USER_RANK]
CREATE TABLE [dbo].[KARUS_USER_RANK](
[nRank] [int] IDENTITY(1,1) NOT NULL,
[strUserID] [char](21) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
[Loyalty] [int] NOT NULL,
[LoyaltyMonthly] [int] NOT NULL,
[nRankUp] [int] NOT NULL
) ON [PRIMARY]
CREATE TABLE [dbo].[ELMORAD_USER_RANK](
[nRank] [int] IDENTITY(1,1) NOT NULL,
[strUserID] [char](21) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
[Loyalty] [int] NOT NULL,
[LoyaltyMonthly] [int] NOT NULL,
[nRankUp] [int] NOT NULL
) ON [PRIMARY]
truncate table KARUS_USER_RANK
insert KARUS_USER_RANK
select top 100 strUserID, Loyalty, LoyaltyMonthly, 101
from USERDATA
where Nation = 1 and Authority = 1
order by LoyaltyMonthly desc
truncate table ELMORAD_USER_RANK
insert ELMORAD_USER_RANK
select top 100 strUserID, Loyalty, LoyaltyMonthly, 101
from USERDATA
where Nation = 2 and Authority = 1
order by LoyaltyMonthly desc
UPDATE KARUS_USER_RANK
Set nRankUP = R.nRank - KARUS_USER_RANK.nRank
from USER_PERSONAL_RANK R
where R.strKarusUserID = KARUS_USER_RANK.strUserID
UPDATE ELMORAD_USER_RANK
Set nRankUP = R.nRank - ELMORAD_USER_RANK.nRank
from USER_PERSONAL_RANK R
where R.strElmoUserID = ELMORAD_USER_RANK.strUserID
INSERT INTO USER_PERSONAL_RANK
select E.nRank, R.strPosition, E.nRankUP, E.strUserID, E.LoyaltyMonthly, R.nSalary, K.nRankUP, K.strUserID, K.LoyaltyMonthly, R.nSalary, R.nSalary, @tUpdateDate
from ELMORAD_USER_RANK E, KARUS_USER_RANK K, USER_PERSONAL_RANK R
WHERE (E.nRank = K.nRank AND E.nRank = R.nRank and R.UpdateDate < @tUpdateDate)
ORDER BY E.nRank
DELETE FROM USER_PERSONAL_RANK
WHERE UpdateDate < @tUpdateDate
IF EXISTS (select * from sysobjects where id = object_id(N'[dbo].[KARUS_USER_RANK]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
DROP TABLE [dbo].[KARUS_USER_RANK]
IF EXISTS (select * from sysobjects where id = object_id(N'[dbo].[ELMORAD_USER_RANK]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
DROP TABLE [dbo].[ELMORAD_USER_RANK]
Evet Bu Kadar
Yenilemek İçin Queryde :
Kod:
EXEC USER_KNIGHTS_RATING_UPDATE
EXEC UPDATE_PERSONAL_RANK
Kareli Karesiz Np Sembolleri
Similar topics
Bu forumun müsaadesi var: Bu forumdaki mesajlara cevap veremezsiniz
Konu: Kareli Karesiz Np Sembolleri 
