frmdirectxunit.pas

冒险岛吸怪源码ＵＣＥ的制作材料 用于冒险岛游戏的外挂

var i: integer;
begin
  if tempkeys.zoom2[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zoom2[i]=0 then
      begin
        tempkeys.zoom2[i]:=key;
        break;
      end else
      if tempkeys.zoom2[i]=key then break;
  end;

  zoom2.Text:=ConvertKeyComboToString(tempkeys.zoom2);
end;

procedure TfrmDirectX.Zoom3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.zoom3[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zoom3[i]=0 then
      begin
        tempkeys.zoom3[i]:=key;
        break;
      end else
      if tempkeys.zoom3[i]=key then break;
  end;

  zoom3.Text:=ConvertKeyComboToString(tempkeys.zoom3);
end;

procedure TfrmDirectX.Zoom4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.zoom4[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zoom4[i]=0 then
      begin
        tempkeys.zoom4[i]:=key;
        break;
      end else
      if tempkeys.zoom4[i]=key then break;
  end;

  zoom4.Text:=ConvertKeyComboToString(tempkeys.zoom4);
end;

procedure TfrmDirectX.Zoom5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.zoom5[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zoom5[i]=0 then
      begin
        tempkeys.zoom5[i]:=key;
        break;
      end else
      if tempkeys.zoom5[i]=key then break;
  end;

  zoom5.Text:=ConvertKeyComboToString(tempkeys.zoom5);
end;

procedure TfrmDirectX.ZoominKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.zoomin[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zoomin[i]=0 then
      begin
        tempkeys.zoomin[i]:=key;
        break;
      end else
      if tempkeys.zoomin[i]=key then break;
  end;

  zoomin.Text:=ConvertKeyComboToString(tempkeys.zoomin);
end;

procedure TfrmDirectX.ZoomoutKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.zoomout[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zoomout[i]=0 then
      begin
        tempkeys.zoomout[i]:=key;
        break;
      end else
      if tempkeys.zoomout[i]=key then break;
  end;

  zoomout.Text:=ConvertKeyComboToString(tempkeys.zoomout);
end;

procedure TfrmDirectX.nozoomKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.nozoom[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.nozoom[i]=0 then
      begin
        tempkeys.nozoom[i]:=key;
        break;
      end else
      if tempkeys.nozoom[i]=key then break;
  end;

  nozoom.Text:=ConvertKeyComboToString(tempkeys.nozoom);
end;


procedure TfrmDirectX.Button7Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zoomin[0],10);
  zoomin.Text:=ConvertKeyComboToString(tempkeys.zoomin); //=''
  zoomin.SetFocus;
end;

procedure TfrmDirectX.Button8Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zoomout[0],10);
  zoomout.Text:=ConvertKeyComboToString(tempkeys.zoomout); //=''
  zoomout.SetFocus;
end;

procedure TfrmDirectX.Button9Click(Sender: TObject);
begin
  zeromemory(@tempkeys.nozoom[0],10);
  nozoom.Text:=ConvertKeyComboToString(tempkeys.nozoom); //=''
  nozoom.SetFocus;
end;

procedure TfrmDirectX.fogKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.fog[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.fog[i]=0 then
      begin
        tempkeys.fog[i]:=key;
        break;
      end else
      if tempkeys.fog[i]=key then break;
  end;

  fog.Text:=ConvertKeyComboToString(tempkeys.fog);
end;

procedure TfrmDirectX.zbufferKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.zbuffer[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.zbuffer[i]=0 then
      begin
        tempkeys.zbuffer[i]:=key;
        break;
      end else
      if tempkeys.zbuffer[i]=key then break;
  end;

  zbuffer.Text:=ConvertKeyComboToString(tempkeys.zbuffer);
end;

procedure TfrmDirectX.LightingKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.lighting[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.lighting[i]=0 then
      begin
        tempkeys.lighting[i]:=key;
        break;
      end else
      if tempkeys.lighting[i]=key then break;
  end;

  lighting.Text:=ConvertKeyComboToString(tempkeys.lighting);
end;

procedure TfrmDirectX.Button10Click(Sender: TObject);
begin
  zeromemory(@tempkeys.fog[0],10);
  fog.Text:=ConvertKeyComboToString(tempkeys.fog); //=''
  fog.SetFocus;
end;

procedure TfrmDirectX.Button11Click(Sender: TObject);
begin
  zeromemory(@tempkeys.zbuffer[0],10);
  zbuffer.Text:=ConvertKeyComboToString(tempkeys.zbuffer); //=''
  zbuffer.SetFocus;
end;

procedure TfrmDirectX.Button12Click(Sender: TObject);
begin
  zeromemory(@tempkeys.lighting[0],10);
  lighting.Text:=ConvertKeyComboToString(tempkeys.lighting); //=''
  lighting.SetFocus;
end;

procedure TfrmDirectX.autoaimtoggleKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.autoaimtoggle[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.autoaimtoggle[i]=0 then
      begin
        tempkeys.autoaimtoggle[i]:=key;
        break;
      end else
      if tempkeys.autoaimtoggle[i]=key then break;
  end;

  autoaimtoggle.Text:=ConvertKeyComboToString(tempkeys.autoaimtoggle);
end;

procedure TfrmDirectX.Button13Click(Sender: TObject);
begin
  zeromemory(@tempkeys.autoaimtoggle[0],10);
  autoaimtoggle.Text:=ConvertKeyComboToString(tempkeys.autoaimtoggle); //=''
  autoaimtoggle.SetFocus;
end;

procedure TfrmDirectX.increaselagKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.increaselag[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.increaselag[i]=0 then
      begin
        tempkeys.increaselag[i]:=key;
        break;
      end else
      if tempkeys.increaselag[i]=key then break;
  end;

  increaselag.Text:=ConvertKeyComboToString(tempkeys.increaselag);
end;

procedure TfrmDirectX.decreaselagKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.decreaselag[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.decreaselag[i]=0 then
      begin
        tempkeys.decreaselag[i]:=key;
        break;
      end else
      if tempkeys.decreaselag[i]=key then break;
  end;

  decreaselag.Text:=ConvertKeyComboToString(tempkeys.decreaselag);
end;

procedure TfrmDirectX.Button14Click(Sender: TObject);
begin
  zeromemory(@tempkeys.increaselag[0],10);
  increaselag.Text:=ConvertKeyComboToString(tempkeys.increaselag); //=''
  increaselag.SetFocus;
end;

procedure TfrmDirectX.Button15Click(Sender: TObject);
begin
  zeromemory(@tempkeys.decreaselag[0],10);
  decreaselag.Text:=ConvertKeyComboToString(tempkeys.decreaselag); //=''
  decreaselag.SetFocus;
end;

procedure TfrmDirectX.setaimsetting1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.setaimsetting1[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.setaimsetting1[i]=0 then
      begin
        tempkeys.setaimsetting1[i]:=key;
        break;
      end else
      if tempkeys.setaimsetting1[i]=key then break;
  end;

  setaimsetting1.Text:=ConvertKeyComboToString(tempkeys.setaimsetting1);
end;

procedure TfrmDirectX.setaimsetting2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.setaimsetting2[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.setaimsetting2[i]=0 then
      begin
        tempkeys.setaimsetting2[i]:=key;
        break;
      end else
      if tempkeys.setaimsetting2[i]=key then break;
  end;

  setaimsetting2.Text:=ConvertKeyComboToString(tempkeys.setaimsetting2);
end;

procedure TfrmDirectX.setaimsetting3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.setaimsetting3[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.setaimsetting3[i]=0 then
      begin
        tempkeys.setaimsetting3[i]:=key;
        break;
      end else
      if tempkeys.setaimsetting3[i]=key then break;
  end;

  setaimsetting3.Text:=ConvertKeyComboToString(tempkeys.setaimsetting3);
end;

procedure TfrmDirectX.Button25Click(Sender: TObject);
begin
  zeromemory(@tempkeys.setaimsetting1[0],10);
  setaimsetting1.Text:=ConvertKeyComboToString(tempkeys.setaimsetting1); //=''
  setaimsetting1.SetFocus;
end;

procedure TfrmDirectX.Button26Click(Sender: TObject);
begin
  zeromemory(@tempkeys.setaimsetting2[0],20);
  setaimsetting2.Text:=ConvertKeyComboToString(tempkeys.setaimsetting2); //=''
  setaimsetting2.SetFocus;
end;

procedure TfrmDirectX.Button27Click(Sender: TObject);
begin
  zeromemory(@tempkeys.setaimsetting3[0],30);
  setaimsetting3.Text:=ConvertKeyComboToString(tempkeys.setaimsetting3); //=''
  setaimsetting3.SetFocus;
end;

procedure TfrmDirectX.PreviousTextureKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.previoustexture[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.previoustexture[i]=0 then
      begin
        tempkeys.previoustexture[i]:=key;
        break;
      end else
      if tempkeys.previoustexture[i]=key then break;
  end;

  previoustexture.Text:=ConvertKeyComboToString(tempkeys.previoustexture);
end;


procedure TfrmDirectX.nexttextureKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.nexttexture[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.nexttexture[i]=0 then
      begin
        tempkeys.nexttexture[i]:=key;
        break;
      end else
      if tempkeys.nexttexture[i]=key then break;
  end;

  nexttexture.Text:=ConvertKeyComboToString(tempkeys.nexttexture);
end;

procedure TfrmDirectX.locktextureKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.locktexture[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.locktexture[i]=0 then
      begin
        tempkeys.locktexture[i]:=key;
        break;
      end else
      if tempkeys.locktexture[i]=key then break;
  end;

  locktexture.Text:=ConvertKeyComboToString(tempkeys.locktexture);
end;

procedure TfrmDirectX.Button17Click(Sender: TObject);
begin
  zeromemory(@tempkeys.nexttexture[0],10);
  nexttexture.Text:=ConvertKeyComboToString(tempkeys.nexttexture); //=''
  nexttexture.SetFocus;
end;

procedure TfrmDirectX.Button18Click(Sender: TObject);
begin
  zeromemory(@tempkeys.locktexture[0],10);
  locktexture.Text:=ConvertKeyComboToString(tempkeys.locktexture); //=''
  locktexture.SetFocus;
end;

procedure TfrmDirectX.IncreaseXKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.IncreaseX[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.IncreaseX[i]=0 then
      begin
        tempkeys.IncreaseX[i]:=key;
        break;
      end else
      if tempkeys.IncreaseX[i]=key then break;
  end;

  IncreaseX.Text:=ConvertKeyComboToString(tempkeys.IncreaseX);
end;

procedure TfrmDirectX.IncreaseYKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if tempkeys.IncreaseY[4]=0 then
  begin
    for i:=0 to 4 do
      if tempkeys.IncreaseY[i]=0 then
      begin
        tempkeys.IncreaseY[i]:=key;
        break;
      end else
      if tempkeys.IncreaseY[i]=key then break;
  end;

  IncreaseY.Text:=ConvertKeyComboToString(tempkeys.IncreaseY);
end;

procedure TfrmDirectX.IncreaseZKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;