运用事件ＣＡＬＬ１０７７（人物编号，０，０，０），可能记错了，时间太长了

复制内容到剪贴板

代码:

;Kdefnum=1077
  50 0 1 100 0 0 0 0             ;  50(32):变量赋值 [X1]=100
  50 0 2 126 0 0 0 0             ;  50(32):变量赋值 [X2]=126
  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 5 0 0 0 0 0               ;  50(32):变量赋值 [X5]=0
  50 0 1 100 0 0 0 0             ;  50(32):变量赋值 [X1]=100
  50 0 1 100 0 0 0 0             ;  50(32):变量赋值 [X1]=100
  50 0 1 100 0 0 0 0             ;  50(32):变量赋值 [X1]=100
  50 3 0 0 10 28928 0 0          ;  50(32):四则运算 [X10]=[X28928]+0
  50 3 0 0 11 28929 0 0          ;  50(32):四则运算 [X11]=[X28929]+0
  50 3 0 0 12 28930 0 0          ;  50(32):四则运算 [X12]=[X28930]+0
  50 3 0 0 13 28931 0 0          ;  50(32):四则运算 [X13]=[X28931]+0
  50 0 1000 0 0 0 0 0            ;  50(32):变量赋值 [X1000]=0
;:Label0
  50 3 0 2 1001 1000 100 0       ;  50(32):四则运算 [X1001]=[X1000]*100
  50 3 0 0 1001 1001 2000 0      ;  50(32):四则运算 [X1001]=[X1001]+2000
  50 1 3 0 1100 1000 1001 0      ;  50(32):数组变量赋值 数组1100([X1000])=[X1001](Int)
  50 3 0 0 1000 1000 1 0         ;  50(32):四则运算 [X1000]=[X1000]+1
  50 4 0 0 1000 10 0 0           ;  50(32):变量判断 If[X1000]<10 then JMP=0 else JMP=1
  36 256 -44 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 0 1002 0 0 0 0 0            ;  50(32):变量赋值 [X1002]=0
  50 0 1005 0 0 0 0 0            ;  50(32):变量赋值 [X1005]=0
  50 0 1004 0 0 0 0 0            ;  50(32):变量赋值 [X1004]=0
;:Label1
  50 3 0 2 1003 1002 2 0         ;  50(32):四则运算 [X1003]=[X1002]*2
  50 3 0 0 1003 1003 126 0       ;  50(32):四则运算 [X1003]=[X1003]+126
  50 17 3 0 10 1003 1004 0       ;  50(32):读取属性 [X1004]=人物[X10]属性偏移[X1003]
  50 4 0 1 1004 0 0 0            ;  50(32):变量判断 If[X1004]<=0 then JMP=0 else JMP=1
  50 3 0 2 1005 1002 100 0       ;  50(32):四则运算 [X1005]=[X1002]*100
  50 3 0 0 1005 1005 2000 0      ;  50(32):四则运算 [X1005]=[X1005]+2000
  50 32 0 1005 5 0 0 0           ;  50(32):修改下一条指令参数 下一条指令参数5=[X1005]
  50 27 1 3 1004 100 0 0         ;  50(32):取属性名称 Str100=武功[X1004]
  50 3 0 0 1002 1002 1 0         ;  50(32):四则运算 [X1002]=[X1002]+1
  50 4 0 0 1002 10 0 0           ;  50(32):变量判断 If[X1002]<10 then JMP=0 else JMP=1
  36 256 -84 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 3 0 2 1003 1002 18 0        ;  50(32):四则运算 [X1003]=[X1002]*18
  50 3 0 0 1003 1003 10 0        ;  50(32):四则运算 [X1003]=[X1003]+10
  50 34 8 5 5 90 1003 0          ;  50(32):处理背景 位置(5,5) Width=90 Height=[X1003]
  50 39 1 1002 1100 1006 10 10   ;  50(32):菜单选择 菜单个数[X1002][X1100]()返回=[X1006]显示位置(10,10)
