1298 için itemleri bulmak (Bozukluk giderildi 09.06.2021)

Shutup · 26 May 2008

MSSQL 2000 için;

Kod:

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

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


CREATE TABLE itemler
(dwid int,
   stacksize    smallint,  
   durability    smallint,  
   strUserId    varchar(50),  
   sira    int    ,
   itembasicname    varchar(100))

CREATE TABLE warehouse_itemler
(dwid int,
   stacksize    smallint,  
   durability    smallint,  
   strUserId    varchar(50),  
   sira    int    ,
   itembasicname    varchar(100))

Kod:

--bu procedure Maktiris1536 tarafından eylenmiştir..

[COLOR=MediumTurquoise]--KO-Cuce.com 2021[/COLOR]
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,
@Kocuce 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 struserid=@StrUserID

delete from itemler where struserid=@StrUserID

if @row>0 
  begin

WHILE @i < @length
Begin
[COLOR=MediumTurquoise]--Buraya İşemek Yasaktır[/COLOR]
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


if @dwid=0 
begin
set @extname='~~~~~~ item yok ~~~~~~'
set @name='~~~~~~ item yok ~~~~~~'
end
else
begin
set @extname='Bulunamadi'

select @extname=strname from item where num=@dwid

end

insert into itemler (dwid,stacksize,durability,struserid,sira,itembasicname) values(@dwid,@stacksize1,@dur,@StrUserID,(@i-1) / 8,@extname )

set @i=@i+8

end

select * from itemler where struserid=@StrUserID order by sira

end
GO

Kod:

--bu procedure Maktiris1536 tarafından eylenmiştir..

[COLOR=MediumTurquoise]--KO-Cuce.com 2021[/COLOR]
CREATE procedure itemleri_bul_banka
@StrUserID varchar(30)
AS
DECLARE
@length int, -- stritem uzunluğu
@i int, -- item'in stritem deki yeri
@dwid int, 
@dur int,
 @Kocuce int,
@StackSize1 int,
@Sira int,
@Row int,
@extname varchar(50)

delete from warehouse_itemler where struserid=@StrUserID

    set @i = 14*0+1
    set @length=1601

select @row=count(*) from warehouse where straccountid=@StrUserID

if @row>0 
  begin

WHILE @i < @length
Begin
[COLOR=MediumTurquoise]
--Buraya İşemek Yasaktır[/COLOR]
Select @dwid=cast(cast(substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 4, 1)+substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 3, 1)+substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 2, 1)+substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 1, 1) as varbinary(4)) as int(4)),
@dur = cast(cast(cast( substring(WarehouseData, @i+5, 1) as varbinary(1))+cast(substring(WarehouseData, @i+4, 1) as varbinary(1)) as varbinary(2)) as smallint),
@StackSize1 = cast(cast(cast( substring(WarehouseData, @i+7, 1) as varbinary(1))+cast(substring(WarehouseData, @i+6, 1) as varbinary(1)) as varbinary(2)) as smallint),
        @StrUserID = straccountid
        From warehouse
        Where straccountid = @StrUserID

if @dwid=0 
begin
set @extname='~~~~~~ item yok ~~~~~~'
end
else
begin
set @extname='Bulunamadı'

select @extname=strname from item where num=@dwid
end

insert into warehouse_itemler values(@dwid,@stacksize1,@dur,@StrUserID,(@i-1) / 8,@extname )

set @i=@i+8

end

select * from warehouse_itemler where struserid=@StrUserID order by sira

end
GO

Kod:

--bu procedure Maktiris1536 tarafından eylenmiştir..


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,
 @Kocuce 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 struserid=@StrUserID

if @row>0 
  begin


Select @dwid=dwid,
@dur = durability,
@StackSize1 = stacksize,
        @StrUserID = strUserID
        From itemler
        Where strUserID = @StrUserID and sira=@sira

    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 @i=@i+8
set @sira=@sira+1



WHILE @sira < 50
Begin

Select @dwid=dwid,
@dur = durability,
@StackSize1 = stacksize,
        @StrUserID = strUserID
        From itemler
        Where strUserID = @StrUserID and sira=@sira

    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))


