存钱的汉字和数字转换

疯无痕(sammiy@ts)

^(%s)(%x)锭黄金

#wa 3000;qian=0;num=%2;cunqian;#if @qian=0 {} {cun [@qian] gold;#wa 3000;}

cunqian的alias比较长:

num=%remove("零",@num);num=%replace(@num,"一","1");num=%replace(@num,"二","2");num=%replace(@num,"三","3");num=%replace(@num,"四","4");num=%replace(@num,"五","5");num=%replace(@num,"六","6");num=%replace(@num,"七","7");num=%replace(@num,"八","8");num=%replace(@num,"九","9");num=%remove("零",@num);num=%replace(@num,"一","1");num=%replace(@num,"二","2");num=%replace(@num,"三","3");num=%replace(@num,"四","4");num=%replace(@num,"五","5");num=%replace(@num,"六","6");num=%replace(@num,"七","7");num=%replace(@num,"八","8");num=%replace(@num,"九","9");#if %pos("十",@num)=1 {num=%replace(@num,"十","10|")} {num=%replace(@num,"十","0|")};num=%replace(@num,"百","00|");num=%replace(@num,"千","000|");num=%replace(@num,"万","0000|");#forall @num {#add qian %i};


^(%s)(%x)两白银

#wa 1500;qian=0;num=%2;cunqian;#if @qian<5 {} {cun [@qian-5] silver;#wa 1500;}

身上还留5silver买吃的或者坐船用


^(%s)(%x)文铜钱

qian=0;num=%2;cunqian;#if @qian=0 {} {cun @qian coin;}

夺魄(supya@ts)

.....好晕,有必要这么麻烦么,随便做个#cap不就好了么