procedure mymath.jiaorenwu1; label a1,a2,a3,a4,a5,a6; var shifoudiancuocishu,cishu:Integer; begin if sheyaoxiangshijian<0 then begin shifouchisheyaoxiang:=0; end; //CoInitialize(nil); // chkpass; //CoUninitialize; baoxianglajincishu:=0; chisheyaoxiang; shifoudiancuocishu:=1; shifouheshuzhanzaiyiqi:=1; xpanduan:=8; xlajinzhengshu:=8; xlajinfushu:=-8; dianjinpc; cishu:=0; lajincishu:=0; xianshulajincishu:=0;//如果多次拉近未成功就执行算法 cuowucishu:=0; cuowucishu:=0; dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\苦行虚空任务.bmp','000000',0.85,0,mx,my); if (mx>0) and (my>0) then begin a1: dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\苦行虚空任务.bmp','000000',0.85,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(mx,my); leftclick; yincangshubiao; goto a1; end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\kx任务失败.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(mx,my); leftclick; yincangshubiao; dianjicuohao; quxiaorenwu; //取消任务 end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\kx任务成功.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(mx,my); leftclick; yincangshubiao; dianjicuohao; jiaorenwu1; //接任务 end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\输入文字.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin
chakanyaoshurudeneirong; //输入文字 end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\画图板.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin huatu; end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\大海龟.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin if Form1.chk1.Checked then begin fangpiao(mx,my); leftclick; yincangshubiao; dianjicuohao; quxiaorenwu; end else begin shifouyuguai:=1; shifouyouciguai:=0; shanayigeguai:='龟'; dianjicuohao; Sleep(100); yuguai; end; end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\巨蛙.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin if Form1.chk1.Checked then begin fangpiao(mx,my); leftclick; yincangshubiao; dianjicuohao; quxiaorenwu; end else begin shifouyuguai:=1; shifouyouciguai:=0; shanayigeguai:='蛙'; dianjicuohao; Sleep(100); yuguai; end; end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\树怪.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin if Form1.chk1.Checked then begin fangpiao(mx,my); leftclick; yincangshubiao; dianjicuohao; quxiaorenwu; end else begin shifouyuguai:=1; shifouyouciguai:=0; shanayigeguai:='怪'; dianjicuohao; Sleep(100); yuguai; end; end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\仙树.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin jiaoshui:=0; shifei:=0; chuchong:=0; xpanduan:=12; xlajinzhengshu:=12; xlajinfushu:=-12; huoquxianshucanshu; end else begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\上古典籍.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(mx,my); leftclick; yincangshubiao; guxiangshifouzhaodao:=0; xpanduan:=12; xlajinzhengshu:=12; xlajinfushu:=-12; baoxiangzouditu1; end else begin Sleep(200); cishu:=cishu+1; if cishu=30 then begin jiaorenwu1; end else begin goto a1; end; end; end; end; end; end; end; end; end; end; end; end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我知道错了.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin a2: dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我知道错了.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(mx,my); leftclick; yincangshubiao; goto a2; end else begin a4: dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我考虑好了.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin a3: dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我考虑好了.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(mx,my); leftclick; yincangshubiao; goto a3; end else begin goto a1; end; end else begin goto a1; end; end else begin Sleep(200); shifoudiancuocishu:=shifoudiancuocishu+1; if shifoudiancuocishu=30 then begin dianjicuohao; shifoudiancuocishu:=1; jiaorenwu1; end; goto a4; end; end; end; end; end; procedure mymath.dianjinpc; var muqianx,muqiany:integer; begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin
end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\坐标true.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin muqianx:=dm.Ocr(39,86,66,99,'f8fcf8-967878',0.9); muqiany:=dm.Ocr(80,87,108,98,'f8fcf8-967878',0.9); end; if (Abs(muqianx-22)<8) and (Abs(muqiany-32)<8) then begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin end else begin Sleep(1000); zuobiaodingwei(22,32); //移动到NPC旁边,并点击 yincangshubiao; Sleep(500); dianjinpc; end; end else begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin shifoudiandaorenwutubiao:=1; end else begin
Sleep(300); zuobiaodingwei(22,32); shifoudiandaorenwutubiao:=shifoudiandaorenwutubiao+1; if shifoudiandaorenwutubiao=80 then begin fangpiao(394,379); Sleep(1000); leftclick; fangpiao(520,210); Sleep(1000); leftclick; yincangshubiao; shifoudiandaorenwutubiao:=1; end; Sleep(300); yincangshubiao; dianjinpc; end; end; end;end;我看到点好了任务,去交任务,应该调用dianjinpc过程,直接溢出
procedure mymath.chisheyaoxiang; label a1,a2; var sheyaoxiangyanchicishu:Integer; begin sheyaoxiangyanchicishu:=0; if shifouchisheyaoxiang=0 then begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\道具栏.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\摄妖香.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(mx,my); rightclick; yincangshubiao; Sleep(700); a1: dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\香.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin a2: dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\道具栏.bmp','000000',0.9,0,mx,my); if (mx>0) and (my>0) then begin fangpiao(336,484); leftclick; yincangshubiao; Sleep(500); goto a2; end else begin shifouchisheyaoxiang:=1; sheyaoxiangshijian:=1650; end; end else begin Sleep(500); sheyaoxiangyanchicishu:=sheyaoxiangyanchicishu+1; if sheyaoxiangyanchicishu=8 then begin chisheyaoxiang;//吃摄妖香 end else begin goto a1; end; end; end else begin chisheyaoxiang; end; end else begin fangpiao(336,484); leftclick; yincangshubiao; Sleep(500); chisheyaoxiang; end; end; end; 吃摄妖香过程
label a1,a2,a3,a4,a5,a6;
var
shifoudiancuocishu,cishu:Integer;
begin
if sheyaoxiangshijian<0 then
begin
shifouchisheyaoxiang:=0;
end;
//CoInitialize(nil);
// chkpass;
//CoUninitialize;
baoxianglajincishu:=0;
chisheyaoxiang;
shifoudiancuocishu:=1;
shifouheshuzhanzaiyiqi:=1;
xpanduan:=8;
xlajinzhengshu:=8;
xlajinfushu:=-8;
dianjinpc;
cishu:=0;
lajincishu:=0;
xianshulajincishu:=0;//如果多次拉近未成功就执行算法
cuowucishu:=0;
cuowucishu:=0;
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\苦行虚空任务.bmp','000000',0.85,0,mx,my);
if (mx>0) and (my>0) then
begin
a1:
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\苦行虚空任务.bmp','000000',0.85,0,mx,my);
if (mx>0) and (my>0) then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
goto a1;
end
else
begin dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\kx任务失败.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin fangpiao(mx,my);
leftclick;
yincangshubiao;
dianjicuohao;
quxiaorenwu;
//取消任务
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\kx任务成功.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
dianjicuohao; jiaorenwu1;
//接任务
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\输入文字.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
chakanyaoshurudeneirong;
//输入文字
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\画图板.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin huatu;
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\大海龟.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
if Form1.chk1.Checked then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
dianjicuohao;
quxiaorenwu;
end
else
begin
shifouyuguai:=1;
shifouyouciguai:=0;
shanayigeguai:='龟';
dianjicuohao;
Sleep(100);
yuguai;
end;
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\巨蛙.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
if Form1.chk1.Checked then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
dianjicuohao;
quxiaorenwu;
end
else
begin
shifouyuguai:=1;
shifouyouciguai:=0;
shanayigeguai:='蛙';
dianjicuohao;
Sleep(100);
yuguai;
end;
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\树怪.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
if Form1.chk1.Checked then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
dianjicuohao;
quxiaorenwu;
end
else
begin
shifouyuguai:=1;
shifouyouciguai:=0;
shanayigeguai:='怪';
dianjicuohao;
Sleep(100);
yuguai;
end;
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\仙树.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
jiaoshui:=0;
shifei:=0;
chuchong:=0;
xpanduan:=12;
xlajinzhengshu:=12;
xlajinfushu:=-12;
huoquxianshucanshu;
end
else
begin
if (mx>0) and (my>0) then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
guxiangshifouzhaodao:=0;
xpanduan:=12;
xlajinzhengshu:=12;
xlajinfushu:=-12;
baoxiangzouditu1;
end
else
begin
Sleep(200);
cishu:=cishu+1;
if cishu=30 then
begin
jiaorenwu1;
end
else
begin
goto a1;
end; end;
end;
end; end;
end;
end;
end;
end;
end;
end;
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我知道错了.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
a2:
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我知道错了.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
goto a2;
end
else
begin
a4:
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我考虑好了.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
a3:
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\我考虑好了.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
fangpiao(mx,my);
leftclick;
yincangshubiao;
goto a3;
end
else
begin
goto a1;
end;
end
else
begin
goto a1;
end;
end
else
begin
Sleep(200);
shifoudiancuocishu:=shifoudiancuocishu+1;
if shifoudiancuocishu=30 then
begin
dianjicuohao;
shifoudiancuocishu:=1;
jiaorenwu1;
end;
goto a4;
end; end;
end;
end;
end;
procedure mymath.dianjinpc;
var
muqianx,muqiany:integer;
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\坐标true.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
muqianx:=dm.Ocr(39,86,66,99,'f8fcf8-967878',0.9);
muqiany:=dm.Ocr(80,87,108,98,'f8fcf8-967878',0.9);
end;
if (Abs(muqianx-22)<8) and (Abs(muqiany-32)<8) then
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin end
else
begin
Sleep(1000);
zuobiaodingwei(22,32); //移动到NPC旁边,并点击
yincangshubiao;
Sleep(500);
dianjinpc;
end;
end
else
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\错号.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
shifoudiandaorenwutubiao:=1;
end
else
begin
Sleep(300);
zuobiaodingwei(22,32);
shifoudiandaorenwutubiao:=shifoudiandaorenwutubiao+1;
if shifoudiandaorenwutubiao=80 then
begin
fangpiao(394,379);
Sleep(1000);
leftclick;
fangpiao(520,210);
Sleep(1000);
leftclick;
yincangshubiao;
shifoudiandaorenwutubiao:=1;
end;
Sleep(300);
yincangshubiao;
dianjinpc;
end;
end; end;end;我看到点好了任务,去交任务,应该调用dianjinpc过程,直接溢出
label a1,a2;
var
sheyaoxiangyanchicishu:Integer;
begin
sheyaoxiangyanchicishu:=0;
if shifouchisheyaoxiang=0 then
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\道具栏.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\摄妖香.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
fangpiao(mx,my);
rightclick;
yincangshubiao;
Sleep(700);
a1:
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\香.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
a2:
dm.FindPic(quyu1a,quyu2a,quyu3a,quyu4a,ExtractFilePath(Application.Exename)+'\Image\道具栏.bmp','000000',0.9,0,mx,my);
if (mx>0) and (my>0) then
begin
fangpiao(336,484);
leftclick;
yincangshubiao;
Sleep(500);
goto a2;
end
else
begin
shifouchisheyaoxiang:=1;
sheyaoxiangshijian:=1650;
end;
end
else
begin
Sleep(500);
sheyaoxiangyanchicishu:=sheyaoxiangyanchicishu+1;
if sheyaoxiangyanchicishu=8 then
begin
chisheyaoxiang;//吃摄妖香
end
else
begin
goto a1;
end; end;
end
else
begin
chisheyaoxiang;
end;
end
else
begin
fangpiao(336,484);
leftclick;
yincangshubiao;
Sleep(500);
chisheyaoxiang;
end;
end;
end;
吃摄妖香过程