Board logo

标题: [其他] 控制台CAPI解释器CAPIS.EXE [打印本页]
作者: happy886rr    时间: 2017-2-28 19:03     标题: 控制台CAPI解释器CAPIS.EXE

其实就是CLGO语言内置了CAPI.DLL，只有19KB，但比批处理功能强很多。运行速度是批处理的5倍，适合做控制台游戏开发。总之CAPI能做到，CAPIS脚本解释器都能做，并且CAPIS不需要cmd也能运行，支持直接拖拽运行脚本。由于之前已经开源了CLGO解释的代码，就不再重复贴码了，只是内嵌了一个capi而已。
  1. 控制台C版API调用解释器，支持IF~ELIF、WHILE、FOR等条件循环语句，可用的内建命令

  2. 有"CAPI", "LINK", "STOP", "EXIT", "WAIT", "PAUSE", "PRINT", "LETS", "CLEAN", "CLS"。

  3. 

  4. 可以实现跟CAPI完全一样的API调用效果，但比CAPI的批处理速度快5倍。非常接近原生C语言的速度，且支持浮点数，表达式类传参。
复制代码
下载：http://bcn.bathome.net/s/tool/index.html?key=CAPIS

简单的应用，弹出对话框：
  1. FUN MAIN

  2. 	LINK L"USER32" L"KERNEL32"

  3. 	CAPI =MessageBoxW 0 L"你好" L"message" 1
复制代码
控制台图显：
  1. FUN DRAW :HICON :HCMD :HDC

  2. 	LINK  L"USER32" L"KERNEL32"

  3. 	CAPI :HICON=LoadImageW 0 L"1.ico" 1 0 0 16

  4. 	CAPI :HCMD =GetConsoleWindow

  5. 	CAPI :HDC  =GetDC :HCMD

  6. 	FOR ::A 1 1000

  7. 	[

  8. 		CAPI =DrawIconEx :HDC ::A*2 0 :HICON 128 128 0 0 3

  9. 		CAPI =Sleep 20

  10. 		CLEAN

  11. 		CLS

  12. 	]

  13. 

  14. FUN MAIN

  15. 	DRAW 0 0 0

  16. 	PAUSE
复制代码
当然非常推荐使用开源的tincs，它才是能在批处理中原生书写C代码的解释器http://www.bathome.net/thread-42497-1-2.html
类似功能的还有ICMD，一个还在完善的项目，http://www.bathome.net/thread-43259-1-1.html
ICMD脚本，挖地道
  1. ::*****************************************************************************

  2.   @IF [%1]==[] ("%~DP0ICMD.EXE" /C "%~F0" 1&EXIT)&@REM ICMD SCRIPT 2017~2019

  3. ::*****************************************************************************

  4. 

  5. @echo off

  6. REM 初始化库文件

  7. set/f=LinkDllW L"USER32" L"KERNEL32" L"MSVCRT"

  8. 

  9. set/f hIcon0=LoadImageW 0 L"graphcs\_p0.ico" 1 0 0 16

  10. set/f hIcon1=LoadImageW 0 L"graphcs\_p1.ico" 1 0 0 16

  11. set/f hIcon2=LoadImageW 0 L"graphcs\_p2.ico" 1 0 0 16

  12. set/f hIcon3=LoadImageW 0 L"graphcs\_p3.ico" 1 0 0 16

  13. set/f wIcon =LoadImageW 0 L"graphcs\_b.ico"  1 0 0 16

  14. set/f bIcon =LoadImageW 0 L"graphcs\_w.ico"  1 0 0 16

  15. 

  16. set/f hCMD =GetConsoleWindow

  17. set/f hDC  =GetDC %hCMD%

  18. 

  19. REM 绘制背景地图

  20. for /l %%i in (0,32,800) do (

  21. 	for /l %%j in (0,32,600) do (

  22. 		set/f =DrawIconEx %hDC% %%i %%j %bIcon% 32 32 0 0 3

  23. 	)

  24. )

  25. 

  26. REM 绘制起点人物

  27. set/a "X=0,Y=0, hIcon=hIcon3"

  28. set/f =DrawIconEx %hDC% %X% %Y% %hIcon% 32 32 0 0 3

  29. 

  30. REM 循环读取按键

  31. :LOOP

  32. SET/A "PREX=X, PREY=Y"

  33. set/f key=_getch

  34. if %key% geq 97 (set/a key-=32)

  35. if %key% equ 87 (set/a Y-=32,hIcon=hIcon1)

  36. if %key% equ 83 (set/a Y+=32,hIcon=hIcon3)

  37. if %key% equ 65 (set/a X-=32,hIcon=hIcon0)

  38. if %key% equ 68 (set/a X+=32,hIcon=hIcon2)

  39. set/f =DrawIconEx %hDC% %PREX% %PREY% %wIcon% 32 32 0 0 3

  40. set/f =DrawIconEx %hDC%    %X%    %Y% %hIcon% 32 32 0 0 3

  41. goto LOOP
复制代码
作者: codegay    时间: 2017-3-1 13:02

你玩得好开心
作者: happy886rr    时间: 2017-3-1 14:27

回复 2# codegay
哈哈， 我也觉得没什么可玩了，几乎都体验了，原来编程是这样简单。



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2