|
发表于 2013-4-25 10:22:19
|
显示全部楼层
难得有人坚持用462,贴上以前写的某一句tri,研究下应该能有所帮助。。。
#if @dchukou=1 {
dchukou=0
chukou=%replace( @chukou, "。", "")
chukou=%replace( @chukou, "、", " ")
chukou=%replace( @chukou, " 和", "")
#var dgo1 %word( @chukou, 1)
#if @nstep<@mstep {
#math t3 @nstep+1
t3=done@t3
t1=done@nstep
next=a
#8 {
t2=%word( @chukou, %i)
#if (%len( @t2)=0 | %pos( a@{t2}a, @{@t1})) {} {next=@t2}
}
#if @next=a {
#math temp @nstep-1
temp=hui@temp
txen=@{@temp}
} {
#var temp %ismember( @next, @ku7)
#var txen %word( @ku4, @temp)
#var @t3 @{@t3}@{txen}a
#var @t1 {@{@t1}@{next}a}
#var qu@nstep @next
#var hui@nstep @txen
}
} {next=a}
}
#if @dchukou=2 {
#if @dfuhe>1 {fx4} {
look
get
}
} {
#if @dmove=0 {
dmove=1
dgo1=b
#if %pos( @next, a) {#add nstep 1} {#add nstep -1}
#alarm +1 {get}
} {
#if @dfuhe<2&!%pos( @next, a)&!%pos( @dgo1, a) {
#add nstep 1
@next
get
} {#if @nstep>1&@dfuhe<2 {
#var done@nstep aaa
#add nstep -1
#if !%pos( @dgo1, a) {@txen} {look}
get
} {fx4}}
#var dgo1 a
dfuhe=0
}
} |
|