北大侠客行MUD论坛

 找回密码
 注册
搜索
热搜: 新手 wiki 升级
查看: 3850|回复: 2

贴一个把大写转成数字的小程序

[复制链接]
发表于 2009-9-21 16:34:01 | 显示全部楼层 |阅读模式
triiger  (%x)两黄金

#var list_gold {十|百|千|万}
#var gold %1
#var gold_1 0
#var gold_2 0
#var gold_num 0
#if (%pos( "十", @gold)=1) {#var gold_num 10} {
  #forall @list_gold {
    #math gold_1 [email={@gold_1+1]{@gold_1+1[/email]}
    gold_2=%pos( %i, @gold)
    #if (@gold_2<>0) {
      #math gold_2 [email={@gold_2-2]{@gold_2-2[/email]}
      gold_2=%copy( @gold, @gold_2, 2)
      #math gold_2 {(%pos( @gold_2, "一二三四五六七八九")+1)/2}
      gold_3=1
      #loop @gold_1 {#math gold_3 [email={@gold_3*10]{@gold_3*10[/email]}}
      #math gold_num [email={@gold_num+@gold_2*@gold_3]{@gold_num+@gold_2*@gold_3[/email]}
      }
    }
  }
#if (%pos( "零十", @gold)<>0) {#math gold_num [email={@gold_num+10]{@gold_num+10[/email]}}
gold_2=%rightback( @gold, 2)
#math gold_2 {(%pos( @gold_2, "一二三四五六七八九")+1)/2}
#math gold_num @gold_num+@gold_2
#say 苍天啊,大地阿,我怎么只有@gold_num 黄金啊,让我怎么活啊

只能转化一万一下的大写数值
有兴趣的同学修改修改,扩大扩大,精简精简~~~
北大侠客行Mud(pkuxkx.com),最好的中文Mud游戏!
发表于 2009-9-21 22:23:23 | 显示全部楼层
北大侠客行Mud(pkuxkx.com),最好的中文Mud游戏!
发表于 2009-9-21 22:24:03 | 显示全部楼层
北大侠客行Mud(pkuxkx.com),最好的中文Mud游戏!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|北大侠客行MUD ( 京ICP备16065414号-1 )

GMT+8, 2024-11-2 03:35 AM , Processed in 0.011326 second(s), 14 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表