[COLOR=MediumTurquoise]--KO-Cuce.com 2021

[/COLOR]    update UserData set strItem = cast( substring(strItem, 1, @i) + cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8)) + substring(strItem, @i+8, 401-@i) as binary(400)) where strUserID = @strUserID
[COLOR=MediumTurquoise]
 --Buraya İşemek Yasaktır[/COLOR]

set @i=@i+8
set @sira=@sira+1

end
end
GO

Kod:

[COLOR=MediumTurquoise]--KO-Cuce.com 2021
 --Buraya İşemek Yasaktır

[COLOR=Black]--bu procedure Maktiris1536 tarafýndan eylenmiþtir..


CREATE procedure itemleri_encode_banka
@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,[/COLOR][/COLOR]
 @Kocuce int,
[COLOR=MediumTurquoise][COLOR=Black]@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,
@Warehousedata varchar(1601)

    set @sira=0
    set @i = 14*0
    set @length = 1601

select @row=count( * ) from warehouse where straccountid=@StrUserID

if @row>0 
  begin

Select @dwid=dwid,
@dur = durability,
@StackSize1 = stacksize,
        @StrUserID = struserid
        From warehouse_itemler
        Where struserid = @StrUserID and sira=@sira

    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))


set @WarehouseData= cast(cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8))   as binary(400)) 
    --update warehouse set WarehouseData = cast(cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8))   as binary(400)) where straccountid = @strUserID


set @i=@i+8
set @sira=@sira+1



WHILE @i<@length
Begin
print @sira
Select @dwid=dwid,
@dur = durability,
@StackSize1 = stacksize,
        @StrUserID = struserid
        From warehouse_itemler
        Where struserid = @StrUserID and sira=@sira

    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))

set @Warehousedata=cast( substring(@WarehouseData, 1, @i) + cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8)) + substring(@WarehouseData, @i+8, 1601-@i) as binary(400))
--    update warehouse set WarehouseData = cast( substring(WarehouseData, 1, @i) + cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8)) + substring(WarehouseData, @i+8, 1601-@i) as binary(400)) where straccountid = @strUserID


set @i=@i+8
set @sira=@sira+1

end

    update warehouse set WarehouseData = @WarehouseData where straccountid = @strUserID

end
GO
[/COLOR][/COLOR]

MSSQL 2021 ; (AKUMA)

İtemleri Bul ..

Kod:

--bu procedure Maktiris1536 tarafından eylenmiştir..
-- AKUMA 2021
--KO-Cuce.com 2021
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,
@Kocuce 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 struserid=@StrUserID

delete from itemler where struserid=@StrUserID

if @row>0 
  begin

WHILE @i < @length
Begin
--Buraya İşemek Yasaktır
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),
@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 int),
@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 int),
        @StrUserID = strUserID
        From UserData
        Where strUserID = @StrUserID


if @dwid=0 
begin
set @extname='~~~~~~ item yok ~~~~~~'
set @name='~~~~~~ item yok ~~~~~~'
end
else
begin
set @extname='Bulunamadi'

select @extname=strname from item where num=@dwid

end

insert into itemler (dwid,stacksize,durability,struserid,sira,itembasicname) values(@dwid,@stacksize1,@dur,@StrUserID,(@i-1) / 8,@extname )

set @i=@i+8

end

select * from itemler where struserid=@StrUserID order by sira

end
GO

İtemleri bul banka

Kod:

--bu procedure Maktiris1536 tarafından eylenmiştir..
-- AKUMA 2021
--KO-Cuce.com 2021
CREATE procedure itemleri_bul_banka
@StrUserID varchar(30)
AS
DECLARE
@length int, -- stritem uzunluğu
@i int, -- item'in stritem deki yeri
@dwid int, 
@dur int,
 @Kocuce int,
@StackSize1 int,
@Sira int,
@Row int,
@extname varchar(50)

delete from warehouse_itemler where struserid=@StrUserID

    set @i = 14*0+1
    set @length=1601

select @row=count(*) from warehouse where straccountid=@StrUserID

