[50指令]对话中显示主角的姓名

brooklet

说明：

1、对话中显示主角的姓、名和全名。达到这样效果（主角假设叫南宫梦）
令狐冲说：”南宫兄弟，别来无恙“
小昭：”南宫少侠...“
南宫梦：”什么少侠不少侠的，听起来多别扭，你就叫我梦哥哥好么？“
灭绝：”南宫梦！我死了咒我竟然还加道德！拿命来吧！“

2、原理是用50指令编写一个函数，代替1指令，使用时使用50号指令中的（调用其他事件），调用方式为“本事件编号（对话id，人物头像id，对话框位置，0（和1指令相同）”
3.为了判断是否是复姓，把常见的复姓放在对话内，本例中是从2990到3012
4.对话中主角姓用XX代替，名：MM，全名：QM
例如：我姓XX，名MM，全名是QM。 显示效果：我姓西门，名庆，全名是西门庆。（假设主角叫西门庆）
5、1指令中如果对话很长，是会分屏显示的，本程序没做到。因此注意对话不要太长。
6、如果姓名中带有字母等半角字符，会出错。

;Kdefnum=1026
  50 0 0 0 0 0 0 0               ;  50(32):变量赋值 [X0]=0
  50 27 0 0 0 100 0 0            ;  50(32):取属性名称 Str100=人物0
  50 11 200 100 0 0 0 0          ;  50(32):字符串合并 Str[X200]=Str[X100]+Str[X0]
  50 11 300 100 0 0 0 0          ;  50(32):字符串合并 Str[X300]=Str[X100]+Str[X0]
  50 10 100 20 0 0 0 0           ;  50(32):取字符串长度 [X20]=Len(Str[X100] )
  50 4 0 2 20 2 0 0              ;  50(32):变量判断 If[X20]=2  then JMP=0 else JMP=1
  36 256 116 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 0 1 2990 0 0 0 0            ;  50(32):变量赋值 [X1]=2990
;:Label5
  50 8 1 1 400 0 0 0             ;  50(32):读对话到字符串  Str[X400]=talk([X1])
  50 4 1 3 200 400 0 0           ;  50(32):变量判断 If[X200]<>[X400] then JMP=0 else JMP=1
  36 256 52 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 4 1 3 201 401 0 0           ;  50(32):变量判断 If[X201]<>[X401] then JMP=0 else JMP=1
  36 256 40 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  50 4 0 2 20 4 0 0              ;  50(32):变量判断 If[X20]=4  then JMP=0 else JMP=1
  36 256 64 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 0 202 0 0 0 0 0             ;  50(32):变量赋值 [X202]=0
  50 11 300 102 0 0 0 0          ;  50(32):字符串合并 Str[X300]=Str[X102]+Str[X0]
  50 0 28672 0 0 0 0 0           ;  50(32):变量赋值 [X28672]=0
  36 256 36 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
;:Label2
;:Label1
  50 3 0 0 1 1 1 0               ;  50(32):四则运算 [X1]=[X1]+1
  50 4 0 1 1 3012 0 0            ;  50(32):变量判断 If[X1]<=3012 then JMP=0 else JMP=1
  36 256 -92 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
  50 0 201 0 0 0 0 0             ;  50(32):变量赋值 [X201]=0
  50 11 300 101 0 0 0 0          ;  50(32):字符串合并 Str[X300]=Str[X101]+Str[X0]
;:Label4
;:Label3
;:Label0
  50 2 0 0 28928 0 1 0           ;  50(32):取数组变量值 [X1]=数组28928(0)(Int)
  50 2 0 0 28928 1 2 0           ;  50(32):取数组变量值 [X2]=数组28928(1)(Int)
  50 2 0 0 28928 2 3 0           ;  50(32):取数组变量值 [X3]=数组28928(2)(Int)
  50 8 1 1 1000 0 0 0            ;  50(32):读对话到字符串  Str[X1000]=talk([X1])
  50 11 2000 1000 0 0 0 0        ;  50(32):字符串合并 Str[X2000]=Str[X1000]+Str[X0]
  50 0 4 999 0 0 0 0             ;  50(32):变量赋值 [X4]=999
  50 0 5 1999 0 0 0 0            ;  50(32):变量赋值 [X5]=1999
