require "getTwoPoint"
require "getArea"
require "Split"
init("0",0);
x = 149;
y = 116;
sx = 0;
sy = 0;
Area = {};
function dianji(x,y)
touchDown(1,x,y);
touchUp(1,x,y);
sysLog("点击");
end
function Duibi(x,y)
while y < 693 do
for i = 1,5 do
if Area[1] == nil then
break;
end
if Area[i] ~= nil then
list = Split(Area[i],",");
if x>tonumber(list[1]) and x<tonumber(list[3]) and y>tonumber(list[2]) and y<tonumber(list[4]) then ---点在不需要判断的范围内
Duibi(x,list[4]+5);
end
end
end
flag = getTwoPoint(x,y);
if flag then
dianji(x,y);
dianji(x,y);
sx = x;
sy = y;
while true do ---右下方扩散的点
if getArea(sx,sy) == false then
for i = 1,5 do
if Area[i] == nil then
Area[i] = x..","..y..","..sx..","..sy;
sysLog("范围:"..Area[i]);
break;
end
end
break;
else
sx = sx +20;
sy = sy +20;
end
end
while true do ---左上方扩散的点
if getArea(sx-20,sy-20) == false then
for i = 1,5 do
if Area[i] == nil then
Area[i] = x..","..y..","..sx..","..sy;
sysLog("范围:"..Area[i]);
break;
end
end
break;
else
sx = sx -20;
sy = sy -20;
end
end
y = y +80;
else
y = y+1;
end
end
end
while x <720 do
Duibi(x,y);
x = x+ 5;
y = 68;
end
require "getArea"
require "Split"
init("0",0);
x = 149;
y = 116;
sx = 0;
sy = 0;
Area = {};
function dianji(x,y)
touchDown(1,x,y);
touchUp(1,x,y);
sysLog("点击");
end
function Duibi(x,y)
while y < 693 do
for i = 1,5 do
if Area[1] == nil then
break;
end
if Area[i] ~= nil then
list = Split(Area[i],",");
if x>tonumber(list[1]) and x<tonumber(list[3]) and y>tonumber(list[2]) and y<tonumber(list[4]) then ---点在不需要判断的范围内
Duibi(x,list[4]+5);
end
end
end
flag = getTwoPoint(x,y);
if flag then
dianji(x,y);
dianji(x,y);
sx = x;
sy = y;
while true do ---右下方扩散的点
if getArea(sx,sy) == false then
for i = 1,5 do
if Area[i] == nil then
Area[i] = x..","..y..","..sx..","..sy;
sysLog("范围:"..Area[i]);
break;
end
end
break;
else
sx = sx +20;
sy = sy +20;
end
end
while true do ---左上方扩散的点
if getArea(sx-20,sy-20) == false then
for i = 1,5 do
if Area[i] == nil then
Area[i] = x..","..y..","..sx..","..sy;
sysLog("范围:"..Area[i]);
break;
end
end
break;
else
sx = sx -20;
sy = sy -20;
end
end
y = y +80;
else
y = y+1;
end
end
end
while x <720 do
Duibi(x,y);
x = x+ 5;
y = 68;
end