自动分层的源代码

htyysl · 发表于 2008-1-10 18:21

哪位老大能帮忙看看我这个源代码选择语句出什么问题了,第一次用选择语句,没太搞明白,两个功能单独都能用,但用选择语句控制就只能执行第二个功能,希望能得到解决,多谢,源代码如下:
entity/obj    $$定义实体
number/sln    $$定义实体数量
number/col    $$定义颜色数量
number/lyr    $$定义层数量
data/col,1    $$赋颜色数量值
data/lyr,1    $$赋图层数量值
l10:
choose/'选择图层移动的方式','自动分层','设置默认层',resp
jump/l10:,trm:,,,l20:,l30:,resp
l20:
INEXTE/ALL    $$初始化实体
sln=0          $$实体数量起始值
lyr=0          $$图层数量起始值
col=0          $$颜色数量起始值
sln=sln+1
obj=NEXTE/IFEND,trm:    $$选择下一实体
lyr=lyr+1
if/lyr>256,lyr=lyr-256
col=col+1
if/col>15,col=col-15
&layer(obj)=lyr       $$赋图层
&color(obj)=col       $$赋颜色
jump/trm:
l30:
cat/'c101',50
cat/'c102',51
cat/'c103',52
cat/'c104',53
cat/'c105',54
cat/'c106',55
cat/'c107',56
cat/'c108',57
cat/'c109',58
cat/'c110',59
cat/'c201',60
cat/'c202',61
cat/'c203',62
cat/'c204',63
cat/'c205',64
cat/'c206',65
cat/'c207',66
cat/'c208',67
cat/'c209',68
cat/'c210',69
cat/'c3a01',70
cat/'c3a02',71
cat/'c3a03',72
cat/'c3a04',73
cat/'c3a05',74
cat/'c3a06',75
cat/'c3a07',76
cat/'c3a08',77
cat/'c3a09',78
cat/'c3a10',79
cat/'c3b01',80
cat/'c3b02',81
cat/'c3b03',82
cat/'c3b04',83
cat/'c3b05',84
cat/'c3b06',85
cat/'c3b07',86
cat/'c3b08',87
cat/'c3b09',88
cat/'c3b10',89
jump/trm:
trm:
halt

htyysl · 发表于 2008-1-11 18:10

等了一天都没人给解答啊,XCB先生不知道能不能帮忙解决一下,多谢

8858 · 发表于 2008-1-13 17:03

我能帮你解决！QQ350443403

zhong14120 · 发表于 2008-1-18 20:51

响应少了一顶

-KASA- · 发表于 2008-1-20 10:15

错误在L30：上面一行（jump/trm：）。应该是一循环，但只执行了一遍你就让它跳到结束行了。这样改一下试试：
L25：
obj=NEXTE/IFEND,trm:    $$选择下一实体
lyr=lyr+1
if/lyr>256,lyr=lyr-256
col=col+1
if/col>15,col=col-15
&layer(obj)=lyr       $$赋图层
&color(obj)=col       $$赋颜色
jump/L25：

zhang2008go · 发表于 2009-4-4 23:04

学习学习

枝静璧 · 发表于 2009-6-22 20:14

来学习一下
永恒之塔外挂
永恒之塔免费外挂
新闻博文
 经验介绍
推荐网摘

panyuebing · 发表于 2009-10-22 11:59

谢谢分亨……

panyuebing · 发表于 2009-10-22 11:59

谢谢分亨……

ffqqaa0000 · 发表于 2009-11-15 19:38

学习一下学习一下

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

[原创] 自动分层的源代码

相关帖子

学习一下