自编的延时函数无效,老是不停嗑药?[武林外传]

bb88

24楼  发表于: 2007-04-17   
只看该作者 ┊  小 中 大
procedure TaddX.Execute;
begin
repeat
  sleep(1)//或是sleep(10)
  if hp < 60 then
      begin
      POSTMESSAGE(hwd,WM_KEYDOWN,VK_F1,0);
      POSTMESSAGE(HWD,WM_KEYUP,VK_F1,0);
      end;
until application.Terminated;
end;

rice

这个，没有必要用那个种方式延时的

TKeyBoyType = record
    KeyType:TKeyType;
    KeyValue:integer;  //吃
    LastTime:integer; //8
end;


  iHp:=GetMemoryInteger(FGameRoleBase+GAMEROLEHP);
  iT:=GetTickCount();
  //当前hp为零，则表示当前人物已经Game Over则退出线程

  if iHp=0 then Terminate;

  if ((iHp<=FSafeHPValue) and ((iT-FHP_KEY.LastTime)>=FHP_KEY.WaitTime))then
  begin
      FHP_KEY.LastTime:=getTickCount();
      SendKeyEvent(FGameHandle,FHP_KEY.KeyValue);
  end;

这个就可以了