Kill The GM Event'e hizlica char hazirlamak (Gelismis)

CoDeMasTeR · 26 Ocak 2010, 12:34

Özellikleri:

- 14 adet seçilebilir char tipi vardır.
- Charın var olup olmadığını kontrol eder, yoksa işlem yapmaz.
- Düzenleme yapacağınız charın ırkı önemli değildir, önce ırk transferi yapar, ardından düzenler.
- 21 GB Coin, 600 NP, 255 stat point, 260 Skill point, 80 level, 1m EXP yapar, Authority'i 1'e değiştirir ve USERDATA'daki UpdateDate kısmını günceller.
- Item'ları GM_ITEMS adlı tablodan okur.

Not: Prosedürü çalıştırmadan önce, AKUMA'nın Nation Transfer prosedürünü uygulayınız ve o prosedürü veritabanınıza NATION_TRANSFER adıyla ekleyiniz. Başka prosedür de kullanabilirsiniz ancak prosedürü değiştirmeniz gerekir, boşa uğraş verirsiniz.

Kod:

if exists (select * from sysobjects where id = object_id(N'[dbo].[GM_ITEMS]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[GM_ITEMS]

CREATE TABLE [dbo].[GM_ITEMS]
(strGMtype int,
   strItem varchar(400))

Kod:

-- Created by Thales - Script Date: 20/08/2009 02:13
-- Edits characters for Kill The GM Event.
CREATE PROC [dbo].[GM_EVENT] (@strUserID varchar(30), @strGMtype int)

AS

BEGIN TRAN

DECLARE @strAccountID varchar(21), @CharacterStatus tinyint

SELECT @CharacterStatus = COUNT(strUserID) FROM USERDATA WHERE strUserId = @strUserID
IF @CharacterStatus = 0
BEGIN
PRINT RTRIM(LTRIM(@strUserID)) + ' does not exist.'
END

ELSE

BEGIN

SELECT @strAccountID = strAccountID FROM ACCOUNT_CHAR WHERE strCharID1 = @strUserID OR strCharID2 = @strUserID OR strCharID3 = @strUserID
IF @strGMtype = 1 -- Barbarian Blade Master
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 206, Race = 11, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 1) WHERE strUserId = @strUserID
END

IF @strGMtype = 2 -- Male El Morad Blade Master
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 206, Race = 12, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 1) WHERE strUserId = @strUserID
END

IF @strGMtype = 3 -- Female El Morad Blade Master
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 206, Race = 13, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 1) WHERE strUserId = @strUserID
END

IF @strGMtype = 4 -- Male El Morad Kasar Hood
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 208, Race = 12, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 2) WHERE strUserId = @strUserID
END

IF @strGMtype = 5 -- Female El Morad Kasar Hood
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 208, Race = 13, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 2) WHERE strUserId = @strUserID
END

IF @strGMtype = 6 -- Male El Morad Paladin
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 212, Race = 12, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 3) WHERE strUserId = @strUserID
END

IF @strGMtype = 7 -- Feale El Morad Paladin
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 212, Race = 13, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 3) WHERE strUserId = @strUserID
END

IF @strGMtype = 8 -- Male El Morad Arch Mage
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 210, Race = 12, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 4) WHERE strUserId = @strUserID
END

IF @strGMtype = 9 -- Female El Morad Arch Mage
BEGIN
EXEC NATION_TRANSFER @strAccountID, '2'
UPDATE USERDATA SET Class = 210, Race = 13, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 4) WHERE strUserId = @strUserID
END

IF @strGMtype = 10 -- Arch Tuarek Berserker Hero
BEGIN
EXEC NATION_TRANSFER @strAccountID, '1'
UPDATE USERDATA SET Class = 106, Race = 1, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 1) WHERE strUserId = @strUserID
END

IF @strGMtype = 11 -- Tuarek Shadow Vane
BEGIN
EXEC NATION_TRANSFER @strAccountID, '1'
UPDATE USERDATA SET Class = 108, Race = 2, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 2) WHERE strUserId = @strUserID
END

IF @strGMtype = 12 -- Tuarek Shadow Knight
BEGIN
EXEC NATION_TRANSFER @strAccountID, '1'
UPDATE USERDATA SET Class = 112, Race = 2, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 3) WHERE strUserId = @strUserID
END

IF @strGMtype = 13 -- Puri Tuarek Shadow Knight
BEGIN
EXEC NATION_TRANSFER @strAccountID, '1'
UPDATE USERDATA SET Class = 112, Race = 4, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 3) WHERE strUserId = @strUserID
END

IF @strGMtype = 14 -- Wrinkle Tuarek Elemental Lord
BEGIN
EXEC NATION_TRANSFER @strAccountID, '1'
UPDATE USERDATA SET Class = 110, Race = 3, [Level] = 80, [Exp] = 1000000, Authority = 1, Strong = 255, Sta = 255, Cha = 255, Dex = 255, Intel = 255, Points = 255, strSkill = 'Ą', Gold = 2100000000, Loyalty = 600, LoyaltyMonthly = 0, UpdateTime = GETDATE() WHERE strUserId = @strUserID
UPDATE USERDATA SET strItem = (SELECT strItem FROM GM_ITEMS WHERE strGMtype = 4) WHERE strUserId = @strUserID
END

