Sitemizden Yararlanmak İçin

Sitemize Üye Olmalısınız

or Kayıt ol
Server Tanitimi , Ko Tanitimi , Silkroad Pvp Serverler , Metin2 Pvp Serverler

Başlangıç itemlerini değiştirme

[XFB] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde Knight Online Pvp Prosedür & Kod Paylaşımları kategorisinde Stark tarafından oluşturulan Başlangıç itemlerini değiştirme başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 1,100 kez görüntülenmiş, 4 yorum ve 0 tepki puanı almıştır...
Kategori Adı Knight Online Pvp Prosedür & Kod Paylaşımları
Konu Başlığı Başlangıç itemlerini değiştirme
Konbuyu başlatan Stark
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan linguistics

Stark

K.Destek Yöneticisi
Katılım
27 May 2013
Mesajlar
2,663
Tepkime puanı
10
Puanları
0
1 - ) Alttaki 2 procedureyi db ye ekleyin (Her dbde vardır ama olmayanlar için)











2 - ) Inventory Editor indirin



[Linkleri Görebilmek İcin ]











3 - ) Bir char açın Inventory Editor ile charın istediğiniz yerine itemi koyunuz











4 - ) İşiniz bittikten sonra şu kodu uygulayınız









Kod:

UPDATE BASLANGIC

SET stritem = (select strItem

FROM USERDATA

WHERE StrUserID = 'ITEMLERIN OLDUGU CHAR')

WHERE Class = 'CLASS SAYISI'

PROCEDURE'LER









Kod:

CREATE procedure ITEMLERI_BUL

@StrUserID varchar(30)

AS

DECLARE

@length int, -- stritem uzunluğu

@i int, -- item'in stritem deki yeri

@dwid int,

@dur int,

@duar int,

@StackSize1 int,

@Sira int,

@Row int,

@name varchar(100),

@extname varchar(100),

@ext int





set @i = 14*0+1

set @length = 401



select @row=count(*) from userdata where [email protected]



delete from itemler where [email protected]



if @row>0

begin



WHILE @i < @length

Begin



Select @dwid=cast(cast(substring(cast(substring(strItem, @i,4) as varbinary(4)), 4,

1)+substring(cast(substring(strItem, @i,4) as varbinary(4)), 3, 1)+substring(cast(substring(strItem, @i,4) as

varbinary(4)), 2, 1)+substring(cast(substring(strItem, @i,4) as varbinary(4)), 1, 1) as varbinary(4)) as int(4)),

@dur = cast(cast(cast( substring(strItem, @i+5, 1) as varbinary(1))+cast(substring(strItem, @i+4, 1) as

varbinary(1)) as varbinary(2)) as smallint),

@StackSize1 = cast(cast(cast( substring(strItem, @i+7, 1) as varbinary(1))+cast(substring(strItem, @i+6, 1) as

varbinary(1)) as varbinary(2)) as smallint),

@StrUserID = strUserID

From UserData

Where strUserID = @StrUserID









insert into itemler (dwid,stacksize,durability,struserid,sira,itembasi cname,extname)

values(@dwid,@stacksize1,@dur,@StrUserID,(@i-1) / 8,@extname,@name )



set @[email protected]+8



end

end



GO



Kod:

CREATE procedure ITEMLERI_ENCODE

@StrUserID varchar(30)

AS

DECLARE

@length int, -- stritem uzunluğu

@row int, -- yerine göre deişior.

@i int, -- item'in stritem deki yeri

@dwid int, -- dwid

@pos int,

@dur int,

@dur1 int,

@ext int,

@StackSize1 int,

@strName varchar(30),

@strExtName varchar(30),

@Cdwid varbinary(4),

@cdur varchar(2),

@Source tinyint,

@NEWdwid int,

@StackSize int,

@cstack varchar(2),

@sira int



set @sira=0

set @i = 14*0

set @length = 401



select @row=count( * ) from userdata where [email protected]



if @row>0

begin





Select @dwid=dwid,

@dur = durability,

@StackSize1 = stacksize,

@StrUserID = strUserID

From itemler

Where strUserID = @StrUserID and [email protected]



Set @Cdwid = Substring(cast(@dwid as varbinary(4)), 4, 1) + Substring(cast(@dwid as varbinary(4)), 3, 1) +

Substring(cast(@dwid as varbinary(4)), 2, 1) + Substring(cast(@dwid as varbinary(4)), 1, 1)

Set @Cdur = cast(Substring(cast(@dur as varbinary(2)), 2, 1)+Substring(cast(@dur as varbinary(2)), 1, 1) as

varchar(2))

Set @Cstack = cast(Substring(cast(@StackSize1 as varbinary(2)), 2, 1)+Substring(cast(@StackSize1 as

varbinary(2)), 1, 1) as varchar(2))





update UserData set strItem = cast(cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8)) as

binary(400)) where strUserID = @strUserID





set @[email protected]+8

set @[email protected]+1







WHILE @sira < 50

Begin



Select @dwid=dwid,

@dur = durability,

@StackSize1 = stacksize,

@StrUserID = strUserID

From itemler

Where strUserID = @StrUserID and [email protected]



Set @Cdwid = Substring(cast(@dwid as varbinary(4)), 4, 1) + Substring(cast(@dwid as varbinary(4)), 3, 1) +

Substring(cast(@dwid as varbinary(4)), 2, 1) + Substring(cast(@dwid as varbinary(4)), 1, 1)

Set @Cdur = cast(Substring(cast(@dur as varbinary(2)), 2, 1)+Substring(cast(@dur as varbinary(2)), 1, 1) as

varchar(2))

Set @Cstack = cast(Substring(cast(@StackSize1 as varbinary(2)), 2, 1)+Substring(cast(@StackSize1 as

varbinary(2)), 1, 1) as varchar(2))





update UserData set strItem = cast( substring(strItem, 1, @i) + cast(cast(@Cdwid as varchar(4)) + @Cdur +

@Cstack as varchar(8)) + substring(strItem, @i+8, [email protected]) as binary(400)) where strUserID = @strUserID





set @[email protected]+8

set @[email protected]+1



end

end

delete from itemler

GO

Kullanımı ...







1 Başlat > Tüm Programlar > Microsoft SQL Server > Query Analyzer ‘ a giriyoruz.



2 SQL Server’ a bağlanıyoruz ve açılan ekranda ” master ” yerine ” DBmizi ” seçiyoruz.



3 Seçtikten sonra aşağıdaki kodu kopyalayıp , yapıştırıyoruz ve F5 yaparak kodumuzu uyguluyoruz.
 

hfexpress

Member
Katılım
3 Ara 2014
Mesajlar
31
Tepkime puanı
0
Puanları
6
Yaş
37
aq salağı nerde link utanmadan birde indir yazmış oraya
2 - ) Inventory Editor indirin senin kıcına girsin şempanze gotlu senı
 

linguistics

New Member
Katılım
17 Ocak 2015
Mesajlar
10
Tepkime puanı
0
Puanları
1
amk bide yönetici olacak direk çalmış makaleyi pvpkeyden
 
Üst
Silkroad Serverler