|
|
发表于 2006-5-28 17:38:40
|
显示全部楼层
用汉字来存储信息可以突破1000进制
固定长度（1位）的汉字与整数转化
[jass]
//***************************************************************************
//*
//* Global Variables
//*
//***************************************************************************
globals
。。。。。
string array Biao
。。。。。
endglobals
function InitGlobals takes nothing returns nothing
set Biao[0]=\"阿啊爱安暗吧芭百办半瓣帮包保报北本比笔必陛避边变是表宾冰并\"
set Biao[1]=\"伯泊不步部才财采菜参餐惭灿册查产昌长偿吵炒车忱陈晨称成呈承\"
set Biao[2]=\"城弛池持耻赤炽充抽出处春磁此从粗村达答打大呆代胆淡当档刀导\"
set Biao[3]=\"到得灯邓迪地帝第电佃甸盯钉订定以东度断队对多夺朵儿二罚法凡\"
set Biao[4]=\"反贩方芳防妨纺放肥分坟粉丰风烽冯凤夫服妇负肝敢纲肛高革格蛤\"
set Biao[5]=\"个各给耿公功攻宫共贡构垢估姑孤骨顾怪关观官管光归轨工果过害\"
set Biao[6]=\"汉好恨红虹后呼胡虎互化划画怀换煌蝗晃灰会毁婚伙或圾机肌基及\"
set Biao[7]=\"吉级极几计记纪际季继寂加家尖间艰要检渐江匠降中交胶角叫较节\"
set Biao[8]=\"杰结介届紧近进经睛景九久旧就舅居具决军开楷苛科可克客在肯空\"
set Biao[9]=\"扣枯宽昆困扩拉来乐肋类累楞离上李理力历立联脸良量辽料列林经\"
set Biao[10]=\"灵另刘六龙娄搂卢卤录吕屡率绿罗妈马嘛慢么没玫煤们迷米眯秘绵\"
set Biao[11]=\"面秒民名明末牟姆睦哪内奶男南难能尼你年宁怕炮朋批皮同平普七\"
set Biao[12]=\"妻岂前钱欠强悄峭切且亲沁轻顷庆秋区曲取全权劝然让认扔仍如入\"
set Biao[13]=\"闰弱洒三扫色纱砂闪商少社审生失时实史氏世示式事收手守了术甩\"
set Biao[14]=\"双霜水睡顺说思四寺肆诉虽孙所他它台太膛啼提天条铁厅听烃同民\"
set Biao[15]=\"屯驼妥拓外宛晚汪为委卫胃闻无五务物吸析习戏细瞎下仙嫌显现线\"
set Biao[16]=\"限相向宵小肖协械懈心信兴行凶胸休秀须旭轩喧眩学雪寻巡旬训呀\"
set Biao[17]=\"押牙国烟炎眼燕央阳杨洋样遥药要也业叶衣姨地矣义亿忆因阴引隐\"
set Biao[18]=\"蝇发用由邮友右于愉与玉遇员原约匀允晕杂灾载早澡灶则曾增赠粘\"
set Biao[19]=\"斩崭占站张涨找折这贞针珍阵争之支芝知脂直职止只旨志炙中肿一\"
set Biao[20]=\"轴宙朱珠烛主注驻妆浊籽子字综棕最昨左作我人有的和主产不为这\"
endfunction
//***************************************************************************
//*
//* Custom Script Code
//*
//***************************************************************************
function YingShe takes string s returns integer
local integer i = 0
local integer t = 0
loop
loop
exitwhen i > 29
if s == SubString(Biao[t],i*3,(i+1)*3) then
return t*30+i
endif
set i = i + 1
endloop
exitwhen t*30+i > 30*21-1
set i = 0
set t = t + 1
endloop
return 630
endfunction
function SheYing takes integer i returns string
return SubString(Biao[i/30],(i-(i/30)*30)*3,(i-(i/30)*30+1)*3)
endfunction
//***************************************************************************
[/jass]
因为删去了很多生僻汉字，所有上面的JASS实际只有630进制，根据需要可以调整。
应该可以满足大信息量的存储。中国人抄写起来更方便。
[ 本帖最后由 hackwaly 于 2006-5-28 17:43 编辑 ] |
|
楼主: Toad
窥视卡
雷达卡
???í?¨
发表于 2006-5-26 18:07:43
