[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 bbaa 于 2020-4-18 00:18 编辑

如果发错版了请版主帮忙移动下,蟹蟹(两年了这个错版贴还存在,太惨了)
==================之前没有记录==================
================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电脑菜请以实际运行效果为准)

寻路部分代码
  1. :敌方移动开始_BFS
  2. Set BFS 1>var/BFS.env
  3. for /f "tokens=1 delims==" %%i in (var/BFS.env) do (
  4.   Set "%%~i="
  5. )
  6. Rem 初始化方向顺序
  7. Set "BFSMoveX=+0-1+0+1" || REM 上左下右
  8. Set "BFSMoveY=-1+0+1+0"
  9. Rem 初始化起始顶点
  10. if %SelectX% lss 10 (
  11.   Set "BFS_Queue_X=+%SelectX%"
  12. ) else (
  13.   Set "BFS_Queue_X=%SelectX%"
  14. )
  15. if %SelectY% lss 10 (
  16.   Set "BFS_Queue_Y=+%SelectY%"
  17. ) else (
  18.   Set "BFS_Queue_Y=%SelectY%"
  19. )
  20. Set /a BFS_Queue_Length=1
  21. Set BFS_Dist_%SelectX%_%SelectY%=t
  22. Set "BFS_StackPath_X="
  23. Set "BFS_StackPath_Y="
  24. Set BFS_Next_Path_X=!最近单位X!
  25. Set BFS_Next_Path_Y=!最近单位Y!
  26. (
  27. :BFS_Main
  28.   if !BFS_X!==!最近单位X! (
  29.     if !BFS_Y!==!最近单位Y! (
  30.       if /i "!QuickBFS!"=="Enable" (
  31.         Goto :BFS_Finish
  32.       )
  33.     )
  34.   )
  35.   if !BFS_Queue_Length! equ 0 (
  36.     Goto :BFS_Finish
  37.   )
  38.   Set /a BFS_X=!BFS_Queue_X:~0,2!|| Rem 取出队列
  39.   Set /a BFS_Y=!BFS_Queue_Y:~0,2!
  40.   Set "BFS_Queue_X=!BFS_Queue_X:~2!"
  41.   Set "BFS_Queue_Y=!BFS_Queue_Y:~2!"
  42.   Set /a BFS_Queue_Length-=1
  43.   for /l %%b in (0,2,6) do (
  44.     Set /a BFS_Next_X=!BFS_X!!BFSMoveX:~%%b,2!
  45.     Set /a BFS_Next_Y=!BFS_Y!!BFSMoveY:~%%b,2!
  46.     Set "IsWalk=True"
  47.     if !BFS_Next_X! GEQ 0 (
  48.       if !BFS_Next_Y! GEQ 0 (
  49.         if !BFS_Next_X! Lss 15 (
  50.           if !BFS_Next_Y! Lss 11 (
  51.             for %%c in (%无法通行的方块ID%) do (
  52.               for /f "delims=, tokens=1-2" %%d in ("!BFS_Next_X!,!BFS_Next_Y!") do (
  53.                 if "!MapList_%%d_%%e!"=="%%c" (
  54.                   Set "IsWalk=False"
  55.                 )
  56.               )
  57.             )
  58.             if defined Player_!BFS_Next_X!_!BFS_Next_Y! (
  59.                 Set "IsWalk=False"
  60.             )
  61.             if "!BFS_Next_X!"=="!NamePlayer_%敌方EnityId%_X!" (
  62.               if "!BFS_Next_Y!"=="!NamePlayer_%敌方EnityId%_Y!" (
  63.                 Set "IsWalk=True"
  64.               )
  65.             )
  66.             if "!BFS_Next_X!"=="!最近单位X!" (
  67.               if "!BFS_Next_Y!"=="!最近单位Y!" (
  68.                 Set "IsWalk=True"
  69.               )
  70.             )
  71.           ) else (
  72.             Set "IsWalk=False"
  73.           )
  74.         ) else (
  75.           Set "IsWalk=False"
  76.         )
  77.       ) else (
  78.         Set "IsWalk=False"
  79.       )
  80.     ) else (
  81.       Set "IsWalk=False"
  82.     )
  83.     if "!IsWalk!"=="True" (
  84.       if not defined BFS_Dist_!BFS_Next_X!_!BFS_Next_Y! (
  85.         Set "BFS_Dist_!BFS_Next_X!_!BFS_Next_Y!=t"
  86.         Set BFS_Path_!BFS_Next_X!_!BFS_Next_Y!_X=!BFS_X!
  87.         Set BFS_Path_!BFS_Next_X!_!BFS_Next_Y!_Y=!BFS_Y!
  88.         if !BFS_Next_X! lss 10 (
  89.           Set "BFS_Queue_X=!BFS_Queue_X!+!BFS_Next_X!"
  90.         ) else (
  91.           Set "BFS_Queue_X=!BFS_Queue_X!!BFS_Next_X!"
  92.         )
  93.         if !BFS_Next_Y! lss 10 (
  94.           Set "BFS_Queue_Y=!BFS_Queue_Y!+!BFS_Next_Y!"
  95.         ) else (
  96.           Set "BFS_Queue_Y=!BFS_Queue_Y!!BFS_Next_Y!"
  97.         )
  98.         Set /a BFS_Queue_Length+=1
  99.       )
  100.     )
  101.   )
  102.   goto :BFS_Main
  103. )
  104. :BFS_Finish
  105. if !BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X! lss 10 (
  106.   Set "BFS_StackPath_X=+!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X!!BFS_StackPath_X!"
  107. ) else (
  108.   Set "BFS_StackPath_X=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X!!BFS_StackPath_X!"
  109. )
  110. if !BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y! lss 10 (
  111.   Set "BFS_StackPath_Y=+!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y!!BFS_StackPath_Y!"
  112. ) else (
  113.   Set "BFS_StackPath_Y=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y!!BFS_StackPath_Y!"
  114. )
  115. (
  116.   Set BFS_Next_Path_X=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_X!
  117.   Set BFS_Next_Path_Y=!BFS_Path_%BFS_Next_Path_X%_%BFS_Next_Path_Y%_Y!
  118. )
  119. if not "!BFS_Next_Path_X!"=="!NamePlayer_%敌方EnityId%_X!" (
  120.   goto :BFS_Finish
  121. )
  122. if not "!BFS_Next_Path_Y!"=="!NamePlayer_%敌方EnityId%_Y!" (
  123.   goto :BFS_Finish
  124. )
  125. set "回合=敌方移动AI处理_BFS"
  126. goto Main
