|
发表于 2011-10-15 18:05:40
|
显示全部楼层
广东省深圳市
本帖最后由 linshi117 于 2011-10-15 18:06 编辑
accet 发表于 2010-12-31 05:09 
晕死 上次忘记增加了 goto 功能 这个加上.
源码
思路不错。还可以优化。以下代码换用判断()效率更好。针对这个脚本 直接读文件 每次一行 似乎更易。
[e]
.版本 2
.支持库 ELogoPanel
.子程序 运行脚本
.参数 脚本, 文本型
.局部变量 tempTxt, 文本型, , "0"
tempTxt = 分割文本 (脚本, “ ”, )
.如果真 (tempTxt [1] = “延时”)
延时 (到整数 (tempTxt [2]))
.如果真结束
.如果真 (tempTxt [1] = “前进”)
Logo对象1.前进 (到整数 (tempTxt [2]))
.如果真结束
.如果真 (tempTxt [1] = “后退”)
Logo对象1.后退 (到整数 (tempTxt [2]))
.如果真结束
.如果真 (tempTxt [1] = “左转”)
Logo对象1.左转 (到整数 (tempTxt [2]))
.如果真结束
.如果真 (tempTxt [1] = “右转”)
Logo对象1.右转 (到整数 (tempTxt [2]))
.如果真结束
.如果真 (tempTxt [1] = “落笔”)
Logo对象1.落笔 ()
.如果真结束
.如果真 (tempTxt [1] = “抬笔”)
Logo对象1.抬笔 ()
.如果真结束
.如果真 (tempTxt [1] = “清屏”)
Logo对象1.清屏 ()
.如果真结束
.如果真 (tempTxt [1] = “回家”)
Logo对象1.回家 ()
.如果真结束
.如果真 (tempTxt [1] = “写文字”)
Logo对象1.写文字 (tempTxt [2])
.如果真结束
.如果真 (tempTxt [1] = “信息框”)
信息框 (tempTxt [2], 0, “提示”)
[/e]
|
|