推箱子小游戏

--print("开发流程步骤：I、绘制推箱子地图并初始化 ----- 几*几大小的地图?\n\n????????????????????????????II、根据宏定义和推箱子地图上的数字来选择不同的图形\n\n????????????????????????????III、获取玩家坐标???-----------重点\n\n????????????????????????????????????????（有两种情况：1.最开始玩家的坐标，并获取其横纵坐标\n\n?????????????????????????????????????????????????????????????????2. 玩家在目的地上时的坐标，??并获取其横纵坐标?）\n\n????????????????????????????IV、移动箱子????????----------------重点、难点\n\n????????????????????????????????????????根据你所要移动的方向????分别判断箱子是否可以移动\n\n????????????????????????????????????????以向上为例：分为以下几种情况\n\n????????????????????????????????????????1.玩家上面是否为空地或目的地，若是，那就箱子移动\n\n????????????????????????????????????????2.玩家前面为箱子或箱子加目的地，箱子的前面是否为目的地或空地，若是，则移动箱子（箱子移动到原来箱子的前面，人移动到原来箱子的位置）\n\n???????????????????????????V、判断是否通关，并设置多关卡\n\n????????????????????????????????????????判断通关的条件：是否还有箱子")
??

?

? --[[ ?开发流程步骤：I、绘制推箱子地图并初始化 ----- 几*几大小的地图??????????????????II、根据宏定义和推箱子地图上的数字来选择不同的图形

???????????????? III、获取玩家坐标???-----------重点

??????????????????????（有两种情况：1.最开始玩家的坐标，并获取其横纵坐标

???????????????????????????????? ?2. 玩家在目的地上时的坐标，??并获取其横纵坐标?）

?????????????? ??IV、移动箱子????????----------------重点、难点

?????????????????? 根据你所要移动的方向????分别判断箱子是否可以移动

??????????????????????以向上为例：分为以下几种情况

???????????????????????1.玩家上面是否为空地或目的地，若是，那就箱子移动

???????????????????????2.玩家前面为箱子或箱子加目的地，箱子的前面是否为目的地或空地，
? ? ? ? ? ? ? ? ? ? ? ? ? 若是，则移动箱子（箱子移动到原来箱子的前面，人移动到原来箱子的位置）

???????????????? ?V、判断是否通关，并设置多关卡

??????????????????????判断通关的条件：是否还有箱子
? ? ]]
--1、初始化地图、定义全局变量 ? ? ? ??
local SPACE=0--{"空白", " ?"}
local WALL=1--{"墙","墙 "}
local DEST=2--{"目的地","@@"}
local BOX=3--{"箱子","￥"}
local PLAYER=4--{"玩家","&&"}
local userkey=75
?
?
--tip:注意获取人在目的地时的坐标， ? ?
?
--定义两个全局变量 ? m,n 分别为玩家的横纵坐标
local m, n=0,0
local level=0--关卡
--IMAGE image[7]
--初始化地图
local gamemap = {
?? ?{
?? ??? ? {0,0,0,0,0,0,0,0,0,0},
?? ??? ? {0,0,0,1,1,1,0,0,0,0},
?? ??? ? {0,0,0,1,2,1,0,0,0,0},
?? ??? ? {0,0,0,1,3,1,1,1,1,0},
?? ??? ? {0,1,1,1,0,0,3,2,1,0},
?? ??? ? {0,1,2,3,4,0,1,1,1,0},
?? ??? ? {0,1,1,1,1,3,1,0,0,0},
?? ??? ? {0,0,0,0,1,2,1,0,0,0},
?? ??? ? {0,0,0,0,1,1,1,0,0,0},
?? ??? ? {0,0,0,0,0,0,0,0,0,0},
?? ?},
?? ?{
?? ??? ? {0,0,0,0,0,0,0,0,0,0},
?? ??? ? {0,1,1,1,0,0,1,1,1,0},
?? ??? ? {1,0,0,0,1,1,0,0,0,1},
?? ??? ? {1,2,0,0,3,0,0,0,0,1},
?? ??? ? {0,1,2,3,4,3,0,0,1,0},
?? ??? ? {0,0,1,0,3,0,2,1,0,0},
?? ??? ? {0,0,0,1,0,2,1,0,0,0},
?? ??? ? {0,0,0,0,1,1,0,0,0,0},
?? ??? ? {0,0,0,0,0,0,0,0,0,0},
?? ??? ? {0,0,0,0,0,0,0,0,0,0},
?? ?},
?? ?{
?? ??? ? {0,0,0,0,0,0,0,0,0,0},
?? ??? ? {0,1,1,1,1,1,1,1,1,0},
?? ??? ? {0,1,2,0,1,2,0,0,1,0},
?? ??? ? {0,1,0,0,1,1,0,0,1,0},
?? ??? ? {0,1,0,3,4,0,3,0,1,0},
?? ??? ? {0,1,0,0,3,0,0,1,1,0},
?? ??? ? {0,1,1,0,1,0,0,1,0,0},
?? ??? ? {0,0,1,0,1,2,0,1,0,0},
?? ??? ? {0,0,1,1,1,1,1,1,0,0},
?? ??? ? {0,0,0,0,0,0,0,0,0,0},
?? ?},
?? ?{
?? ??? ? {1,1,1,1,1,1,1,1,1,1},
?? ??? ? {1,0,1,0,0,2,0,0,0,1},
?? ??? ? {1,2,1,1,0,0,0,1,0,1},
?? ??? ? {1,0,0,0,3,0,1,1,2,1},
?? ??? ? {1,0,1,1,4,3,0,1,0,1},
?? ??? ? {1,0,1,0,3,0,3,0,0,1},
?? ??? ? {1,0,1,0,0,0,1,0,0,1},
?? ??? ? {1,2,0,0,0,1,1,1,0,1},
?? ??? ? {1,0,0,0,0,0,0,0,0,1},
?? ??? ? {1,1,1,1,1,1,1,1,1,1},
?
?? ?},
?? ?{
?? ??? ? {0,0,0,0,1,1,0,0,0,0},
?? ??? ? {0,0,0,1,2,0,1,0,0,0},
?? ??? ? {0,0,1,0,3,0,2,1,0,0},
?? ??? ? {0,1,0,0,3,1,0,0,1,0},
?? ??? ? {1,0,0,3,0,3,0,0,0,1},
?? ??? ? {1,0,0,1,0,3,1,2,0,1},
?? ??? ? {0,1,2,0,0,0,2,0,1,0},
?? ??? ? {0,0,1,0,1,0,0,1,0,0},
?? ??? ? {0,0,0,1,0,0,1,0,0,0},
?? ??? ? {0,0,0,0,1,1,0,0,0,0},
?? ?},
}
?-- 2、加载图片并绘制推箱子界面 ?
?local function game()
?? ?--加载图片?? ?
?? ?for i=1,8 do
?? ??? ?image[i]=mapimage[i]
? ? end?? ?
?end
?
--绘制页面
?local function drawMap(map)?? ?
?? ?--输出地图
?? ?for i=1,10 do
?? ??? ?for j=1,10 do
?? ??? ?--image[arr[level][i][j]]
? ? ? ? end
? ? end
?end
?? ?
--3、通过方向键移动，推箱子----------重难点
--[[local SPACE=0--{"空白", " ?"}
local WALL=1--{"墙","墙 "}
local DEST=2--{"目的地","@@"}
local BOX=3--{"箱子","￥"}
local PLAYER=4--{"玩家","&&"}
]]

