Knight Online PVP
Clan Lideri Değişimi K-462215-dasdasdasdas


Pvp Serverler Hakkında Paylaşım Forumu,Private Server İp Adresleri, Private Server Kurulumları, Pvp Server Hileleri,knightonline, pvp tanıtımları,server tanıtımları, koxp, myko, programlar,soacs,pwkoxp,pvp serverlar,pvp server,oyun indir, Hepsi Sitemizde
 
AnasayfaAramaKayıt OlGiriş yap

Paylaş
 

 Clan Lideri Değişimi

Aşağa gitmek 
YazarMesaj
L3G3ND
Aktif Üye
Aktif Üye


Mesaj Sayısı : 31
Kayıt tarihi : 27/11/09
Yaş : 30
Nerden : Uzaklardan:)

Clan Lideri Değişimi Empty
MesajKonu: Clan Lideri Değişimi   Clan Lideri Değişimi EmptyCuma Kas. 27, 2009 3:52 am

Selamlar,
Clan Lider Değişimi İçin Bir Procedure Oluşturdum, Umarım Herkeze Faydalı Olur.

Özelliklerini Sayacak Olursak,
1. Hataya Sebebiyet Vermemesi Açısından Karakterler Kontrolü Yapılıyor,USERDATA da Varmı Yokmu Olayı.
2. IRK Kontrolü Yapıyor, Eğer Farklı Irklardan ise Lider Değişimi Olmuyor, Buna Gerek Yok Aslında Ama SQL i Yormamak Adına Alttaki Kodlar İletilmesin Diye Yaptım.
3. Clan Kontrolü Yapılıyor, Eğer Farklı Clanlardan ise Lider Değişimi Olmuyor.
4. Assist Kontrolü Yapılabiliyor, İsteğe Göre Kapatıp Açabilirsiniz yani Kısacası Assist Kontrolü Yapmadanda Sadece Clan Üyesi ise Bile Lider Değişimi Yaptırabilirsiniz.
5. Eski Lider ile Yeni Liderin Oyundaki Durumu CurrentUserdan Kontrol Ediliyor Eğer Oyunda ise Clan Değişimi Gerçekleşmiyor.
6. Eski Kullanıcının Clan Lideri Olup Olmadığı Kontrol Ediliyor.
7. Yukarıda Yazan Herşey İçin Hata Mesajları PRINT Edilmektedir.

Kısacası Herşeyin Kontrolü Var

Kod:
CREATE PROCEDURE CHANGE_KNIGHTS_LEADER
(
@KnightsLeaderOld varchar(30),
@KnightsLeaderNew varchar(30)
)
AS
/*
Author : AKUMA
*/
BEGIN TRAN
DECLARE
@KnightsNumOldLeader int,
@FameStatusOldLeader tinyint,
@NationOldLeader tinyint,
@InGameStatusOldLeader tinyint,
@KnightsNumNewLeader int,
@NationNewLeader tinyint,
@InGameStatusNewLeader tinyint,
@KnightsName varchar(50),
@CheckChief1 tinyint,
@CheckChief2 tinyint,
@CheckChief3 tinyint,
@CheckAssist tinyint,
@CheckAssistStatus tinyint,
@CheckLeaderOld tinyint,
@CheckLeaderNew tinyint
/*
Check Assist Status
1 : On - Checking Assist
2 : Off - Not Check
*/
-- Start
SET @CheckAssistStatus = 2
-- End
SELECT @CheckLeaderOld = COUNT(strUserID) FROM USERDATA WHERE strUserID = @KnightsLeaderOld
SELECT @CheckLeaderNew = COUNT(strUserID) FROM USERDATA WHERE strUserID = @KnightsLeaderNew
IF @CheckLeaderOld = 0
BEGIN
 PRINT RTRIM(LTRIM(@KnightsLeaderOld)) + ' Kullanıcı Adında Bir Oyuncu Bulunamadı.'
END
ELSE IF @CheckLeaderNew = 0
BEGIN
  PRINT RTRIM(LTRIM(@KnightsLeaderNew)) + ' Kullanıcı Adında Bir Oyuncu Bulunamadı.'
END
ELSE
BEGIN
SELECT @InGameStatusOldLeader = COUNT(strCharID) FROM CURRENTUSER WHERE strCharID = @KnightsLeaderOld
SELECT @InGameStatusNewLeader = COUNT(strCharID) FROM CURRENTUSER WHERE strCharID = @KnightsLeaderNew
IF @InGameStatusOldLeader <> 0
BEGIN
 PRINT RTRIM(LTRIM(@KnightsLeaderOld)) + ' Kullanıcısı Oyundadır, Bu Sebeplen Clan Lider Değişimi Yapılamadı.'
END
ELSE IF @InGameStatusNewLeader <> 0
BEGIN
 PRINT RTRIM(LTRIM(@KnightsLeaderOld)) + ' Kullanıcısı Oyundadır, Bu Sebeplen Clan Lider Değişimi Yapılamadı.'