;:Label2
  50 3 0 0 5 5 1 0               ;  50(32):四则运算 [X5]=[X5]+1
  50 4 1 2 1006 5 0 0            ;  50(32):变量判断 If[X1006]=[X5]  then JMP=0 else JMP=1
  36 256 0 -20                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 3 0 2 5 5 2 0               ;  50(32):四则运算 [X5]=[X5]*2
  50 3 0 0 6 5 124 0             ;  50(32):四则运算 [X6]=[X5]+124
  50 17 3 0 10 6 7 0             ;  50(32):读取属性 [X7]=人物[X10]属性偏移[X6]
  50 27 1 3 7 200 0 0            ;  50(32):取属性名称 Str200=武功[X7]
  50 8 0 3187 300 0 0 0          ;  50(32):读对话到字符串  Str[X300]=talk(3187)
  50 8 0 3161 400 0 0 0          ;  50(32):读对话到字符串  Str[X400]=talk(3161)
  50 3 0 0 8 6 20 0              ;  50(32):四则运算 [X8]=[X6]+20
  50 17 3 0 10 8 9 0             ;  50(32):读取属性 [X9]=人物[X10]属性偏移[X8]
  50 3 0 0 15 9 0 0              ;  50(32):四则运算 [X15]=[X9]+0
  50 3 0 4 14 9 10 0             ;  50(32):四则运算 [X14]=[X9]10
  50 3 1 1 9 9 14 0              ;  50(32):四则运算 [X9]=[X9]-[X14]
  50 3 0 3 9 9 100 0             ;  50(32):四则运算 [X9]=[X9]/100
  50 3 0 0 9 9 1 0               ;  50(32):四则运算 [X9]=[X9]+1
  50 9 1 500 400 9 0 0           ;  50(32):Sprintf  Str[X500]=CStr([X9]) FORMAT=Str[X400]
  50 12 0 600 1 0 0 0            ;  50(32):空格字符串 Str[X600]=1个空格
  50 11 200 200 600 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X600]
  50 11 200 200 500 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X500]
  50 9 0 8000 400 0 0 0          ;  50(32):Sprintf  Str[X8000]=CStr(0) FORMAT=Str[X400]
  50 11 200 200 600 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X600]
  50 11 200 200 300 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X300]
  50 36 0 200 100 10 1797 0      ;  50(32):显示字符串并等待击键 显示字符串200 (100,10)Color1797
  36 256 1 0                     ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  -1                             ;  -1(FFFF):事件结束
;:Label3
  50 3 0 0 10 10 26 0            ;  50(32):四则运算 [X10]=[X10]+26
  50 43 30 1078 10 7 15 6        ;  50(32):调用其它事件 Call Sub1078([X10],[X7],[X15],[X6])
  -1                             ;  -1(FFFF):事件结束

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

复制内容到剪贴板

代码:

;Kdefnum=1078
  50 34 0 95 5 100 40 0          ;  50(32):处理背景 位置(95,5) Width=100 Height=40
  50 33 0 8000 100 10 1797 0     ;  50(32):显示字符串 显示字符串8000 (100,10)Color1797
  50 0 1 100 0 0 0 0             ;  50(32):变量赋值 [X1]=100
  50 0 2 126 0 0 0 0             ;  50(32):变量赋值 [X2]=126
  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 5 0 0 0 0 0               ;  50(32):变量赋值 [X5]=0
  50 0 19 13 0 0 0 0             ;  50(32):变量赋值 [X19]=13
  50 0 1 100 0 0 0 0             ;  50(32):变量赋值 [X1]=100
  50 0 1 100 0 0 0 0             ;  50(32):变量赋值 [X1]=100
  50 3 0 0 10 28928 0 0          ;  50(32):四则运算 [X10]=[X28928]+0
  50 3 0 0 11 28929 0 0          ;  50(32):四则运算 [X11]=[X28929]+0
  50 3 0 0 12 28930 0 0          ;  50(32):四则运算 [X12]=[X28930]+0
  50 3 0 0 13 28931 0 0          ;  50(32):四则运算 [X13]=[X28931]+0
  50 3 0 0 14 10 1 0             ;  50(32):四则运算 [X14]=[X10]+1
  50 8 0 3161 400 0 0 0          ;  50(32):读对话到字符串  Str[X400]=talk(3161)
  50 0 1000 0 0 0 0 0            ;  50(32):变量赋值 [X1000]=0
;:Label0
  50 3 0 2 1001 1000 100 0       ;  50(32):四则运算 [X1001]=[X1000]*100
  50 3 0 0 1001 1001 2000 0      ;  50(32):四则运算 [X1001]=[X1001]+2000
  50 1 3 0 1100 1000 1001 0      ;  50(32):数组变量赋值 数组1100([X1000])=[X1001](Int)
  50 3 0 0 1000 1000 1 0         ;  50(32):四则运算 [X1000]=[X1000]+1
  50 4 0 0 1000 75 0 0           ;  50(32):变量判断 If[X1000]<75 then JMP=0 else JMP=1
  36 256 -44 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 0 1002 0 0 0 0 0            ;  50(32):变量赋值 [X1002]=0
  50 0 1005 0 0 0 0 0            ;  50(32):变量赋值 [X1005]=0
  50 0 1004 0 0 0 0 0            ;  50(32):变量赋值 [X1004]=0