--按键控制移动方向
?local function move(userkey)
?? ?local userkey=72
?? ?if userkey==72 or userkey=="w" or userkey=="W" then
?? ??? ?--玩家前面是否为空地
?? ??? ?if ?arr[level][m - 1][n] == SPACE or arr[level][m - 1][n] == DEST then
?? ??? ??? ?arr[level][m - 1][n] = PLAYER + arr[level][m - 1][n]
?? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER?? ??? ?
?? ??? ?--玩家前面是否为箱子
?? ??? ?elseif ?arr[level][m - 1][n] == BOX or arr[level][m - 1][n] == BOX + DEST then?
?? ??? ??? ?--箱子前面是否为空地或目的地
?? ??? ??? ?if ?arr[level][m - 2][n] == SPACE or arr[level][m - 2][n] == DEST then?
?? ??? ??? ??? ?arr[level][m - 2][n] = arr[level][m - 2][n] + BOX
?? ??? ??? ??? ?arr[level][m - 1][n] = arr[level][m - 1][n] - BOX
?? ??? ??? ??? ?arr[level][m - 1][n] = arr[level][m - 1][n] + PLAYER
?? ??? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER
?? ??? ??? ?end?
?? ??? ?print("向上移动")
?? ??? ?--Sleep(1000)
?? ??? ?end
? ? elseif userkey==80 or userkey== "s" or userkey=="S" then
?? ?--玩家后面是否为空地
?? ??? ?if ?arr[level][m + 1][n] == SPACE or arr[level][m + 1][n] == DEST then
?? ??? ??? ?arr[level][m + 1][n] = PLAYER + arr[level][m + 1][n]
?? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER?? ??? ?
?? ??? ?--玩家后面是否为箱子
?? ??? ?elseif ?arr[level][m + 1][n] == BOX or arr[level][m + 1][n] == BOX + DEST then?
?? ??? ??? ?--箱子后面是否为空地或目的地
?? ??? ??? ?if ?arr[level][m + 2][n] == SPACE or arr[level][m + 2][n] == DEST then?
?? ??? ??? ??? ?arr[level][m + 2][n] = arr[level][m + 2][n] + BOX
?? ??? ??? ??? ?arr[level][m + 1][n] = arr[level][m + 1][n] - BOX
?? ??? ??? ??? ?arr[level][m + 1][n] = arr[level][m + 1][n] + PLAYER
?? ??? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER
?? ??? ??? ?end?
?? ??? ?print("向下移动")
? ? ? ? end
? ? elseif userkey==75 or userkey== "a" or userkey=="A" then?? ?
?? ??? ?--玩家左边是否为空地
?? ??? ?if ?arr[level][m][n - 1] == SPACE or arr[level][m][n - 1] == DEST then?
?? ??? ??? ?arr[level][m][n - 1] = arr[level][m][n - 1] + PLAYER
?? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER?? ??? ?
?? ??? ?--玩家左边是否为箱子
?? ??? ?elseif ?arr[level][m][n - 1] == BOX or arr[level][m][n - 1] == BOX + DEST then?
?? ??? ??? ?--箱子左边是否为空地或目的地
?? ??? ??? ?if ?arr[level][m][n - 2] == SPACE or arr[level][m][n - 2] == DEST then?
?? ??? ??? ??? ?arr[level][m][n - 2] = arr[level][m][n - 2] + BOX
?? ??? ??? ??? ?arr[level][m][n - 1] = arr[level][m][n - 1] - BOX
?? ??? ??? ??? ?arr[level][m][n - 1] = arr[level][m][n - 1] + PLAYER
?? ??? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER
?? ??? ??? ?end?? ?
??? ? ? ?print("向左移动")
?? ??? ?end
?? ?elseif userkey==77 or userkey== "d" or userkey=="D" then?? ?
?? ??? ?--玩家右边是否为空地
?? ??? ?if ?arr[level][m][n + 1] == SPACE or arr[level][m][n + 1] == DEST then?
?? ??? ??? ?arr[level][m][n + 1] = arr[level][m][n + 1] + PLAYER
?? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER?? ??? ?
?? ??? ?--玩家左边是否为箱子
?? ??? ?elseif ?arr[level][m][n + 1] == BOX or arr[level][m][n + 1] == BOX + DEST then?
?? ??? ??? ?--箱子左边是否为空地或目的地
?? ??? ??? ?if ?arr[level][m][n + 2] == SPACE or arr[level][m][n + 2] == DEST then?
?? ??? ??? ??? ?arr[level][m][n + 2] = arr[level][m][n + 2] + BOX
?? ??? ??? ??? ?arr[level][m][n + 1] = arr[level][m][n + 1] - BOX
?? ??? ??? ??? ?arr[level][m][n + 1] = arr[level][m][n + 1] + PLAYER
?? ??? ??? ??? ?arr[level][m][n] = arr[level][m][n] - PLAYER
?? ??? ??? ?end?? ?
? ? ? ? ?print("向右移动")?? ?
?? ??? ?end
? ? end
? ?
?end

