Delphi盒子-问答悬赏

任务详情

 var
monid,Goods,Goods1:PDWORD;
i:DWord;
goodsName:PAnsiChar;
strName:string;
begin
if self.CheckBox9.Checked then
for i:=0 to 80 do
begin
Goods:=Pointer($355500);
Goods:=Pointer(Goods^+I*4);
monid:=Pointer(Goods^+$20);  //+20怪物ID
Goods1:=Pointer(Goods^+$90);  //+90遍历出所有怪物与人的距离 浮点 
//这里不会写 从Goods1选出最小的数
pickgoods55(monid^);     //pickgoods55{};是用怪物ID的技能攻击,里面的monid^是怪物ID
end;
end;