3,7包裹物品数组

人物包裹里的第1格子上的药品数量开始查找，

CE

注意在未找到数组之前 如果把第1格子上的物品全部移走，得重新再找。

第1格子上的红数量=[[[[[[924E0C]+1C]+20]+0B4C]+0C]0*4]+14

 

大瓶活血散=[[[[[[[00924E0C]+1C]+20]+B4C]+C]+0]+54]+C

其他偏移用 MemView(结构化内存监视器)遍历

包裹数组=[[[[00924E0C]+1c]+20]+B4C]

    +10 包裹格子数量

    +14 包裹格子数量上限

    +C ???

    包裹数组=[[[[[[0924E0C]+1C]+20]+B4C]+C]

包裹数组列表=[[[[[[0924E0C]+1C]+20]+B4C]+C]+EBX*4]

    包裹对象=包裹数组列表

    包裹属性=[包裹对象]+偏移

        [+54]+C      名称

        +4           类型

        +8           ID号

        +14          物品数量

        +18          物品数量上限

        +1C          价格(单价)

                  {冷却时间}

 

//

{此段代码需要hook的支持}
/// <summary> 
/// {人物是在游戏当中还是小退} 
/// </summary> 
function  InGame (): Boolean ; 
var  gameretn : DWORD ; 
begin 
   asm 
    mov  eax ,[ $00924D48 ] 
    mov  gameretn , eax 
   end ; 
   if  gameretn = 0   then  Result := true {在游戏当中} 
   else  if  gameretn >= 1  then   Result := False ;  {人物在角色选择界面} 
end ; 

procedure  TForm1 . Button1Click ( Sender :  TObject ); 
/// <summary>
/// 包裹信息
/// </summary>
var
   I             : Integer ;
   packsack      : PDWORD ;
   pckTmp        : DWORD ;
   pckpck_id     : PDWORD ;
   gdsAmount     : PDWORD ;
   pck_amount : DWORD ;
   pck_kind      : PDWORD ;
   pck_price     : PDWORD ;
   pck_id        : PDWORD ;
   pck_name      : PDWORD ;
   pck_name1     : PWideChar ;
   pck_name2     : string ;
begin
{
包裹数组=[[[[00924E0C]+1c]+20]+B4C]
  +10 包裹格子数量
  +14 包裹格子数量上限
    +C ???
    包裹数组=[[[[[[0924E0C]+1C]+20]+B4C]+C]
包裹数组列表=[[[[[[0924E0C]+1C]+20]+B4C]+C]+EBX*4]
    包裹对象=包裹数组列表
    包裹属性=[包裹对象]+偏移
    [+54]+C      名称
    +4           类型
    +8           ID号
    +14          物品数量
    +18          物品数量上限
    +1C          价格(单价)
}                    {冷却时间}
   if  InGame = False  then   Exit ;
   asm
     mov  eax ,[ $924E0C ]
     mov  eax ,[ eax + $1c ]
     mov  eax ,[ eax + $20 ]
     mov  eax ,[ eax + $b4c ]
     mov  ecx ,[ eax + $10 ]
     mov  pck_amount , ecx //
     mov  ecx ,[ eax + $c ]
     mov  pckTmp , ecx  //
   end ;
   self . Memo1 . Clear ;
   for  I := 0  to  pck_amount - 1  do
   begin
     packsack  := pointer ( pckTmp + I * 4 );
     pck_kind  := Pointer ( packsack ^+ $4 );
     pck_id    := Pointer ( packsack ^+ $8 );
     pck_price := Pointer ( packsack ^+ $1C );
     gdsAmount := Pointer ( packsack ^+ $14 );
   if  packsack ^> 0  then     //当对象数组列表不为0的时候才添加
   begin
    if  pck_kind ^  in [ 0 , 3 ]   then   {裁缝物品 ,巧匠物品 }
    begin
       pck_name := Pointer ( packsack ^+ $DC );
      pck_name1 := Pointer ( pck_name ^+ $C );
      pck_name2 := WideCharTostring ( pck_name1 );
    end
    else   if  pck_kind ^  = 15  then    {武器类}
    begin
       pck_name := Pointer ( packsack ^+ $E4 );
      pck_name1 := Pointer ( pck_name ^+ $C );
      pck_name2 := WideCharTostring ( pck_name1 );
    end
    else   if  pck_kind ^  in [ 8 , 9 , 22 , 23 ]   then   {9=药水类}
    begin
       pck_name := Pointer ( packsack ^+ $54 );
      pck_name1 := Pointer ( pck_name ^+ $C );
      pck_name2 := WideCharTostring ( pck_name1 );
    end
    else   if  pck_kind ^  in [ 5 , 10 , 13 , 16 , 19 , 20 , 27 , 31 , 39 ]   then    {矿铲类,27传送石 宠物食物}
    begin
       pck_name := Pointer ( packsack ^+ $4C );
      pck_name1 := Pointer ( pck_name ^+ $4 );
      pck_name2 := WideCharTostring ( pck_name1 );
    end
    else  if   not  pck_kind ^  in [ 8 , 9 , 22 , 23 , 0 , 3 , 15 , 5 , 10 , 13 , 16 , 19 , 20 , 27 , 31 , 39 ]  then  Continue ;
     //当包裹里错误读不出来的名称 时间就会包错    //包里的物品被读取了2遍 只让它读一次
         Self . memo1 . lines . add ( Format ( 'ID %4X (%4d) 价格%8d %s' ,[ pck_id ^, gdsAmount ^,( pck_price ^)*( gdsAmount ^), pck_name2 ]));
   end ;
   end ;
  Self . Memo1 . Hint := Self . Memo1 . Text ;
end ;

 

通过 Wiz 发布

附件列表