zmud之自动对诗

[xelite]

荆棘岭对诗（自己可以稍做修改）：

#alias qujing_poem {
#file 1 poem.txt
#var poem_word %1
#var poem_word_len %len(@poem_word)
#var match_words %grep(1,@poem_word)
#say @match_words
#For @match_words {#var poem_word %i
#var poem_word %Replace(@poem_word," ","")
#say %copy(@poem_word,1,@poem_word_len)
#say %copy(@poem_word,@poem_word_len+1,@poem_word_len)}
#close 1
#unv poem_word_len
}

[streams]

太长了，你还是直接发给我个机器吧