搜索
 找回密码
 加入

有人有無這個刷裝備工具???(有圖)

jiji0513 2008-11-11 21:58:37 2096
有人有無這個刷裝備工具???如圖

14 回复

ctgwglzc
2008-11-5 16:49:03
点击查看详情
原帖由 jiji0513 于 2008-11-5 16:45 发表
有人有無這個刷裝備工具???如圖

以前有,现在删了,我现在有更好的工具Electro Shock Private Server Gaming开发的USER  DEITOR
jiji0513
2008-11-5 16:52:25
楼主
在哪裡??要錢嗎 = ="
ctgwglzc
2008-11-5 17:14:19
原帖由 jiji0513 于 2008-11-5 16:52 发表
在哪裡??要錢嗎 = ="

台币3000,嘿嘿~
回头我把你要的东东发上来,现在没空
jiji0513
2008-11-5 17:46:23
楼主
感恩哩^^"

[ 本帖最后由 jiji0513 于 2008-11-5 17:53 编辑 ]
1300121
2008-11-8 12:49:37
大大好棒 大大好棒
ctgwglzc
2008-11-8 23:15:30

提供这个工具的源进程,需要的自行开发

  1. CREATE procedure itemleri_bul
  2. @StrUserID varchar(30)
  3. AS
  4. DECLARE
  5. @length int, -- stritem uzunlu?u
  6. @i int, -- item'in stritem deki yeri
  7. @dwid int,
  8. @dur int,
  9. @duar int,
  10. @StackSize1 int,
  11. @Sira int,
  12. @Row int,
  13. @name varchar(100),
  14. @extname varchar(100),
  15. @ext int


  16.     set @i = 14*0+1
  17.     set @length = 401

  18. select @row=count(*) from userdata where struserid=@StrUserID

  19. delete from itemler where struserid=@StrUserID

  20. if @row>0
  21.   begin

  22. WHILE @i < @length
  23. Begin

  24. Select @dwid=cast(cast(substring(cast(substring(strItem, @i,4) as varbinary(4)), 4,
  25. 1)+substring(cast(substring(strItem, @i,4) as varbinary(4)), 3, 1)+substring(cast(substring(strItem, @i,4) as
  26. varbinary(4)), 2, 1)+substring(cast(substring(strItem, @i,4) as varbinary(4)), 1, 1) as varbinary(4)) as int(4)),
  27. @dur = cast(cast(cast( substring(strItem, @i+5, 1) as varbinary(1))+cast(substring(strItem, @i+4, 1) as
  28. varbinary(1)) as varbinary(2)) as smallint),
  29. @StackSize1 = cast(cast(cast( substring(strItem, @i+7, 1) as varbinary(1))+cast(substring(strItem, @i+6, 1) as
  30. varbinary(1)) as varbinary(2)) as smallint),
  31.         @StrUserID = strUserID
  32.         From UserData
  33.         Where strUserID = @StrUserID




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

  36. set @i=@i+8

  37. end
  38. end

  39. GO
复制代码
ctgwglzc
2008-11-8 23:15:49
  1. CREATE procedure itemleri_encode
  2. @StrUserID varchar(30)
  3. AS
  4. DECLARE
  5. @length int, -- stritem uzunlu?u
  6. @row int, -- yerine g?re dei?ior.
  7. @i int, -- item'in stritem deki yeri
  8. @dwid int, -- dwid
  9. @pos int,
  10. @dur int,
  11. @dur1 int,
  12. @ext int,
  13. @StackSize1 int,
  14. @strName varchar(30),
  15. @strExtName varchar(30),
  16. @Cdwid varbinary(4),
  17. @cdur varchar(2),
  18. @Source tinyint,
  19. @NEWdwid int,
  20. @StackSize int,
  21. @cstack varchar(2),
  22. @sira int

  23.     set @sira=0
  24.     set @i = 14*0
  25.     set @length = 401

  26. select @row=count( * ) from userdata where struserid=@StrUserID

  27. if @row>0
  28.   begin


  29. Select @dwid=dwid,
  30. @dur = durability,
  31. @StackSize1 = stacksize,
  32.         @StrUserID = strUserID
  33.         From itemler
  34.         Where strUserID = @StrUserID and sira=@sira

  35.     Set @Cdwid = Substring(cast(@dwid as varbinary(4)), 4, 1) + Substring(cast(@dwid as varbinary(4)), 3, 1) +
  36. Substring(cast(@dwid as varbinary(4)), 2, 1) + Substring(cast(@dwid as varbinary(4)), 1, 1)
  37.     Set @Cdur = cast(Substring(cast(@dur as varbinary(2)), 2, 1)+Substring(cast(@dur as varbinary(2)), 1, 1) as
  38. varchar(2))
  39.     Set @Cstack = cast(Substring(cast(@StackSize1 as varbinary(2)), 2, 1)+Substring(cast(@StackSize1 as
  40. varbinary(2)), 1, 1) as varchar(2))


  41.     update UserData set strItem = cast(cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8))   as
  42. binary(400)) where strUserID = @strUserID


  43. set @i=@i+8
  44. set @sira=@sira+1



  45. WHILE @sira < 50
  46. Begin

  47. Select @dwid=dwid,
  48. @dur = durability,
  49. @StackSize1 = stacksize,
  50.         @StrUserID = strUserID
  51.         From itemler
  52.         Where strUserID = @StrUserID and sira=@sira

  53.     Set @Cdwid = Substring(cast(@dwid as varbinary(4)), 4, 1) + Substring(cast(@dwid as varbinary(4)), 3, 1) +
  54. Substring(cast(@dwid as varbinary(4)), 2, 1) + Substring(cast(@dwid as varbinary(4)), 1, 1)
  55.     Set @Cdur = cast(Substring(cast(@dur as varbinary(2)), 2, 1)+Substring(cast(@dur as varbinary(2)), 1, 1) as
  56. varchar(2))
  57.     Set @Cstack = cast(Substring(cast(@StackSize1 as varbinary(2)), 2, 1)+Substring(cast(@StackSize1 as
  58. varbinary(2)), 1, 1) as varchar(2))


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


  61. set @i=@i+8
  62. set @sira=@sira+1

  63. end
  64. end
  65. delete from itemler


  66. GO
复制代码
ctgwglzc
2008-11-9 00:01:45

同时必须建立以下的表

  1. USE kn_online
  2. go
  3. DROP TABLE itemler
  4. go
  5. CREATE TABLE itemler(
  6.   dwid int,
  7.   stacksize smallint,
  8.   durability smallint,
  9.   strUserId varchar(50),
  10.   sira int,
  11.   itembasicname varchar(100),
  12.   extname varchar(100)
  13. )
复制代码
jiji0513
2008-11-11 21:58:37
楼主
感謝提供^^"
原來還需要新增才可以使用~~難怪我資料庫等帳密都對卻無法正常使用= =!
12下一页
高级模式
游客