复刻版内置输入法

jy02785317 · 发表于 2009-10-23 01:47

本帖最后由 jy02785317 于 2010-8-18 11:20 编辑

12.4更新加入lua版，见http://www.txdx.net/thread-435824-1-1.html
其实复刻版原本调用输入框的办法比较简便些
我加的代码反而比较繁琐,也不方便玩家输入
不过,就当是复古吧,更像原始的金群
测试是在苍龙逐日wely复刻版里做的,基本没什么大的问题
先贴代码,明天上效果图,太晚了,懒得截图什么的

f:textfile;
py:widestring;//输入的拼音
npy:char;
j:integer;
ye:integer;//记录选字处于哪一页
pyw:array[0..8000] of pyword;//保存汉字-拼音列表
pp:array[0..100] of widestring;//与输入拼音匹配的汉字
houxuan:array[0..9] of widestring; //选字状态下，候选字符
state:integer;//输入状态，0处于汉字，1处于拼音输入；2处于选字
//--------
begin
LoadR(0);
//显示输入姓名的对话框
//form1.ShowModal;
//str := form1.edit1.text;
//str := '请输入拼音后按空格键选字';
//name := InputBox('Enter name', str, '我是主角');
//str1 := unicodetobig5(@name[1]);
//-------------------------------------
AssignFile(f,'biao21');
Reset(f);
for i:=0 to 8000 do
begin
readln(f,pyw[i].hanzi);
readln(f,pyw[i].pinyin);
end;
state:=0;
Redraw;
//str := '请输入拼音后按空格键选字';
//drawshadowtext(@str[1], 32, 320, colcolor($66), colcolor($63));
//str := '姓名输入完毕后按回车开始游戏';
//drawshadowtext(@str[1], 32, 340, colcolor($66), colcolor($63));
//sdl_updaterect(screen, 0, 0, screen.w, screen.h);
SDL_EnableKeyRepeat(0, 10);
while (SDL_WaitEvent(@event) >= 0) do
begin
case event.type_ of
//关闭窗口事件
SDL_QUITEV:
if messagedlg('Are you sure to quit?', mtConfirmation, [mbOk, mbCancel], 0) = idOK then Quit;
//键盘事件
SDL_KEYUP:
begin
//输入a-z
if ((event.key.keysym.sym >96) and (event.key.keysym.sym <123) and (state<>2)) then
begin
if state=0 then
begin
py:='';
state:=1;
end;
npy:=chr(event.key.keysym.sym);
py:=py+npy;
end;
//输入BACKSPACE，删除
if ((event.key.keysym.sym=8) and (state<>2)) then
begin
if state=0 then
begin
delete(name,length(name),1);
end else
begin
delete(py,length(py),1);
if length(py)=0 then state:=0;
end;
end;
//输入空格，进入选字
if ((event.key.keysym.sym =sdlk_space) and (state=1)) then
begin
j:=0;
for i:=0 to 8000 do
begin
if widesametext(py,pyw[i].pinyin) then
begin
pp[j]:=pyw[i].hanzi;
j:=j+1;
end;
end;
for i:=0 to 9 do
begin
if(pp[i]<>'')
then houxuan[i]:=pp[i];
end;
ye:=0;
state:=2;
end;
//输入-=，选字翻页
if ((event.key.keysym.sym =SDLK_MINUS) or (event.key.keysym.sym =sdlk_equals) and (state=2)) then
begin
if(event.key.keysym.sym =SDLK_MINUS) and (ye>0) then ye:=ye-1;
if(pp[9*(ye+1)]<>'') and (event.key.keysym.sym =sdlk_equals) then ye:=ye+1;
for i:=0 to 9 do
begin
if(pp[i]<>'')
then houxuan[i]:=pp[i+9*ye];
end;
end;
//输入1-9，选字
if ((event.key.keysym.sym >48) and (event.key.keysym.sym <58) and (state=2)) then
begin
name:=name+houxuan[event.key.keysym.sym-49];
FillChar(py,SizeOf(py),0);
FillChar(pp,SizeOf(pp),0);
FillChar(houxuan,SizeOf(houxuan),0);
state:=0;
end;
//输入回车，结束输入法
if ((event.key.keysym.sym =sdlk_return) and (state=0)) then
begin
break;
end;
end;
end;
Redraw;
str := '请输入拼音后按空格键选字';
drawshadowtext(@str[1], 32, 320, colcolor($66), colcolor($63));
str := '姓名输入完毕后按回车开始游戏';
drawshadowtext(@str[1], 32, 340, colcolor($66), colcolor($63));
drawshadowtext(@name[1],32,360,colcolor($66), colcolor($63));
drawengshadowtext(@py[1], 42, 380, colcolor($66), colcolor($63));
for i:=0 to 8 do
begin
if(houxuan[i]<>'') then
begin
str:=inttostr(i+1);
drawshadowtext(@str[1], 32+48*i, 400, colcolor($66), colcolor($63));
drawshadowtext(@houxuan[i][1], 46+48*i, 400, colcolor($66), colcolor($63));
end;
end;
if (houxuan[0]='') and (state=2) then
begin
str:='查无此字,按任意数字键离开';
drawshadowtext(@str[1], 32, 400, colcolor($66), colcolor($63));
end;
str:=inttostr(state);
drawshadowtext(@str[1], 42, 300, colcolor($66), colcolor($63));
//drawshadowtext(@pyw[1].pinyin[1], 82, 300, colcolor($66), colcolor($63));
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
end;
//-------------------------------------

复制代码

[发帖际遇]: jy02785317游览桃花岛，没想到遇上东邪西毒北丐三人开摇滚音乐会，被玉笛鉄筝啸声三种内功波及，吐血5000ml，花了银两20两才治好。