--?4、判断是否通过--------有无箱子的存在
--判断是否通关--------------是否还有箱子
?local function judge()
?? ?for i=1,10 do
? ? ? ?for j=1,10 do?
?? ? ? ? ?if arr[level][i][j] == BOX then
?? ??? ??? ?return false
? ? ? ? ? ?end
? ? ? ?end
? ? end
?? ?return true
?end

--5.main函数里面
?local function main()?
?? ??? ?
?? ?SetWindowText(GetHWnd(), "推箱子")
?? ?initgame()
?? ?drawMap()
?
?? ??? ?--获取玩家坐标，并将其下标分别赋给 m,n
?? ??? ?for i=1,10 do
?? ? ? ?? ? ? for j=1,10 do
?? ??? ? ? ? if arr[level][i][j] == PLAYER or arr[level][i][j]== PLAYER+DEST then
?? ??? ??? ? ? m,n=i,j
? ? ? ? ? ? ?end
? ? ? ? ? ?end
? ? ? ? ?end?? ??? ??
?? ??? ?move()
?? ??? ?system("cls")
?? ??? ?drawMap()
?? ??? ?if bool_judge() then
?? ??? ??? ?if level>1 then
?? ??? ??? ??? ?exit(666)
?? ??? ??? ??? ?MessageBox(GetHWnd(), "恭喜你通关了", "提示", MB_OKCANCEL)
?? ??? ??? ??? ?Sleep(3000)
? ? ? ? ? ? end
?? ??? ??? ?
?? ??? ??? ?level=level+1
?? ??? ??? ?print("恭喜你过关了,大佬666\n")
? ? ? ? end?? ?
?end
?? ?

?