几年前用GRIP写的,参考一下
$$给对象添加属性
entity/ent
string/address(5,132),menu(5,132),str(132)
data/menu,'姓名',$
'性别',$
'年龄',$
'地址',$
'公司'
$$ mask/71
l00:
ident/'选择对象',ent,rsp
i=o
jump/l00:,hal:,,,rsp
l10:
i=i+1
choose/'选择属性',menu(1..5),'------确定------',deflt,i,rsp1
jump/l10:,hal:,,,,,,,,l30:,rsp1
l20:
text/'输入属性值',str,rsp2
address(rsp1-4)=str
jump/l10:
l30:
do/l40:,i,1,5
asatt/ent,menu(i),address(i) $$赋值 ,格式为/对象,标题,值
print/menu(i)+':'+blstr(2)+address(i)
l40:
hal:
halt
不用开发,直接输入不就好了 |