,

[ 本帖最后由黄顺坤于 2009-12-5 22:38 编辑 ]

KA · 发表于 2009-10-23 07:32

恩，不错啊
把表21发上来吧
事实上我更加期待lua，要不LZ写一个lua版本的出来？

[发帖际遇]: 黄顺坤躲在无量山洞的玉像后面，待段誉磕完一千个头后说了句“免礼”，被段誉发现，立刻赔礼道歉一番花掉银两25。

[ 本帖最后由黄顺坤于 2009-10-23 07:34 编辑 ]

killer_zingy · 发表于 2009-10-23 08:08

lz强人啊~
不过问一下
有什么用?

[发帖际遇]: killer_zingy挑衅裘千丈，谁知到竟然是裘千仞，结果被裘千仞打了一掌，治伤花费银两16。

tmkking · 发表于 2009-10-23 08:14

强人啊

[发帖际遇]: tmkking在码头遇到武氏兄弟与神龙教众群殴，闪避不及，中“一阳指”，体力迅速流失，花费银两5购买包子补充体力。

weyl · 发表于 2009-10-23 10:25

台湾和香港怎么用呢？

[发帖际遇]: weyl流浪江湖，在悦来客栈施展“妙手空空”，偷得银两13。

jy02785317 · 发表于 2009-10-23 12:40

确实,里面没考虑注音
不过,如果再建一个表
里面是汉字和注音的对照
代码略微修改一下还是可行的
只是按键a-z如何和相应的注音符号对照起来,我就不懂了

yu_xinxing · 发表于 2009-10-23 14:33

楼主高人高才～不知海拔多少？

[发帖际遇]: yu_xinxing偷听到尹志平酒后吐露真言，威胁要将他的丑事公开，得到封口费银两23.

winson7891 · 发表于 2009-10-24 00:33

楼主强人~~论坛又多了一个高手~~

不过我建议是把输入法的字表改成繁体的，或者繁体优先的，毕竟游戏里用繁体字~~

[发帖际遇]: winson7891跑江湖卖艺，施展特技“胡说八道”，结果卖出无名草药若干，得款银两17。

夏海 · 发表于 2009-12-2 22:16

lz挺厉害的，长见识了

[发帖际遇]: 夏海溜进皇宫偷东西时发现韦小宝偷四十二章经，韦小宝送上封口费银两13。

jy02785317 · 发表于 2009-12-2 22:35

原帖由 winson7891 于 2009-10-24 00:33 发表
楼主强人~~论坛又多了一个高手~~

不过我建议是把输入法的字表改成繁体的，或者繁体优先的，毕竟游戏里用繁体字~~

[发帖际遇]: winson7891跑江湖卖艺，施展特技“胡说八道”，结果卖出无名草药若干，得款银两17。 ...

这个是gbk字符集
应该是繁体简体都有
怎么让繁体优先，我没想到解决办法(不知道怎么从编码来区分繁体简体)

考虑把简体转成繁体，然后删去相同字符，不知道行不行

或者考虑做个繁简对照表......

winson7891 · 发表于 2009-12-3 06:56

原帖由 jy02785317 于 2009-12-2 22:35 发表

这个是gbk字符集
应该是繁体简体都有
怎么让繁体优先，我没想到解决办法(不知道怎么从编码来区分繁体简体)

考虑把简体转成繁体，然后删去相同字符，不知道行不行

或者考虑做个繁简对照表......

我想直接使用游戏中原来的字库比较合适吧~

游戏用big5字库，你用一个gbk的，倒头来到游戏中还是会出现问号，既然简体字会变成问号，那干脆不要算了

繁体优先那个我也不是很清楚怎么运作的，只是有些输入法可以做到~~当时我回复你的时候也没想太清楚

PS：你怎么现在才回复

[发帖际遇]: winson7891帮张无忌翻译小昭写的情书，得到辛苦费银两18。

jy02785317 · 发表于 2009-12-3 08:03

选择gbk而没用big5不能怪我啊
我当时是先生成一个包含所有汉字的文本
然后再获取每个汉字的拼音
搜索出来编码资料比较齐全的就gbk了

而gbk似乎是编码上是无法区分繁简体的

现在想来比较实际的解决办法就是找个好点的简繁对照表

-----------------------------------
过些天重新改写下代码

准备对简体繁体做下处理，另外加上词频

[ 本帖最后由 jy02785317 于 2009-12-3 08:15 编辑 ]

狼襲、夢 · 发表于 2012-1-11 21:46

黄哥有前途哦，突然发现咱美工就是没前途，体力活还不吃香，还不去程序的好

fdadfae · 发表于 2012-1-9 13:10

lz挺厉害的，长见识了擦。牛人

KG · 发表于 2012-1-12 14:20

可以直接调用系统输入法的何必自己建表

KA · 发表于 2012-1-12 18:20

KG 发表于 2012-1-12 14:20
可以直接调用系统输入法的何必自己建表

可能是为了移植？或者是因为别的原因巨巨吧亲？

jy02785317 · 发表于 2012-1-12 22:04

本帖最后由 jy02785317 于 2012-5-3 10:39 编辑

不知道网游的输入框直接调用系统输入法是怎么做的，我觉得那个比较好

passcal版调用系统输入框，我始终觉得很不协调。

账号		自动登录	找回密码
密码			我要成为铁血侠客

[其他] 复刻版内置输入法

本帖子中包含更多资源

回复五当家的帖子

回复十一当家的帖子

本帖子中包含更多资源

[其他] 复刻版内置输入法

本帖子中包含更多资源

回复 五当家 的帖子

回复 十一当家 的帖子

本帖子中包含更多资源

回复五当家的帖子

回复十一当家的帖子