[特效代码] 【远古巨坑】【批处理游戏】生死时速

bbaa

如果发错版了请版主帮忙移动下，蟹蟹(两年了这个错版贴还存在,太惨了)

==================之前没有记录==================
================2018/02/05 12:27================
1.修复了Buf_Player的变量名冲突导致闪退BUG
2.增加模块开关
================2018/02/05 14:28================
1.材质更新
2.血量显示优化
3.修复了一个可能导致闪退的BUG
4.变量名优化
================2018/02/05 16:19================
1.合并代码
2.敌方AI部分完成 (5%)
3.修复部分bug
4.简化load函数(不写buf里了)
5.修复某个可能导致闪退的bug(修呀修不完)
6.更新了image.dll
================2018/02/05 16:45================
1.优化LoadMap_New函数 感谢Byaidu提醒
================2018/02/05 16:55================
1.屏蔽光标
================2018/02/05 22:24================
1.攻击模块完成
================2018/02/05 22:45================
1.材质地图更新，逻辑优化
================2018/02/06 11:49================
1.敌方有Ai了
2.可以玩了
3.bug修复
================2018/02/06 12:08================
1.材质更新
2.防御阵地实装
================2018/02/06 13:00================
1.更多关卡
2.开始界面
3.More
================2018/02/06 13:51================
1.关卡微调
2.Bug修复
================2018/02/06 14:07================
1.关卡微调
2.版权声明加入
================2018/02/06 14:18================
1.关卡继续微调
================2018/02/06 14:22================
1.微调
================2018/02/06 14:50================
1.微调
================2018/02/06 20:31================
1.微调
================2018/02/06 20:31================
1.添加帮助模块
2.更新UI
a.更装b的进度条
b.可选择关卡游玩
c.增加cover覆盖层
================2018/02/09 14:50================
1.更机智的AI
2.更多BUG
3.部分BUG修复
================2018/02/09 16:10================
1.Bug修复
================2018/02/09 17:55================
1.Bug修复(感谢@老刘(一号)同志)
================2018/02/09 20:30================
1.添加镜像图片API
================2018/02/09 22:35================
1.增加了Level4
================2018/02/10 13:30================
1.关卡微调
2.第4关回血bug修复
================2018/02/10 21:50================
1.Level5更新
================2018/02/12 13:22================
1.自定关卡支持！
2.image.dll重编译更新！
================2018/02/19 22:45================
1.对玩家移动，血量条显示，玩家死亡判断进行了一次优化
================2020/04/11 22:11================
1.与TJUGERKFER讨论是否填坑
================2020/04/12 17:01================
1.开始填坑
2.重写寻路
3.深度优先搜索栈实现
================2020/04/12 11:32================
1.深度优先搜索初步完成
================2020/04/12 17:43================
1.深度优先搜索Debug完成
================2020/04/12 20:32================
1.添加一堆新地形角色
2.敌方单位不再是人工智障
3.Deep First Search!!!!
================2020/04/12 22:31================
1.@老刘一号提供的DFS优化!!!!
感谢大佬
================2020/04/16 12:56================
1.更换寻路算法为广度优先搜索(BFS)!
2.敌方单位真的不再是人工智障
================2020/04/16 22:42================
1.全新特效效果
2.平衡性调整
3.增加@老刘一号的新自定义地图
================2020/04/16 21:53================
1.移动效果调整
2.性能优化
3.新地图
================================================

利用Image3.0开发的的一个批处理游戏
BFS寻路过程(Apng)(LZ电脑菜请以实际运行效果为准)

寻路部分代码

