责任编辑：小柳
共有：0条评论网友评论：
亲，还没评论呢！速度抢沙发吧！Emacs逆袭：开发微信公众平台小游戏 - 开源中国社区
当前访客身份：游客 [
当前位置：
发布于 日 17时,
wechat.el是用Emacs&Lisp打造的微信公众平台开发框架，基于elnode。源码已经托管在Github上：/redraiment/wechat.el，现已收录在oschina。借助Lisp语言强大的可定制性，使得开发一个公众平台的应用犹如编写一段剧本一样简单！例如本例——开窗游戏，展示了如何给予wechat.el实现自己的应用。
代码片段(3)
1.&[图片] shot.jpg&&&&
2.&[图片] 2d.jpg&&&&
3.&[代码]微信开窗游戏源码&&&&
;; 定义新的游戏地图
(def-map "/game/5x5.el" 对外开放的URL
'tutorial-room-0)
默认的入口
;;; 游戏大厅
(def-room living-room
; 进入该房间后的提示语
2. 入门（3x3）
3. 初级（5x5）
4. 中级（7x7）
5. 高级（9x9）
0. 关于作者
请选择1-5开始新游戏："
("0" about-room)
期望用户输入的信息以及相应的后续房间名
("1" tutorial-room-0)
("[2-5]" game-room-init) 用户输入信息可用正则表达式匹配
相应的返回也可以为函数，动态返回房间名
(t living-room))
如果条件为t，为永真
;;; 作者信息
(def-room about-room
"作者：redraiment
微博：/redraiment
有任何建议，欢迎在微博或微信上联系redraiment。
请输入任意数字返回游戏大厅。"
(t living-room))
(defvar *wechat-5x5-tutorial-rooms* 0
"The number of tutorial rooms")
;;; 简化教程的定义
(defun string-last-line (content)
"多行内容组成的字符串中的最后一行"
(with-temp-buffer
(insert content)
(buffer-substring (line-beginning-position)
(point-max))))
(defun def-tutorial-room (prompt)
"根据提示语自动生成教程房间。
1. 提取最后一行作为问题；
2. 分析问题，获取期望用户输入的内容；
3. 定义教程房间和重复提问房间。"
(let* ((room-name (concat "tutorial-room-" (number-to-string *wechat-5x5-tutorial-rooms*)))
(repeat-room (concat room-name "-repeat"))
(next-room (concat "tutorial-room-" (number-to-string (incf *wechat-5x5-tutorial-rooms*))))
(question (string-last-line prompt))
(except (if (string-match "请输入“\\([0-9a-zA-Z]+\\)”" question)
(match-string 1 question)))
(doors (if except
`((,except ,(intern next-room))
("q" living-room)
("Q" living-room)
(t ,(intern repeat-room)))
'((t living-room)))))
(def-room-raw (intern room-name) prompt doors)
(def-room-raw (intern repeat-room) question doors)))
(defun def-tutorial (&rest prompts)
"批量生成教程房间。"
(dolist (prompt prompts)
(def-tutorial-room prompt)))
(def-tutorial
"欢迎体验微信版的开窗游戏！为了让您尽快熟悉游戏的规则，请根据教程提示一步一步完成要求的操作。注：任何时刻，您都能输入“q”来退出本教程。
2. 入门（3x3）
3. 初级（5x5）
4. 中级（7x7）
5. 高级（9x9）
0. 关于作者
请选择1-5开始新游戏：
您现在正在游戏大厅里。
请输入“2”进入入门级房间"
进入房间后，您就会看到一个如上图所示的3x3棋盘。其中黑子代表打开的窗户，白子代表关闭的窗户。您可以输入任意一个棋盘上的坐标，来开启或关闭某扇窗户。游戏的目标是开启所有窗户！
请输入“22”来关闭第2行第2列的窗户。"
你可能被吓了一跳，怎么所有的窗户都被关闭了？我忘了告诉您：这些格子是被按了机关的，只要一个窗户被开启或关闭，它的上下左右四扇窗户也会连锁反应，被开启或关闭。
请输入“11”，试着开启左上角的窗户。"
因为连锁反应，11右边和下面的窗户也被开启了。但因为11在左上角，没有上面和左边，因此这回总共只开启了三扇窗户。
请输入“13”开启右上角的窗户。"
第1行第2列上的窗户因为本来就是处于开启状态的，这回因为13的连锁反应，又重新被关闭了。
请输入“31”开启左下角的窗户。"
此时，总共有5扇窗户被开启了。
请输入“33”开启右下角的窗户。"
现在，只有四个角落的窗户被打开。
请输入“22”完成最后一击！"
您已完成教程的所有内容，输入任意内容返回大厅，开始您的开窗之旅！")
(defconst *wechat-5x5-white-chess* 12288
(defconst *wechat-5x5-black-chess* 9632
(defmacro with-board (&rest body)
`(with-temp-buffer
(unwind-protect
(if (session "board")
(insert (session "board")))
(session "board" (buffer-string)))))
(defun board-init (size)
(session "size" size)
(session "step" 0)
(erase-buffer)
(insert (format (format "
%%.%ds\n" size) "①②③④⑤⑥⑦⑧⑨"))
(dotimes (row size)
(insert (format "%d%s\n" (1+ row) (make-string size *wechat-5x5-white-chess*)))))
(defun board-contains-p (y x)
(let ((size (session "size")))
(and (&= 1 y) (&= y size)
(&= 1 x) (&= x size))))
(defun board-toggle (y x)
(when (board-contains-p y x)
(goto-line (1+ y))
(beginning-of-line)
(forward-char x)
(insert (if (= *wechat-5x5-white-chess* (following-char))
*wechat-5x5-black-chess*
*wechat-5x5-white-chess*))
(delete-char 1)))
(defun board-put (y x)
(dolist (dir '((-1 0) (0 -1) (0 0) (0 1) (1 0)))
(board-toggle (+ y (first dir))
(+ x (second dir)))))
(defun game-over-p ()
(beginning-of-buffer)
(not (search-forward (string *wechat-5x5-white-chess*) nil t)))
(defun board-show ()
(with-board
(concat (buffer-string)
(if (game-over-p)
(format "共%d步，输入任意内容返回大厅" (session "step"))
(format "第%d步" (1+ (session "step")))))))
(defun board-position-parse (cmd)
(if (= (length cmd) 2)
(list (string-to-int (substring cmd 0 1))
(string-to-int (substring cmd 1 2)))
;;; 游戏房间
(defun game-room-init (cmd)
(let* ((middle (string-to-int cmd))
(size (1- (* 2 middle))))
(with-board
(board-init size)
(board-put middle middle)))
'game-room)
(def-room game-room
#'board-show
(t (lambda (cmd)
(with-board
(if (game-over-p)
'living-room
(destructuring-bind (y x) (board-position-parse cmd)
(when (board-contains-p y x)
(board-toggle y x)
(session "step" (1+ (session "step"))))
'game-room))))))
开源中国-程序员在线工具：
相关的代码(18)
4回/4396阅
0回/3287阅
3回/1982阅
0回/1582阅
6回/1293阅
我只看到了好多括号
2楼：FreeBlues 发表于
有趣,赞一个
3楼：redraiment 发表于
引用来自“bundles”的评论我只看到了好多括号
只怕你用其他语言实现的括号更多，无论是数量还是种类。
4楼：东厢里的一只喵 发表于
引用来自“redraiment”的评论引用来自“bundles”的评论我只看到了好多括号
只怕你用其他语言实现的括号更多，无论是数量还是种类。这个怎么弄到网络上呢？不会用传说的E神啊。能给讲讲怎么弄不。
5楼：redraiment 发表于
引用来自“人曰小花喵~”的评论引用来自“redraiment”的评论引用来自“bundles”的评论我只看到了好多括号
只怕你用其他语言实现的括号更多，无论是数量还是种类。这个怎么弄到网络上呢？不会用传说的E神啊。能给讲讲怎么弄不。在那个github的项目主页里，有给出启动的方法。关键是使用了elnode这个插件，其实就是运用Emacs Lisp的网络接口去异步监听26870端口，处理http请求。
6楼：__FresHmaN 发表于
引用来自“redraiment”的评论引用来自“bundles”的评论我只看到了好多括号
只怕你用其他语言实现的括号更多，无论是数量还是种类。我大python
7楼：redraiment 发表于
引用来自“多萨穆大叔”的评论引用来自“redraiment”的评论引用来自“bundles”的评论我只看到了好多括号
只怕你用其他语言实现的括号更多，无论是数量还是种类。我大python你可以尝试用Python来实现一下
8楼：Fuz 发表于
引用来自“redraiment”的评论引用来自“bundles”的评论我只看到了好多括号
只怕你用其他语言实现的括号更多，无论是数量还是种类。不见得吧，况且多几种括号可以用于区分不同用法，代码更直观
开源从代码分享开始
redraiment的其它代码自己无聊注册了一个微信公众号
教你怎么利用微信小游戏来为微信公众号吸粉的！高效！ - 热点_【北京联盟】
教你怎么利用微信小游戏来为微信公众号吸粉的！高效！
/ 作者：admin
北京联盟摘要：自己无聊注册了一个微信公众号
教你怎么利用微信小游戏来为微信公众号吸粉的！高效！，上一篇：
下一篇： 。自己无聊注册了一个微信公众号，之前是用各种视频网站的会员账号，来吸粉，每天100+以上。后来开销太大，号自己开了几个经常被冻结。就换了一种游戏来吸粉。 北京联盟 / 先看下我刚刚改版的吸粉游戏菜单。 北京联盟 http://www.010lm.co
自己无聊注册了一个微信公众号，之前是用各种视频网站的会员账号，来吸粉，每天100+以上。后来开销太大，号自己开了几个经常被冻结。就换了一种游戏来吸粉。北京联盟 /先看下我刚刚改版的吸粉游戏菜单。北京联盟 /我这个是个人的 没有认证，不能加自定义链接，只能加文字 然后 阅读原文来实现链接。北京联盟 /北京联盟 /下面是几个吸粉的游戏北京联盟 /北京联盟 /这个呢是结婚证生成源码：曾经火爆朋友圈 空间 我自己搭建到自己网站里面的。北京联盟 /北京联盟 /北京联盟 /这个是各种图片生成。北京联盟 /北京联盟 / 地址北京联盟 /北京联盟 /然后这个是生命计算器 这个也很不错的。北京联盟 /北京联盟 /北京联盟 /北京联盟 /北京联盟 /然后是微信小游戏，400个左右。北京联盟 /北京联盟 /见缝插针 小游戏北京联盟 /北京联盟 /这些 自己租用的一个服务器搭建的。 每年不到1000 ，解析多个域名，可以建设很多网站。北京联盟 /有兴趣想试试的，喜欢这个源码的可以 北京联盟 /关注下我的微信公众号北京联盟 / 留言给你分享一下北京联盟 /微信公众号：Chinalcwl 或者搜索：领诚北京联盟 /
教你怎么利用微信小游戏来为微信公众号吸粉的！高效！
免责声明：本站文章除注明来源“北京联盟”外的文章均来自网络和网友投稿，著作权归原作者所有。北京联盟不承担任何连带责任！一些有趣的微信测试小游戏怎么制作，怎么放到自己的公众号上？
看到一些非常有意思的H5测试类小游戏，很好玩。可是不知道怎么放到自己的公众号上，请问公众号都是怎么把这类测试小游戏做出来的呢？
有的是用微盟做的，微盟上面有很多小游戏，新用户可以免费实用3天，后期需要花钱购买
已有帐号？
无法登录？
社交帐号登录}