;:Label1
  50 3 0 2 1003 1002 2 0         ;  50(32):四则运算 [X1003]=[X1002]*2
  50 3 0 0 1003 1003 30 0        ;  50(32):四则运算 [X1003]=[X1003]+30
  50 17 3 0 10 1003 1004 0       ;  50(32):读取属性 [X1004]=人物[X10]属性偏移[X1003]
  50 17 3 0 14 1003 15 0         ;  50(32):读取属性 [X15]=人物[X14]属性偏移[X1003]
  50 3 0 0 16 15 0 0             ;  50(32):四则运算 [X16]=[X15]+0
  50 3 0 4 17 15 10 0            ;  50(32):四则运算 [X17]=[X15]10
  50 3 1 1 15 15 17 0            ;  50(32):四则运算 [X15]=[X15]-[X17]
  50 3 0 3 15 15 100 0           ;  50(32):四则运算 [X15]=[X15]/100
  50 3 0 0 15 15 1 0             ;  50(32):四则运算 [X15]=[X15]+1
  50 3 0 2 1005 1002 100 0       ;  50(32):四则运算 [X1005]=[X1002]*100
  50 3 0 0 1005 1005 2000 0      ;  50(32):四则运算 [X1005]=[X1005]+2000
  50 32 0 1005 5 0 0 0           ;  50(32):修改下一条指令参数 下一条指令参数5=[X1005]
  50 27 1 3 1004 100 0 0         ;  50(32):取属性名称 Str100=武功[X1004]
  50 32 0 1005 4 0 0 0           ;  50(32):修改下一条指令参数 下一条指令参数4=[X1005]
  50 9 0 800 1400 0 0 0          ;  50(32):Sprintf  Str[X800]=CStr(0) FORMAT=Str[X1400]
  50 10 800 18 0 0 0 0           ;  50(32):取字符串长度 [X18]=Len(Str[X800] )
  50 3 1 1 18 19 18 0            ;  50(32):四则运算 [X18]=[X19]-[X18]
  50 12 1 600 18 0 0 0           ;  50(32):空格字符串 Str[X600]=[X18]个空格
  50 9 1 700 400 15 0 0          ;  50(32):Sprintf  Str[X700]=CStr([X15]) FORMAT=Str[X400]
  50 32 0 1005 2 0 0 0           ;  50(32):修改下一条指令参数 下一条指令参数2=[X1005]
  50 11 1004 800 600 0 0 0       ;  50(32):字符串合并 Str[X1004]=Str[X800]+Str[X600]
  50 32 0 1005 4 0 0 0           ;  50(32):修改下一条指令参数 下一条指令参数4=[X1005]
  50 9 0 800 1400 0 0 0          ;  50(32):Sprintf  Str[X800]=CStr(0) FORMAT=Str[X1400]
  50 32 0 1005 2 0 0 0           ;  50(32):修改下一条指令参数 下一条指令参数2=[X1005]
  50 11 1004 800 700 0 0 0       ;  50(32):字符串合并 Str[X1004]=Str[X800]+Str[X700]
  50 3 0 0 1002 1002 1 0         ;  50(32):四则运算 [X1002]=[X1002]+1
  50 4 0 0 1002 75 0 0           ;  50(32):变量判断 If[X1002]<75 then JMP=0 else JMP=1
  36 256 -220 0                  ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 3 0 2 1003 1002 18 0        ;  50(32):四则运算 [X1003]=[X1002]*18
  50 3 0 0 1003 1003 10 0        ;  50(32):四则运算 [X1003]=[X1003]+10
  50 33 0 8000 100 10 1797 0     ;  50(32):显示字符串 显示字符串8000 (100,10)Color1797
  50 40 2561 1002 1100 1006 5 5   ;  50(32):滚动菜单选择 菜单个数[X1002][X1100]()返回=[X1006]显示位置(5,5)
