（50指令）取英文名字系统
1.可以取英文名字了
2.3163=搞定！
3188=%s
3189=请输入字符：
3.顺便帮KG大大编了拼音系统
4.使用方法论 调用（指令名称）（0，0，0，0）
5.最多输入十个单字
6.已锁住数字键等
7.指令
--------------------------------------------
;Kdefnum=1075
0 ; 0(0)::空语句(清屏)
50 5 0 0 0 0 0 0 ; 50(32):全部变量清零
50 0 3 0 0 0 0 0 ; 50(32):变量赋值 [X3]=0
50 0 4 1000 0 0 0 0 ; 50(32):变量赋值 [X4]=1000
50 0 10 0 0 0 0 0 ; 50(32):变量赋值 [X10]=0
50 0 20 8 0 0 0 0 ; 50(32):变量赋值 [X20]=8
50 0 329 329 0 0 0 0 ; 50(32):变量赋值 [X329]=329
50 8 0 3189 300 0 0 0 ; 50(32):读对话到字符串 Str[X300]=talk(3189)
50 12 0 400 5 0 0 0 ; 50(32):空格字符串 Str[X400]=5个空格
50 11 500 300 400 0 0 0 ; 50(32):字符串合并 Str[X500]=Str[X300]+Str[X400]
50 34 0 47 45 226 28 0 ; 50(32):处理背景 位置(47,45) Width=226 Height=28
;:Label2
;:Label3
;:Label4
;:Label5
50 33 0 500 52 50 1797 0 ; 50(32):显示字符串 显示字符串500 (52,50)Color1797
50 35 1 0 0 0 0 0 ; 50(32):读取键盘 [X1]=键值
50 4 0 2 1 27 0 0 ; 50(32):变量判断 If[X1]=27 then JMP=0 else JMP=1
36 256 308 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label0
50 4 0 2 1 13 0 0 ; 50(32):变量判断 If[X1]=13 then JMP=0 else JMP=1
36 256 136 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label1
50 4 0 2 1 8 0 0 ; 50(32):变量判断 If[X1]=8 then JMP=0 else JMP=1
36 256 -52 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label2
50 4 0 0 1 65 0 0 ; 50(32):变量判断 If[X1]<65 then JMP=0 else JMP=1
36 256 -64 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label3
50 4 0 5 1 91 0 0 ; 50(32):变量判断 If[X1]>91 then JMP=0 else JMP=1
36 256 -76 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label4
50 3 0 0 1 1 32 0 ; 50(32):四则运算 [X1]=[X1]+32
50 32 0 4 4 0 0 0 ; 50(32):修改下一条指令参数 下一条指令参数4=[X4]
50 3 0 0 1000 1 0 0 ; 50(32):四则运算 [X1000]=[X1]+0
50 3 0 0 4 4 1 0 ; 50(32):四则运算 [X4]=[X4]+1
50 8 0 3188 100 0 0 0 ; 50(32):读对话到字符串 Str[X100]=talk(3188)
50 9 1 200 1 100 0 0 ; 50(32):Sprintf Str[X200]=CStr([X100]) FORMAT=Str[X1]
50 11 500 500 200 0 0 0 ; 50(32):字符串合并 Str[X500]=Str[X500]+Str[X200]
50 33 0 500 52 50 1797 0 ; 50(32):显示字符串 显示字符串500 (52,50)Color1797
50 3 0 0 3 3 1 0 ; 50(32):四则运算 [X3]=[X3]+1
50 4 0 0 3 11 0 0 ; 50(32):变量判断 If[X3]<11 then JMP=0 else JMP=1
36 256 -160 0 ; 36(24):跳转变量JMP是否为0是则跳转到:Label5
50 33 0 500 52 50 1797 0 ; 50(32):显示字符串 显示字符串500 (52,50)Color1797
50 35 4 0 0 0 0 0 ; 50(32):读取键盘 [X4]=键值
;:Label1
50 16 5 0 329 8 1000 0 ; 50(32):保存属性 人物[X329]属性偏移8=[X1000][red](实在想不出了，所以编的那么脏）[/red]
50 16 5 0 329 9 1001 0 ; 50(32):保存属性 人物[X329]属性偏移9=[X1001]
50 16 5 0 329 10 1002 0 ; 50(32):保存属性 人物[X329]属性偏移10=[X1002]
50 16 5 0 329 11 1003 0 ; 50(32):保存属性 人物[X329]属性偏移11=[X1003]
50 16 5 0 329 12 1004 0 ; 50(32):保存属性 人物[X329]属性偏移12=[X1004]
50 16 5 0 329 13 1005 0 ; 50(32):保存属性 人物[X329]属性偏移13=[X1005]
50 16 5 0 329 14 1006 0 ; 50(32):保存属性 人物[X329]属性偏移14=[X1006]
50 16 5 0 329 15 1007 0 ; 50(32):保存属性 人物[X329]属性偏移15=[X1007]
50 16 5 0 329 16 1008 0 ; 50(32):保存属性 人物[X329]属性偏移16=[X1008]
50 16 5 0 329 17 1009 0 ; 50(32):保存属性 人物[X329]属性偏移17=[X1009]
50 16 5 0 329 18 1010 0 ; 50(32):保存属性 人物[X329]属性偏移18=[X1010]
50 16 5 0 329 19 1011 0 ; 50(32):保存属性 人物[X329]属性偏移19=[X1011]
50 8 0 3163 10600 0 0 0 ; 50(32):读对话到字符串 Str[X10600]=talk(3163)
50 0 10075 320 0 0 0 0 ; 50(32):变量赋值 [X10075]=320
50 10 10600 10074 0 0 0 0 ; 50(32):取字符串长度 [X10074]=Len(Str[X10600] )
50 3 0 2 10074 10074 9 0 ; 50(32):四则运算 [X10074]=[X10074]*9
50 3 0 0 10074 10074 10 0 ; 50(32):四则运算 [X10074]=[X10074]+10
50 3 1 1 10075 10075 10074 0 ; 50(32):四则运算 [X10075]=[X10075]-[X10074]
50 3 0 3 10075 10075 2 0 ; 50(32):四则运算 [X10075]=[X10075]/2
50 36 1 10600 10075 80 1797 0 ; 50(32):显示字符串并等待击键 显示字符串10600 ([X10075],80)Color1797
;:Label0
-1 ; -1(FFFF):事件结束 |
[复制链接]
发表于 2007-8-25 20:22
楼主
发表于 2007-12-16 20:05