/****** Object: StoredProcedure [dbo].[itemleri_encode] Script Date: 10/02/2012 00:53:32 ******/SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER procedure [dbo].[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),
@strSerial int,
@CstrSerial varbinary(4),
@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
print @dwid
print @strSerial
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 @CstrSerial = Substring(cast(@strSerial as varbinary(4)), 4, 1) + Substring(cast(@strSerial as varbinary(4)), 3, 1) + Substring(cast(@strSerial as varbinary(4)), 2, 1) + Substring(cast(@strSerial 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(50)) as binary(400)),
strSerial = cast(cast(@CstrSerial as varchar(4)) 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))
set @CstrSerial = Substring(cast(@strSerial as varbinary(4)), 4, 1) + Substring(cast(@strSerial as varbinary(4)), 3, 1) + Substring(cast(@strSerial as varbinary(4)), 2, 1) + Substring(cast(@strSerial as varbinary(4)), 1, 1)
update UserData set
strItem = cast(substring(strItem, 1, @i) + cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(50)) + substring(strItem, @i+8, 401-@i) as binary(400)),
strSerial = cast(substring(strSerial, 1, @i) + cast(@CstrSerial as varchar(4)) + substring(strSerial, @i+8, 401-@i) as binary(400))
where strUserID = @StrUserID
--Buraya İşemek Yasaktır
set @i=@i+8
set @sira=@sira+1
end
end