5646

最新推荐文章于 2023-07-10 21:36:32 发布
weixin_30794499
最新推荐文章于 2023-07-10 21:36:32 发布
阅读量121
点赞数
原文链接：http://www.cnblogs.com/keyvip/archive/2011/10/22/2221347.html
版权
unit Dllform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
	Dialogs, RzBckgnd, ExtCtrls, RzPanel, RzTabs, RzButton, StdCtrls, RzEdit,
  Mask, RzLstBox, RzLabel, RzCmboBx, RzRadChk;

type
  TForm1 = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzSeparator1: TRzSeparator;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzBtnHome: TRzButton;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    TabSheet11: TRzTabSheet;
    RzMemo1: TRzMemo;
    RzBtnF1: TRzButton;
    RzBtnF2: TRzButton;
    RzBtnF3: TRzButton;
    RzBtnF4: TRzButton;
    RzBtnF5: TRzButton;
    RzBtnF6: TRzButton;
    RzBtnF7: TRzButton;
    RzBtnF8: TRzButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    btn_selMon: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    RzNumericEdit1: TRzNumericEdit;
    Button20: TButton;
    btnWalkRoad: TButton;
    Btn_GoRoad: TButton;
    Button27: TButton;
    TabSheet12: TRzTabSheet;
    RzLabel1: TRzLabel;
    RzListBox_Mon: TRzListBox;
    RzButton3: TRzButton;
    rzNum: TRzNumericEdit;
    TabSheet13: TRzTabSheet;
    RzButton4: TRzButton;
    TabSheet14: TRzTabSheet;
    Memo2: TMemo;
    Button21: TButton;
    Button23: TButton;
    Button25: TButton;
    Button26: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button22: TButton;
    Button24: TButton;
    TimerTeam: TTimer;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    CheckBox_AutoPick: TCheckBox;
    TimerAutoPick: TTimer;
    Timer1: TTimer;
    Timer_AutoPlay: TTimer;
    ChkBox_HP: TCheckBox;
    ChkBox_MP: TCheckBox;
    RzHP: TRzNumericEdit;
    RzMP: TRzNumericEdit;
    Timer_AutoUseGoods: TTimer;
    RzCB_HP: TRzComboBox;
    RzCB_MP: TRzComboBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    RzComboBox3: TRzComboBox;
    RzComboBox4: TRzComboBox;
    Label3: TLabel;
    Label4: TLabel;
    ckbox_AutoPlay: TCheckBox;
    cck_FixArea: TCheckBox;
    RzNumFix_X: TRzNumericEdit;
    RzNumFix_Y: TRzNumericEdit;
    Label5: TLabel;
    Label6: TLabel;
    RzComBoSkill: TRzComboBox;
    Label7: TLabel;
    RzNumFix_Area: TRzNumericEdit;
    RzEdit1: TRzEdit;
    Button28: TButton;
    RzEdit_sel: TRzEdit;
    RzCheckBox_SelmonID: TRzCheckBox;
    RzListBox_Npicklist: TRzListBox;
    Label8: TLabel;
    CheckBox_PickYN: TCheckBox;
    Edit_GoodsName: TEdit;
    procedure RzBtnHomeClick(Sender: TObject);
    procedure RzBtnF1Click(Sender: TObject);
    procedure RzBtnF2Click(Sender: TObject);
    procedure RzBtnF3Click(Sender: TObject);
    procedure RzBtnF4Click(Sender: TObject);
    procedure RzBtnF5Click(Sender: TObject);
    procedure RzBtnF6Click(Sender: TObject);
    procedure RzBtnF7Click(Sender: TObject);
    procedure RzBtnF8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure btnWalkRoadClick(Sender: TObject);
    procedure Btn_GoRoadClick(Sender: TObject);
    procedure RzButton3Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure btn_selMonClick(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Timer_AutoUseGoodsTimer(Sender: TObject);
		procedure Timer_AutoPlayTimer(Sender: TObject);
		function  CheckFix():boolean;
		function autoSelmonId():integer;
    procedure Button28Click(Sender: TObject);
		procedure Button24Click(Sender: TObject);
		procedure		PickGoods2();
		function strNameinList(name:string):boolean;
    procedure TimerAutoPickTimer(Sender: TObject);
    procedure CheckBox_AutoPickClick(Sender: TObject);
	private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses GameProc;

{$R *.dfm}
function TForm1.strNameinList(name:string):boolean;
var
 i:integer;
begin
 result:=false;
 for i:=0 to self.RzListBox_Npicklist.Count-1 do
	 begin
			if (self.RzListBox_Npicklist.ItemCaption(i)=name)
				then begin result:=true;exit;end; //表示物品名在列表里存在
	 end;
end;   
function TForm1.CheckFix():boolean;    //定点检测
var
curRole:^integer;
cx,cy:^Single;//当前坐标
begin
 result:=true;//超出范围
 ///如果未开启 定点功能 则返回 假
	if not cck_FixArea.Checked then begin result:=false;exit;	result:=true;self.RzEdit1.Text:='未超出范围';end;
curRole:=Pointer(GameBase+$1c);
curRole:=Pointer(curRole^+$24);//当前角色基址
cx:=Pointer(curRole^+$3c);//当前X坐标
cy:=Pointer(curRole^+$3c+8);//当前Y坐标
//在窗口上 添加3个RzNumericEdit 
//分别取名为RzNumFix_X（固定X坐标），RzNumFix_Y(固定Y坐标），RzNumFix_Area（固定范围）
//检测是否超出范围
if ((cx^>=(RzNumFix_Area.Value+RzNumFix_X.Value))or
		(cx^<=(RzNumFix_X.Value-RzNumFix_Area.Value))or
		(cy^>=(RzNumFix_Area.Value+RzNumFix_Y.Value))or
		(cy^<=(RzNumFix_Y.Value-RzNumFix_Area.Value))
   ) then begin
					//超出范围,通过寻路 回到定点位置
					//goRoad(RzNumFix_X.Value,RzNumFix_Y.Value);
					result:=true;
					self.RzEdit1.Text:='超出范围2';
           end
		 else begin result:=false;self.RzEdit1.Text:='未超出范围';end;

end;


procedure TForm1.RzBtnHomeClick(Sender: TObject);
begin
 self.Visible:=not self.Visible;
end;

procedure TForm1.RzBtnF1Click(Sender: TObject);
begin
	F1_F8(1); //F1
end;

procedure TForm1.RzBtnF2Click(Sender: TObject);
begin
 F1_F8(2);
end;

procedure TForm1.RzBtnF3Click(Sender: TObject);
begin
F1_F8(3);
end;

procedure TForm1.RzBtnF4Click(Sender: TObject);
begin
F1_F8(4);
end;

procedure TForm1.RzBtnF5Click(Sender: TObject);
begin
F1_F8(5);
end;

procedure TForm1.RzBtnF6Click(Sender: TObject);
begin
F1_F8(6);
end;

procedure TForm1.RzBtnF7Click(Sender: TObject);
begin
F1_F8(7);
end;

procedure TForm1.RzBtnF8Click(Sender: TObject);
begin
F1_F8(8);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
F1_9(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 F1_9(2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 F1_9(3);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 F1_9(4);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 F1_9(5)
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 F1_9(6);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 F1_9(7);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 F1_9(8);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
 F1_9(9);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
 F1_9(10);
end;


procedure TForm1.Button12Click(Sender: TObject);
begin
useGoods(1);    //第一格物品
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
 useGoods(2);    //第一格物品
end;

procedure TForm1.Button14Click(Sender: TObject); 
begin
 skillNum(2);//清风破 技能号 2
end;

procedure TForm1.Button15Click(Sender: TObject);
 
begin
 skillNum($3);//震烈击 3
end;

procedure TForm1.Button16Click(Sender: TObject);
 
begin
  //双燕斩 技能号 5
//冰燕斩 技能号 6
//落燕斩 技能号 7
//轻功  技能号 63
skillNum($5);
 
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
skillnum($63);  //等价于
//skillnum(99);  //轻功
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
PickGoods;
end;

procedure TForm1.Button19Click(Sender: TObject);
var
 num:Dword;
begin
 num:=round(self.RzNumericEdit1.Value);
   usebiaoqing(num);
end;

procedure TForm1.Button20Click(Sender: TObject);
 
begin
 
 sendTxt(Pchar(self.RzMemo1.Text));
		 
end;

procedure walkroad;                 
var 
 c1,c2,c3,c4:Dword;
 xhy,xhy2 :array[1..3] of single;
begin
 xhy[1]:=-181.01;
 xhy[2]:=-11.1;
 xhy[3]:=72.3;
 xhy2[1]:=0.01;
 xhy2[2]:=0.1;
 xhy2[3]:=0.3;
 c1:=$0046C800;
 c2:=$00470FD0;
 c3:=$00471100;
 c4:=$0046CC70;
 asm
mov ebx,$95E800
add ebx,$1C
mov ebx,[ebx]
mov ebx,[ebx+$24] //取出角色对象
mov ecx,[ebx+$918]
push 1
call c1;
mov esi,eax
XOR EDI,EDI 
lea ecx,xhy
push ecx //目的地地址
push edi   
mov ecx,esi
call c2;
lea edx,xhy2
lea eax,xhy 
push edx
push eax
mov ecx,esi
call c3
mov ecx,[ebx+$918]
push 0
push 1
push esi
push 1
call c4
end;
end;

procedure TForm1.btnWalkRoadClick(Sender: TObject);
begin
	 walkroad();
end;

procedure TForm1.Btn_GoRoadClick(Sender: TObject);
begin
 goRoad(-347,219);
end;

procedure TForm1.RzButton3Click(Sender: TObject);
begin
self.Caption:=intToHex(self.autoSelmonId(),8);
selmon( autoSelmonId);
end;
/过滤选怪
Function   TForm1.autoSelmonId():integer;
 var
	i,MonNum,start,endaddr:Dword;
	Vecx, monId,monNum2,P:^Dword;
	monName:PwideChar;
	saddr,s,sName:string;
begin
//dd [[[[95AD3c]+1c]+8]+20]+18 
self.RzListBox_Mon.Clear;//清空怪列表
MonNum:=round(self.rzNum.Value);
 asm
	 mov ecx,$95ad3c
	 mov ecx,[ecx]
	 mov ecx,[ecx+$1c]
	 mov ecx,[ecx+$8]
	 mov ecx,[ecx+$20]
	 mov ebx,[ecx+$18]
	 mov start,ebx   //数组起始地址
	 add ebx,[ecx+$18+4]
	 mov endaddr,ebx;//结束地址 		
 end;
	 for i:=1 to $300 do 
		begin
		 try 
		 vecx:=Pointer(start);
		 start:=start+4;//指针移到下一个怪对象
		 if Vecx^=0 then continue;
				 monID:=Pointer(Vecx^+$8);  //读怪ID
				 p:=Pointer(Vecx^+$4);   //指向怪物基址指针
				 saddr:=intToHex(p^,8);  //显示地址
				 monNum2:=Pointer(P^+$128);
				 p:=Pointer(p^+ $21c);   //指向怪物名字的指针
				 monName:=Pointer(p^);   //怪名字
				 s:=intToHex(monID^,$8);
				 sname:=WideCharTostring(monName);
					if (sname= RzEdit_sel.Text) then 
					begin
					result:= monID^;
					exit;
					end;
				 
				 	except
	    	continue ;  //出错处理
				end;
		end;
	
end;
procedure Tform1.PickGoods2();
  var
 monid, Goods:PDWORD;
	i,pi:DWord;
	goodsName:PWideChar;
	strName:string;
	
begin
 memo1.Clear;
  for i:=1 to $300 do      //物品列表遍历
 begin
   //[[[[[95E800+1c]+8]+24]+10+8]+I*4]
   Goods:=Pointer($95E800+$1c);
   Goods:=Pointer(Goods^+$8);
   Goods:=Pointer(Goods^+$24);
   Goods:=Pointer(Goods^+$18);
   Goods:=Pointer(Goods^+I*4);//[[[[95E800+1c]+8]+24]+10+8]+I*4
	 pi:=Goods^;
	if pi>0 then  begin
				 monid:=Pointer(Goods^+8);
				 memo1.Lines.Add(intToHex(monid^,8));
				 Goods:=Pointer(Goods^+4);//读物品对象基址
				 Goods:=Pointer(Goods^+$168);  //读出了名字
				 GoodsName:=Pointer(Goods^);
				 strName:=	WideCharTostring(GoodsName);  //宽字符转string
				 
				 if strNameinList(strName) then continue
														else pickgoods(monid^); 
			memo1.lines.add(strName);
								end;
 end;

 //
end;

procedure TForm1.Button21Click(Sender: TObject);
var 
 i:integer;
 playBase,pt,curRole:PDWORD;//^integer ^Dword;
 ws:pwidechar;
 s:string;
begin
 //dd   [[ [[[[GameBase+1c]+24]+138]+18] +I*4]+4] //i=0..$300
		playBase:=Pointer(GameBase+$1c);
		 playBase:=Pointer(Dword(playbase^)+$24);
			playBase:=Pointer(Dword(playbase^)+$138);
			playBase:=Pointer(Dword(playbase^)+$18);
	 
	 for  i:=0 to $300 do
		begin
			curRole:=Pointer(playBase^+i*4);
			if (curRole=nil) then continue;
			if (curRole^=0) then continue;
			 curRole:=Pointer(curRole^+4);
			 pt:=Pointer(curRole^+$3A8);
			 ws:=Pointer(pt^);//字串指针
			 s:=WideCharTostring(ws);
			 self.Memo2.Lines.Add(s);
			
		end;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
 self.RzListBox_Npicklist.Add(Edit_GoodsName.Text);
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
JoinTeam();///
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
beat();//普攻测试
end;

procedure TForm1.btn_selMonClick(Sender: TObject);
begin
selmon();//选怪测试
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
useRed();//使用金创药
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
ExitTeam();
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
acceptToJoin();
end;

procedure TForm1.Timer_AutoUseGoodsTimer(Sender: TObject);
var
 curRoleBlood,curMagicValue:PDWORD;
begin
//当前角色血值<RzHp 使用F1
//[[[GameBase+1c]+24]+25C]
		curRoleBlood:=Pointer(GameBase+$1C);
		curRoleBlood:=Pointer(CurRoleBlood^+$24);
		curMagicValue:= curRoleBlood;//当前角色基址
		curRoleBlood:=Pointer(CurRoleBlood^+$25c);//当前HP
		curMagicValue:=Pointer(curMagicValue^+$260);//当前MP
		//是否达到血值保护下限
		if (ChkBox_HP.Checked and (curRoleBlood^<RzHp.IntValue)) then 
		 begin
				F1_F8(RzCB_HP.ItemIndex+1);
		 end;
		
			if  (ChkBox_MP.Checked and (curMagicValue^<RzMp.IntValue)) then 
		 begin
				F1_F8(RzCB_MP.ItemIndex+1);
		 end;

		//物品用尽提示
		 // if   [[[[[[PGameBase]+1c]+24]+1*4+908]+0c]+0]=0 
		 //then MesssageBox(0,'F1_上物品用尽, 'Error',MB_ICONERROR or MB_OK);

end;
var PF1F8:PDWORD;
procedure TForm1.Timer_AutoPlayTimer(Sender: TObject);
begin
	 ///自动打怪//
	 if self.ckbox_AutoPlay.Checked then 
		begin
		 //dd   [[[[[PGameBase]+1c]+24]+1*4+908]+0c]+4*0 //0表示数组下标 F1-F8F1 <>0 F1_F8(
			 PF1F8:=Pointer(PGameBase);
			 PF1F8:=Pointer(PF1F8^+$1C);
			 PF1F8:=Pointer(PF1F8^+$24);
			 PF1F8:=Pointer(PF1F8^+$90c);
			 PF1F8:=Pointer(PF1F8^+$c);
			 PF1F8:=Pointer(PF1F8^+4*self.RzComBoSkill.ItemIndex);
			if ( PF1F8^=0) then exit;
			///如果选中怪死亡 则重新选怪
			///如果怪死亡 选中怪ID 就是0 角色属性+7E4 
			//dd [[GameBase+1c]+24]+7e4 //选中怪ID=0 
			 PF1F8:=Pointer(PGameBase);
			 PF1F8:=Pointer(PF1F8^+$1C);
			 PF1F8:=Pointer(PF1F8^+$24);
				PF1F8:=Pointer(PF1F8^+$7e4);
				if (( PF1F8^=0) or ((PF1F8^ and $80000000)<>$80000000)) then   //是否选中的是自己 PF1F8^<>ID
				begin
				 //是否超出范围
				 if self.CheckFix() then goRoad(self.RzNumFix_X.Value,self.RzNumFix_Y.Value)
											else begin 
										if RzCheckBox_SelmonID.Checked then	selmon(self.autoSelmonId()) 
																				else selmon();
											end;  //重新选怪
				end else f1_F8(self.RzComBoSkill.ItemIndex+1);//怪未死亡
		end;
	 ///范围检测 定点打怪//
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
selmon($8000330A);
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
self.RzListBox_Npicklist.DeleteSelectedItems;
end;

procedure TForm1.TimerAutoPickTimer(Sender: TObject);
begin
 if self.CheckBox_PickYN.Checked then pickgoods2()
                                 else pickGoods();
end;

procedure TForm1.CheckBox_AutoPickClick(Sender: TObject);
begin
TimerAutoPick.Enabled:=self.CheckBox_AutoPick.Checked;
end;

end.
转载于:https://www.cnblogs.com/keyvip/archive/2011/10/22/2221347.html
weixin_30794499
关注
0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
5646

unit Dllform;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzBckgnd, ExtCtrls, RzPanel, RzTabs, RzButton, StdCtrls, RzEdit, Mask, ...
复制链接

扫一扫