日志

分享 getkword: 1291500406 2019-9-16 23:16; (defun c:bb() (initget "1 2 3 4") (if (not bb) (setq bb "1")) (setq bb(cond ( (getkword (strcat "送命题\n你老妈和你女朋友掉水里你先救谁 " bb " : " ))) ( bb )))(cond ((= bb "1") (alert "\n那女朋友呢?")) ((= bb "2") (alert "\n那老妈呢?")) ((= bb "3") (alert "\n你还是人?")) ((= bb "4") (ale ...; 个人分类: 运行原理|5075 次阅读|0 个评论热度 1

GMT+8, 2024-4-26 05:19 , Processed in 0.107499 second(s), 11 queries , Gzip On.

账号		自动登录	找回密码
密码			注册