刀_通用战力扩充
--2020.04.16
--使用普通地图脚本改的
--[[目前战斗中大破还是会停止脚本，]]
--[[===========================================================================]]
--这里是设置区域 一般只需修改这里的值即可
--出击活动图（自行改1-4难度）
map_id = {活动图, 1}
--最多进入多少次地图（出击次数）
max_count = 5
--最多进入多少次战斗点（每个地图进行战斗的点数，比如你只想刷这个地图的第一个点，就设置1）
max_battle_count = 10
--在每次出击完成后等待时间（分钟）
wait_time = 0
--队形优先选择有利 索敌失败后使用的阵型（1-6）
--阵型1-6依次为 鱼鳞 横队 雁行 鹤翼 方阵 逆行 如果非1-6数值 则选择2
formation = 4
--是否锁定阵型 锁定后不管是否有利都选择formation所设置的阵型
formation_lock = 关
--出击的队伍(1-4)
team_id = 2
--是否无视等级提示
ignore_lv_msg = 开
--好吧 不知道怎么翻译 直接用中文变量了 ...
遇到检非不进入地图 = 关 --如果打开 则在出击时地图上有检非标记就会返回出击失败
战斗中遇到检非停止脚本 = 关
战斗中中伤停止脚本 = 关
战斗中轻伤停止脚本 = 关
--[[===========================================================================]]
--★手入设置
手入开关 = 关
每次手入最多修多少个刀 = 6
手入受伤等级 = 4 + 8
使用加速受伤等级 = 4 + 8
--1=擦伤（未到轻伤的损伤） 2=轻伤 4=中伤 8=重伤
--从受伤最严重的开始修理
--每次出阵完毕后会执行
--[[===========================================================================]]
--★补刀装设置
补刀装开关 = 关
--在出击前自动获取当前队伍配置的刀装，如果为关，则必须★自定义设置。
自动采用当前刀装 = 开
--设置多种刀装等级的时候，优先选择並级别
优先使用低级刀装 = 开
if 补刀装开关 == true then --这行不要改
if 自动采用当前刀装 == true then --这行不要改
Tou.ItemSettingAuto(team_id) --这行不要改
else
-----------------------------------------------------------------------------------
--[[
★自定义设置
★选择了自动采用当前刀装的话，这里无需设置！
全=全等级 低=並、上 高=上、特上 也可以自己定义，比如"並|特上"
如果某个位置不补充，可以写为nil，所有刀命名都是简体。
{"投石兵|弓兵", "全"} = 选择投石兵或弓兵的所有等级
]]
Tou.ItemSetting(team_id, 1, {{"投石兵|弓兵", "全"}, {"銃兵", "低"}, {"弓兵", "並"}});
Tou.ItemSetting(team_id, 2, {{"投石兵", "並"}, {"銃兵", "並"}, {"弓兵", "並"}});
Tou.ItemSetting(team_id, 3, {{"投石兵", "並"}, {"銃兵", "並"}});
Tou.ItemSetting(team_id, 4, {{"投石兵", "並"}, nil, {"弓兵", "並"}});
Tou.ItemSetting(team_id, 5, {{"投石兵", "並"}, {"銃兵", "並"}, {"弓兵", "並"}});
Tou.ItemSetting(team_id, 6, {{"投石兵", "並"}, {"銃兵", "並"}, {"弓兵", "並"}});
-----------------------------------------------------------------------------------
end
end
--[[===========================================================================]]
--★远征设置
远征开关 = 关 --远征整体开关
k2_conquest = {1,1} --第2队伍 设置为时代1的第1个远征
k3_conquest = {2,1} --第3队伍 设置为时代2的第1个远征
k4_conquest = {3,1} --第4队伍 设置为时代3的第1个远征
远征检测周期 = {5,10}
--远征为5-10分钟检测一遍
--[[===========================================================================]]
--下面的东西不要乱改了！ 就改上面的设置就行
--所有延时随机增加1-100
Base.SetConfig("Sleep+?",100)
if 远征开关 == 开 then
Tou.EasyConquestInit(60*远征检测周期[1], 60*远征检测周期[2]);
end
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);
if 补刀装开关 == 开 then
Tou.ItemCompletion(team_id, 优先使用低级刀装) --补充刀装
end
for n = 1, max_count do --循环次数
damegeInfo = Tou.GetTeamDamege(team_id)
if damegeInfo.result == true then
Win.Print('发现重伤的刀')
--存在重伤的刀
if 手入开关 == 开 then
Tou.Repair(每次手入最多修多少个刀, 手入受伤等级, 使用加速受伤等级) --手入
else
Win.Print('有重伤的刀，但是没有打开手入，停止脚本！')
break;
end
else
Win.Print('刀状态正常')
end
--出击
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, formation_lock)
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;
if 补刀装开关 == 开 then
Tou.ItemCompletion(team_id, 优先使用低级刀装) --补充刀装
end
if 手入开关 == 开 then
Tou.Repair(每次手入最多修多少个刀, 手入受伤等级, 使用加速受伤等级) --手入
end
Win.Print('出击后等待' .. wait_time .. '分钟...');
Base.Sleep(1000 * 60 * wait_time)
Base.Sleep(2000)
end
--出击次数达到 进入远征循环
Tou.EasyConquestEnterLoop();
else
Win.Print('检测到游戏内存在空白，坐标无法对应，脚本无法运行！')
end
Win.Pop('脚本执行完毕！')Last updated