显示Combobox1中怪物名称列表.txt

{本段代码的目的 显示Combobox1中怪物名称列表}

procedure TForm1.ComboBox1DropDown(Sender: TObject);

var

  Monster:PDWORD;

    PtTmp:PDWORD;

    _kind:PDWORD;

        I:Integer;

    _name:PDWORD;

   _name1:PWideChar;

   _name2:string;

begin

  PtTmp:=pointer($924E0C);

  PtTmp:=pointer(PtTmp^+$1C);

  PtTmp:=pointer(PtTmp^+$8);

  PtTmp:=pointer(PtTmp^+$24);

  PtTmp:=pointer(PtTmp^+$18);

  ComboBox1.Clear;

  for I:=0 to 768 do

  begin

    Monster:=pointer(PtTmp^+I*4);//

    if Monster^>0 then    {当对象数组列表不为0的时候才添加}

    begin

        Monster:=Pointer(Monster^+$4);

          _kind:=Pointer(Monster^+$B4);{怪物种类 6->怪物,7->NPC,9->宠物,玩家,10->GM}

          _name:=Pointer(Monster^+$230);//名称

         _name1:=Pointer(_name^+$0);

         _name2:=WideCharTostring(_name1);

        {输出结果}

        if  ComboBox1.Items.IndexOf(_name2)<0 then   ComboBox1.Items.Add(_name2);

    end;

  end;

end;

通过 Wiz 发布