#if (%1="你大喝：使用『解析』！查詢小字條") {#c+ hmmlskill
data.fa="@@@@@@-|-@@@@@@|-@@----|@@---|----@@-"
data.fb="-@@@@@-|-@@@@@-|-@-----|-@---|-----@-"

data.word="-@--@--@--@--@-|@@@--@@@@@--@@@|@@@--@@@@--@@@@|@-@@-@@@@--@--@|@@@@--@@@--@@@@|@@@@--@@@@-@@@@|@@@--@-@--@--@|@@@@-@@@@@-@@@@|@@@@-@@@@--@--@|@@@@-@@-@@-@@@@"
#trigger {({@|*|+|#})} {#add bombword.n 1
#var bombword.@bombword.n {%line} {} {bomb}} {bomb}} {#c- hmmlskill
#untrigger {({@|*|+|#})} {bomb}
#forall {*|+|#} {#var bombword %replace(@bombword,%i,"@")}
#var bombword %replace(@bombword," ","-")
#var bombword.2 {"-"@bombword.2}
#var bombword.3 {"--"@bombword.3}
#var bombword.4 {"---"@bombword.4}
#var bombword.5 {"----"@bombword.5}
#showdb @bombword
#until %pos(@-@---,@bombword.2)=0 {#if (%pos(@-@---,@bombword.2)>0) {#var
bombword.4 %insert("---",@bombword.4,%pos(@-@---,@bombword.2))
#var bombword.5 %insert("---",@bombword.5,%pos(@-@---,@bombword.2))
#var bombword.2 %insert("--",@bombword.2,%pos(@-@---,@bombword.2)+1)
#showdb @bombword} {#noop}}
#var number.1
{%copy(@bombword.1,4,7)|%copy(@bombword.2,4,7)|%copy(@bombword.3,4,7)|%copy(@bombword.4,4,7)|%copy(@bombword.5,4,7)}
#var number.2
{%copy(@bombword.1,12,7)|%copy(@bombword.2,12,7)|%copy(@bombword.3,12,7)|%copy(@bombword.4,12,7)|%copy(@bombword.5,12,7)}
#var number.3
{%copy(@bombword.1,20,7)|%copy(@bombword.2,20,7)|%copy(@bombword.3,20,7)|%copy(@bombword.4,20,7)|%copy(@bombword.5,20,7)}
#var number.4
{%copy(@bombword.1,28,7)|%copy(@bombword.2,28,7)|%copy(@bombword.3,28,7)|%copy(@bombword.4,28,7)|%copy(@bombword.5,28,7)}
#var number.5
{%copy(@bombword.1,36,7)|%copy(@bombword.2,36,7)|%copy(@bombword.3,36,7)|%copy(@bombword.4,36,7)|%copy(@bombword.5,36,7)}
#var number.6
{%copy(@bombword.1,44,7)|%copy(@bombword.2,44,7)|%copy(@bombword.3,44,7)|%copy(@bombword.4,44,7)|%copy(@bombword.5,44,7)}
#showdb @number
#loopdb @number {#show %pos(@---@,%item(%val,2))}
#loopdb @number {#if (%numwords(%val,@)<8) {#var number.%key 1} {#noop}}
#loop %numitems(@data.fa) {#var number
%replace(@number,%item(@data.fa,%i),%item(@data.fb,%i))}
#loopdb @number {#if (%numwords(%val,@---@)=4) {#var number.%key 0} {#noop}}
#loopdb @number {#if (%numwords(%val,----@)=4) {#var number.%key 7} {#noop}}
#loopdb @number {#if (%numwords(%val,@@@@@)=2) {#var number.%key 4} {#noop}}
#loopdb @number {#if (%numwords(%val,@---@)=3) {#var number.%key 8} {#noop}}
#loopdb @number {#if (%pos(@---@,%item(%val,2))>0) {#var number.%key 9}
{#noop}}
#loopdb @number {#if (%pos(@---@,%item(%val,4))>0) {#var number.%key 6}
{#noop}}
#loopdb @number {#if (%pos(@----,%item(%val,2))>0) {#var number.%key 5}
{#noop}}
#loopdb @number {#if (%pos(@----,%item(%val,4))>0) {#var number.%key 2}
{#noop}}
#loopdb @number {#if (%pos(@@@@@,%item(%val,1))>0) {#var number.%key 3}
{#noop}}
#showdb {"numbert"%crlf@number}
#exec {input @number.1@number.2@number.3@number.4@number.5@number.6}
#var bombword.n {0} {} {bomb}}