Files
Techmino/parts/bot/bot_cc.lua
Imple Lee 00919c1067 cc techmino-alize (#579)
this should only be used with imple/techmino-alize branch
on 26F-Studio/cold_clear_ai_love2d_wrapper
2022-01-05 12:57:54 +08:00

96 lines
2.6 KiB
Lua

--[[ControlID:
1~5:mL,mR,rR,rL,rF,
6~10:hD,sD,H,A,R,
11~13:LL,RR,DD
]]
local pcall=pcall
local ins,rem=table.insert,table.remove
local yield=coroutine.yield
local bot_cc={}
function bot_cc:checkDest()
local dest=self.P.destFX
if not dest then return end
local CB=self.P.cur.bk
for k=1,#dest,2 do
local r=CB[dest[k+1]-self.P.curY+2]
if not r or not r[dest[k]-self.P.curX+2]then
self:lockWrongPlace()
self.P.destFX=nil
return
end
end
end
function bot_cc:revive()
TABLE.cut(self.P.holdQueue)
self.P:loadAI(self.data)
end
function bot_cc:pushNewNext(id)
self.ccBot:addNext(rem(self.bufferedNexts,1))
ins(self.bufferedNexts,id)
end
function bot_cc:thread()
local P,keys=self.P,self.keys
local ccBot=self.ccBot
while true do
--Start thinking
yield()
ccBot:think()
--Poll keys
local success,result,dest,hold,move
repeat
yield()
success,result,dest,hold,move=pcall(ccBot.getMove,ccBot)
until not success or result==0 or result==2
if not success then break end
if result==2 then
break
elseif result==0 then
dest[5],dest[6]=dest[1][1],dest[1][2]
dest[7],dest[8]=dest[2][1],dest[2][2]
dest[1],dest[2]=dest[3][1],dest[3][2]
dest[3],dest[4]=dest[4][1],dest[4][2]
P.destFX=dest
if hold then--Hold
keys[1]=8
end
while move[1]do
local m=rem(move,1)
if m<4 then
ins(keys,m+1)
elseif m==5 then
ins(keys, 5)
elseif not self.data._20G then
ins(keys,13)
end
end
ins(keys,6)
end
--Check if time to change target
yield()
if P.aiRND:random()<.00126 then
P:changeAtkMode(P.aiRND:random()<.85 and 1 or #P.atker>3 and 4 or P.aiRND:random()<.3 and 2 or 3)
end
end
end
function bot_cc:updateField()
local P=self.P
local F0=P.field
local F,i={},1
for y=1,#F0 do for x=1,10 do
F[i],i=F0[y][x]>0,i+1
end end
while i<=400 do F[i],i=false,i+1 end
if not pcall(self.ccBot.reset,self.ccBot,F,P.b2b>=100,P.combo)then
print("CC is dead ("..P.id..")","error")
end
end
function bot_cc:switch20G()
TABLE.cut(self.P.holdQueue)
self.data._20G=true
self.P:loadAI(self.data)
end
bot_cc.lockWrongPlace=bot_cc.updateField
return bot_cc