;:Label2
  50 3 0 0 5 5 1 0               ;  50(32):四则运算 [X5]=[X5]+1
  50 4 1 2 1006 5 0 0            ;  50(32):变量判断 If[X1006]=[X5]  then JMP=0 else JMP=1
  36 256 0 -20                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 3 0 2 5 5 2 0               ;  50(32):四则运算 [X5]=[X5]*2
  50 3 0 0 6 5 28 0              ;  50(32):四则运算 [X6]=[X5]+28
  50 17 3 0 10 6 7 0             ;  50(32):读取属性 [X7]=人物[X10]属性偏移[X6]
  50 27 1 3 7 200 0 0            ;  50(32):取属性名称 Str200=武功[X7]
  50 8 0 3187 300 0 0 0          ;  50(32):读对话到字符串  Str[X300]=talk(3187)
  50 3 0 0 8 6 20 0              ;  50(32):四则运算 [X8]=[X6]+20
  50 17 3 0 14 6 9 0             ;  50(32):读取属性 [X9]=人物[X14]属性偏移[X6]
  50 3 0 0 15 9 0 0              ;  50(32):四则运算 [X15]=[X9]+0
  50 3 0 4 24 9 10 0             ;  50(32):四则运算 [X24]=[X9]10
  50 3 1 1 9 9 24 0              ;  50(32):四则运算 [X9]=[X9]-[X24]
  50 3 0 3 9 9 100 0             ;  50(32):四则运算 [X9]=[X9]/100
  50 3 0 0 9 9 1 0               ;  50(32):四则运算 [X9]=[X9]+1
  50 9 1 500 400 9 0 0           ;  50(32):Sprintf  Str[X500]=CStr([X9]) FORMAT=Str[X400]
  50 12 0 600 1 0 0 0            ;  50(32):空格字符串 Str[X600]=1个空格
  50 11 200 200 600 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X600]
  50 11 200 200 500 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X500]
  50 11 200 200 600 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X600]
  50 11 200 200 300 0 0 0        ;  50(32):字符串合并 Str[X200]=Str[X200]+Str[X300]
  50 36 0 200 100 10 1797 0      ;  50(32):显示字符串并等待击键 显示字符串200 (100,10)Color1797
  36 256 2 0                     ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束
;:Label3
  50 3 0 1 20 10 26 0            ;  50(32):四则运算 [X20]=[X10]-26
  50 3 0 0 21 13 20 0            ;  50(32):四则运算 [X21]=[X13]+20
  50 16 7 0 20 13 7 0            ;  50(32):保存属性 人物[X20]属性偏移[X13]=[X7]
  50 16 7 0 20 21 15 0           ;  50(32):保存属性 人物[X20]属性偏移[X21]=[X15]
  50 16 7 0 10 6 11 0            ;  50(32):保存属性 人物[X10]属性偏移[X6]=[X11]
  50 16 7 0 14 6 12 0            ;  50(32):保存属性 人物[X14]属性偏移[X6]=[X12]
  -1                             ;  -1(FFFF):事件结束

[发帖际遇]: 黄顺坤冒充青木堂主向反清份子征收活动经费，结果：被陈近南发现，赔偿名誉损失费银两50.

小黄....你的小时侯.....是多小啊....

很好很强大啊...

２００７．８．２５写的
那时侯进网吧还要提心吊胆的
可能无法在原版中执行，因为武功是保存在ＲＸ下的一个人物列表里

[发帖际遇]: 黄顺坤替小昭千里送信给张无忌,途中被赵敏拦截，损失银两12.

你可以用dosbox，

此外，不要问我dosbox的用法...

就是这个。。。

[发帖际遇]: 黄顺坤遭太岳四侠打劫，落荒而逃中丢失银两9.

[ 本帖最后由 scarscc 于 2008-6-23 15:22 编辑 ]

居然用100项的滚动菜单，资源全是你们这帮人耗光的...

现有bug是在选单中按esc仍然会有更换武功的提示。

另：复刻版今天又更新了一次，可以支持40指令了。

[发帖际遇]: scarscc在海边沙滩上捡到一支圣火令，当废铜卖了，获得银两7.

[ 本帖最后由 scarscc 于 2008-6-23 17:18 编辑 ]

现有bug是在选单中按esc仍然会有更换武功的提示。
--------------------------------------------------------------------
这正是我困惑的地方.. 不过无所谓,选个N就可以了

辛苦打工赚点MONEY~~~

[发帖际遇]: gyqlzy买通太监进宫偷葵花,转手挣到银两15.

我找到了以前发的
http://www.txdx.net/viewthread.php?tid=388611

[发帖际遇]: 黄顺坤买通太监进宫偷葵花,转手挣到银两22.

丢人了!俺是农民

[发帖际遇]: cdredsky冒充青木堂主向反清份子征收活动经费，结果：被陈近南发现，赔偿名誉损失费银两50.

咦,看起来好像挺复杂似的.不是我这种层次的人可以明白的呀

[发帖际遇]: 逍遥客挺身而出，阻止萧峰打“段正淳”，阻止失败，阿朱遇难，花银两8帮助萧峰安葬阿朱.

我编的算简单的了,人家K某和游某编的才让人看不懂

打工赚点MONEY~~~

[发帖际遇]: wx1st拜岳老三为师，得到见面礼银两11.

厄。。。不能说详细一点吗？比如武功是保存在那个数据里的？这个调用事件又要用在什么地方？

咦,看起来好像挺复杂似的.