END
ELSE
BEGIN
 SELECT @KnightsNumOldLeader = Knights, @FameStatusOldLeader = Fame, @NationOldLeader = Nation FROM USERDATA WHERE strUserID = @KnightsLeaderOld
 SELECT @KnightsName = IDName FROM KNIGHTS WHERE IDNum = @KnightsNumNewLeader
 IF @FameStatusOldLeader = 0
 BEGIN
  PRINT RTRIM(LTRIM(@KnightsLeaderOld)) + ' Clan Lideri Değil, Bu Sebepten Dolayı İşlem Yapılamadı.'
 END
 ELSE
 BEGIN
 
  SELECT @KnightsNumNewLeader = Knights, @NationNewLeader = Nation FROM USERDATA WHERE strUserID = @KnightsLeaderNew
 
  IF @NationOldLeader = @NationNewLeader
  BEGIN
 
  IF @KnightsNumOldLeader <> @KnightsNumNewLeader
  BEGIN
    PRINT RTRIM(LTRIM(@KnightsLeaderNew)) + ' Kullanıcısı Farklı Bir Clanda, Lider Değişimi İçin Kullanıcın Aynı Clanda Olması ve Assist Gerekmektedir.'
  END
  ELSE IF @CheckAssistStatus = 1
  BEGIN
 
    SELECT @CheckChief1 = Count(ViceChief_1) FROM KNIGHTS WHERE ViceChief_1 = @KnightsLeaderNew AND ViceChief_1 is not null
    SELECT @CheckChief2 = Count(ViceChief_2) FROM KNIGHTS WHERE ViceChief_2 = @KnightsLeaderNew AND ViceChief_2 is not null
    SELECT @CheckChief3 = Count(ViceChief_3) FROM KNIGHTS WHERE ViceChief_3 = @KnightsLeaderNew AND ViceChief_3 is not null
    IF (@CheckChief1 <> 0) OR (@CheckChief2 <> 0) OR (@CheckChief3 <> 0)
    BEGIN
    PRINT RTRIM(LTRIM(@KnightsLeaderNew)) + ' Kullanıcısı ' + RTRIM(LTRIM(@KnightsName)) + ' Clanında Assist Değildir, Lütfen Assist Yapınız.'
    END
  END
  ELSE
  BEGIN
    -- Updating Table for Old Leader
    UPDATE USERDATA SET Knights = @KnightsNumOldLeader, Fame = 0 WHERE strUserID = @KnightsLeaderOld
 
    -- Updating Table for New Leader
    UPDATE KNIGHTS SET ViceChief_1 = NULL WHERE Chief = @KnightsLeaderNew AND ViceChief_1 is not null
    UPDATE KNIGHTS SET ViceChief_2 = NULL WHERE Chief = @KnightsLeaderNew AND ViceChief_2 is not null
    UPDATE KNIGHTS SET ViceChief_3 = NULL WHERE Chief = @KnightsLeaderNew AND ViceChief_3 is not null
    UPDATE KNIGHTS SET Chief = @KnightsLeaderNew WHERE Chief = @KnightsLeaderOld
    UPDATE USERDATA SET Fame = 1 WHERE strUserID = @KnightsLeaderNew
    PRINT RTRIM(LTRIM(@KnightsName)) + ' Clanın, Clan Lideri ' + RTRIM(LTRIM(@KnightsLeaderNew)) + ' Olarak Değişmiştir.'
  END
  END
  ELSE
  BEGIN
  PRINT RTRIM(LTRIM(@KnightsLeaderOld)) + ' İle ' + RTRIM(LTRIM(@KnightsLeaderNew)) + ' Farklı IRKlardan, Bu Sebeple Lider Değişimi Yapılamadı.'
  END
 
 END
END
END
Kullanımına İlişkin Bilgiler ;

Kod:
Kullanım : EXEC CHANGE_KNIGHTS_LEADER 'ESKICLANLIDERI','YENICLANLIDERI'
Örnek : EXEC CHANGE_KNIGHTS_LEADER 'AKUMA','GOUKI'

Eğer Ben Assit Kontrolü Yaptırmayacam Clan ÜYeside Olsa Yapsın Lider Değişimini Diyorsanız

Procedurenin En Üstüne Bakarsanız

Kod:
/*
Check Assist Status
1 : On - Checking Assist
2 : Off - Not Check
*/
-- Start
SET @CheckAssistStatus = 1
-- End

Eğer Yukarıda "SET @CheckAssistStatus = 1" Bölümünü "2" Yaparsanız, Assist Kontrolü Yapılmaz.

Kolay Gelsin.

Akuma'dan Alıntıdır..
Sayfa başına dön Aşağa gitmek
ZaZaCLoHeR
Administrator
Administrator
ZaZaCLoHeR

Mesaj Sayısı : 26
Kayıt tarihi : 23/11/09
Yaş : 29
Nerden : Kocaeli/Gebze

Clan Lideri Değişimi Empty
MesajKonu: Geri: Clan Lideri Değişimi   Clan Lideri Değişimi EmptyCuma Kas. 27, 2009 4:23 am

Konu Yanlış Bölümde.Procedur bölümüne Taşındı

_________________
Né $ékiL iÇin VérénLé Nédé VéréN için $ékiLdén $ékiLé qirénLé i$im oLmaz..! [Resimleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
http://kopvp.forum.st
 
Clan Lideri Değişimi
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight Online PVP :: Pvp Serverler Genel Paylaşımlar :: Procedur & Kodlar-
Buraya geçin: