运用事件CALL1077(人物编号,0,0,0),可能记错了,时间太长了- ;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):事件结束
复制代码
|