复制代码
部分截图



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

评分人数

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

评分人数

    • bbaa: 谢谢提醒技术 + 1
目的,学习批处理

TOP

需要密码么。
1

评分人数

    • bbaa: 是的,忘记打上去了密码Gamejam技术 + 1
踏实一些点.不要着急.你想要的时间都会给你.2

TOP

回复 2# hlzj88


    已修复

TOP

制作成员留名
1

评分人数

    • bbaa: 哇,你这id是乱敲的么技术 + 1

TOP

没有无敌模式,差评。
1

评分人数

    • bbaa: Emmm,你可以选择自己改代码技术 + 1
目的,学习批处理

TOP

一看就是bat吧GameJam的作品!

TOP

本帖最后由 lfg 于 2018-2-8 12:22 编辑

我是TJUGERKFER,游戏制作者之一
由于bbaa服务器爆炸,所以重新弄了更新模块,请移步https://pan.baidu.com/s/1htgHNcK
或使用
  1. Wget http://mz.tjugerkfer.firadio.net/Update.zip
复制代码
来获取新版本
1

评分人数

    • bbaa: 目前已修复技术 + 1

TOP

回复 7# 0000


    说出你的贴吧Id

TOP

这里出现了错误。
踏实一些点.不要着急.你想要的时间都会给你.2

TOP

回复 10# 慕夜蓝化


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

TOP

wow,支持楼主!!!

TOP

本帖最后由 1152 于 2021-4-15 20:28 编辑

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

TOP

返回列表