if @row>0 
  begin

WHILE @i < @length
Begin

--Buraya İşemek Yasaktır
Select @dwid=cast(cast(substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 4, 1)+substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 3, 1)+substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 2, 1)+substring(cast(substring(WarehouseData, @i,4) as varbinary(4)), 1, 1) as varbinary(4)) as int),
@dur = cast(cast(cast( substring(WarehouseData, @i+5, 1) as varbinary(1))+cast(substring(WarehouseData, @i+4, 1) as varbinary(1)) as varbinary(2)) as int),
@StackSize1 = cast(cast(cast( substring(WarehouseData, @i+7, 1) as varbinary(1))+cast(substring(WarehouseData, @i+6, 1) as varbinary(1)) as varbinary(2)) as int),
        @StrUserID = straccountid
        From warehouse
        Where straccountid = @StrUserID

if @dwid=0 
begin
set @extname='~~~~~~ item yok ~~~~~~'
end
else
begin
set @extname='Bulunamadı'

select @extname=strname from item where num=@dwid
end

insert into warehouse_itemler values(@dwid,@stacksize1,@dur,@StrUserID,(@i-1) / 8,@extname )

set @i=@i+8

end

select * from warehouse_itemler where struserid=@StrUserID order by sira

end
GO

encode procedure'leri aynen çalışacaktır.

kullanım :

exec itemleri_bul 'id'
exec itemleri_bul_banka 'accountid'

eğer enterprisemanagere girerseniz direk char editleyebilirsiniz.

kayıt için de :

exec itemleri_encode 'id'
exec itemleri_encode_banka 'accountid'

mjsamet · 26 May 2008

teşekkürler 1298 versionu için

Longh0rn. · 26 May 2008

tesekkurler

konuyu actıgını gormedim pardn

Fresky · 27 May 2008

Way saol abi

4MustaFa · 27 May 2008

Paylaşım için teşekkürler.

wehement · 27 May 2008

Teşekkürler.

selo0021 · 27 May 2008

Cevap: 1298 için itemleri bulmak

teşekkürler

EmreOzcan · 27 May 2008

Cevap: 1298 için itemleri bulmak

Tesekkürler Alpercik

janerbaba · 27 May 2008

Cevap: 1298 için itemleri bulmak

teşekkürler.

the c0smic · 27 May 2008

Cevap: 1298 için itemleri bulmak

harikasın alper estin yine hö

amfetamin · 27 May 2008

Cevap: 1298 için itemleri bulmak

adam döktürüyor yaw!(maşşallah)

esthecat · 27 May 2008

Cevap: 1298 için itemleri bulmak

Eline Sağlık

10uR · 27 May 2008

Cevap: 1298 için itemleri bulmak

Süper Paylaşım.

ozoCozo · 29 May 2008

Cevap: 1298 için itemleri bulmak

teşekkürler..

ByCedric · 29 May 2008

Cevap: 1298 için itemleri bulmak

Teşekkürler Alper

OrcHyN · 29 May 2008

Cevap: 1298 için itemleri bulmak

tşk. paylasım için

_ChiChécK · 30 May 2008

Cevap: 1298 için itemleri bulmak

ellerine Sağlik

ƒєєℓмуρσωєя · 31 May 2008

Cevap: 1298 için itemleri bulmak

Sağol Alper.

sagopa981 · 31 May 2008

Cevap: 1298 için itemleri bulmak

saol paylaşım için !!

EmreOzcan · 2 Haz 2008

Cevap: 1298 için itemleri bulmak

Söylemesen Bilmiyoduk

Saka Saka Ellerine Saglık Alpercik

1298 için itemleri bulmak (Bozukluk giderildi 09.06.2021)

Administrator

<b><font color="red" >Cüce no : 2 of 7</font></b>

New Member

New Member

Member

Member

Banlanmış

Active Member

Banlanmış

Banlanmış

Member

Member = 96

King OF Empire

New Member

Member

Banlanmış

Yaşasın TÜRK IRKI

ƒєєℓмуρσωєя

Guest

Member

Active Member

Yasal Uyarı