刀_国服挖地测试

--测试国服挖地 





--[[因国服活动太多，活动图ID可能会随时变更，请先自行确认挖地是第几个活动后修改]]




---------------------------------------------------------------------
--这里是设置区域 一般只需修改这里的值即可

--[[出击地图活动图，101则表示第一个活动，如果挖地活动变成了二个，则改成102即可]]
map_id = {101, 1} 

--最多进入多少次地图（出击次数）
max_count = 1

--最多进入多少次战斗点，因为挖地每层都连着，所以一次打穿吧...
max_battle_count = 10000

--在每次出击完成后等待时间（分钟）
wait_time = 0

--队形优先选择有利 索敌失败后使用的阵型（1-6）
--阵型1-6依次为 鱼鳞 横队 雁行 鹤翼 方阵 逆行 如果非1-6数值 则选择2
formation = 4

--出击的队伍(1-4)
team_id = 1

--是否无视等级提示
ignore_lv_msg = 是

--好吧 不知道怎么翻译 直接用中文变量了 ...
--如果为true 则在出击时地图上有检非标记就会返回出击失败
遇到检非不进入地图 = 否

战斗中遇到检非停止脚本 = 否
战斗中中伤停止脚本 = 否
战斗中轻伤停止脚本 = 否

---------------------------------------------------------------------
--远征设置！ 如需请自行修改并取消Tou.EasyConquestInit的注释
k2_conquest = {1,1} --第2队伍 设置为时代1的第1个远征
k3_conquest = {2,1} --第3队伍 设置为时代2的第1个远征
k4_conquest = {3,1} --第4队伍 设置为时代3的第1个远征

--初始化远征为5-10分钟检测一遍 如果需要远征 请删除前面“--”注释
--Tou.EasyConquestInit(60*5, 60*10);
---------------------------------------------------------------------
Base.SetConfig("Sleep+?",100) --所有延时随机增加1-100

--下面的东西不要乱改了！ 就改上面的设置就行
function IsColorAll(array)
	n = 0
	ok = 0
	while(array[n] ~= nil)
	do
		if Base.IsColor(array[n][0],array[n][1],array[n][2])==true then
			ok = ok + 1
		end
		n= n+1
	end
	
	if ok==n then
		return true
	else
		return false
	end
end

function IsDmmunlocker() --判断界面是否正确
	array = {};count = {}
	array = {[0]=17,19,16777215};count[0] = array
	array = {[0]=52,15,16777215};count[1] = array
	array = {[0]=105,16,16777215};count[2] = array
	array = {[0]=165,16,16777215};count[3] = array
	return IsColorAll(count)
end

if IsDmmunlocker() == false then
	mode = 0
	if 战斗中遇到检非停止脚本 == true then
		mode = mode + 4
	end
	if 战斗中中伤停止脚本 == true then
		mode = mode + 1
	end	
	if 战斗中轻伤停止脚本 == true then
		mode = mode + 2
	end
	
	--执行第一次远征
	Tou.EasyConquestRun(false);
	
	for n = 1, max_count do --循环次数
		a = "开始第:%d次"
		Win.Print(a:format(n))
		
		--出击
		if Tou.Sally(map_id[1],map_id[2],遇到检非不进入地图) == false then 
			Win.Print('无法出阵 退出')
			break --无法出阵
		end
		
		--战斗
		ret = Tou.Battle(max_battle_count, formation, mode, team_id, ignore_lv_msg)
		
		Tou.WaitHome()
		
		if ret > 0 then Win.Print('重伤中断脚本'); break; end;
		if ret == -1 then Win.Print('检非中断脚本'); break; end;
		if ret == -2 then Win.Print('超过等级 中断脚本'); break; end;
		
		Win.Print('出击后等待' .. wait_time .. '分钟...');
		Base.Sleep(1000 * 60 * wait_time)
		Base.Sleep(2000)

	end
	--出击次数达到 进入远征循环
	Tou.EasyConquestEnterLoop();
else
	Win.Print('检测到游戏内存在空白，坐标无法对应，脚本无法运行！')
end

Win.Pop('脚本执行完毕！')