Pvp Serverler | Metin2 | Pvp Server | Private Serverler | Metin2 Pvp Serverler | Knight

Pvp Serverler | Metin2 | Pvp Server | Private Serverler | Metin2 Pvp Serverler | Knight

Pvp Serverler | Metin2 | Private Serverler | Pvp Serverlar | Metin2 Private Serverlar | Knight Online Private Serverlar | Pvp Hileler | Pvp Server Tanıtımlar | Pvp Koxp | Private Serverlar Düpe Yöntemleri | PVP SERVERLER,PVP SERVER,PVP,FİFA 2011,PES 2011


    1298 için itemleri bulmak (Bozukluk giderildi

    Paylaş
    avatar
    Admin
    Admin
    Admin

    <b>Mesaj Sayısı</b> Mesaj Sayısı : 1103
    <b>Rep Puanı</b> Rep Puanı : 414804 Rep Gücü : 0 Kayıt tarihi : 16/09/10 Pvp Server Kurulumu :


    1298 için itemleri bulmak (Bozukluk giderildi

    Mesaj tarafından Admin Bir Cuma 7 Ocak - 6:54

    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 ,





    Kod:

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

    --KO-Cuce.com 2008
    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(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..

    --KO-Cuce.com 2008
    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(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





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


    --KO-Cuce.com 2008


    update UserData set strItem = cast( substring(strItem, 1, @i) +
    cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(Cool) + substring(strItem, @i+8, 401-@i) as binary(400)) where strUserID = @strUserID

    --Buraya İşemek Yasaktır


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

    end
    end
    GO


    GO


    itembasicname varchar(100))







    Admin

    [Linkleri görebilmek için üye olun veya giriş yapın.]

    [Linkleri görebilmek için üye olun veya giriş yapın.]

      Forum Saati Paz 20 Ağus. - 4:30