PRINT RTRIM(LTRIM(@strUserID)) + ' is completely modified for Kill The GM Event by your command.'
PRINT 'Created by Thales'

END

COMMIT TRAN

GO

Kod:

INSERT INTO GM_ITEMS VALUES (1, 0x00)
INSERT INTO GM_ITEMS VALUES (2, 0x00)
INSERT INTO GM_ITEMS VALUES (3, 0x00)
INSERT INTO GM_ITEMS VALUES (4, 0x00)

Şimdi öncelikle bir chara farklı farklı Item'lar dizin, çünkü bunları GM_ITEMS tablosuna kopyalattıracağız.

GM_ITEMS tablosunda itemlar ayarlı değildir, siz ayarlayacaksınız.

Kod:

1 - Warrior
2 - Rogue
3 - Priest
4 - Mage

Bir charı dizdiniz ve şimdi bunu GM_ITEMS'a kopyalamaya sıra geldi:

Kod:

UPDATE GM_ITEMS SET strItem = (SELECT strItem FROM USERDATA WHERE strUserId = 'Nick') WHERE strGMtype = x

X yerine yukarıdaki class kodlarını yazacaksınız.

Bunu sadece 1 kereye mahsus yapıyorsunuz, değiştirmek isterseniz tekrar yapabilirsiniz.

Evet şimdi her şey tamamlandı, prosedürü kullanmak için:

Kod:

EXEC GM_EVENT 'Nick', 'x'

X yerine gelecek rakamlar için:

Kod:

1 - Barbarian Blade Master
2 - Male El Morad Blade Master
3- Female El Morad Blade Master
4 - Male El Morad Kasar Hood
5 - Female El Morad Kasar Hood
6 - Male El Morad Paladin
7 - Female El Morad Paladin
8 - Male El Morad Arch Mage
9 - Female El Morad Arch Mage
10 - Arch Tuarek Berserker Hero
11 - Tuarek Shadow Vane
12 - Tuarek Shadow Knight
13 - Puri Tuarek Shadow Knight
14 - Wrinkle Tuarek Elemental Lord

tamamen sorunsuzdur..

**Savas AyguL** · 11 Mart 2010, 21:31

tanks

TraqeDay · 11 Mart 2010, 23:14

Çok Güzel Bir Konu.
Ty Paylaşım

11 Mart 2010, 21:31	#2 (mesaj-linki)
Savas AyguL V For Vendetta Kayıt: 01 Aralık 2009 Üye No: 30819 Nerden: 0turma'yamı gelcen?. Yaş: 19 Mesajlar: 1,884 Konular: 635 Günlük Mesajları : 3 Ettiği Teşekkür: 97 Aldığı Teşekkür: 171 İtibar Gücü: 283 İtibar Puanı: 4324 Seviye:	tanks __________________ Farkı severim;Farkı fark eder ,farkımı fark ettiririm... Bu maskenin altında etten fazlası var. Bu maskenin altında bir fikir var, ve fikirlere kurşun işlemez!" V For Vendetta... [URL="http://www.izlesene.com/video/sinema-v-for-vendetta-fikirlere-kursun-islemez/2346783"]

11 Mart 2010, 23:14	#3 (mesaj-linki)
TraqeDay İBRAHİM Kayıt: 28 Nisan 2008 Üye No: 13219 Nerden: Bursa-Yıldırım Yaş: 19 Mesajlar: 11,957 Konular: 1431 Ettiği Teşekkür: 224 Aldığı Teşekkür: 153 İtibar Gücü: 1740 İtibar Puanı: 25857 Seviye:	Çok Güzel Bir Konu. Ty Paylaşım __________________ Knight Online Forum Lütfen Foruma Ve Oyuna Destek İçin REKLAM Linklerine Günde En Az Bir İki Kez TIKLAYINIZ ... Tıkla,İndir Forum'a Destek Ol Yöneticiler'e Ulaşmak İçin Tıklayın Forum Kurallar'ını Okumak İçin Tıklayın Moderatör Olmak İçin Gerekli Bilgiler Forum Yardım Ve Destek Bölümü İçin Tıklayın

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
En gelişmiş private server	maniacpk	Private Server Tanıtımı	7	08 Ağustos 2009 18:20
En gelişmiş private server	maniacpk	Private Server Tanıtımı	3	30 Temmuz 2009 21:17
En gelişmiş private server	maniacpk	Private Server Tanıtımı	4	30 Temmuz 2009 15:47
Geriye Baktığımızda Tekin Abi Servermizi En Gelişmiş Server Haline Getirmedi mi ?	DavaAdamı	AlemKO Genel	6	07 Mart 2009 21:23
Bu cumartesi kimler PvP Event'e geliyor?	SoulStalk3r	Çöp Kutusu	18	20 Mayıs 2008 20:13

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Tavsiye Ettiklerimiz - Link Değişimi
AlemKO \| We Bilgi Forumları \| ForumAktif \| Ercan DEMİREL \| AK Buluşma \| XSkip.Net \| KoDevel \| 2yol.Com \| BoardTurk \| Eğitimnoktasi.com \| Paylasımda Maximum TaT \|