;:Label9
  50 3 0 0 4 4 1 0               ;  50(32):四则运算 [X4]=[X4]+1
  50 3 0 0 5 5 1 0               ;  50(32):四则运算 [X5]=[X5]+1
  50 32 0 4 3 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数3=[X4]
  50 11 3000 1000 0 0 0 0        ;  50(32):字符串合并 Str[X3000]=Str[X1000]+Str[X0]
  50 32 0 5 2 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数2=[X5]
  50 11 2000 3000 0 0 0 0        ;  50(32):字符串合并 Str[X2000]=Str[X3000]+Str[X0]
  50 32 0 4 4 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数4=[X4]
  50 4 0 3 333 22616 0 0         ;  50(32):变量判断 If[X333]<>22616 then JMP=0 else JMP=1
  36 256 48 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  50 32 0 5 2 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数2=[X5]
  50 11 333 200 0 0 0 0          ;  50(32):字符串合并 Str[X333]=Str[X200]+Str[X0]
  50 10 200 10 0 0 0 0           ;  50(32):取字符串长度 [X10]=Len(Str[X200] )
  50 3 0 3 10 10 2 0             ;  50(32):四则运算 [X10]=[X10]/2
  50 3 0 1 10 10 1 0             ;  50(32):四则运算 [X10]=[X10]-1
  50 3 1 0 5 5 10 0              ;  50(32):四则运算 [X5]=[X5]+[X10]
;:Label6
  50 32 0 4 4 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数4=[X4]
  50 4 0 3 333 19789 0 0         ;  50(32):变量判断 If[X333]<>19789 then JMP=0 else JMP=1
  36 256 48 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  50 32 0 5 2 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数2=[X5]
  50 11 333 300 0 0 0 0          ;  50(32):字符串合并 Str[X333]=Str[X300]+Str[X0]
  50 10 300 10 0 0 0 0           ;  50(32):取字符串长度 [X10]=Len(Str[X300] )
  50 3 0 3 10 10 2 0             ;  50(32):四则运算 [X10]=[X10]/2
  50 3 0 1 10 10 1 0             ;  50(32):四则运算 [X10]=[X10]-1
  50 3 1 0 5 5 10 0              ;  50(32):四则运算 [X5]=[X5]+[X10]
;:Label7
  50 32 0 4 4 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数4=[X4]
  50 4 0 3 333 19793 0 0         ;  50(32):变量判断 If[X333]<>19793 then JMP=0 else JMP=1
  36 256 48 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
  50 32 0 5 2 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数2=[X5]
  50 11 333 100 0 0 0 0          ;  50(32):字符串合并 Str[X333]=Str[X100]+Str[X0]
  50 10 100 10 0 0 0 0           ;  50(32):取字符串长度 [X10]=Len(Str[X100] )
  50 3 0 3 10 10 2 0             ;  50(32):四则运算 [X10]=[X10]/2
  50 3 0 1 10 10 1 0             ;  50(32):四则运算 [X10]=[X10]-1
  50 3 1 0 5 5 10 0              ;  50(32):四则运算 [X5]=[X5]+[X10]