:敌方移动开始_BFS
Set BFS 1>var/BFS.env
for /f "tokens=1 delims==" %%i in (var/BFS.env) do (
  Set "%%~i="
)
Rem 初始化方向顺序
Set "BFSMoveX=+0-1+0+1" || REM 上左下右
Set "BFSMoveY=-1+0+1+0"
Rem 初始化起始顶点
if %SelectX% lss 10 (
  Set "BFS_Queue_X=+%SelectX%"
) else (
  Set "BFS_Queue_X=%SelectX%"
)
if %SelectY% lss 10 (
  Set "BFS_Queue_Y=+%SelectY%"
) else (
  Set "BFS_Queue_Y=%SelectY%"
)
Set /a BFS_Queue_Length=1
Set BFS_Dist_%SelectX%_%SelectY%=t
Set "BFS_StackPath_X="
Set "BFS_StackPath_Y="
Set BFS_Next_Path_X=!最近单位X!
Set BFS_Next_Path_Y=!最近单位Y!
(
:BFS_Main
  if !BFS_X!==!最近单位X! (
    if !BFS_Y!==!最近单位Y! (
      if /i "!QuickBFS!"=="Enable" (
        Goto :BFS_Finish
      )
    )
  )
  if !BFS_Queue_Length! equ 0 (
    Goto :BFS_Finish
  )
  Set /a BFS_X=!BFS_Queue_X:~0,2!|| Rem 取出队列 
  Set /a BFS_Y=!BFS_Queue_Y:~0,2!
  Set "BFS_Queue_X=!BFS_Queue_X:~2!"
  Set "BFS_Queue_Y=!BFS_Queue_Y:~2!"
  Set /a BFS_Queue_Length-=1
  for /l %%b in (0,2,6) do (
    Set /a BFS_Next_X=!BFS_X!!BFSMoveX:~%%b,2!
    Set /a BFS_Next_Y=!BFS_Y!!BFSMoveY:~%%b,2!
    Set "IsWalk=True"
    if !BFS_Next_X! GEQ 0 (
      if !BFS_Next_Y! GEQ 0 (
        if !BFS_Next_X! Lss 15 (
          if !BFS_Next_Y! Lss 11 (
            for %%c in (%无法通行的方块ID%) do (
              for /f "delims=, tokens=1-2" %%d in ("!BFS_Next_X!,!BFS_Next_Y!") do (
                if "!MapList_%%d_%%e!"=="%%c" (
                  Set "IsWalk=False"
                )
              )
            )
            if defined Player_!BFS_Next_X!_!BFS_Next_Y! (
                Set "IsWalk=False"
            )
            if "!BFS_Next_X!"=="!NamePlayer_%敌方EnityId%_X!" (
              if "!BFS_Next_Y!"=="!NamePlayer_%敌方EnityId%_Y!" (
                Set "IsWalk=True"
              )
            )
            if "!BFS_Next_X!"=="!最近单位X!" (
              if "!BFS_Next_Y!"=="!最近单位Y!" (
                Set "IsWalk=True"
              )
            )
          ) else (
            Set "IsWalk=False"
          )
        ) else (
          Set "IsWalk=False"
        )
      ) else (
        Set "IsWalk=False"
      )
    ) else (
      Set "IsWalk=False"
    )
    if "!IsWalk!"=="True" (
      if not defined BFS_Dist_!BFS_Next_X!_!BFS_Next_Y! (
        Set "BFS_Dist_!BFS_Next_X!_!BFS_Next_Y!=t"
        Set BFS_Path_!BFS_Next_X!_!BFS_Next_Y!_X=!BFS_X!
        Set BFS_Path_!BFS_Next_X!_!BFS_Next_Y!_Y=!BFS_Y!
        if !BFS_Next_X! lss 10 (
          Set "BFS_Queue_X=!BFS_Queue_X!+!BFS_Next_X!"
        ) else (
          Set "BFS_Queue_X=!BFS_Queue_X!!BFS_Next_X!"
        )
        if !BFS_Next_Y! lss 10 (
          Set "BFS_Queue_Y=!BFS_Queue_Y!+!BFS_Next_Y!"
        ) else (
          Set "BFS_Queue_Y=!BFS_Queue_Y!!BFS_Next_Y!"
        )
        Set /a BFS_Queue_Length+=1
      )
    )
  )
  goto :BFS_Main
)
:BFS_Finish
if !BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X! lss 10 (
  Set "BFS_StackPath_X=+!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X!!BFS_StackPath_X!"
) else (
  Set "BFS_StackPath_X=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X!!BFS_StackPath_X!"
)
if !BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y! lss 10 (
  Set "BFS_StackPath_Y=+!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y!!BFS_StackPath_Y!"
) else (
  Set "BFS_StackPath_Y=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y!!BFS_StackPath_Y!"
)
(
  Set BFS_Next_Path_X=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X!
  Set BFS_Next_Path_Y=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y!
)
if not "!BFS_Next_Path_X!"=="!NamePlayer_%敌方EnityId%_X!" (
  goto :BFS_Finish
)
if not "!BFS_Next_Path_Y!"=="!NamePlayer_%敌方EnityId%_Y!" (
  goto :BFS_Finish
)
set "回合=敌方移动AI处理_BFS"
goto Main
复制代码

部分截图



下载地址:V2.4
自定地图编辑器:点我
Github Link:点我

hlzj88

下载后压缩包出错，麻烦楼主查看更新。

慕夜蓝化

需要密码么。

bbaa

回复 2# hlzj88


    已修复

lfg

制作成员留名

hlzj88

没有无敌模式，差评。

0000

一看就是bat吧GameJam的作品!

lfg

我是TJUGERKFER,游戏制作者之一
由于bbaa服务器爆炸，所以重新弄了更新模块，请移步https://pan.baidu.com/s/1htgHNcK
或使用

Wget http://mz.tjugerkfer.firadio.net/Update.zip
复制代码

来获取新版本

bbaa

回复 7# 0000


    说出你的贴吧Id

慕夜蓝化

这里出现了错误。

bbaa

回复 10# 慕夜蓝化


    你就不能好好的把Vc运行库装齐么(捂脸

112

wow,支持楼主！！！

1152

报错：
文件解压失败
说是压缩包格式不支持
我用的是360zip.exe
告诉你一个秘密，把图片保存.zip再打开有惊喜
图片：
链接：pan.baidu【.】com/s【/】1S4QOUJ_bpVBTIT6lXEviDA
提取码：vyp9