;:Label8
  50 32 0 4 4 0 0 0              ;  50(32):修改下一条指令参数 下一条指令参数4=[X4]
  50 4 0 3 333 0 0 0             ;  50(32):变量判断 If[X333]<>0 then JMP=0 else JMP=1
  36 256 -272 0                  ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
  0                              ;  0(0)::空语句(清屏)
  50 4 0 3 3 0 0 0               ;  50(32):变量判断 If[X3]<>0 then JMP=0 else JMP=1
  36 256 43 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label10
  0                              ;  0(0)::空语句(清屏)
  50 34 0 23 12 60 62 0          ;  50(32):处理背景 位置(23,12) Width=60 Height=62
  50 41 4 1 25 71 2 0            ;  50(32):显示图片 头像图片[X2] 位置(25,71)
  50 34 0 94 17 218 57 0         ;  50(32):处理背景 位置(94,17) Width=218 Height=57
  50 33 0 2000 106 20 100 0      ;  50(32):显示字符串 显示字符串2000 (106,20)Color100
  50 35 10 0 0 0 0 0             ;  50(32):读取键盘 [X10]=键值
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label10
  50 4 0 3 3 1 0 0               ;  50(32):变量判断 If[X3]<>1 then JMP=0 else JMP=1
  36 256 43 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label11
  0                              ;  0(0)::空语句(清屏)
  50 34 0 237 125 60 62 0        ;  50(32):处理背景 位置(237,125) Width=60 Height=62
  50 41 4 1 239 184 2 0          ;  50(32):显示图片 头像图片[X2] 位置(239,184)
  50 34 0 8 130 218 57 0         ;  50(32):处理背景 位置(8,130) Width=218 Height=57
  50 33 0 2000 20 133 100 0      ;  50(32):显示字符串 显示字符串2000 (20,133)Color100
  50 35 10 0 0 0 0 0             ;  50(32):读取键盘 [X10]=键值
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label11
  50 4 0 3 3 2 0 0               ;  50(32):变量判断 If[X3]<>2 then JMP=0 else JMP=1
  36 256 27 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label12
  0                              ;  0(0)::空语句(清屏)
  50 34 0 94 17 218 57 0         ;  50(32):处理背景 位置(94,17) Width=218 Height=57
  50 33 0 2000 106 20 100 0      ;  50(32):显示字符串 显示字符串2000 (106,20)Color100
  50 35 10 0 0 0 0 0             ;  50(32):读取键盘 [X10]=键值
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label12
  50 4 0 3 3 3 0 0               ;  50(32):变量判断 If[X3]<>3 then JMP=0 else JMP=1
  36 256 27 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label13
  0                              ;  0(0)::空语句(清屏)
  50 34 0 8 130 218 57 0         ;  50(32):处理背景 位置(8,130) Width=218 Height=57
  50 33 0 2000 20 133 100 0      ;  50(32):显示字符串 显示字符串2000 (20,133)Color100
  50 35 10 0 0 0 0 0             ;  50(32):读取键盘 [X10]=键值
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label13
  50 4 0 3 3 4 0 0               ;  50(32):变量判断 If[X3]<>4 then JMP=0 else JMP=1
  36 256 43 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label14
  0                              ;  0(0)::空语句(清屏)
  50 34 0 237 12 60 62 0         ;  50(32):处理背景 位置(237,12) Width=60 Height=62
  50 41 4 1 239 71 2 0           ;  50(32):显示图片 头像图片[X2] 位置(239,71)
  50 34 0 8 17 218 57 0          ;  50(32):处理背景 位置(8,17) Width=218 Height=57
  50 33 0 2000 20 20 100 0       ;  50(32):显示字符串 显示字符串2000 (20,20)Color100
  50 35 10 0 0 0 0 0             ;  50(32):读取键盘 [X10]=键值
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label14
  50 4 0 3 3 5 0 0               ;  50(32):变量判断 If[X3]<>5 then JMP=0 else JMP=1
  36 256 43 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label15
  0                              ;  0(0)::空语句(清屏)
  50 34 0 23 125 60 62 0         ;  50(32):处理背景 位置(23,125) Width=60 Height=62
  50 41 4 1 25 184 2 0           ;  50(32):显示图片 头像图片[X2] 位置(25,184)
  50 34 0 94 130 218 57 0        ;  50(32):处理背景 位置(94,130) Width=218 Height=57
  50 33 0 2000 106 133 100 0     ;  50(32):显示字符串 显示字符串2000 (106,133)Color100
  50 35 10 0 0 0 0 0             ;  50(32):读取键盘 [X10]=键值
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label15
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束

金圭子

就是只是用名字的头两个字去配常见复姓，如果一样就认为这个人是复姓？？

如果这个人姓“欧”，名字叫“阳”或者“阳x”。或者姓“诸（葛x）”，姓“万（俟x）”…………


好像我记得是古龙还是某本小说里面有这样的名字的啊…………

brooklet

原帖由 金圭子 于 2007-6-24 15:23 发表
就是只是用名字的头两个字去配常见复姓，如果一样就认为这个人是复姓？？

如果这个人姓“欧”，名字叫“阳”或者“阳x”。或者姓“诸（葛x）”，姓“万（俟x）”…………


好像我记得是古龙还是某本小说 ...

谢谢指出，确实是有这个缺陷。
可以考虑改成如果2个字的名字，不检查复姓，直接取第一个字为姓，第二个为名。
如果3个字的名字，还是检查到前2个为复姓就认为他是复姓，否则无法判断到底姓什么。

Campbell

有一个大虾诞生了．．不过，总觉得这个没什么大意４，还不如小小猪的那个＂盟主就是．．．这小子＂搞笑．．

小孩

同意对白中加入名字比较好
这样玩起来 比较有感觉哦,
被骂or备赞 都对玩家有相当的感官影响

KA

考虑一下。。。总觉得是对自己的一种考验，因为还要加那么多指令。。。

feelingyue

这些指令应该加在哪里？

chclw0064

新手看花,如履雾 ,玩游戏我都不改的,辛苦一点有原味

sao671

那什么在那里呀!我在做游戏http://www.txdx.net/viewthread.php?tid=383612你自己侃侃拉

KA

这个指令是仅仅为一个事件服务吗??

zhjilu

好复杂..................

柳无色

解个图来看看吧~！~！~！

KA

报告LZ,指令不能运行
每次都是搞出来(1,1,1,0)这种对话