50指令编写的复杂事件分享帖（禁水）

KG · 发表于 2006-9-28 01:49

马上注册，结交更多侠友！

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

求指令的，讨论的请到这里：http://www.txdx.net/viewthread.php?tid=160728&sid=cMklFI

2楼：商店系统。—— 作者：KG——制作日期：2006年9月28日

3楼：消武功系统。—— 作者：游泳的鱼——制作日期：2006年9月27日

4楼：自创武功系统。—— 作者：南宫梦——制作日期：2006年9月30日

5楼：配药系统。—— 作者：南宫梦——制作日期：2006年9月30日

6楼：有物品数量的商店系统。—— 作者：KG——制作日期：2006年10月6日

7楼：把某武功替换成另一武功任意级。—— 作者：KG——制作日期：2006年10月6日

8楼：储存箱系统。—— 作者：KG——制作日期：2007年1月5日

9楼：四则运算。—— 作者：x0x——制作日期：2007年1月19日

10楼：数字输入系统。—— 作者：游客——制作日期：2007年2月21日

11楼：飞机场系统。—— 作者：黄顺坤——制作日期：2007年2月2日

12楼：骰子比大小功能。——作者：游客——制作日期：2007年1月17日

13楼：得到指定物品指定数量。—— 作者：KG——制作日期：2007年3月23日

14楼：失去指定物品指定数量。—— 作者：KG——制作日期：2007年3月23日

15楼：修改项目名称。—— 作者：KG——制作日期：2007年5月26日

16楼：数字输入系统（KG版）。—— 作者：KG——制作日期：2007年6月13日

17楼：判断某人有某级某武功。—— 作者：KG——制作日期：2007年6月21日

18楼：新对话指令。—— 作者：KG——制作日期：2007年8月6日

19楼：调色板更换指令。—— 作者：KG——制作日期：2007年8月17日

20楼：顺坤版得到物品[X0]=[X1]。—— 作者：黄顺坤——制作日期：2007年8月23日

21楼：带显示数量的得失物品。—— 作者：KG——制作日期：2008年6月29日

22楼：战斗中复制人物的招式—— 作者：凶神恶煞——制作日期：2008年7月22日

[ 本帖最后由 weyl 于 2008-7-22 21:41 编辑 ]

KG · 发表于 2006-9-28 01:49

商店系统：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是商店指令，功能跟原版的小宝商店相差不多，弥补了小宝只在5个场景出现的不足，也省去了修改Z.dat的麻烦。
2、不过还没有物品数量功能，有数量限制的商品请放在小宝出现的场景用“小宝卖东西”的指令实现。
3、本指令是卖5件商品的，适合320X200的修改档/MOD使用，如果要增加商品数量请使用640X480分辨率（不过好象还没有）。
4、大家使用时只需要按照实际需要修改红色字体部分，其他不用做修改。
5、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7事件修改中选择“从剪贴板复制”

;Kdefnum=498
  1 2969 111 0                ;  1(1):[???]说: 来，来，来。*来看看有什麽需要的，我这*应有尽有。
  50 0 5 0 0 0 1 0             ;  50(32):变量赋值 [X5]=0
;:Label0
  50 3 0 2 6 5 100 0          ;  50(32):四则运算 [X6]=[X5]*100
  50 3 0 0 6 6 2000 0          ;  50(32):四则运算 [X6]=[X6]+2000
  50 1 3 0 500 5 6 0          ;  50(32):数组变量赋值数组500([X5])=[X6](Int)
  50 3 0 0 5 5 1 0             ;  50(32):四则运算 [X5]=[X5]+1
  50 4 0 0 5 5 0 0             ;  50(32):变量判断 If[X5]<5 then JMP=0 else JMP=1（5为商品数）
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 0 7 0 0 0 0 0             ;  50(32):变量赋值 [X7]=0
;此处以下为数组，分别为5个物品的编号，新增商品的请自行增加数组大小
  50 1 0 0 50 0 11 0          ;  50(32):数组变量赋值数组50(0)=11(Int)
  50 1 0 0 50 1 26 0          ;  50(32):数组变量赋值数组50(1)=26(Int)
  50 1 0 0 50 2 43 0          ;  50(32):数组变量赋值数组50(2)=43(Int)
  50 1 0 0 50 3 98 0          ;  50(32):数组变量赋值数组50(3)=98(Int)
  50 1 0 0 50 4 113 0          ;  50(32):数组变量赋值数组50(4)=113(Int)
;此处以下为数组，分别为5个物品的价格，新增商品的请自行增加数组大小
  50 1 0 0 70 0 30 0          ;  50(32):数组变量赋值数组70(0)=30(Int)
  50 1 0 0 70 1 60 0          ;  50(32):数组变量赋值数组70(1)=60(Int)
  50 1 0 0 70 2 1000 0          ;  50(32):数组变量赋值数组70(2)=1000(Int)
  50 1 0 0 70 3 20 0          ;  50(32):数组变量赋值数组70(3)=20(Int)
  50 1 0 0 70 4 500 0          ;  50(32):数组变量赋值数组70(4)=500(Int)
;:Label1
  50 2 11 0 50 7 8 0          ;  50(32):取数组变量值 [X8]=数组50([X7])(Int)
  50 3 0 2 14 7 100 0          ;  50(32):四则运算 [X14]=[X7]*100
  50 3 0 0 14 14 2000 0       ;  50(32):四则运算 [X14]=[X14]+2000
  50 2 11 0 70 7 16 0          ;  50(32):取数组变量值 [X16]=数组70([X7])(Int)
  50 32 0 14 5 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数5=[X14]
  50 27 1 1 8 100 0 0          ;  50(32):取属性名称 Str100=物品[X8]
  50 32 0 14 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X14]
  50 10 100 17 0 0 0 0          ;  50(32):取字符串长度 [X17]=Len(Str100 )
  50 0 18 13 0 0 0 0          ;  50(32):变量赋值 [X18]=13
  50 3 11 1 18 18 17 0          ;  50(32):四则运算 [X18]=[X18]-[X17]
  50 12 1 1000 18 0 0 0       ;  50(32):空格字符串 Str1000=[X18]个空格
  50 8 0 17 800 0 0 0          ;  50(32):读对话到字符串  Str800=talk(17)（注：17号对话为“%d”双引号内内容，请自行修改）
  50 9 1 1200 800 16 0 0       ;  50(32):Sprintf  Str1200=Cstr([X16]) FORMAT=Str800
  50 32 0 14 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X14]
  50 11 1400 1200 1000 0 0 0    ;  50(32):字符串合并 Str1400=Str1200+Str1000
  50 32 0 14 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X14]
  50 11 100 1400 1200 0 0 0    ;  50(32):字符串合并 Str100=Str1400+Str1200
  50 3 0 0 7 7 1 0             ;  50(32):四则运算 [X7]=[X7]+1
  50 4 0 0 7 5 0 0             ;  50(32):变量判断 If[X7]<5 then JMP=0 else JMP=1（5为商品数）
  36 256 -156 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 3 0 0 9 7 0 0             ;  50(32):四则运算 [X9]=[X7]+0
  50 3 0 2 9 9 18 0             ;  50(32):四则运算 [X9]=[X9]*18
  50 3 0 0 9 9 10 0             ;  50(32):四则运算 [X9]=[X9]+10
  50 34 8 100 85 150 9 0       ;  50(32):处理背景位置(100,85) Width=150 Height=[X9]
  50 3 0 0 9 7 1 0             ;  50(32):四则运算 [X9]=[X7]+1
  50 0 10 0 0 0 1 0             ;  50(32):变量赋值 [X10]=0
  50 39 1 7 500 10 105 90       ;  50(32):菜单选择菜单个数[X7]Str500()返回=[X10]显示位置(105,90)
  50 4 0 0 10 1 0 0             ;  50(32):变量判断 If[X10]<1 then JMP=0 else JMP=1
  36 256 95 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  0                            ;  0(0)::空语句(清屏)
  50 3 0 1 10 10 1 0          ;  50(32):四则运算 [X10]=[X10]-1
  50 2 11 0 70 10 12 0          ;  50(32):取数组变量值 [X12]=数组70([X10])(Int)
  50 32 0 12 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X12]
  31 0 6 0                      ;  31(1F):判断银子是否够0是则跳转到:Label3
  1 2975 111 0                ;  1(1):[???]说: 非常抱歉，*你身上的钱似乎不够．
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label3
  50 2 11 0 50 10 11 0          ;  50(32):取数组变量值 [X11]=数组50([X10])(Int)
  50 2 11 0 70 10 12 0          ;  50(32):取数组变量值 [X12]=数组70([X10])(Int)
  50 0 13 0 0 0 0 0             ;  50(32):变量赋值 [X13]=0
  50 3 3 1 13 13 12 0          ;  50(32):四则运算 [X13]=[X13]-[X12]
  50 32 0 13 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X13]
  32 174 0                      ;  32(20):物品[银两]+[0]
  1 2976 111 0                ;  1(1):[???]说: 大爷买了我们店的东西，*保证绝不後悔．
  0                            ;  0(0)::空语句(清屏)
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  2 0 1                         ;  2(2):得到物品[腐骨穿心膏][1]
  0                            ;  0(0)::空语句(清屏)
;:Label2
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2006-9-28 11:04

消武功系统：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是消武功指令
2、大家使用时只需要按照实际需要修改红色字体部分，其他不用做修改。
4、如有问题，请与作者或本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7事件修改中选择“从剪贴板复制”

;Kdefnum=1018
; 显示询问字符串，如果回答Y则继续，否则直接退出事件。
  50 8 0 2980 1200 0 0 0       ;  50(32):读对话到字符串  Str1200=talk(2980)
;2980号对话为“是否选择消除武功（Y/N）”，或近似内容，请自行修改
  50 36 0 1200 100 30 26211 0 ;  50(32):显示字符串并等待击键显示字符串1200 (100,30)Color26211，26211为白色，若需要黄色请使用1797
  36 256 1 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  7                            ;  7(7):无条件返回
;:Label0
; 设置数组1100(10) 其中的值依次为2000,2100,2200,…，保存字符串变量编号
  50 0 1000 0 0 0 1 0          ;  50(32):变量赋值 [X1000]=0
;:Label1
  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是则跳转到:Label1
  50 0 1002 0 0 0 0 0          ;  50(32):变量赋值 [X1002]=0
;:Label3
; 读取主角10个武功名称，依次存放在字符串2000,2100,…, 直到武功编号为0，没有武功为止。
  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 2 0 0 1003 1004 0       ;  50(32):读取属性 [X1004]=人物0属性偏移[X1003]此处的0为人物编号
  50 4 0 1 1004 0 0 0          ;  50(32):变量判断 If[X1004]<=0 then JMP=0 else JMP=1
  36 256 52 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  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 -88 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
;:Label2
; 如果主角没有任何武功，则退出事件
  50 4 0 4 1002 1 0 0          ;  50(32):变量判断 If[X1002]>=1 then JMP=0 else JMP=1
  36 256 1 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  7                            ;  7(7):无条件返回
;:Label4
; 显示背景，根据武功的个数自动计算背景大小
  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 95 5 100 1003 0       ;  50(32):处理背景位置(95,5) Width=100 Height=[X1003]
; 显示武功列表菜单，供用户选择
  50 39 1 1002 1100 1006 100 10 ;  50(32):菜单选择菜单个数[X1002]Str1100()返回=[X1006]显示位置(100,10)
; 如果选中，则继续，否则退出。
  50 4 0 4 1006 1 0 0          ;  50(32):变量判断 If[X1006]>=1 then JMP=0 else JMP=1
  36 256 0 128                ;  36(24):跳转变量JMP是否为0否则跳转到:Label5
; 依次把选中武功编号后面的武功复制到前一个武功。包括武功编号和武功等级
  50 3 0 0 1000 1006 0 0       ;  50(32):四则运算 [X1000]=[X1006]+0
;:Label7
  50 4 0 4 1000 10 0 0          ;  50(32):变量判断 If[X1000]>=10 then JMP=0 else JMP=1
  36 256 92 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  50 3 0 2 1007 1000 2 0       ;  50(32):四则运算 [X1007]=[X1000]*2
  50 3 0 0 1008 1007 126 0    ;  50(32):四则运算 [X1008]=[X1007]+126
  50 17 2 0 0 1008 1009 0       ;  50(32):读取属性 [X1009]=人物0属性偏移[X1008]此处的0为人物编号
  50 3 0 0 1008 1007 124 0    ;  50(32):四则运算 [X1008]=[X1007]+124
  50 16 6 0 0 1008 1009 0       ;  50(32):保存属性人物0属性偏移[X1008]=[X1009]此处的0为人物编号
  50 3 0 0 1008 1007 146 0    ;  50(32):四则运算 [X1008]=[X1007]+146
  50 17 2 0 0 1008 1009 0       ;  50(32):读取属性 [X1009]=人物0属性偏移[X1008]此处的0为人物编号
  50 3 0 0 1008 1007 144 0    ;  50(32):四则运算 [X1008]=[X1007]+144
  50 16 6 0 0 1008 1009 0       ;  50(32):保存属性人物0属性偏移[X1008]=[X1009]此处的0为人物编号
  50 3 0 0 1000 1000 1 0       ;  50(32):四则运算 [X1000]=[X1000]+1
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 -104 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
;:Label6
; 清除第10个武功的编号和等级
  50 16 0 0 0 144 0 0          ;  50(32):保存属性人物0属性偏移144=0       此处的0为人物编号
  50 16 0 0 0 164 0 0          ;  50(32):保存属性人物0属性偏移164=0       此处的0为人物编号
;:Label5
  -1                            ;  -1(FFFF):事件结束

南宫梦 · 发表于 2006-9-30 16:40

自创武功系统
本代码通过本人正在制作的修改档《再战江湖》测试通过50指令被鱼的改写，完全变成了一门变成语言，对于有编程基础的人来说，可以制作出任何想要的事件，但对于完全不懂变成的人来说，跟天书没什么区别。
今天早上起来一气呵成写了段自创武功的代码，没经过优化，所以很多地方弄得很麻烦，拿出来献丑只是希望给大家点启发，做出更多更好的原游戏没有的功能
功能说明：1。使用武功1，命名为自创武功
      2。触发事件后，用玩家名字替换原武功名，但为了方便，我没弄得太复杂，只是这样：比如玩家“南宫梦”，自创武功后的武功名为“南宫梦功”
      3。判断玩家拳法、剑法、刀法、特殊，那个属性高，创造出的招式就属于哪类
      4。伤害根据玩家属性而定，比如玩家剑法最高，那伤害就按玩家的剑法属性进行计算。我这里只是简单的计算一下，1级＝属性原值，2级＝原值*2，……，10级＝原值*10
      5。攻击移动范围根据玩家内力而定
      6。攻击杀伤范围根据玩家武力而定
使用说明：复制源代码，使用fish7.0修改器的事件、对话修改，然后找到相应事件，点从剪贴板复制就ok。用到自己的修改档中要适当改变武功属性的计算方法，因为每个人的修改档不同。还有记得要设计上一段好玩的情节，执行本代码后要让玩家不能再触发本代码哦
源码如下：
;Kdefnum=1042
;开始为为武功命名
  50 0 1 8 0 0 0 0             ;  50(32):变量赋值 [X1]=8
  50 0 2 2 0 0 0 0             ;  50(32):变量赋值 [X2]=2
  50 17 10 0 0 1 2000 0       ;  50(32):读取属性 [X2000]=人物0属性偏移[X1]
;:Label0
  50 16 110 3 1 2 2000 0       ;  50(32):保存属性武功1属性偏移[X2]=[X2000]
  50 3 0 0 1 1 2 0             ;  50(32):四则运算 [X1]=[X1]+2
  50 3 0 0 2 2 2 0             ;  50(32):四则运算 [X2]=[X2]+2
  50 17 10 0 0 1 2000 0       ;  50(32):读取属性 [X2000]=人物0属性偏移[X1]
  50 4 0 2 2000 0 0 0          ;  50(32):变量判断 If[X2000]=0  then JMP=0 else JMP=1
  36 256 0 -44                ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
;以下为判断玩家各项属性那个最大，最大值存在变量X8中，并用变量X6标记最大值为哪项属性，且将武功类型定义为X6，以下用到双重循环
  50 0 3 1 0 0 0 0             ;  50(32):变量赋值 [X3]=1
  50 0 4 100 0 0 0 0          ;  50(32):变量赋值 [X4]=100
;:Label1
  50 17 10 0 0 4 5 0          ;  50(32):读取属性 [X5]=人物0属性偏移[X4]
  50 1 11 0 400 3 5 0          ;  50(32):数组变量赋值数组400([X3])=[X5](Int)
  50 3 0 0 3 3 1 0             ;  50(32):四则运算 [X3]=[X3]+1
  50 3 0 0 4 4 2 0             ;  50(32):四则运算 [X4]=[X4]+2
  50 4 0 0 3 5 0 0             ;  50(32):变量判断 If[X3]<5 then JMP=0 else JMP=1
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 2 0 0 400 1 8 0          ;  50(32):取数组变量值 [X8]=数组400(1)(Int)
  50 0 6 1 0 0 0 0             ;  50(32):变量赋值 [X6]=1
  50 0 7 2 0 0 0 0             ;  50(32):变量赋值 [X7]=2
;:Label3
  50 2 1 0 400 7 9 0          ;  50(32):取数组变量值 [X9]=数组400([X7])(Int)
  50 4 1 0 8 9 0 0             ;  50(32):变量判断 If[X8]<[X9] then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 3 0 0 8 9 0 0             ;  50(32):四则运算 [X8]=[X9]+0
  50 3 0 0 6 7 0 0             ;  50(32):四则运算 [X6]=[X7]+0
;:Label2
  50 3 0 0 7 7 1 0             ;  50(32):四则运算 [X7]=[X7]+1
  50 4 0 0 7 5 0 0             ;  50(32):变量判断 If[X7]<5 then JMP=0 else JMP=1
  36 256 -56 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 16 100 3 1 24 6 0          ;  50(32):保存属性武功1属性偏移24=[X6]
;以下为重新定义武功伤害
  50 0 10 36 0 0 0 0          ;  50(32):变量赋值 [X10]=36
  50 0 11 1 0 0 0 0             ;  50(32):变量赋值 [X11]=1
;:Label4
  50 3 1 2 101 8 11 0          ;  50(32):四则运算 [X101]=[X8]*[X11]
  50 16 110 3 1 10 101 0       ;  50(32):保存属性武功1属性偏移[X10]=[X101]
  50 3 0 0 10 10 2 0          ;  50(32):四则运算 [X10]=[X10]+2
  50 3 0 0 11 11 1 0          ;  50(32):四则运算 [X11]=[X11]+1
  50 4 0 0 11 11 0 0          ;  50(32):变量判断 If[X11]<11 then JMP=0 else JMP=1
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
；以下为重新定义武功移动范围及攻击范围，我没采用循环，而是直接一个值一个值的定义的，此处留给大家去改写
  50 17 0 0 0 82 12 0          ;  50(32):读取属性 [X12]=人物0属性偏移82
  50 3 0 3 12 12 800 0          ;  50(32):四则运算 [X12]=[X12]/800
  50 16 100 3 1 56 12 0       ;  50(32):保存属性武功1属性偏移56=[X12]
  50 16 100 3 1 58 12 0       ;  50(32):保存属性武功1属性偏移58=[X12]
  50 16 100 3 1 60 12 0       ;  50(32):保存属性武功1属性偏移60=[X12]
  50 17 0 0 0 82 12 0          ;  50(32):读取属性 [X12]=人物0属性偏移82
  50 3 0 3 12 12 600 0          ;  50(32):四则运算 [X12]=[X12]/600
  50 16 100 3 1 62 12 0       ;  50(32):保存属性武功1属性偏移62=[X12]
  50 16 100 3 1 64 12 0       ;  50(32):保存属性武功1属性偏移64=[X12]
  50 16 100 3 1 66 12 0       ;  50(32):保存属性武功1属性偏移66=[X12]
  50 17 0 0 0 82 12 0          ;  50(32):读取属性 [X12]=人物0属性偏移82
  50 3 0 3 12 12 400 0          ;  50(32):四则运算 [X12]=[X12]/400
  50 16 100 3 1 68 12 0       ;  50(32):保存属性武功1属性偏移68=[X12]
  50 16 100 3 1 70 12 0       ;  50(32):保存属性武功1属性偏移70=[X12]
  50 16 100 3 1 72 12 0       ;  50(32):保存属性武功1属性偏移72=[X12]
  50 17 0 0 0 82 12 0          ;  50(32):读取属性 [X12]=人物0属性偏移82
  50 3 0 3 12 12 200 0          ;  50(32):四则运算 [X12]=[X12]/200
  50 16 100 3 1 74 12 0       ;  50(32):保存属性武功1属性偏移74=[X12]
  50 17 0 0 0 86 13 0          ;  50(32):读取属性 [X13]=人物0属性偏移86
  50 3 0 3 13 13 500 0          ;  50(32):四则运算 [X13]=[X13]/500
  50 16 100 3 1 76 13 0       ;  50(32):保存属性武功1属性偏移76=[X13]
  50 16 100 3 1 78 13 0       ;  50(32):保存属性武功1属性偏移78=[X13]
  50 17 0 0 0 86 13 0          ;  50(32):读取属性 [X13]=人物0属性偏移86
  50 3 0 3 13 13 400 0          ;  50(32):四则运算 [X13]=[X13]/400
  50 16 100 3 1 80 13 0       ;  50(32):保存属性武功1属性偏移80=[X13]
  50 16 100 3 1 82 13 0       ;  50(32):保存属性武功1属性偏移82=[X13]
  50 17 0 0 0 86 13 0          ;  50(32):读取属性 [X13]=人物0属性偏移86
  50 3 0 3 13 13 300 0          ;  50(32):四则运算 [X13]=[X13]/300
  50 16 100 3 1 84 13 0       ;  50(32):保存属性武功1属性偏移84=[X13]
  50 16 100 3 1 86 13 0       ;  50(32):保存属性武功1属性偏移86=[X13]
  50 17 0 0 0 86 13 0          ;  50(32):读取属性 [X13]=人物0属性偏移86
  50 3 0 3 13 13 200 0          ;  50(32):四则运算 [X13]=[X13]/200
  50 16 100 3 1 88 13 0       ;  50(32):保存属性武功1属性偏移88=[X13]
  50 16 100 3 1 90 13 0       ;  50(32):保存属性武功1属性偏移90=[X13]
  50 17 0 0 0 86 13 0          ;  50(32):读取属性 [X13]=人物0属性偏移86
  50 3 0 3 13 13 100 0          ;  50(32):四则运算 [X13]=[X13]/100
  50 16 100 3 1 92 13 0       ;  50(32):保存属性武功1属性偏移92=[X13]
  50 16 100 3 1 94 13 0       ;  50(32):保存属性武功1属性偏移94=[X13]
  0                            ;  0(0)::空语句(清屏)
  33 0 1 0                      ;  33(21):南宫梦学会武功自创武功
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束

南宫梦 · 发表于 2006-9-30 16:43

配药系统
交流之做，供大家参考，本代码可开发的地方还很多
功能说明：此系统很简单，按药方，使用10种药材中的5种进行搭配，可配出相应药品。配药是有成功率的，根据医疗能力及药品等级而定而定。比如同样医疗能力，配出玉珍散的几率比配出生生造化丹的几率高
声明：本代码未经过优化，但在《再战江湖》中测试通过

;Kdefnum=1043
;创造配药菜单。使用菜单之前要先定义一个数组，数组中元素的值为菜单存放选项字符串的变量名
  50 0 1000 0 0 0 1 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 9 10 0 0             ;  50(32):变量判断 If[X9]<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 1 11 0 0 0 0             ;  50(32):变量赋值 [X1]=11
;:Label1
  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 1 1 400 0 0          ;  50(32):取属性名称 Str400=物品[X1]
  50 3 0 0 1 1 1 0             ;  50(32):四则运算 [X1]=[X1]+1
  50 3 0 0 1002 1002 1 0       ;  50(32):四则运算 [X1002]=[X1002]+1
  50 4 0 0 1002 9 0 0          ;  50(32):变量判断 If[X1002]<9 then JMP=0 else JMP=1
  36 256 -60 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 34 0 95 10 100 170 0       ;  50(32):处理背景位置(95,10) Width=100 Height=170
  50 39 0 9 1100 100 100 15    ;  50(32):菜单选择菜单个数9Str1100()返回=[X100]显示位置(100,15)
  50 4 0 5 100 0 0 0          ;  50(32):变量判断 If[X100]>0 then JMP=0 else JMP=1
  36 256 0 987                ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  0                            ;  0(0)::空语句(清屏)
  50 3 0 0 20 100 7196 0       ;  50(32):四则运算 [X20]=[X100]+7196
  50 8 1 20 3000 0 0 0          ;  50(32):读对话到字符串  Str3000=talk([X20])
  50 36 0 3000 60 30 1797 0    ;  50(32):显示字符串并等待击键显示字符串3000 (60,30)Color1797
  36 256 7 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  0                            ;  0(0)::空语句(清屏)
  1 7206 0 1                   ;  1(1):[南宫梦]说: 不用了！
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label3
  0                            ;  0(0)::空语句(清屏)
  50 4 0 2 100 1 0 0          ;  50(32):变量判断 If[X100]=1  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  18 9 0 82                   ;  18(12):是否有物品[甘草]否则跳转到:Label5
  18 10 0 78                   ;  18(12):是否有物品[羌活]否则跳转到:Label6
  18 1 0 74                   ;  18(12):是否有物品[麦冬]否则跳转到:Label7
  18 8 0 70                   ;  18(12):是否有物品[白术]否则跳转到:Label8
  18 6 0 66                   ;  18(12):是否有物品[熟地黄]否则跳转到:Label9
  0                            ;  0(0)::空语句(清屏)
  32 6 -1                      ;  32(20):物品[熟地黄]+[-1]
  32 9 -1                      ;  32(20):物品[甘草]+[-1]
  32 10 -1                      ;  32(20):物品[羌活]+[-1]
  32 1 -1                      ;  32(20):物品[麦冬]+[-1]
  32 8 -1                      ;  32(20):物品[白术]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 40 51 0 0 0          ;  50(32):随机数 [X51]=Random(40)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label10
  0                            ;  0(0)::空语句(清屏)
  2 11 1                      ;  2(2):得到物品[天王保命丹][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label10
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label9
;:Label8
;:Label7
;:Label6
;:Label5
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label4
  0                            ;  0(0)::空语句(清屏)
  50 4 0 2 100 2 0 0          ;  50(32):变量判断 If[X100]=2  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label11
  18 9 0 82                   ;  18(12):是否有物品[甘草]否则跳转到:Label12
  18 0 0 78                   ;  18(12):是否有物品[半夏]否则跳转到:Label13
  18 3 0 74                   ;  18(12):是否有物品[当归]否则跳转到:Label14
  18 7 0 70                   ;  18(12):是否有物品[防风]否则跳转到:Label15
  18 6 0 66                   ;  18(12):是否有物品[熟地黄]否则跳转到:Label16
  0                            ;  0(0)::空语句(清屏)
  32 6 -1                      ;  32(20):物品[熟地黄]+[-1]
  32 9 -1                      ;  32(20):物品[甘草]+[-1]
  32 0 -1                      ;  32(20):物品[半夏]+[-1]
  32 3 -1                      ;  32(20):物品[当归]+[-1]
  32 7 -1                      ;  32(20):物品[防风]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 30 51 0 0 0          ;  50(32):随机数 [X51]=Random(30)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label17
  0                            ;  0(0)::空语句(清屏)
  2 12 1                      ;  2(2):得到物品[六阳正气丹][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label17
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label16
;:Label15
;:Label14
;:Label13
;:Label12
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label11
  50 4 0 2 100 3 0 0          ;  50(32):变量判断 If[X100]=3  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label18
  18 5 0 82                   ;  18(12):是否有物品[茯苓]否则跳转到:Label19
  18 7 0 78                   ;  18(12):是否有物品[防风]否则跳转到:Label20
  18 3 0 74                   ;  18(12):是否有物品[当归]否则跳转到:Label21
  18 8 0 70                   ;  18(12):是否有物品[白术]否则跳转到:Label22
  18 6 0 66                   ;  18(12):是否有物品[熟地黄]否则跳转到:Label23
  0                            ;  0(0)::空语句(清屏)
  32 5 -1                      ;  32(20):物品[茯苓]+[-1]
  32 7 -1                      ;  32(20):物品[防风]+[-1]
  32 8 -1                      ;  32(20):物品[白术]+[-1]
  32 3 -1                      ;  32(20):物品[当归]+[-1]
  32 6 -1                      ;  32(20):物品[熟地黄]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 20 51 0 0 0          ;  50(32):随机数 [X51]=Random(20)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label24
  0                            ;  0(0)::空语句(清屏)
  2 13 1                      ;  2(2):得到物品[九花玉露丸][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label24
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label23
;:Label22
;:Label21
;:Label20
;:Label19
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label18
  0                            ;  0(0)::空语句(清屏)
  50 4 0 2 100 4 0 0          ;  50(32):变量判断 If[X100]=4  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label25
  18 0 0 82                   ;  18(12):是否有物品[半夏]否则跳转到:Label26
  18 1 0 78                   ;  18(12):是否有物品[麦冬]否则跳转到:Label27
  18 2 0 74                   ;  18(12):是否有物品[瓜蒌]否则跳转到:Label28
  18 3 0 70                   ;  18(12):是否有物品[当归]否则跳转到:Label29
  18 4 0 66                   ;  18(12):是否有物品[生地黄]否则跳转到:Label30
  0                            ;  0(0)::空语句(清屏)
  32 0 -1                      ;  32(20):物品[半夏]+[-1]
  32 1 -1                      ;  32(20):物品[麦冬]+[-1]
  32 3 -1                      ;  32(20):物品[当归]+[-1]
  32 2 -1                      ;  32(20):物品[瓜蒌]+[-1]
  32 4 -1                      ;  32(20):物品[生地黄]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 10 51 0 0 0          ;  50(32):随机数 [X51]=Random(10)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label31
  0                            ;  0(0)::空语句(清屏)
  2 14 1                      ;  2(2):得到物品[玉灵散][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label31
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label30
;:Label29
;:Label28
;:Label27
;:Label26
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label25
  0                            ;  0(0)::空语句(清屏)
  50 4 0 2 100 5 0 0          ;  50(32):变量判断 If[X100]=5  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label32
  18 9 0 82                   ;  18(12):是否有物品[甘草]否则跳转到:Label33
  18 1 0 78                   ;  18(12):是否有物品[麦冬]否则跳转到:Label34
  18 10 0 74                   ;  18(12):是否有物品[羌活]否则跳转到:Label35
  18 3 0 70                   ;  18(12):是否有物品[当归]否则跳转到:Label36
  18 6 0 66                   ;  18(12):是否有物品[熟地黄]否则跳转到:Label37
  0                            ;  0(0)::空语句(清屏)
  32 9 -1                      ;  32(20):物品[甘草]+[-1]
  32 1 -1                      ;  32(20):物品[麦冬]+[-1]
  32 3 -1                      ;  32(20):物品[当归]+[-1]
  32 10 -1                      ;  32(20):物品[羌活]+[-1]
  32 6 -1                      ;  32(20):物品[熟地黄]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 40 51 0 0 0          ;  50(32):随机数 [X51]=Random(40)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label38
  0                            ;  0(0)::空语句(清屏)
  2 15 1                      ;  2(2):得到物品[生生造化丹][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label38
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label37
;:Label36
;:Label35
;:Label34
;:Label33
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label32
  0                            ;  0(0)::空语句(清屏)
  50 4 0 2 100 6 0 0          ;  50(32):变量判断 If[X100]=6  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label39
  18 7 0 82                   ;  18(12):是否有物品[防风]否则跳转到:Label40
  18 8 0 78                   ;  18(12):是否有物品[白术]否则跳转到:Label41
  18 9 0 74                   ;  18(12):是否有物品[甘草]否则跳转到:Label42
  18 10 0 70                   ;  18(12):是否有物品[羌活]否则跳转到:Label43
  18 6 0 66                   ;  18(12):是否有物品[熟地黄]否则跳转到:Label44
  0                            ;  0(0)::空语句(清屏)
  32 7 -1                      ;  32(20):物品[防风]+[-1]
  32 8 -1                      ;  32(20):物品[白术]+[-1]
  32 9 -1                      ;  32(20):物品[甘草]+[-1]
  32 10 -1                      ;  32(20):物品[羌活]+[-1]
  32 6 -1                      ;  32(20):物品[熟地黄]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 30 51 0 0 0          ;  50(32):随机数 [X51]=Random(30)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label45
  0                            ;  0(0)::空语句(清屏)
  2 16 1                      ;  2(2):得到物品[九转熊蛇丸][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label45
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label44
;:Label43
;:Label42
;:Label41
;:Label40
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label39
  50 4 0 2 100 7 0 0          ;  50(32):变量判断 If[X100]=7  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label46
  18 1 0 82                   ;  18(12):是否有物品[麦冬]否则跳转到:Label47
  18 3 0 78                   ;  18(12):是否有物品[当归]否则跳转到:Label48
  18 5 0 74                   ;  18(12):是否有物品[茯苓]否则跳转到:Label49
  18 9 0 70                   ;  18(12):是否有物品[甘草]否则跳转到:Label50
  18 10 0 66                   ;  18(12):是否有物品[羌活]否则跳转到:Label51
  0                            ;  0(0)::空语句(清屏)
  32 1 -1                      ;  32(20):物品[麦冬]+[-1]
  32 3 -1                      ;  32(20):物品[当归]+[-1]
  32 5 -1                      ;  32(20):物品[茯苓]+[-1]
  32 9 -1                      ;  32(20):物品[甘草]+[-1]
  32 10 -1                      ;  32(20):物品[羌活]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 20 51 0 0 0          ;  50(32):随机数 [X51]=Random(20)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label52
  0                            ;  0(0)::空语句(清屏)
  2 17 1                      ;  2(2):得到物品[镇心理气丸][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label52
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label51
;:Label50
;:Label49
;:Label48
;:Label47
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label46
  50 4 0 2 100 8 0 0          ;  50(32):变量判断 If[X100]=8  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label53
  18 0 0 82                   ;  18(12):是否有物品[半夏]否则跳转到:Label54
  18 2 0 78                   ;  18(12):是否有物品[瓜蒌]否则跳转到:Label55
  18 7 0 74                   ;  18(12):是否有物品[防风]否则跳转到:Label56
  18 8 0 70                   ;  18(12):是否有物品[白术]否则跳转到:Label57
  18 4 0 66                   ;  18(12):是否有物品[生地黄]否则跳转到:Label58
  0                            ;  0(0)::空语句(清屏)
  32 0 -1                      ;  32(20):物品[半夏]+[-1]
  32 2 -1                      ;  32(20):物品[瓜蒌]+[-1]
  32 7 -1                      ;  32(20):物品[防风]+[-1]
  32 8 -1                      ;  32(20):物品[白术]+[-1]
  32 4 -1                      ;  32(20):物品[生地黄]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 10 51 0 0 0          ;  50(32):随机数 [X51]=Random(10)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label59
  0                            ;  0(0)::空语句(清屏)
  2 18 1                      ;  2(2):得到物品[无常丹][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label59
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label58
;:Label57
;:Label56
;:Label55
;:Label54
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label53
  0                            ;  0(0)::空语句(清屏)
  50 4 0 2 100 9 0 0          ;  50(32):变量判断 If[X100]=9  then JMP=0 else JMP=1
  36 256 0 93                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label60
  18 3 0 82                   ;  18(12):是否有物品[当归]否则跳转到:Label61
  18 5 0 78                   ;  18(12):是否有物品[茯苓]否则跳转到:Label62
  18 7 0 74                   ;  18(12):是否有物品[防风]否则跳转到:Label63
  18 6 0 70                   ;  18(12):是否有物品[熟地黄]否则跳转到:Label64
  18 4 0 66                   ;  18(12):是否有物品[生地黄]否则跳转到:Label65
  0                            ;  0(0)::空语句(清屏)
  32 3 -1                      ;  32(20):物品[当归]+[-1]
  32 5 -1                      ;  32(20):物品[茯苓]+[-1]
  32 7 -1                      ;  32(20):物品[防风]+[-1]
  32 6 -1                      ;  32(20):物品[熟地黄]+[-1]
  32 4 -1                      ;  32(20):物品[生地黄]+[-1]
  0                            ;  0(0)::空语句(清屏)
  50 17 0 0 0 92 50 0          ;  50(32):读取属性 [X50]=人物0属性偏移92
  50 3 0 3 50 50 10 0          ;  50(32):四则运算 [X50]=[X50]/10
  50 38 0 15 51 0 0 0          ;  50(32):随机数 [X51]=Random(15)
  50 4 1 1 51 50 0 0          ;  50(32):变量判断 If[X51]<=[X50] then JMP=0 else JMP=1
  36 256 0 6                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label66
  0                            ;  0(0)::空语句(清屏)
  2 19 1                      ;  2(2):得到物品[天心解毒丹][1]
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label66
  0                            ;  0(0)::空语句(清屏)
  1 7208 0 1                   ;  1(1):[南宫梦]说: ．．．．．．*失败了．．．*看来我还得加强医疗能力啊
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label65
;:Label64
;:Label63
;:Label62
;:Label61
  0                            ;  0(0)::空语句(清屏)
  1 7207 0 1                   ;  1(1):[南宫梦]说: 药材好像不够．
  0                            ;  0(0)::空语句(清屏)
  7                            ;  7(7):无条件返回
;:Label60
;:Label2
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2006-10-7 18:05

商店系统：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是商店指令，功能跟原版的小宝商店一样，弥补了小宝只在5个场景出现的不足，也省去了修改Z.dat的麻烦。
2、有物品数量功能，物品数量在R*.grp中的物品属性中定义，具体位置是偏移84。
3、本指令是卖5件商品的，适合320X200的修改档/MOD使用，如果要增加商品数量请使用640X480分辨率（不过好象还没有）。
4、大家使用时只需要按照实际需要修改红色字体部分，其他不用做修改。
5、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7事件修改中选择“从剪贴板复制”

;Kdefnum=558
  50 5 0 0 0 0 0 0             ;  50(32):全部变量清零
;:Label0
  50 3 0 2 6 5 100 0          ;  50(32):四则运算 [X6]=[X5]*100
  50 3 0 0 6 6 2000 0          ;  50(32):四则运算 [X6]=[X6]+2000
  50 1 3 0 500 5 6 0          ;  50(32):数组变量赋值数组500([X5])=[X6](Int)
  50 3 0 0 5 5 1 0             ;  50(32):四则运算 [X5]=[X5]+1
  50 4 0 0 5 5 0 0             ;  50(32):变量判断 If[X5]<5 then JMP=0 else JMP=1货品数5
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 1 0 0 50 0 19 0          ;  50(32):数组变量赋值数组50(0)=19(Int)
  50 1 0 0 50 1 13 0          ;  50(32):数组变量赋值数组50(1)=13(Int)
  50 1 0 0 50 2 28 0          ;  50(32):数组变量赋值数组50(2)=28(Int)
  50 1 0 0 50 3 54 0          ;  50(32):数组变量赋值数组50(3)=54(Int)
  50 1 0 0 50 4 51 0          ;  50(32):数组变量赋值数组50(4)=51(Int)
  50 1 0 0 70 0 1000 0          ;  50(32):数组变量赋值数组70(0)=1000(Int)
  50 1 0 0 70 1 50 0          ;  50(32):数组变量赋值数组70(1)=50(Int)
  50 1 0 0 70 2 400 0          ;  50(32):数组变量赋值数组70(2)=400(Int)
  50 1 0 0 70 3 500 0          ;  50(32):数组变量赋值数组70(3)=500(Int)
  50 1 0 0 70 4 300 0          ;  50(32):数组变量赋值数组70(4)=300(Int)
;:Label1
;:Label3
  50 2 11 0 50 20 21 0          ;  50(32):取数组变量值 [X21]=数组50([X20])(Int)
  50 2 11 0 70 20 24 0          ;  50(32):取数组变量值 [X24]=数组70([X20])(Int)
  50 17 1 1 21 84 22 0          ;  50(32):读取属性 [X22]=物品[X21]属性偏移84
  50 3 0 0 20 20 1 0          ;  50(32):四则运算 [X20]=[X20]+1
  50 4 0 2 22 0 0 0             ;  50(32):变量判断 If[X22]=0  then JMP=0 else JMP=1
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 4 0 5 20 5 0 0             ;  50(32):变量判断 If[X20]>5 then JMP=0 else JMP=1货品数5
  36 256 52 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  50 1 11 0 100 23 21 0       ;  50(32):数组变量赋值数组100([X23])=[X21](Int)
  50 1 11 0 120 23 24 0       ;  50(32):数组变量赋值数组120([X23])=[X24](Int)
  50 3 0 0 23 23 1 0          ;  50(32):四则运算 [X23]=[X23]+1
  50 1 1 0 100 23 0 0          ;  50(32):数组变量赋值数组100([X23])=0(Int)
  50 1 1 0 120 23 0 0          ;  50(32):数组变量赋值数组120([X23])=0(Int)
  50 4 0 1 20 4 0 0             ;  50(32):变量判断 If[X20]<=4 then JMP=0 else JMP=1货品数5-1
  36 256 -108 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
;:Label2
;:Label5
  50 2 11 0 100 7 8 0          ;  50(32):取数组变量值 [X8]=数组100([X7])(Int)
  50 4 0 2 8 0 0 0             ;  50(32):变量判断 If[X8]=0  then JMP=0 else JMP=1
  36 256 148 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 3 0 2 14 7 100 0          ;  50(32):四则运算 [X14]=[X7]*100
  50 3 0 0 14 14 2000 0       ;  50(32):四则运算 [X14]=[X14]+2000
  50 2 11 0 120 7 16 0          ;  50(32):取数组变量值 [X16]=数组120([X7])(Int)
  50 32 0 14 5 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数5=[X14]
  50 27 1 1 8 100 0 0          ;  50(32):取属性名称 Str100=物品[X8]
  50 32 0 14 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X14]
  50 10 100 17 0 0 0 0          ;  50(32):取字符串长度 [X17]=Len(Str100 )
  50 0 18 13 0 0 0 0          ;  50(32):变量赋值 [X18]=13
  50 3 11 1 18 18 17 0          ;  50(32):四则运算 [X18]=[X18]-[X17]
  50 12 1 1000 18 0 0 0       ;  50(32):空格字符串 Str1000=[X18]个空格
  50 8 0 17 800 0 0 0          ;  50(32):读对话到字符串  Str800=talk(17)17号对话内容为“%d”（双引号内内容，请自行修改）
  50 9 1 1200 800 16 0 0       ;  50(32):Sprintf  Str1200=Cstr([X16]) FORMAT=Str800
  50 32 0 14 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X14]
  50 11 1400 1200 1000 0 0 0    ;  50(32):字符串合并 Str1400=Str1200+Str1000
  50 32 0 14 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X14]
  50 11 100 1400 1200 0 0 0    ;  50(32):字符串合并 Str100=Str1400+Str1200
  50 3 0 0 7 7 1 0             ;  50(32):四则运算 [X7]=[X7]+1
  50 4 0 0 7 5 0 0             ;  50(32):变量判断 If[X7]<5 then JMP=0 else JMP=1货品数5
  36 256 -168 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
;:Label4
  50 4 0 0 7 1 0 0             ;  50(32):变量判断 If[X7]<1 then JMP=0 else JMP=1
  36 256 0 7                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label6
  0                            ;  0(0)::空语句(清屏)
  1 19 690 0                   ;  1(1):[???]说: 哎呀，我的货都被你买光了。19号对话
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label6
  1 2969 690 0                ;  1(1):[???]说: 来，来，来。*来看看有什麽需要的，我这*应有尽有。
  50 3 0 0 9 7 0 0             ;  50(32):四则运算 [X9]=[X7]+0
  50 3 0 2 9 9 18 0             ;  50(32):四则运算 [X9]=[X9]*18
  50 3 0 0 9 9 10 0             ;  50(32):四则运算 [X9]=[X9]+10
  50 34 8 100 85 150 9 0       ;  50(32):处理背景位置(100,85) Width=150 Height=[X9]
  50 3 0 0 9 7 1 0             ;  50(32):四则运算 [X9]=[X7]+1
  50 0 10 0 0 0 1 0             ;  50(32):变量赋值 [X10]=0
  50 39 1 7 500 10 105 90       ;  50(32):菜单选择菜单个数[X7]Str500()返回=[X10]显示位置(105,90)
  50 4 0 0 10 1 0 0             ;  50(32):变量判断 If[X10]<1 then JMP=0 else JMP=1
  36 256 119 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  0                            ;  0(0)::空语句(清屏)
  50 3 0 1 10 10 1 0          ;  50(32):四则运算 [X10]=[X10]-1
  50 2 11 0 120 10 12 0       ;  50(32):取数组变量值 [X12]=数组120([X10])(Int)
  50 32 0 12 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X12]
  31 0 6 0                      ;  31(1F):判断银子是否够0是则跳转到:Label8
  1 2975 690 0                ;  1(1):[???]说: 非常抱歉，*你身上的钱似乎不够．
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label8
  50 2 11 0 100 10 11 0       ;  50(32):取数组变量值 [X11]=数组100([X10])(Int)
  50 2 11 0 120 10 12 0       ;  50(32):取数组变量值 [X12]=数组120([X10])(Int)
  50 0 13 0 0 0 0 0             ;  50(32):变量赋值 [X13]=0
  50 3 3 1 13 13 12 0          ;  50(32):四则运算 [X13]=[X13]-[X12]
  50 32 0 13 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X13]
  32 174 0                      ;  32(20):物品[银两]+[0]
  1 2976 690 0                ;  1(1):[???]说: 大爷买了我们店的东西，*保证绝不後悔．
  0                            ;  0(0)::空语句(清屏)
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  2 0 1                         ;  2(2):得到物品[腐骨穿心膏][1]
  50 17 1 1 11 84 19 0          ;  50(32):读取属性 [X19]=物品[X11]属性偏移84
  50 3 0 1 19 19 1 0          ;  50(32):四则运算 [X19]=[X19]-1
  50 16 101 1 11 84 19 0       ;  50(32):保存属性物品[X11]属性偏移84=[X19]
  0                            ;  0(0)::空语句(清屏)
;:Label7
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2006-10-7 18:16

使用方法：
调用事件（人物，替换后武功，等级，被替换武功）
等级=-2则等级不变

;Kdefnum=533
  50 0 100 0 0 0 0 0          ;  50(32):变量赋值 [X100]=0
  50 0 107 0 0 0 0 0          ;  50(32):变量赋值 [X107]=0
  50 3 0 0 103 28928 0 0       ;  50(32):四则运算 [X103]=[X28928]+0
  50 3 0 0 104 28929 0 0       ;  50(32):四则运算 [X104]=[X28929]+0
  50 3 0 0 105 28930 0 0       ;  50(32):四则运算 [X105]=[X28930]+0
  50 3 0 0 106 28931 0 0       ;  50(32):四则运算 [X106]=[X28931]+0
  50 4 0 2 104 0 0 0          ;  50(32):变量判断 If[X104]=0  then JMP=0 else JMP=1
  36 256 93 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
;:Label2
  50 3 0 2 101 100 2 0          ;  50(32):四则运算 [X101]=[X100]*2
  50 3 0 0 101 101 126 0       ;  50(32):四则运算 [X101]=[X101]+126
  50 17 3 0 103 101 102 0       ;  50(32):读取属性 [X102]=人物[X103]属性偏移[X101]
  50 3 0 0 100 100 1 0          ;  50(32):四则运算 [X100]=[X100]+1
  50 4 0 5 100 10 0 0          ;  50(32):变量判断 If[X100]>10 then JMP=0 else JMP=1
  36 256 48 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 4 1 3 102 106 0 0          ;  50(32):变量判断 If[X102]<>[X106] then JMP=0 else JMP=1
  36 256 -56 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  50 16 111 0 103 101 104 0    ;  50(32):保存属性人物[X103]属性偏移[X101]=[X104]
  50 4 0 2 105 -2 0 0          ;  50(32):变量判断 If[X105]=-2  then JMP=0 else JMP=1
  36 256 16 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 3 0 0 101 101 20 0       ;  50(32):四则运算 [X101]=[X101]+20
  50 16 111 0 103 101 105 0    ;  50(32):保存属性人物[X103]属性偏移[X101]=[X105]
;:Label3
;:Label1
  -1                            ;  -1(FFFF):事件结束
;:Label0
;:Label5
  50 3 0 0 107 100 0 0          ;  50(32):四则运算 [X107]=[X100]+0
  50 3 0 2 101 100 2 0          ;  50(32):四则运算 [X101]=[X100]*2
  50 3 0 0 101 101 126 0       ;  50(32):四则运算 [X101]=[X101]+126
  50 17 3 0 103 101 102 0       ;  50(32):读取属性 [X102]=人物[X103]属性偏移[X101]
  50 4 1 2 102 106 0 0          ;  50(32):变量判断 If[X102]=[X106]  then JMP=0 else JMP=1
  36 256 21 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 3 0 0 100 100 1 0          ;  50(32):四则运算 [X100]=[X100]+1
  50 4 0 0 100 10 0 0          ;  50(32):变量判断 If[X100]<10 then JMP=0 else JMP=1
  36 256 -64 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
  -1                            ;  -1(FFFF):事件结束
;:Label4
;:Label6
  50 3 0 2 101 107 2 0          ;  50(32):四则运算 [X101]=[X107]*2
  50 3 0 0 101 101 126 0       ;  50(32):四则运算 [X101]=[X101]+126
  50 3 0 0 108 101 2 0          ;  50(32):四则运算 [X108]=[X101]+2
  50 17 3 0 103 108 102 0       ;  50(32):读取属性 [X102]=人物[X103]属性偏移[X108]
  50 16 7 0 103 101 102 0       ;  50(32):保存属性人物[X103]属性偏移[X101]=[X102]
  50 3 0 0 101 101 20 0       ;  50(32):四则运算 [X101]=[X101]+20
  50 3 0 0 108 101 2 0          ;  50(32):四则运算 [X108]=[X101]+2
  50 17 3 0 103 108 102 0       ;  50(32):读取属性 [X102]=人物[X103]属性偏移[X108]
  50 16 7 0 103 101 102 0       ;  50(32):保存属性人物[X103]属性偏移[X101]=[X102]
  50 3 0 0 107 107 1 0          ;  50(32):四则运算 [X107]=[X107]+1
  50 4 0 0 107 9 0 0          ;  50(32):变量判断 If[X107]<9 then JMP=0 else JMP=1
  36 256 -92 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  50 3 0 2 101 107 2 0          ;  50(32):四则运算 [X101]=[X107]*2
  50 3 0 0 101 101 126 0       ;  50(32):四则运算 [X101]=[X101]+126
  50 16 3 0 103 101 0 0       ;  50(32):保存属性人物[X103]属性偏移[X101]=0
  50 3 0 0 101 101 20 0       ;  50(32):四则运算 [X101]=[X101]+20
  50 16 3 0 103 101 0 0       ;  50(32):保存属性人物[X103]属性偏移[X101]=0
  -1                            ;  -1(FFFF):事件结束

[ 本帖最后由 KG 于 2008-1-31 19:45 编辑 ]

KG · 发表于 2007-1-4 17:00

储存箱系统（读取）：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是储存箱系统，用来防止物品种类超过200后造成的物品丢失
2、本指令要用到物品属性偏移86
3、大家使用时只需要按照实际需要修改红色字体部分，其他不用做修改。
4、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7或7.1事件修改中选择“从剪贴板复制”

;Kdefnum=700
  50 5 0 0 0 0 0 0             ;  50(32):全部变量清零
  50 1 0 0 500 0 100 0          ;  50(32):数组变量赋值数组500(0)=100(Int)
  50 1 0 0 500 1 1100 0       ;  50(32):数组变量赋值数组500(1)=1100(Int)
  50 8 0 25 100 0 0 0          ;  50(32):读对话到字符串  Str100=talk(25)（25号对话为“储存物品”，请自行修改）
  50 8 0 26 1100 0 0 0          ;  50(32):读对话到字符串  Str1100=talk(26)（26号对话为“取回物品”，请自行修改）
  50 0 20 2 0 0 0 0             ;  50(32):变量赋值 [X20]=2
  50 3 0 2 21 20 18 0          ;  50(32):四则运算 [X21]=[X20]*18
  50 3 0 0 21 21 10 0          ;  50(32):四则运算 [X21]=[X21]+10
  50 34 8 100 85 120 21 0       ;  50(32):处理背景位置(100,85) Width=120 Height=[X21]
  50 39 1 20 500 10 105 90    ;  50(32):菜单选择菜单个数[X20]Str500()返回=[X10]显示位置(105,90)
  50 4 0 0 10 1 0 0             ;  50(32):变量判断 If[X10]<1 then JMP=0 else JMP=1
  36 256 1577 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 4 0 2 10 1 0 0             ;  50(32):变量判断 If[X10]=1  then JMP=0 else JMP=1
  36 256 0 794                ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
  50 5 0 0 0 0 0 0             ;  50(32):全部变量清零
  50 0 1 50 0 0 0 0             ;  50(32):变量赋值 [X1]=50
;:Label5
;:Label17
  50 3 0 2 15 13 4 0          ;  50(32):四则运算 [X15]=[X13]*4
  50 3 0 1 15 15 468 0          ;  50(32):四则运算 [X15]=[X15]-468
  50 4 0 4 15 0 0 0             ;  50(32):变量判断 If[X15]>=0 then JMP=0 else JMP=1
  36 256 28 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  50 32 0 15 4 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数4=[X15]
  50 26 0 0 -468 24 5 0       ;  50(32):读取给定地址数据 [X5]=[18-FE2C](Int)
  50 4 0 0 15 0 0 0             ;  50(32):变量判断 If[X15]<0 then JMP=0 else JMP=1
  36 256 16 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
;:Label2
  50 32 0 15 4 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数4=[X15]
  50 26 0 0 -468 25 5 0       ;  50(32):读取给定地址数据 [X5]=[19-FE2C](Int)
;:Label3
  50 20 1 5 6 0 0 0             ;  50(32):主角200个物品数量 [X6]=物品编号[X5]数量
  50 4 0 2 6 0 0 0             ;  50(32):变量判断 If[X6]=0  then JMP=0 else JMP=1
  36 256 164 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 3 0 2 2 0 20 0             ;  50(32):四则运算 [X2]=[X0]*20
  50 3 0 0 2 2 1000 0          ;  50(32):四则运算 [X2]=[X2]+1000
  50 1 3 0 800 0 2 0          ;  50(32):数组变量赋值数组800([X0])=[X2](Int)
  50 32 0 2 5 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数5=[X2]
  50 27 1 1 5 100 0 0          ;  50(32):取属性名称 Str100=物品[X5]
  50 32 0 2 2 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数2=[X2]
  50 10 100 3 0 0 0 0          ;  50(32):取字符串长度 [X3]=Len(Str100 )
  50 0 8 17 0 0 0 0             ;  50(32):变量赋值 [X8]=17
  50 3 11 1 8 8 3 0             ;  50(32):四则运算 [X8]=[X8]-[X3]
  50 12 1 180 8 0 0 0          ;  50(32):空格字符串 Str180=[X8]个空格
  50 8 0 17 170 0 0 0          ;  50(32):读对话到字符串  Str170=talk(17)（17号对话为“%d”，请自行修改）
  50 9 1 160 170 6 0 0          ;  50(32):Sprintf  Str160=Cstr([X6]) FORMAT=Str170
  50 32 0 2 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X2]
  50 11 150 0 180 0 0 0       ;  50(32):字符串合并 Str150=Str0+Str180
  50 32 0 2 2 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数2=[X2]
  50 11 0 150 160 0 0 0       ;  50(32):字符串合并 Str0=Str150+Str160
  50 1 3 0 200 0 5 0          ;  50(32):数组变量赋值数组200([X0])=[X5](Int)
  50 3 0 0 0 0 1 0             ;  50(32):四则运算 [X0]=[X0]+1
  50 3 0 0 13 13 1 0          ;  50(32):四则运算 [X13]=[X13]+1
  50 4 1 0 13 1 0 0             ;  50(32):变量判断 If[X13]<[X1] then JMP=0 else JMP=1
  36 256 -256 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
;:Label4
  50 4 0 3 0 0 0 0             ;  50(32):变量判断 If[X0]<>0 then JMP=0 else JMP=1
  36 256 6 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  1 22 449 0                   ;  1(1):[???]说: 没有可储存的物品。（对话请自行修改）
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label6
  50 4 0 2 1 200 0 0          ;  50(32):变量判断 If[X1]=200  then JMP=0 else JMP=1
  36 256 48 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  50 3 0 2 2 0 20 0             ;  50(32):四则运算 [X2]=[X0]*20
  50 3 0 0 2 2 1000 0          ;  50(32):四则运算 [X2]=[X2]+1000
  50 1 3 0 800 0 2 0          ;  50(32):数组变量赋值数组800([X0])=[X2](Int)
  50 32 0 2 4 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数4=[X2]
  50 8 0 27 2000 0 0 0          ;  50(32):读对话到字符串  Str2000=talk(27)
  50 3 0 0 0 0 1 0             ;  50(32):四则运算 [X0]=[X0]+1
;:Label7
  50 3 0 1 9 0 0 0             ;  50(32):四则运算 [X9]=[X0]-0
  50 3 0 2 9 9 18 0             ;  50(32):四则运算 [X9]=[X9]*18
  50 3 0 0 9 9 10 0             ;  50(32):四则运算 [X9]=[X9]+10
  50 34 8 100 85 180 9 0       ;  50(32):处理背景位置(100,85) Width=180 Height=[X9]
  50 40 1 0 800 10 90 90       ;  50(32):菜单选择2 菜单个数[X0]Str800()返回=[X10]显示位置(90,90)
  50 4 0 0 10 1 0 0             ;  50(32):变量判断 If[X10]<1 then JMP=0 else JMP=1
  36 256 391 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
  50 4 0 2 1 200 0 0          ;  50(32):变量判断 If[X1]=200  then JMP=0 else JMP=1
  36 256 12 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
  50 4 1 2 10 0 0 0             ;  50(32):变量判断 If[X10]=[X0]  then JMP=0 else JMP=1
  36 257 279 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label10
;:Label9
  50 3 0 1 10 10 1 0          ;  50(32):四则运算 [X10]=[X10]-1
  50 2 11 0 200 10 11 0       ;  50(32):取数组变量值 [X11]=数组200([X10])(Int)
  50 1 0 0 100 0 120 0          ;  50(32):数组变量赋值数组100(0)=120(Int)
  50 1 0 0 100 1 130 0          ;  50(32):数组变量赋值数组100(1)=130(Int)
  50 1 0 0 100 2 140 0          ;  50(32):数组变量赋值数组100(2)=140(Int)
  50 8 0 28 120 0 0 0          ;  50(32):读对话到字符串  Str120=talk(28)（对话28为“存取1个”，请自行修改）
  50 8 0 29 130 0 0 0          ;  50(32):读对话到字符串  Str130=talk(29)（对话29为“存取10个”，请自行修改）
  50 8 0 30 140 0 0 0          ;  50(32):读对话到字符串  Str140=talk(30)（对话30为“存取100个”，请自行修改）
  50 34 0 100 85 120 64 0       ;  50(32):处理背景位置(100,85) Width=120 Height=64
  50 39 0 3 100 22 105 90       ;  50(32):菜单选择菜单个数3Str100()返回=[X22]显示位置(105,90)
  50 4 0 0 22 1 0 0             ;  50(32):变量判断 If[X22]<1 then JMP=0 else JMP=1
  36 256 275 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label11
  50 4 0 2 22 1 0 0             ;  50(32):变量判断 If[X22]=1  then JMP=0 else JMP=1
  36 256 138 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label12
  50 4 0 2 22 2 0 0             ;  50(32):变量判断 If[X22]=2  then JMP=0 else JMP=1
  36 256 63 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label13
  50 20 1 11 21 0 0 0          ;  50(32):主角200个物品数量 [X21]=物品编号[X11]数量
  50 4 0 0 21 100 0 0          ;  50(32):变量判断 If[X21]<100 then JMP=0 else JMP=1
  36 256 37 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label14
  50 17 1 1 11 86 12 0          ;  50(32):读取属性 [X12]=物品[X11]属性偏移86
  50 3 0 0 12 12 100 0          ;  50(32):四则运算 [X12]=[X12]+100
  50 16 101 1 11 86 12 0       ;  50(32):保存属性物品[X11]属性偏移86=[X12]
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  32 0 -100                   ;  32(20):物品[腐骨穿心膏]+[-100]
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label14
  1 32 449 0                   ;  1(1):[???]说: 没那么多物品。（对话请自行修改）
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label13
  50 20 1 11 21 0 0 0          ;  50(32):主角200个物品数量 [X21]=物品编号[X11]数量
  50 4 0 0 21 10 0 0          ;  50(32):变量判断 If[X21]<10 then JMP=0 else JMP=1
  36 256 37 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label15
  50 17 1 1 11 86 12 0          ;  50(32):读取属性 [X12]=物品[X11]属性偏移86
  50 3 0 0 12 12 10 0          ;  50(32):四则运算 [X12]=[X12]+10
  50 16 101 1 11 86 12 0       ;  50(32):保存属性物品[X11]属性偏移86=[X12]
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  32 0 -10                      ;  32(20):物品[腐骨穿心膏]+[-10]
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label15
  1 32 449 0                   ;  1(1):[???]说: 没那么多物品。（对话请自行修改）
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label12
  50 17 1 1 11 86 12 0          ;  50(32):读取属性 [X12]=物品[X11]属性偏移86
  50 3 0 0 12 12 1 0          ;  50(32):四则运算 [X12]=[X12]+1
  50 16 101 1 11 86 12 0       ;  50(32):保存属性物品[X11]属性偏移86=[X12]
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  32 0 -1                      ;  32(20):物品[腐骨穿心膏]+[-1]
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label10
  50 3 0 0 1 1 50 0             ;  50(32):四则运算 [X1]=[X1]+50
  50 0 0 0 0 0 0 0             ;  50(32):变量赋值 [X0]=0
;:Label16
  50 1 101 0 800 0 0 0          ;  50(32):数组变量赋值数组800([X0])=0(Int)
  50 1 101 0 200 0 0 0          ;  50(32):数组变量赋值数组200([X0])=0(Int)
  50 3 0 0 0 0 1 0             ;  50(32):四则运算 [X0]=[X0]+1
  50 4 0 0 0 50 0 0             ;  50(32):变量判断 If[X0]<50 then JMP=0 else JMP=1
  36 256 -36 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label16
  50 0 0 0 0 0 0 0             ;  50(32):变量赋值 [X0]=0
  50 0 6 0 0 0 0 0             ;  50(32):变量赋值 [X6]=0
  50 0 15 0 0 0 0 0             ;  50(32):变量赋值 [X15]=0
  50 4 0 2 0 0 0 0             ;  50(32):变量判断 If[X0]=0  then JMP=0 else JMP=1
  36 256 -777 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label17
;:Label11
;:Label8
  -1                            ;  -1(FFFF):事件结束
;:Label1
  50 5 0 0 0 0 0 0             ;  50(32):全部变量清零
  50 0 0 50 0 0 0 0             ;  50(32):变量赋值 [X0]=50
  50 0 1 200 0 0 0 0          ;  50(32):变量赋值 [X1]=200  （200为物品总种类数）
;:Label20
;:Label34
  50 17 1 1 5 86 6 0          ;  50(32):读取属性 [X6]=物品[X5]属性偏移86
  50 4 0 2 6 0 0 0             ;  50(32):变量判断 If[X6]=0  then JMP=0 else JMP=1
  36 256 152 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label18
  50 3 0 2 2 15 20 0          ;  50(32):四则运算 [X2]=[X15]*20
  50 3 0 0 2 2 1000 0          ;  50(32):四则运算 [X2]=[X2]+1000
  50 1 3 0 800 15 2 0          ;  50(32):数组变量赋值数组800([X15])=[X2](Int)
  50 32 0 2 5 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数5=[X2]
  50 27 1 1 5 100 0 0          ;  50(32):取属性名称 Str100=物品[X5]
  50 32 0 2 2 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数2=[X2]
  50 10 100 3 0 0 0 0          ;  50(32):取字符串长度 [X3]=Len(Str100 )
  50 0 8 17 0 0 0 0             ;  50(32):变量赋值 [X8]=17
  50 3 11 1 8 8 3 0             ;  50(32):四则运算 [X8]=[X8]-[X3]
  50 12 1 180 8 0 0 0          ;  50(32):空格字符串 Str180=[X8]个空格
  50 8 0 17 170 0 0 0          ;  50(32):读对话到字符串  Str170=talk(17)（17号对话为“%d”，请自行修改）
  50 9 1 160 170 6 0 0          ;  50(32):Sprintf  Str160=Cstr([X6]) FORMAT=Str170
  50 32 0 2 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X2]
  50 11 150 0 180 0 0 0       ;  50(32):字符串合并 Str150=Str0+Str180
  50 32 0 2 2 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数2=[X2]
  50 11 0 150 160 0 0 0       ;  50(32):字符串合并 Str0=Str150+Str160
  50 1 3 0 200 15 5 0          ;  50(32):数组变量赋值数组200([X15])=[X5](Int)
  50 3 0 0 15 15 1 0          ;  50(32):四则运算 [X15]=[X15]+1
  50 3 0 0 16 16 1 0          ;  50(32):四则运算 [X16]=[X16]+1
;:Label18
  50 3 0 0 5 5 1 0             ;  50(32):四则运算 [X5]=[X5]+1
  50 4 1 4 5 1 0 0             ;  50(32):变量判断 If[X5]>=[X1] then JMP=0 else JMP=1
  36 256 12 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label19
  50 4 1 0 16 0 0 0             ;  50(32):变量判断 If[X16]<[X0] then JMP=0 else JMP=1
  36 256 -204 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label20
;:Label19
  50 4 0 3 15 0 0 0             ;  50(32):变量判断 If[X15]<>0 then JMP=0 else JMP=1
  36 256 6 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label21
  1 23 449 0                   ;  1(1):[???]说: 储存箱中没有物品。（对话请自行修改）
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label21
  50 4 1 4 0 1 0 0             ;  50(32):变量判断 If[X0]>=[X1] then JMP=0 else JMP=1
  36 256 48 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label22
  50 3 0 2 2 15 20 0          ;  50(32):四则运算 [X2]=[X15]*20
  50 3 0 0 2 2 1000 0          ;  50(32):四则运算 [X2]=[X2]+1000
  50 1 3 0 800 15 2 0          ;  50(32):数组变量赋值数组800([X15])=[X2](Int)
  50 32 0 2 4 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数4=[X2]
  50 8 0 27 2000 0 0 0          ;  50(32):读对话到字符串  Str2000=talk(27)
  50 3 0 0 15 15 1 0          ;  50(32):四则运算 [X15]=[X15]+1
;:Label22
  50 3 0 1 9 15 0 0             ;  50(32):四则运算 [X9]=[X15]-0
  50 3 0 2 9 9 18 0             ;  50(32):四则运算 [X9]=[X9]*18
  50 3 0 0 9 9 10 0             ;  50(32):四则运算 [X9]=[X9]+10
  50 34 8 100 85 180 9 0       ;  50(32):处理背景位置(100,85) Width=180 Height=[X9]
  50 40 1 15 800 10 90 90       ;  50(32):菜单选择2 菜单个数[X15]Str800()返回=[X10]显示位置(90,90)
  50 4 0 0 10 1 0 0             ;  50(32):变量判断 If[X10]<1 then JMP=0 else JMP=1
  36 256 413 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label23
  50 4 1 4 0 1 0 0             ;  50(32):变量判断 If[X0]>=[X1] then JMP=0 else JMP=1
  36 256 12 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label24
  50 4 1 2 10 15 0 0          ;  50(32):变量判断 If[X10]=[X15]  then JMP=0 else JMP=1
  36 257 309 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label25
;:Label24
  50 3 0 1 10 10 1 0          ;  50(32):四则运算 [X10]=[X10]-1
  50 2 11 0 200 10 11 0       ;  50(32):取数组变量值 [X11]=数组200([X10])(Int)
  50 20 1 11 20 0 0 0          ;  50(32):主角200个物品数量 [X20]=物品编号[X11]数量
  50 4 0 5 20 0 0 0             ;  50(32):变量判断 If[X20]>0 then JMP=0 else JMP=1
  36 256 26 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label26
  50 26 0 0 330 25 21 0       ;  50(32):读取给定地址数据 [X21]=[19-14A](Int)
  50 4 0 2 21 0 0 0             ;  50(32):变量判断 If[X21]=0  then JMP=0 else JMP=1
  36 256 6 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label27
  1 24 449 0                   ;  1(1):[???]说: 身上的物品太多了。（对话请自行修改）
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label27
;:Label26
  50 1 0 0 100 0 120 0          ;  50(32):数组变量赋值数组100(0)=120(Int)
  50 1 0 0 100 1 130 0          ;  50(32):数组变量赋值数组100(1)=130(Int)
  50 1 0 0 100 2 140 0          ;  50(32):数组变量赋值数组100(2)=140(Int)
  50 8 0 28 120 0 0 0          ;  50(32):读对话到字符串  Str120=talk(28)（对话28为“存取1个”，请自行修改）
  50 8 0 29 130 0 0 0          ;  50(32):读对话到字符串  Str130=talk(29)（对话29为“存取10个”，请自行修改）
  50 8 0 30 140 0 0 0          ;  50(32):读对话到字符串  Str140=talk(30)（对话30为“存取100个”，请自行修改）
  50 34 0 100 85 120 64 0       ;  50(32):处理背景位置(100,85) Width=120 Height=64
  50 39 0 3 100 22 105 90       ;  50(32):菜单选择菜单个数3Str100()返回=[X22]显示位置(105,90)
  50 4 0 0 22 1 0 0             ;  50(32):变量判断 If[X22]<1 then JMP=0 else JMP=1
  36 256 251 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label28
  50 4 0 2 22 1 0 0             ;  50(32):变量判断 If[X22]=1  then JMP=0 else JMP=1
  36 256 122 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label29
  50 4 0 2 22 2 0 0             ;  50(32):变量判断 If[X22]=2  then JMP=0 else JMP=1
  36 256 55 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label30
  50 17 1 1 11 86 12 0          ;  50(32):读取属性 [X12]=物品[X11]属性偏移86
  50 4 0 0 12 100 0 0          ;  50(32):变量判断 If[X12]<100 then JMP=0 else JMP=1
  36 256 29 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label31
  50 3 0 0 12 12 -100 0       ;  50(32):四则运算 [X12]=[X12]+-100
  50 16 101 1 11 86 12 0       ;  50(32):保存属性物品[X11]属性偏移86=[X12]
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  2 0 100                      ;  2(2):得到物品[腐骨穿心膏][100]
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label31
  1 32 449 0                   ;  1(1):[???]说: 没那么多物品。（对话请自行修改）
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label30
  50 17 1 1 11 86 12 0          ;  50(32):读取属性 [X12]=物品[X11]属性偏移86
  50 4 0 0 12 10 0 0          ;  50(32):变量判断 If[X12]<10 then JMP=0 else JMP=1
  36 256 29 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label32
  50 3 0 0 12 12 -10 0          ;  50(32):四则运算 [X12]=[X12]+-10
  50 16 101 1 11 86 12 0       ;  50(32):保存属性物品[X11]属性偏移86=[X12]
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  2 0 10                      ;  2(2):得到物品[腐骨穿心膏][10]
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label32
  1 32 449 0                   ;  1(1):[???]说: 没那么多物品。（对话请自行修改）
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label29
  50 17 1 1 11 86 12 0          ;  50(32):读取属性 [X12]=物品[X11]属性偏移86
  50 3 0 0 12 12 -1 0          ;  50(32):四则运算 [X12]=[X12]+-1
  50 16 101 1 11 86 12 0       ;  50(32):保存属性物品[X11]属性偏移86=[X12]
  50 32 0 11 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X11]
  2 0 1                         ;  2(2):得到物品[腐骨穿心膏][1]
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label25
  50 3 0 0 0 0 50 0             ;  50(32):四则运算 [X0]=[X0]+50
  50 0 15 0 0 0 0 0             ;  50(32):变量赋值 [X15]=0
;:Label33
  50 1 101 0 800 15 0 0       ;  50(32):数组变量赋值数组800([X15])=0(Int)
  50 1 101 0 200 15 0 0       ;  50(32):数组变量赋值数组200([X15])=0(Int)
  50 3 0 0 15 15 1 0          ;  50(32):四则运算 [X15]=[X15]+1
  50 4 0 0 15 50 0 0          ;  50(32):变量判断 If[X15]<50 then JMP=0 else JMP=1
  36 256 -36 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label33
  50 0 15 0 0 0 0 0             ;  50(32):变量赋值 [X15]=0
  50 0 6 0 0 0 0 0             ;  50(32):变量赋值 [X6]=0
  50 4 0 2 6 0 0 0             ;  50(32):变量判断 If[X6]=0  then JMP=0 else JMP=1
  36 256 -747 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label34
;:Label28
;:Label23
;:Label0
  -1                            ;  -1(FFFF):事件结束

[ 本帖最后由 KG 于 2007-1-5 21:43 编辑 ]

KG · 发表于 2007-3-1 09:52

准备工作
１．对话２９７９ : %d
２．对话２９８４ : 请输入：

;Kdefnum=824
  50 0 0 120 0 0 0 0          ;  50(32):变量赋值 [X0]=120
  50 0 120 -1 0 0 0 0          ;  50(32):变量赋值 [X120]=-1
  50 0 130 -1 0 0 0 0          ;  50(32):变量赋值 [X130]=-1
  50 0 140 -1 0 0 0 0          ;  50(32):变量赋值 [X140]=-1
  50 0 150 -1 0 0 0 0          ;  50(32):变量赋值 [X150]=-1
  50 0 160 -1 0 0 0 0          ;  50(32):变量赋值 [X160]=-1
;:Label4
  50 34 0 50 50 125 25 0       ;  50(32):处理背景位置(50,50) Width=125 Height=25
  50 8 0 2984 1000 0 0 0       ;  50(32):读对话到字符串  Str[X1000]=talk(2984)
  50 33 0 1000 54 54 1797 0    ;  50(32):显示字符串显示字符串1000 (54,54)Color1797
  50 0 8 120 0 0 0 0          ;  50(32):变量赋值 [X8]=120
;:Label1
  50 32 0 8 4 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数4=[X8]
  50 4 0 2 0 -1 0 0             ;  50(32):变量判断 If[X0]=-1  then JMP=0 else JMP=1
  36 256 32 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 8 0 2979 2 0 0 0          ;  50(32):读对话到字符串  Str[X2]=talk(2979)
  50 32 0 8 5 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数5=[X8]
  50 9 1 1200 2 0 0 0          ;  50(32):Sprintf  Str[X1200]=CStr([X0]) FORMAT=Str[X2]
  50 33 1 1200 8 54 1797 0    ;  50(32):显示字符串显示字符串1200 ([X8],54)Color1797
;:Label0
  50 3 0 0 8 8 10 0             ;  50(32):四则运算 [X8]=[X8]+10
  50 4 0 2 8 170 0 0          ;  50(32):变量判断 If[X8]=170  then JMP=0 else JMP=1
  36 256 0 -72                ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
;:Label6
;:Label9
;:Label11
;:Label12
;:Label14
;:Label15
  50 0 3 57 0 0 0 0             ;  50(32):变量赋值 [X3]=57
  50 0 4 159 0 0 0 0          ;  50(32):变量赋值 [X4]=159
  50 35 1 0 0 0 0 0             ;  50(32):读取键盘 [X1]=键值
  50 4 0 5 0 120 0 0          ;  50(32):变量判断 If[X0]>120 then JMP=0 else JMP=1
  36 256 0 173                ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 4 0 2 1 8 0 0             ;  50(32):变量判断 If[X1]=8  then JMP=0 else JMP=1
  36 256 0 37                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label3
  0                            ;  0(0)::空语句(清屏)
  50 3 0 1 0 0 10 0             ;  50(32):四则运算 [X0]=[X0]-10
  50 32 0 0 2 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数2=[X0]
  50 0 0 -1 0 0 0 0             ;  50(32):变量赋值 [X0]=-1
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 -189 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
;:Label3
  50 4 0 2 1 13 0 0             ;  50(32):变量判断 If[X1]=13  then JMP=0 else JMP=1
  36 256 264 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
  50 4 0 2 0 170 0 0          ;  50(32):变量判断 If[X0]=170  then JMP=0 else JMP=1
  36 256 -109 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  50 4 0 2 0 160 0 0          ;  50(32):变量判断 If[X0]=160  then JMP=0 else JMP=1
  36 256 0 88                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label7
  50 3 0 2 5 120 1000 0       ;  50(32):四则运算 [X5]=[X120]*1000
  50 3 0 2 6 130 100 0          ;  50(32):四则运算 [X6]=[X130]*100
  50 3 0 2 7 140 10 0          ;  50(32):四则运算 [X7]=[X140]*10
  50 3 1 0 5 5 6 0             ;  50(32):四则运算 [X5]=[X5]+[X6]
  50 3 1 0 5 5 7 0             ;  50(32):四则运算 [X5]=[X5]+[X7]
  50 3 1 0 5 5 150 0          ;  50(32):四则运算 [X5]=[X5]+[X150]
  50 4 0 0 5 3276 0 0          ;  50(32):变量判断 If[X5]<3276 then JMP=0 else JMP=1
  36 256 28 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
  50 4 0 5 5 3276 0 0          ;  50(32):变量判断 If[X5]>3276 then JMP=0 else JMP=1
  36 256 -193 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
  50 0 3 55 0 0 0 0             ;  50(32):变量赋值 [X3]=55
  50 0 4 157 0 0 0 0          ;  50(32):变量赋值 [X4]=157
;:Label8
;:Label7
;:Label2
  50 4 1 1 1 3 0 0             ;  50(32):变量判断 If[X1]<=[X3] then JMP=0 else JMP=1
  36 256 44 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label10
  50 4 1 1 1 4 0 0             ;  50(32):变量判断 If[X1]<=[X4] then JMP=0 else JMP=1
  36 256 0 -233                ;  36(24):跳转变量JMP是否为0否则跳转到:Label11
  50 4 0 4 1 150 0 0          ;  50(32):变量判断 If[X1]>=150 then JMP=0 else JMP=1
  36 256 0 -245                ;  36(24):跳转变量JMP是否为0否则跳转到:Label12
  50 3 0 1 1 1 150 0          ;  50(32):四则运算 [X1]=[X1]-150
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 20 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label13
;:Label10
  50 4 0 4 1 48 0 0             ;  50(32):变量判断 If[X1]>=48 then JMP=0 else JMP=1
  36 256 0 -277                ;  36(24):跳转变量JMP是否为0否则跳转到:Label14
  50 3 0 1 1 1 48 0             ;  50(32):四则运算 [X1]=[X1]-48
;:Label13
  50 8 0 2979 2 0 0 0          ;  50(32):读对话到字符串  Str[X2]=talk(2979)
  50 32 0 0 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X0]
  50 9 1 0 2 1 0 0             ;  50(32):Sprintf  Str[X0]=CStr([X1]) FORMAT=Str[X2]
  50 32 0 0 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X0]
  50 33 1 0 0 54 1797 0       ;  50(32):显示字符串显示字符串0 ([X0],54)Color1797
  50 32 0 0 4 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数4=[X0]
  50 3 0 0 0 1 0 0             ;  50(32):四则运算 [X0]=[X1]+0
  50 3 0 0 0 0 10 0             ;  50(32):四则运算 [X0]=[X0]+10
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 -361 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label15
;:Label5
  0                            ;  0(0)::空语句(清屏)
  50 4 0 2 0 170 0 0          ;  50(32):变量判断 If[X0]=170  then JMP=0 else JMP=1
  36 256 48 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label16
  50 4 0 2 0 160 0 0          ;  50(32):变量判断 If[X0]=160  then JMP=0 else JMP=1
  36 256 112 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label17
  50 4 0 2 0 150 0 0          ;  50(32):变量判断 If[X0]=150  then JMP=0 else JMP=1
  36 256 160 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label18
  50 4 0 2 0 140 0 0          ;  50(32):变量判断 If[X0]=140  then JMP=0 else JMP=1
  36 256 192 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label19
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 196 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label20
;:Label16
  50 3 0 2 120 120 10000 0    ;  50(32):四则运算 [X120]=[X120]*10000
  50 3 0 2 130 130 1000 0       ;  50(32):四则运算 [X130]=[X130]*1000
  50 3 0 2 140 140 100 0       ;  50(32):四则运算 [X140]=[X140]*100
  50 3 0 2 150 150 10 0       ;  50(32):四则运算 [X150]=[X150]*10
  50 3 1 0 120 120 130 0       ;  50(32):四则运算 [X120]=[X120]+[X130]
  50 3 1 0 120 120 140 0       ;  50(32):四则运算 [X120]=[X120]+[X140]
  50 3 1 0 120 120 150 0       ;  50(32):四则运算 [X120]=[X120]+[X150]
  50 3 1 0 120 120 160 0       ;  50(32):四则运算 [X120]=[X120]+[X160]
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 120 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label21
;:Label17
  50 3 0 2 120 120 1000 0       ;  50(32):四则运算 [X120]=[X120]*1000
  50 3 0 2 130 130 100 0       ;  50(32):四则运算 [X130]=[X130]*100
  50 3 0 2 140 140 10 0       ;  50(32):四则运算 [X140]=[X140]*10
  50 3 1 0 120 120 130 0       ;  50(32):四则运算 [X120]=[X120]+[X130]
  50 3 1 0 120 120 140 0       ;  50(32):四则运算 [X120]=[X120]+[X140]
  50 3 1 0 120 120 150 0       ;  50(32):四则运算 [X120]=[X120]+[X150]
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 60 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label22
;:Label18
  50 3 0 2 120 120 100 0       ;  50(32):四则运算 [X120]=[X120]*100
  50 3 0 2 130 130 10 0       ;  50(32):四则运算 [X130]=[X130]*10
  50 3 1 0 120 120 130 0       ;  50(32):四则运算 [X120]=[X120]+[X130]
  50 3 1 0 120 120 140 0       ;  50(32):四则运算 [X120]=[X120]+[X140]
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 16 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label23
;:Label19
  50 3 0 2 120 120 10 0       ;  50(32):四则运算 [X120]=[X120]*10
  50 3 1 0 120 120 130 0       ;  50(32):四则运算 [X120]=[X120]+[X130]
;:Label23
;:Label22
;:Label21
;:Label20
  50 8 0 2979 2 0 0 0          ;  50(32):读对话到字符串  Str[X2]=talk(2979)
  50 9 1 1100 2 120 0 0       ;  50(32):Sprintf  Str[X1100]=CStr([X120]) FORMAT=Str[X2]
  50 36 0 1100 54 54 1797 0    ;  50(32):显示字符串并等待击键显示字符串1100 (54,54)Color1797
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2007-3-1 09:56

注意：
１．用主键盘数字键答（下面会教如何转用小键盘）
２．没禁其他按键（主因是懒）不过用其他键是不太可能答中
３．计算过程中不要出现大于32767的数值，否则很麻烦
４．要答案过万请自己加输入万位
５．可以要玩家用八进制或二进制答（下面会教）（十六进制难弄所以算了）

基本的加法、乘法、算术平均数题
加法：将蓝绿色都删掉
乘法：将绿色删掉，依｛｝中的说明改
算术平均数：将蓝色删掉，依＜＞中的说明改，记着小数自动舍去的

  50 0 30 43 0 0 0 0          ;  50(32):变量赋值 [X30]=43〔Str30就是半角加号"+"了，要全角"＋"就改成-12383〕{乘号"×"就-11871}<逗号','就65>
  50 0 40 25637 0 0 0 0       ;  50(32):变量赋值 [X40]=25637〔Str40就是"%d"了〕
  50 0 11 0 0 0 0 0             ;  50(32):变量赋值 [X11]=0〔循环用〕
  50 0 12 100 0 0 0 0          ;  50(32):变量赋值 [X12]=100〔循环用〕
  50 0 13 56 0 0 0 0          ;  50(32):变量赋值 [X13]=56〔循环用〕
  50 0 14 88 0 0 0 0          ;  50(32):变量赋值 [X14]=88〔循环用〕
;:Label0
  50 38 0 1000 10 0 0 0       ;  50(32):随机数 [X10]=Random(1000)｛要调低｝<可调高>
  50 3 0 0 10 10 1 0          ;  50(32):四则运算 [X10]=[X10]+1｛以免出现0，可改大加难度｝
  50 1 3 0 0 11 10 0          ;  50(32):数组变量赋值数组0([X11])=[X10](Int)
  50 3 0 0 11 11 1 0          ;  50(32):四则运算 [X11]=[X11]+1
  50 4 0 0 11 5 0 0             ;  50(32):变量判断 If[X11]<5 then JMP=0 else JMP=1〔造多少个随机数〕｛要调低｝
  36 256 -36 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 9 1 100 40 0 0 0          ;  50(32):Sprintf  Str100=Cstr([X0]) FORMAT=Str40〔造出各数值转换成的数字〕
  50 9 1 110 40 1 0 0          ;  50(32):Sprintf  Str110=Cstr([X1]) FORMAT=Str40
  50 9 1 120 40 2 0 0          ;  50(32):Sprintf  Str120=Cstr([X2]) FORMAT=Str40
  50 9 1 130 40 3 0 0          ;  50(32):Sprintf  Str130=Cstr([X3]) FORMAT=Str40
  50 9 1 140 40 4 0 0          ;  50(32):Sprintf  Str140=Cstr([X4]) FORMAT=Str40
  50 34 0 40 70 250 20 -1       ;  50(32):处理背景位置(40,70) Width=250 Height=20
;:Label1
  50 32 0 12 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X12]
  50 33 1 100 13 72 1797 0    ;  50(32):显示字符串显示字符串100 ([X13],72)Color1797
  50 33 1 30 14 72 1797 0       ;  50(32):显示字符串显示字符串30 ([X14],72)Color1797
  50 3 0 0 12 12 10 0          ;  50(32):四则运算 [X12]=[X12]+10〔循环到下一条字符串〕
  50 3 0 0 13 13 48 0          ;  50(32):四则运算 [X13]=[X13]+48〔移数字显示位置X轴〕
  50 3 0 0 14 14 48 0          ;  50(32):四则运算 [X14]=[X14]+48〔移符号显示位置X轴〕
  50 4 0 0 12 140 0 0          ;  50(32):变量判断 If[X12]<140 then JMP=0 else JMP=1〔循环次数〕｛要调低｝
  36 256 -60 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 33 0 140 248 72 1797 0    ;  50(32):显示字符串显示字符串140 (248,72)Color1797
  50 37 0 5000 0 0 0 0          ;  50(32):延时延时5000〔限显示时间，改成读取键盘便无限时了〕
  0                            ;  0(0)::空语句(清屏)
  50 8 0 2980 200 0 0 0       ;  50(32):读对话到字符串  Str200=talk(2980)〔talk(2980)：输入千位数〕〔用循环要更多指令所以我不用了〕
  50 8 0 2981 210 0 0 0       ;  50(32):读对话到字符串  Str210=talk(2981)〔talk(2981)：输入百位数〕
  50 8 0 2982 220 0 0 0       ;  50(32):读对话到字符串  Str220=talk(2982)〔talk(2982)：输入十位数〕
  50 8 0 2983 230 0 0 0       ;  50(32):读对话到字符串  Str230=talk(2983)〔talk(2983)：输入个位数〕
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 200 108 72 26211 0    ;  50(32):显示字符串显示字符串200 (108,72)Color26211
  50 35 50 0 0 0 0 0          ;  50(32):读取键盘 [X50]=键值
  0                            ;  0(0)::空语句(清屏)
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 210 108 72 26211 0    ;  50(32):显示字符串显示字符串210 (108,72)Color26211
  50 35 51 0 0 0 0 0          ;  50(32):读取键盘 [X51]=键值
  0                            ;  0(0)::空语句(清屏)
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 220 108 72 26211 0    ;  50(32):显示字符串显示字符串220 (108,72)Color26211
  50 35 52 0 0 0 0 0          ;  50(32):读取键盘 [X52]=键值
  0                            ;  0(0)::空语句(清屏)
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 230 108 72 26211 0    ;  50(32):显示字符串显示字符串230 (108,72)Color26211
  50 35 53 0 0 0 0 0          ;  50(32):读取键盘 [X53]=键值
  0                            ;  0(0)::空语句(清屏)
  50 3 1 0 5 0 1 0             ;  50(32):四则运算 [X5]=[X0]+[X1]〔计算答案〕{改成2}
  50 3 1 0 5 5 2 0             ;  50(32):四则运算 [X5]=[X5]+[X2]
  50 3 1 0 5 5 3 0             ;  50(32):四则运算 [X5]=[X5]+[X3]
  50 3 1 0 5 5 4 0             ;  50(32):四则运算 [X5]=[X5]+[X4]
  50 3 0 3 5 5 5 0             ;  50(32):四则运算 [X5]=[X5]/5
  50 9 1 150 40 5 0 0          ;  50(32):Sprintf  Str150=Cstr([X5]) FORMAT=Str40
  50 3 0 1 50 50 48 0          ;  50(32):四则运算 [X50]=[X50]-48〔如用小键盘数字就改150〕
  50 3 0 1 51 51 48 0          ;  50(32):四则运算 [X51]=[X51]-48
  50 3 0 1 52 52 48 0          ;  50(32):四则运算 [X52]=[X52]-48
  50 3 0 1 53 53 48 0          ;  50(32):四则运算 [X53]=[X53]-48
  50 3 0 2 50 50 1000 0       ;  50(32):四则运算 [X50]=[X50]*1000〔改這個令玩家要用其他進制答，八進就改512〕
  50 3 0 2 51 51 100 0          ;  50(32):四则运算 [X51]=[X51]*100〔八進就改64〕
  50 3 0 2 52 52 10 0          ;  50(32):四则运算 [X52]=[X52]*10〔八進就改8〕
  50 3 1 0 55 50 51 0          ;  50(32):四则运算 [X55]=[X50]+[X51]〔计算玩家输入数值〕
  50 3 1 0 55 55 52 0          ;  50(32):四则运算 [X55]=[X55]+[X52]
  50 3 1 0 55 55 53 0          ;  50(32):四则运算 [X55]=[X55]+[X53]
  50 4 1 2 5 55 0 0             ;  50(32):变量判断 If[X5]=[X55]  then JMP=0 else JMP=1〔判断是否正确〕
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 0 15 2978 0 0 0 0          ;  50(32):变量赋值 [X15]=2978〔talk(2978)：错误！答案是〕
  50 32 0 15 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X15]
;:Label2
  50 8 0 2979 250 0 0 0       ;  50(32):读对话到字符串  Str250=talk(2979)〔talk(2979)：正确！答案是〕
  50 11 260 250 150 0 0 0       ;  50(32):字符串合并 Str260=Str250+Str150〔将答案和上面的句子合并〕
  50 36 0 260 108 72 26211 0    ;  50(32):显示字符串并等待击键显示字符串260 (108,72)Color26211
  -1                            ;  -1(FFFF):事件结束

——————————————————————————————————————————————
;Kdefnum=1
  50 0 40 25637 0 0 0 0       ;  50(32):变量赋值 [X40]=25637
  50 0 11 0 0 0 0 0             ;  50(32):变量赋值 [X11]=0
  50 0 12 100 0 0 0 0          ;  50(32):变量赋值 [X12]=100
  50 0 13 56 0 0 0 0          ;  50(32):变量赋值 [X13]=56
  50 0 14 88 0 0 0 0          ;  50(32):变量赋值 [X14]=88
  50 0 16 20 0 0 0 0          ;  50(32):变量赋值 [X16]=20
;:Label0
  50 38 0 1000 10 0 0 0       ;  50(32):随机数 [X10]=Random(1000)
  50 38 0 2 17 0 0 0          ;  50(32):随机数 [X17]=Random(2)〔随机加减〕
  50 1 3 0 0 11 10 0          ;  50(32):数组变量赋值数组0([X11])=[X10](Int)
  50 1 3 0 6 11 17 0          ;  50(32):数组变量赋值数组6([X11])=[X17](Int)
  50 3 0 0 11 11 1 0          ;  50(32):四则运算 [X11]=[X11]+1
  50 4 0 0 11 5 0 0             ;  50(32):变量判断 If[X11]<5 then JMP=0 else JMP=1
  36 256 -52 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 38 0 1000 4 0 0 0          ;  50(32):随机数 [X4]=Random(1000)
  50 9 1 100 40 0 0 0          ;  50(32):Sprintf  Str100=Cstr([X0]) FORMAT=Str40
  50 9 1 110 40 1 0 0          ;  50(32):Sprintf  Str110=Cstr([X1]) FORMAT=Str40
  50 9 1 120 40 2 0 0          ;  50(32):Sprintf  Str120=Cstr([X2]) FORMAT=Str40
  50 9 1 130 40 3 0 0          ;  50(32):Sprintf  Str130=Cstr([X3]) FORMAT=Str40
  50 9 1 140 40 4 0 0          ;  50(32):Sprintf  Str140=Cstr([X4]) FORMAT=Str40
  50 32 0 6 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X6]
  50 3 1 0 5 0 1 0             ;  50(32):四则运算 [X5]=[X0]+[X1]
  50 32 0 7 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X7]
  50 3 1 0 5 5 2 0             ;  50(32):四则运算 [X5]=[X5]+[X2]
  50 32 0 8 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X8]
  50 3 1 0 5 5 3 0             ;  50(32):四则运算 [X5]=[X5]+[X3]
  50 32 0 9 3 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数3=[X9]
  50 3 1 0 5 5 4 0             ;  50(32):四则运算 [X5]=[X5]+[X4]
  50 9 1 150 40 5 0 0          ;  50(32):Sprintf  Str150=Cstr([X5]) FORMAT=Str40
  50 3 0 2 20 6 2 0             ;  50(32):四则运算 [X20]=[X6]*2〔将Str20变成加减号的步骤，要全角改256，下面都要改〕
  50 3 0 2 22 7 2 0             ;  50(32):四则运算 [X22]=[X7]*2
  50 3 0 2 24 8 2 0             ;  50(32):四则运算 [X24]=[X8]*2
  50 3 0 2 26 9 2 0             ;  50(32):四则运算 [X26]=[X9]*2
  50 3 0 0 20 20 43 0          ;  50(32):四则运算 [X20]=[X20]+43〔要全角改-12383，上面都要改〕
  50 3 0 0 22 22 43 0          ;  50(32):四则运算 [X22]=[X22]+43
  50 3 0 0 24 24 43 0          ;  50(32):四则运算 [X24]=[X24]+43
  50 3 0 0 26 26 43 0          ;  50(32):四则运算 [X26]=[X26]+43
  50 34 0 40 70 250 20 -1       ;  50(32):处理背景位置(40,70) Width=250 Height=20
;:Label1
  50 32 0 12 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X12]
  50 33 1 100 13 72 1797 0    ;  50(32):显示字符串显示字符串100 ([X13],72)Color1797
  50 32 0 16 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X16]
  50 33 1 20 14 72 1797 0       ;  50(32):显示字符串显示字符串20 ([X14],72)Color1797
  50 3 0 0 12 12 10 0          ;  50(32):四则运算 [X12]=[X12]+10
  50 3 0 0 13 13 48 0          ;  50(32):四则运算 [X13]=[X13]+48
  50 3 0 0 14 14 48 0          ;  50(32):四则运算 [X14]=[X14]+48
  50 3 0 0 16 16 2 0          ;  50(32):四则运算 [X16]=[X16]+2
  50 4 0 0 12 140 0 0          ;  50(32):变量判断 If[X12]<140 then JMP=0 else JMP=1
  36 256 -76 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 33 0 140 248 72 1797 0    ;  50(32):显示字符串显示字符串140 (248,72)Color1797
  50 37 0 7000 0 0 0 0          ;  50(32):延时延时7000
  0                            ;  0(0)::空语句(清屏)
  50 8 0 2980 200 0 0 0       ;  50(32):读对话到字符串  Str200=talk(2980)
  50 8 0 2981 210 0 0 0       ;  50(32):读对话到字符串  Str210=talk(2981)
  50 8 0 2982 220 0 0 0       ;  50(32):读对话到字符串  Str220=talk(2982)
  50 8 0 2983 230 0 0 0       ;  50(32):读对话到字符串  Str230=talk(2983)
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 200 108 72 26211 0    ;  50(32):显示字符串显示字符串200 (108,72)Color26211
  50 35 50 0 0 0 0 0          ;  50(32):读取键盘 [X50]=键值
  0                            ;  0(0)::空语句(清屏)
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 210 108 72 26211 0    ;  50(32):显示字符串显示字符串210 (108,72)Color26211
  50 35 51 0 0 0 0 0          ;  50(32):读取键盘 [X51]=键值
  0                            ;  0(0)::空语句(清屏)
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 220 108 72 26211 0    ;  50(32):显示字符串显示字符串220 (108,72)Color26211
  50 35 52 0 0 0 0 0          ;  50(32):读取键盘 [X52]=键值
  0                            ;  0(0)::空语句(清屏)
  50 34 0 100 70 130 24 -1    ;  50(32):处理背景位置(100,70) Width=130 Height=24
  50 33 0 230 108 72 26211 0    ;  50(32):显示字符串显示字符串230 (108,72)Color26211
  50 35 53 0 0 0 0 0          ;  50(32):读取键盘 [X53]=键值
  0                            ;  0(0)::空语句(清屏)
  50 3 0 1 50 50 48 0          ;  50(32):四则运算 [X50]=[X50]-48
  50 3 0 1 51 51 48 0          ;  50(32):四则运算 [X51]=[X51]-48
  50 3 0 1 52 52 48 0          ;  50(32):四则运算 [X52]=[X52]-48
  50 3 0 1 53 53 48 0          ;  50(32):四则运算 [X53]=[X53]-48
  50 3 0 2 50 50 1000 0       ;  50(32):四则运算 [X50]=[X50]*1000
  50 3 0 2 51 51 100 0          ;  50(32):四则运算 [X51]=[X51]*100
  50 3 0 2 52 52 10 0          ;  50(32):四则运算 [X52]=[X52]*10
  50 3 1 0 55 50 51 0          ;  50(32):四则运算 [X55]=[X50]+[X51]
  50 3 1 0 55 55 52 0          ;  50(32):四则运算 [X55]=[X55]+[X52]
  50 3 1 0 55 55 53 0          ;  50(32):四则运算 [X55]=[X55]+[X53]
;:Label2
  50 0 28 30 0 0 0 0          ;  50(32):变量赋值 [X28]=30〔表格用〕
  50 0 29 32 0 0 0 0          ;  50(32):变量赋值 [X29]=32〔表格用〕
  50 0 30 -16475 0 0 0 0       ;  50(32):变量赋值 [X30]=-16475〔Str30就是"正"字〕
  50 0 32 29869 0 0 0 0       ;  50(32):变量赋值 [X32]=29869〔Str32就是"負"字〕
  50 34 0 144 60 36 44 -1       ;  50(32):处理背景位置(144,60) Width=36 Height=44
  50 39 0 2 28 40 150 66       ;  50(32):菜单选择菜单个数2Str28()返回=[X40]显示位置(150,66)
  50 4 0 2 40 0 0 0             ;  50(32):变量判断 If[X40]=0  then JMP=0 else JMP=1
  36 256 -60 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label2〔按Esc无效〕
  50 4 0 2 40 1 0 0             ;  50(32):变量判断 If[X40]=1  then JMP=0 else JMP=1
  36 256 69 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label3〔选正的去Label3，选负的继续〕
  50 3 0 2 60 5 2 0             ;  50(32):四则运算 [X60]=[X5]*2〔负转方便正查答案〕
  50 3 1 1 61 5 60 0          ;  50(32):四则运算 [X61]=[X5]-[X60]
  50 4 1 2 61 55 0 0          ;  50(32):变量判断 If[X61]=[X55]  then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  50 0 15 2978 0 0 0 0          ;  50(32):变量赋值 [X15]=2978
  50 32 0 15 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X15]
;:Label4
  50 8 0 2979 250 0 0 0       ;  50(32):读对话到字符串  Str250=talk(2979)
  50 11 260 250 150 0 0 0       ;  50(32):字符串合并 Str260=Str250+Str150
  50 36 0 260 108 72 26211 0    ;  50(32):显示字符串并等待击键显示字符串260 (108,72)Color26211
  -1                            ;  -1(FFFF):事件结束
;:Label3
  50 4 1 2 5 55 0 0             ;  50(32):变量判断 If[X5]=[X55]  then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label5
  50 0 15 2978 0 0 0 0          ;  50(32):变量赋值 [X15]=2978
  50 32 0 15 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X15]
;:Label5
  50 8 0 2979 250 0 0 0       ;  50(32):读对话到字符串  Str250=talk(2979)
  50 11 260 250 150 0 0 0       ;  50(32):字符串合并 Str260=Str250+Str150
  50 36 0 260 108 72 26211 0    ;  50(32):显示字符串并等待击键显示字符串260 (108,72)Color26211
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2007-3-1 09:57

更多信息查看：http://www.txdx.net/thread-400425-1-1.html

作者：黄顺坤

我在2007-2-2发表了我的第一个指令飞机场系统,现在看起来绝对是小儿科了

,所以今天下午趁着论坛关闭就搞了一个新飞机场系统,以纪念我的老版的飞机场系统....

新飞机场系统：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是新飞机场系统。
2、用法：系统将会自动算出你应该付出的价钱,故此指令可以用在任何一个先前没有跳转窗口的场景
               请仔细阅读红色字体的注释
               将TXT里的指令码复制，然后在FISHEDIT0.72事件修改中选择“从剪贴板复制”制作为事件
3、调用方式：直接运行事件
4、如有问题，请与本人联系

;Kdefnum=16
  0                            ;  0(0)::空语句(清屏)
  1 3024 119 0                ;  1(1):[???]说: 这里是传说中的飞机场，你*们可以去任何一个客栈。
  0                            ;  0(0)::空语句(清屏)
  50 8 0 3161 140 0 0 0       ;  50(32):读对话到字符串  Str[X140]=talk(3161)
  50 26 0 0 2952 28 15 0       ;  50(32):读取给定地址数据 [X15]=[1C-B88+0](Int)--目前大地图X
  50 26 0 0 2956 28 16 0       ;  50(32):读取给定地址数据 [X16]=[1C-B8C+0](Int)--目前大地图Y
  50 26 0 0 10588 29 70 0       ;  50(32):读取给定地址数据 [X70]=[1D-295C+0](Int)--目前场景编号
  50 26 0 0 10586 29 71 0       ;  50(32):读取给定地址数据 [X71]=[1D-295A+0](Int)--目前场景X
  50 26 0 0 10590 29 72 0       ;  50(32):读取给定地址数据 [X72]=[1D-295E+0](Int)--目前场景Y
  50 0 5 0 0 0 0 0             ;  50(32):变量赋值 [X5]=0
  50 0 9 75 0 0 0 0             ;  50(32):变量赋值 [X9]=75
  50 0 10 1 0 0 0 0             ;  50(32):变量赋值 [X10]=1---------------------------------第一个场景编号
  50 0 11 3 0 0 0 0             ;  50(32):变量赋值 [X11]=3---------------------------------第二个场景编号
  50 0 12 40 0 0 0 0          ;  50(32):变量赋值 [X12]=40-------------------------------第三个场景编号
  50 0 13 60 0 0 0 0          ;  50(32):变量赋值 [X13]=60-------------------------------第四个场景编号
  50 0 14 61 0 0 0 0          ;  50(32):变量赋值 [X14]=61-------------------------------第五个场景编号
  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 5 0 0          ;  50(32):变量判断 If[X1000]<5 then JMP=0 else JMP=1
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 8 0 3022 400 0 0 0       ;  50(32):读对话到字符串  Str[X400]=talk(3022)
  50 34 0 15 35 285 27 0       ;  50(32):处理背景位置(15,35) Width=285 Height=27
  50 33 0 400 20 40 1797 0    ;  50(32):显示字符串显示字符串400 (20,40)Color1797
  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 1 10 0 0 0 0             ;  50(32):变量赋值 [X1]=10
  50 0 26 30 0 0 0 0          ;  50(32):变量赋值 [X26]=30
;:Label3
  50 32 0 1 5 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数5=[X1]
  50 3 0 0 2 10 0 0             ;  50(32):四则运算 [X2]=[X10]+0
  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 2 2 400 0 0          ;  50(32):取属性名称 Str400=场景[X2]
  50 17 1 2 2 24 17 0          ;  50(32):读取属性 [X17]=场景[X2]属性偏移24
  50 17 1 2 2 26 18 0          ;  50(32):读取属性 [X18]=场景[X2]属性偏移26
  50 3 1 1 19 17 15 0          ;  50(32):四则运算 [X19]=[X17]-[X15]
  50 4 0 1 19 0 0 0             ;  50(32):变量判断 If[X19]<=0 then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
  50 3 1 1 19 5 19 0          ;  50(32):四则运算 [X19]=[X5]-[X19]
;:Label1
  50 3 1 1 0 18 16 0          ;  50(32):四则运算 [X0]=[X18]-[X16]
  50 4 0 1 0 0 0 0             ;  50(32):变量判断 If[X0]<=0 then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 3 1 1 0 5 0 0             ;  50(32):四则运算 [X0]=[X5]-[X0]
;:Label2
  50 3 1 0 3 19 0 0             ;  50(32):四则运算 [X3]=[X19]+[X0]
  50 3 0 3 4 3 1 0             ;  50(32):四则运算 [X4]=[X3]/1
  50 32 0 9 4 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数4=[X9]
  50 3 0 0 9 4 0 0             ;  50(32):四则运算 [X9]=[X4]+0
  50 9 1 120 140 4 0 0          ;  50(32):Sprintf  Str[X120]=CStr([X4]) FORMAT=Str[X140]
  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 12 0 600 3 0 0 0          ;  50(32):空格字符串 Str[X600]=3个空格
  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 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 120 0 0 0    ;  50(32):字符串合并 Str[X1004]=Str[X800]+Str[X120]
  50 3 0 0 9 9 1 0             ;  50(32):四则运算 [X9]=[X9]+1
  50 3 0 0 1 1 1 0             ;  50(32):四则运算 [X1]=[X1]+1
  50 3 0 0 26 26 1 0          ;  50(32):四则运算 [X26]=[X26]+1
  50 3 0 0 1002 1002 1 0       ;  50(32):四则运算 [X1002]=[X1002]+1
  50 4 0 0 1002 5 0 0          ;  50(32):变量判断 If[X1002]<5 then JMP=0 else JMP=1
  36 256 -292 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 34 0 95 75 120 100 0       ;  50(32):处理背景位置(95,75) Width=120 Height=100
  50 39 0 5 1100 100 100 80    ;  50(32):菜单选择菜单个数5[X1100]()返回=[X100]显示位置(100,80)
  50 4 0 2 100 1 0 0          ;  50(32):变量判断 If[X100]=1  then JMP=0 else JMP=1
  36 256 0 133                ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  50 32 0 75 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X75]
  31 999 7 0                   ;  31(1F):判断银子是否够999是则跳转到:Label5
  0                            ;  0(0)::空语句(清屏)
  1 3215 119 0                ;  1(1):[???]说: 没钱就快滚！
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label5
  0                            ;  0(0)::空语句(清屏)
  1 3025 117 0                ;  1(1):[???]说: 请查收你的飞机票。
  0                            ;  0(0)::空语句(清屏)
  50 3 1 1 75 5 75 0          ;  50(32):四则运算 [X75]=[X5]-[X75]
  50 32 0 75 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X75]
  32 174 99                   ;  32(20):物品[银两]+[99]
  50 16 5 2 72 16 10 0          ;  50(32):保存属性场景[X72]属性偏移16=[X10]
  50 16 5 2 72 44 70 0          ;  50(32):保存属性场景[X72]属性偏移44=[X70]
  50 16 5 2 72 46 71 0          ;  50(32):保存属性场景[X72]属性偏移46=[X71]
  50 16 5 2 72 48 70 0          ;  50(32):保存属性场景[X72]属性偏移48=[X70]
  50 16 5 2 72 50 71 0          ;  50(32):保存属性场景[X72]属性偏移50=[X71]
  50 17 1 2 10 24 73 0          ;  50(32):读取属性 [X73]=场景[X10]属性偏移24
  50 17 1 2 10 26 74 0          ;  50(32):读取属性 [X74]=场景[X10]属性偏移26
  50 42 3 73 74 0 0 0          ;  50(32):改变主地图坐标 ([X73],[X74])
  50 24 13 10 3 17 18 80       ;  50(32):读取S*数据 [X80]=场景[X10]层3坐标([X17],[X18])
  50 22 3 10 80 4 81 0          ;  50(32):读取D*数据 [X81]=场景[X10]场景事件[X80]属性4
  50 21 3 10 80 4 17 0          ;  50(32):保存D*数据场景[X10]场景事件[X80]属性4=17
  -1                            ;  -1(FFFF):事件结束
;:Label4
  50 4 0 2 100 2 0 0          ;  50(32):变量判断 If[X100]=2  then JMP=0 else JMP=1
  36 256 0 133                ;  36(24):跳转变量JMP是否为0否则跳转到:Label6
  50 32 0 76 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X76]
  31 0 7 0                      ;  31(1F):判断银子是否够0是则跳转到:Label7
  0                            ;  0(0)::空语句(清屏)
  1 3215 119 0                ;  1(1):[???]说: 没钱就快滚！
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label7
  0                            ;  0(0)::空语句(清屏)
  1 3025 117 0                ;  1(1):[???]说: 请查收你的飞机票。
  0                            ;  0(0)::空语句(清屏)
  50 3 1 1 76 5 76 0          ;  50(32):四则运算 [X76]=[X5]-[X76]
  50 32 0 76 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X76]
  32 174 99                   ;  32(20):物品[银两]+[99]
  50 16 5 2 72 16 11 0          ;  50(32):保存属性场景[X72]属性偏移16=[X11]
  50 16 5 2 72 44 70 0          ;  50(32):保存属性场景[X72]属性偏移44=[X70]
  50 16 5 2 72 46 71 0          ;  50(32):保存属性场景[X72]属性偏移46=[X71]
  50 16 5 2 72 48 70 0          ;  50(32):保存属性场景[X72]属性偏移48=[X70]
  50 16 5 2 72 50 71 0          ;  50(32):保存属性场景[X72]属性偏移50=[X71]
  50 17 1 2 11 24 73 0          ;  50(32):读取属性 [X73]=场景[X11]属性偏移24
  50 17 1 2 11 26 74 0          ;  50(32):读取属性 [X74]=场景[X11]属性偏移26
  50 42 3 73 74 0 0 0          ;  50(32):改变主地图坐标 ([X73],[X74])
  50 24 13 11 3 17 18 80       ;  50(32):读取S*数据 [X80]=场景[X11]层3坐标([X17],[X18])
  50 22 3 11 80 4 81 0          ;  50(32):读取D*数据 [X81]=场景[X11]场景事件[X80]属性4
  50 21 3 11 80 4 17 0          ;  50(32):保存D*数据场景[X11]场景事件[X80]属性4=17
  -1                            ;  -1(FFFF):事件结束
;:Label6
  50 4 0 2 100 3 0 0          ;  50(32):变量判断 If[X100]=3  then JMP=0 else JMP=1
  36 256 0 133                ;  36(24):跳转变量JMP是否为0否则跳转到:Label8
  50 32 0 77 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X77]
  31 0 7 0                      ;  31(1F):判断银子是否够0是则跳转到:Label9
  0                            ;  0(0)::空语句(清屏)
  1 3215 119 0                ;  1(1):[???]说: 没钱就快滚！
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label9
  0                            ;  0(0)::空语句(清屏)
  1 3025 117 0                ;  1(1):[???]说: 请查收你的飞机票。
  0                            ;  0(0)::空语句(清屏)
  50 3 1 1 77 5 77 0          ;  50(32):四则运算 [X77]=[X5]-[X77]
  50 32 0 77 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X77]
  32 174 99                   ;  32(20):物品[银两]+[99]
  50 16 5 2 72 16 12 0          ;  50(32):保存属性场景[X72]属性偏移16=[X12]
  50 16 5 2 72 44 70 0          ;  50(32):保存属性场景[X72]属性偏移44=[X70]
  50 16 5 2 72 46 71 0          ;  50(32):保存属性场景[X72]属性偏移46=[X71]
  50 16 5 2 72 48 70 0          ;  50(32):保存属性场景[X72]属性偏移48=[X70]
  50 16 5 2 72 50 71 0          ;  50(32):保存属性场景[X72]属性偏移50=[X71]
  50 17 1 2 12 24 73 0          ;  50(32):读取属性 [X73]=场景[X12]属性偏移24
  50 17 1 2 12 26 74 0          ;  50(32):读取属性 [X74]=场景[X12]属性偏移26
  50 42 3 73 74 0 0 0          ;  50(32):改变主地图坐标 ([X73],[X74])
  50 24 13 12 3 17 18 80       ;  50(32):读取S*数据 [X80]=场景[X12]层3坐标([X17],[X18])
  50 22 3 12 80 4 81 0          ;  50(32):读取D*数据 [X81]=场景[X12]场景事件[X80]属性4
  50 21 3 12 80 4 17 0          ;  50(32):保存D*数据场景[X12]场景事件[X80]属性4=17
  -1                            ;  -1(FFFF):事件结束
;:Label8
  50 4 0 2 100 4 0 0          ;  50(32):变量判断 If[X100]=4  then JMP=0 else JMP=1
  36 256 0 133                ;  36(24):跳转变量JMP是否为0否则跳转到:Label10
  50 32 0 78 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X78]
  31 0 7 0                      ;  31(1F):判断银子是否够0是则跳转到:Label11
  0                            ;  0(0)::空语句(清屏)
  1 3215 119 0                ;  1(1):[???]说: 没钱就快滚！
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label11
  0                            ;  0(0)::空语句(清屏)
  1 3025 117 0                ;  1(1):[???]说: 请查收你的飞机票。
  0                            ;  0(0)::空语句(清屏)
  50 3 1 1 78 5 78 0          ;  50(32):四则运算 [X78]=[X5]-[X78]
  50 32 0 78 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X78]
  32 174 99                   ;  32(20):物品[银两]+[99]
  50 16 5 2 72 16 13 0          ;  50(32):保存属性场景[X72]属性偏移16=[X13]
  50 16 5 2 72 44 70 0          ;  50(32):保存属性场景[X72]属性偏移44=[X70]
  50 16 5 2 72 46 71 0          ;  50(32):保存属性场景[X72]属性偏移46=[X71]
  50 16 5 2 72 48 70 0          ;  50(32):保存属性场景[X72]属性偏移48=[X70]
  50 16 5 2 72 50 71 0          ;  50(32):保存属性场景[X72]属性偏移50=[X71]
  50 17 1 2 13 24 73 0          ;  50(32):读取属性 [X73]=场景[X13]属性偏移24
  50 17 1 2 13 26 74 0          ;  50(32):读取属性 [X74]=场景[X13]属性偏移26
  50 42 3 73 74 0 0 0          ;  50(32):改变主地图坐标 ([X73],[X74])
  50 24 13 13 3 17 18 80       ;  50(32):读取S*数据 [X80]=场景[X13]层3坐标([X17],[X18])
  50 22 3 13 80 4 81 0          ;  50(32):读取D*数据 [X81]=场景[X13]场景事件[X80]属性4
  50 21 3 13 80 4 17 0          ;  50(32):保存D*数据场景[X13]场景事件[X80]属性4=17
  -1                            ;  -1(FFFF):事件结束
;:Label10
  50 4 0 2 100 5 0 0          ;  50(32):变量判断 If[X100]=5  then JMP=0 else JMP=1
  36 256 0 109                ;  36(24):跳转变量JMP是否为0否则跳转到:Label12
  50 32 0 79 1 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数1=[X79]
  31 0 7 0                      ;  31(1F):判断银子是否够0是则跳转到:Label13
  0                            ;  0(0)::空语句(清屏)
  1 3215 119 0                ;  1(1):[???]说: 没钱就快滚！
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label13
  0                            ;  0(0)::空语句(清屏)
  1 3025 117 0                ;  1(1):[???]说: 请查收你的飞机票。
  0                            ;  0(0)::空语句(清屏)
  50 3 1 1 79 5 79 0          ;  50(32):四则运算 [X79]=[X5]-[X79]
  50 32 0 79 2 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数2=[X79]
  32 174 99                   ;  32(20):物品[银两]+[99]
  50 16 5 2 72 16 14 0          ;  50(32):保存属性场景[X72]属性偏移16=[X14]
  50 16 5 2 72 44 70 0          ;  50(32):保存属性场景[X72]属性偏移44=[X70]
  50 16 5 2 72 46 71 0          ;  50(32):保存属性场景[X72]属性偏移46=[X71]
  50 16 5 2 72 48 70 0          ;  50(32):保存属性场景[X72]属性偏移48=[X70]
  50 16 5 2 72 50 71 0          ;  50(32):保存属性场景[X72]属性偏移50=[X71]
  50 17 1 2 14 24 73 0          ;  50(32):读取属性 [X73]=场景[X14]属性偏移24
  50 17 1 2 14 26 74 0          ;  50(32):读取属性 [X74]=场景[X14]属性偏移26
  50 42 3 73 74 0 0 0          ;  50(32):改变主地图坐标 ([X73],[X74])
  -1                            ;  -1(FFFF):事件结束
;:Label12
  0                            ;  0(0)::空语句(清屏)
  1 3023 0 0                   ;  1(1):[魏征]说: 走错路了，再见。
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
===========================================================================================

[ 本帖最后由 weyl 于 2008-7-23 14:43 编辑 ]

KG · 发表于 2007-3-1 09:59

骰子3个，和庄家比大小．之所以不用赌大小，是因为不管怎么变化都只有 1/2 机率，
而比大小会根据庄家掷出点数使获胜机率多变化，可玩性较高．
甚至可以加入猜数字功能，不过这个获胜机率太小了吧？

测试前的准备动作：
对话2977内容：你赢了．
对话2978内容：你输了．
对话2979内容：%d
对话2980内容：庄家回合：
对话2981内容：玩家回合：
对话2982内容：赌一次10两．
对话2983内容：不好意思，你的钱不足．

smp场景贴图：4129为一点；4130为二点；4131为三点；4132为四点；4133为五点；4134为六点
＊记得将骰子的四边角上透明色．

小生初出茅庐，难免有未尽善之处，还请各位大人包容
教学的传承是必要的，很闲的人可以讲解，我写的很简单应该容易入门吧？

;Kdefnum=825
  1 2982 73 4                   ;  1(1):[南贤]说: 赌一次10两．
  0                            ;  0(0)::空语句(清屏)
  11 2 0                      ;  11(B):是否住宿是则跳转到:Label0
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label0
  0                            ;  0(0)::空语句(清屏)
  31 10 6 0                   ;  31(1F):判断银子是否够10是则跳转到:Label1
  1 2983 73 4                   ;  1(1):[南贤]说: 不好意思，你的钱不足．
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束
;:Label1
  32 174 -10                   ;  32(20):物品[银两]+[-10]
  1 2980 73 4                   ;  1(1):[南贤]说: 庄家回合：
  0                            ;  0(0)::空语句(清屏)
  50 0 0 0 -1 -1 -1 -1          ;  50(32):变量赋值 [X0]=0
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 5 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
;:Label8
  1 2981 0 0                   ;  1(1):[金庸]说: 玩家回合：
  0                            ;  0(0)::空语句(清屏)
;:Label2
  50 34 0 60 140 200 50 0       ;  50(32):处理背景位置(60,140) Width=200 Height=50
  50 0 1 0 -1 -1 -1 -1          ;  50(32):变量赋值 [X1]=0
;:Label6
  50 4 0 5 1 50 -1 -1          ;  50(32):变量判断 If[X1]>50 then JMP=0 else JMP=1
  36 256 40 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 38 0 6 2 -1 -1 -1          ;  50(32):随机数 [X2]=Random(6)
  50 3 0 2 3 2 2 0             ;  50(32):四则运算 [X3]=[X2]*2
  50 3 0 0 3 3 8258 0          ;  50(32):四则运算 [X3]=[X3]+8258
  50 41 4 0 100 170 3 -1       ;  50(32):显示图片场景图片[X3] 位置(100,170)
  50 37 0 2 -1 -1 -1 -1       ;  50(32):延时延时2
;:Label3
  50 4 0 5 1 100 -1 -1          ;  50(32):变量判断 If[X1]>100 then JMP=0 else JMP=1
  36 256 40 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 38 0 6 4 -1 -1 -1          ;  50(32):随机数 [X4]=Random(6)
  50 3 0 2 5 4 2 0             ;  50(32):四则运算 [X5]=[X4]*2
  50 3 0 0 5 5 8258 0          ;  50(32):四则运算 [X5]=[X5]+8258
  50 41 4 0 160 170 5 -1       ;  50(32):显示图片场景图片[X5] 位置(160,170)
  50 37 0 3 -1 -1 -1 -1       ;  50(32):延时延时3
;:Label4
  50 38 0 6 6 -1 -1 -1          ;  50(32):随机数 [X6]=Random(6)
  50 3 0 2 7 6 2 0             ;  50(32):四则运算 [X7]=[X6]*2
  50 3 0 0 7 7 8258 0          ;  50(32):四则运算 [X7]=[X7]+8258
  50 41 4 0 220 170 7 -1       ;  50(32):显示图片场景图片[X7] 位置(220,170)
  50 4 0 2 1 0 -1 -1          ;  50(32):变量判断 If[X1]=0  then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label5
  50 37 0 300 -1 -1 -1 -1       ;  50(32):延时延时300
;:Label5
  50 37 0 5 -1 -1 -1 -1       ;  50(32):延时延时5
  50 3 0 0 1 1 1 -1             ;  50(32):四则运算 [X1]=[X1]+1
  50 4 0 1 1 150 -1 -1          ;  50(32):变量判断 If[X1]<=150 then JMP=0 else JMP=1
  36 256 -184 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  50 37 0 300 -1 -1 -1 -1       ;  50(32):延时延时300
  50 3 1 0 8 2 4 0             ;  50(32):四则运算 [X8]=[X2]+[X4]
  50 3 1 0 8 8 6 0             ;  50(32):四则运算 [X8]=[X8]+[X6]
  50 3 0 0 8 8 3 0             ;  50(32):四则运算 [X8]=[X8]+3
  50 4 0 2 0 1 -1 -1          ;  50(32):变量判断 If[X0]=1  then JMP=0 else JMP=1
  36 256 8 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  50 3 0 0 9 8 0 0             ;  50(32):四则运算 [X9]=[X8]+0
;:Label7
  50 8 0 2979 1000 0 0 0       ;  50(32):读对话到字符串  Str1000=talk(2979)
  50 9 1 1100 1000 8 0 0       ;  50(32):Sprintf  Str1100=Cstr([X8]) FORMAT=Str1000
  50 33 0 1100 155 168 1797 -1 ;  50(32):显示字符串显示字符串1100 (155,168)Color1797
  50 35 10 0 0 0 0 0          ;  50(32):读取键盘 [X10]=键值
  0                            ;  0(0)::空语句(清屏)
  50 3 0 0 0 0 1 0             ;  50(32):四则运算 [X0]=[X0]+1
  50 4 0 2 0 1 -1 -1          ;  50(32):变量判断 If[X0]=1  then JMP=0 else JMP=1
  36 256 -310 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
  50 4 1 1 8 9 0 0             ;  50(32):变量判断 If[X8]<=[X9] then JMP=0 else JMP=1
  36 256 19 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
  32 174 20                   ;  32(20):物品[银两]+[20]
  50 0 11 2977 0 0 0 0          ;  50(32):变量赋值 [X11]=2977
  50 32 0 11 3 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数3=[X11]
;:Label9
  50 8 0 2978 1200 0 0 0       ;  50(32):读对话到字符串  Str1200=talk(2978)
  50 36 0 1200 120 100 26211 -1 ;  50(32):显示字符串并等待击键显示字符串1200 (120,100)Color26211
  -1                            ;  -1(FFFF):事件结束

[ 本帖最后由 KG 于 2007-3-1 10:02 编辑 ]

KG · 发表于 2007-3-24 11:57

得到物品的：
参数1：物品编号
参数2：得到数量

;Kdefnum=817
  50 3 0 3 10045 28929 10000 0 ;  50(32):四则运算 [X10045]=[X28929]/10000
  50 3 0 2 10035 10045 10000 0 ;  50(32):四则运算 [X10035]=[X10045]*10000
  50 3 1 1 10034 28929 10035 0 ;  50(32):四则运算 [X10034]=[X28929]-[X10035]
  50 3 0 3 10044 10034 1000 0 ;  50(32):四则运算 [X10044]=[X10034]/1000
  50 3 0 2 10035 10044 1000 0 ;  50(32):四则运算 [X10035]=[X10044]*1000
  50 3 1 1 10034 10034 10035 0 ;  50(32):四则运算 [X10034]=[X10034]-[X10035]
  50 3 0 3 10043 10034 100 0    ;  50(32):四则运算 [X10043]=[X10034]/100
  50 3 0 2 10035 10043 100 0    ;  50(32):四则运算 [X10035]=[X10043]*100
  50 3 1 1 10034 10034 10035 0 ;  50(32):四则运算 [X10034]=[X10034]-[X10035]
  50 3 0 3 10042 10034 10 0    ;  50(32):四则运算 [X10042]=[X10034]/10
  50 3 0 2 10035 10042 10 0    ;  50(32):四则运算 [X10035]=[X10042]*10
  50 3 1 1 10034 10034 10035 0 ;  50(32):四则运算 [X10034]=[X10034]-[X10035]
  50 3 0 3 10041 10034 1 0    ;  50(32):四则运算 [X10041]=[X10034]/1
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  2 0 1                         ;  2(2):得到物品[小续命丹][1]
;:Label1
  50 4 0 5 10041 0 0 0          ;  50(32):变量判断 If[X10041]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 1                      ;  32(20):物品[小续命丹]+[1]
  50 3 0 1 10041 10041 1 0    ;  50(32):四则运算 [X10041]=[X10041]-1
  50 4 0 4 10041 0 0 0          ;  50(32):变量判断 If[X10041]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
;:Label0
;:Label3
  50 4 0 5 10042 0 0 0          ;  50(32):变量判断 If[X10042]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 10                      ;  32(20):物品[小续命丹]+[10]
  50 3 0 1 10042 10042 1 0    ;  50(32):四则运算 [X10042]=[X10042]-1
  50 4 0 4 10042 0 0 0          ;  50(32):变量判断 If[X10042]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
;:Label2
;:Label5
  50 4 0 5 10043 0 0 0          ;  50(32):变量判断 If[X10043]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 100                      ;  32(20):物品[小续命丹]+[100]
  50 3 0 1 10043 10043 1 0    ;  50(32):四则运算 [X10043]=[X10043]-1
  50 4 0 4 10043 0 0 0          ;  50(32):变量判断 If[X10043]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
;:Label4
;:Label7
  50 4 0 5 10044 0 0 0          ;  50(32):变量判断 If[X10044]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label6
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 1000                   ;  32(20):物品[小续命丹]+[1000]
  50 3 0 1 10044 10044 1 0    ;  50(32):四则运算 [X10044]=[X10044]-1
  50 4 0 4 10044 0 0 0          ;  50(32):变量判断 If[X10044]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
;:Label6
;:Label9
  50 4 0 5 10045 0 0 0          ;  50(32):变量判断 If[X10045]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label8
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 10000                   ;  32(20):物品[小续命丹]+[10000]
  50 3 0 1 10045 10045 1 0    ;  50(32):四则运算 [X10045]=[X10045]-1
  50 4 0 4 10045 0 0 0          ;  50(32):变量判断 If[X10045]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
;:Label8
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 -1                      ;  32(20):物品[小续命丹]+[-1]
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2007-3-24 11:59

减去物品的：
参数1：物品编号
参数2：减去数量

;Kdefnum=818
  50 3 0 3 10045 28929 10000 0 ;  50(32):四则运算 [X10045]=[X28929]/10000
  50 3 0 2 10035 10045 10000 0 ;  50(32):四则运算 [X10035]=[X10045]*10000
  50 3 1 1 10034 28929 10035 0 ;  50(32):四则运算 [X10034]=[X28929]-[X10035]
  50 3 0 3 10044 10034 1000 0 ;  50(32):四则运算 [X10044]=[X10034]/1000
  50 3 0 2 10035 10044 1000 0 ;  50(32):四则运算 [X10035]=[X10044]*1000
  50 3 1 1 10034 10034 10035 0 ;  50(32):四则运算 [X10034]=[X10034]-[X10035]
  50 3 0 3 10043 10034 100 0    ;  50(32):四则运算 [X10043]=[X10034]/100
  50 3 0 2 10035 10043 100 0    ;  50(32):四则运算 [X10035]=[X10043]*100
  50 3 1 1 10034 10034 10035 0 ;  50(32):四则运算 [X10034]=[X10034]-[X10035]
  50 3 0 3 10042 10034 10 0    ;  50(32):四则运算 [X10042]=[X10034]/10
  50 3 0 2 10035 10042 10 0    ;  50(32):四则运算 [X10035]=[X10042]*10
  50 3 1 1 10034 10034 10035 0 ;  50(32):四则运算 [X10034]=[X10034]-[X10035]
  50 3 0 3 10041 10034 1 0    ;  50(32):四则运算 [X10041]=[X10034]/1
;:Label1
  50 4 0 5 10041 0 0 0          ;  50(32):变量判断 If[X10041]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 -1                      ;  32(20):物品[小续命丹]+[-1]
  50 3 0 1 10041 10041 1 0    ;  50(32):四则运算 [X10041]=[X10041]-1
  50 4 0 4 10041 0 0 0          ;  50(32):变量判断 If[X10041]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
;:Label0
;:Label3
  50 4 0 5 10042 0 0 0          ;  50(32):变量判断 If[X10042]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 -10                      ;  32(20):物品[小续命丹]+[-10]
  50 3 0 1 10042 10042 1 0    ;  50(32):四则运算 [X10042]=[X10042]-1
  50 4 0 4 10042 0 0 0          ;  50(32):变量判断 If[X10042]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
;:Label2
;:Label5
  50 4 0 5 10043 0 0 0          ;  50(32):变量判断 If[X10043]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 -100                   ;  32(20):物品[小续命丹]+[-100]
  50 3 0 1 10043 10043 1 0    ;  50(32):四则运算 [X10043]=[X10043]-1
  50 4 0 4 10043 0 0 0          ;  50(32):变量判断 If[X10043]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
;:Label4
;:Label7
  50 4 0 5 10044 0 0 0          ;  50(32):变量判断 If[X10044]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label6
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 -1000                   ;  32(20):物品[小续命丹]+[-1000]
  50 3 0 1 10044 10044 1 0    ;  50(32):四则运算 [X10044]=[X10044]-1
  50 4 0 4 10044 0 0 0          ;  50(32):变量判断 If[X10044]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
;:Label6
;:Label9
  50 4 0 5 10045 0 0 0          ;  50(32):变量判断 If[X10045]>0 then JMP=0 else JMP=1
  36 256 0 31                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label8
  50 32 0 28928 1 0 0 0       ;  50(32):修改下一条指令参数下一条指令参数1=[X28928]
  32 0 -10000                   ;  32(20):物品[小续命丹]+[-10000]
  50 3 0 1 10045 10045 1 0    ;  50(32):四则运算 [X10045]=[X10045]-1
  50 4 0 4 10045 0 0 0          ;  50(32):变量判断 If[X10045]>=0 then JMP=0 else JMP=1
  36 256 -43 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
;:Label8
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2007-5-26 02:08

修改项目名称：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、修改项目名称，可在游戏中修改物品名，物品说明，人物名，场景名，武功名。
2、第一个参数为kind
   kind=0 修改人物名。
   kind=1 修改物品名。
   kind=2 修改场景名。
   kind=3 修改武功名。
   kind=4 修改物品说明
3、第二个参数为NO。（即要修改项目的编号）
4、使用时使用50号指令中的（调用其他事件），调用方式为“本事件编号（kind，NO，0，0）”
5、把要改的名字做成对话，并用读取对话指令将其读取为str15000
6、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7事件修改中选择“从剪贴板复制”

;Kdefnum=902
  50 6 10000 26987 25710 0 0 0 ;  50(32):定义变量名 [X10000]:kind
  50 6 10001 20302 46 0 0 0    ;  50(32):定义变量名 [X10001]:NO.
  50 6 10005 18771 17754 0 0 0 ;  50(32):定义变量名 [X10005]:SIZE
  50 3 0 1 10000 28928 0 0    ;  50(32):四则运算 [kind]=[X28928]-0
  50 3 0 1 10001 28929 0 0    ;  50(32):四则运算 [NO.]=[X28929]-0
  50 0 10004 0 0 0 0 0          ;  50(32):变量赋值 [X10004]=0
  50 0 10005 5 0 0 0 0          ;  50(32):变量赋值 [SIZE]=5
  50 4 0 2 10000 1 0 0          ;  50(32):变量判断 If[kind]=1  then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
  50 0 10005 10 0 0 0 0       ;  50(32):变量赋值 [SIZE]=10
;:Label0
  50 4 0 2 10000 4 0 0          ;  50(32):变量判断 If[kind]=4  then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
  50 0 10005 15 0 0 0 0       ;  50(32):变量赋值 [SIZE]=15
;:Label1
;:Label7
  50 2 1 0 15000 10004 10007 0 ;  50(32):取数组变量值 [X10007]=数组15000([X10004])(Int)
  50 3 0 2 10006 10004 2 0    ;  50(32):四则运算 [X10006]=[X10004]*2
  50 3 0 0 10006 10006 2 0    ;  50(32):四则运算 [X10006]=[X10006]+2
  50 4 0 2 10000 0 0 0          ;  50(32):变量判断 If[kind]=0  then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 3 0 0 10006 10006 6 0    ;  50(32):四则运算 [X10006]=[X10006]+6
  50 16 7 0 10001 10006 10007 0 ;  50(32):保存属性人物[NO.]属性偏移[X10006]=[X10007]
;:Label2
  50 4 0 2 10000 1 0 0          ;  50(32):变量判断 If[kind]=1  then JMP=0 else JMP=1
  36 256 0 24                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label3
  50 16 7 1 10001 10006 10007 0 ;  50(32):保存属性物品[NO.]属性偏移[X10006]=[X10007]
  50 3 0 0 10006 10006 20 0    ;  50(32):四则运算 [X10006]=[X10006]+20
  50 16 7 1 10001 10006 10007 0 ;  50(32):保存属性物品[NO.]属性偏移[X10006]=[X10007]
;:Label3
  50 4 0 2 10000 2 0 0          ;  50(32):变量判断 If[kind]=2  then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  50 16 7 2 10001 10006 10007 0 ;  50(32):保存属性场景[NO.]属性偏移[X10006]=[X10007]
;:Label4
  50 4 0 2 10000 3 0 0          ;  50(32):变量判断 If[kind]=3  then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label5
  50 16 7 3 10001 10006 10007 0 ;  50(32):保存属性武功[NO.]属性偏移[X10006]=[X10007]
;:Label5
  50 4 0 2 10000 4 0 0          ;  50(32):变量判断 If[kind]=4  then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label6
  50 3 0 0 10006 10006 40 0    ;  50(32):四则运算 [X10006]=[X10006]+40
  50 16 7 1 10001 10006 10007 0 ;  50(32):保存属性物品[NO.]属性偏移[X10006]=[X10007]
;:Label6
  0                            ;  0(0)::空语句(清屏)
  50 3 0 0 10004 10004 1 0    ;  50(32):四则运算 [X10004]=[X10004]+1
  50 4 1 0 10004 10005 0 0    ;  50(32):变量判断 If[X10004]<[SIZE] then JMP=0 else JMP=1
  36 256 -177 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  -1                            ;  -1(FFFF):事件结束

[ 本帖最后由 KG 于 2007-5-27 12:41 编辑 ]

KG · 发表于 2007-6-13 21:09

数字输入系统：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、数字输入系统，用来输入5位以下数字
2、使用时使用50号指令中的（调用其他事件），调用方式为“本事件编号（字符串1的对话编号，0，0，0）”其中字符串1为“输入数量”
3、返回值为X10032
4、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7事件修改中选择“从剪贴板复制”

;Kdefnum=176
  0                            ;  0(0)::空语句(清屏)
  50 0 10031 0 0 0 0 0          ;  50(32):变量赋值 [X10031]=0
  50 0 10032 0 0 0 0 0          ;  50(32):变量赋值 [X10032]=0
  50 0 10050 0 0 0 0 0          ;  50(32):变量赋值 [X10050]=0
  50 0 10040 0 0 0 0 0          ;  50(32):变量赋值 [X10040]=0
  50 0 10041 0 0 0 0 0          ;  50(32):变量赋值 [X10041]=0
  50 0 10042 0 0 0 0 0          ;  50(32):变量赋值 [X10042]=0
  50 0 10043 0 0 0 0 0          ;  50(32):变量赋值 [X10043]=0
  50 0 10044 0 0 0 0 0          ;  50(32):变量赋值 [X10044]=0
  50 0 10045 0 0 0 0 0          ;  50(32):变量赋值 [X10045]=0
  50 0 10046 0 0 0 0 0          ;  50(32):变量赋值 [X10046]=0
  50 0 10047 0 0 0 0 0          ;  50(32):变量赋值 [X10047]=0
  50 0 10048 0 0 0 0 0          ;  50(32):变量赋值 [X10048]=0
  50 34 0 47 45 226 28 0       ;  50(32):处理背景位置(47,45) Width=226 Height=28
  50 8 1 28928 10061 0 0 0    ;  50(32):读对话到字符串  Str[X10061]=talk([X28928])
  50 33 0 10061 52 50 1797 0    ;  50(32):显示字符串显示字符串10061 (52,50)Color1797
;:Label9
  50 35 10030 0 0 0 0 0       ;  50(32):读取键盘 [X10030]=键值
  50 4 0 2 10030 27 0 0       ;  50(32):变量判断 If[X10030]=27  then JMP=0 else JMP=1
  36 256 376 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 4 0 2 10030 13 0 0       ;  50(32):变量判断 If[X10030]=13  then JMP=0 else JMP=1
  36 256 0 24                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
  50 4 0 5 10050 0 0 0          ;  50(32):变量判断 If[X10050]>0 then JMP=0 else JMP=1
  36 256 232 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  50 4 0 1 10050 0 0 0          ;  50(32):变量判断 If[X10050]<=0 then JMP=0 else JMP=1
  36 256 276 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
;:Label1
  50 4 0 5 10030 47 0 0       ;  50(32):变量判断 If[X10030]>47 then JMP=0 else JMP=1
  36 256 0 12                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  50 4 0 0 10030 58 0 0       ;  50(32):变量判断 If[X10030]<58 then JMP=0 else JMP=1
  36 256 32 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
;:Label4
  50 4 0 5 10030 159 0 0       ;  50(32):变量判断 If[X10030]>159 then JMP=0 else JMP=1
  36 256 152 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
  50 4 0 0 10030 150 0 0       ;  50(32):变量判断 If[X10030]<150 then JMP=0 else JMP=1
  36 256 140 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  50 3 0 1 10030 10030 102 0    ;  50(32):四则运算 [X10030]=[X10030]-102
;:Label5
  50 3 0 1 10031 10030 48 0    ;  50(32):四则运算 [X10031]=[X10030]-48
  50 8 0 6 10170 0 0 0          ;  50(32):读对话到字符串  Str[X10170]=talk(6)（字符串“%d”）
  50 9 1 10090 10170 10031 0 0 ;  50(32):Sprintf  Str[X10090]=CStr([X10031]) FORMAT=Str[X10170]
  50 3 0 2 10062 10050 9 0    ;  50(32):四则运算 [X10062]=[X10050]*9
  50 3 0 0 10062 10062 228 0    ;  50(32):四则运算 [X10062]=[X10062]+228
  50 33 1 10090 10062 50 1797 0 ;  50(32):显示字符串显示字符串10090 ([X10062],50)Color1797
  50 0 10046 3 0 0 0 0          ;  50(32):变量赋值 [X10046]=3
;:Label8
  50 2 1 0 10040 10046 10047 0 ;  50(32):取数组变量值 [X10047]=数组10040([X10046])(Int)
  50 3 0 0 10046 10046 1 0    ;  50(32):四则运算 [X10046]=[X10046]+1
  50 1 3 0 10040 10046 10047 0 ;  50(32):数组变量赋值数组10040([X10046])=[X10047](Int)
  50 3 0 1 10046 10046 2 0    ;  50(32):四则运算 [X10046]=[X10046]-2
  50 4 0 5 10046 0 0 0          ;  50(32):变量判断 If[X10046]>0 then JMP=0 else JMP=1
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
  50 3 0 0 10046 10046 1 0    ;  50(32):四则运算 [X10046]=[X10046]+1
  50 1 3 0 10040 10046 10031 0 ;  50(32):数组变量赋值数组10040([X10046])=[X10031](Int)
  50 3 0 0 10050 10050 1 0    ;  50(32):四则运算 [X10050]=[X10050]+1
  50 3 0 0 10062 10062 9 0    ;  50(32):四则运算 [X10062]=[X10062]+9
;:Label7
;:Label6
  50 4 0 0 10050 4 0 0          ;  50(32):变量判断 If[X10050]<4 then JMP=0 else JMP=1
  36 256 -256 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label9
;:Label10
  50 35 10030 0 0 0 0 0       ;  50(32):读取键盘 [X10030]=键值
  50 4 0 2 10030 13 0 0       ;  50(32):变量判断 If[X10030]=13  then JMP=0 else JMP=1
  36 256 0 -20                ;  36(24):跳转变量JMP是否为0否则跳转到:Label10
;:Label2
  50 3 1 0 10032 10032 10031 0 ;  50(32):四则运算 [X10032]=[X10032]+[X10031]
  50 3 0 2 10031 10042 10 0    ;  50(32):四则运算 [X10031]=[X10042]*10
  50 3 1 0 10032 10032 10031 0 ;  50(32):四则运算 [X10032]=[X10032]+[X10031]
  50 3 0 2 10031 10043 100 0    ;  50(32):四则运算 [X10031]=[X10043]*100
  50 3 1 0 10032 10032 10031 0 ;  50(32):四则运算 [X10032]=[X10032]+[X10031]
  50 3 0 2 10031 10044 1000 0 ;  50(32):四则运算 [X10031]=[X10044]*1000
  50 3 1 0 10032 10032 10031 0 ;  50(32):四则运算 [X10032]=[X10032]+[X10031]
;:Label3
  50 8 0 42 10600 0 0 0       ;  50(32):读对话到字符串  Str[X10600]=talk(42)（字符串“确认？”）
  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 30 1797 0 ;  50(32):显示字符串并等待击键显示字符串10600 ([X10075],30)Color1797
;:Label0
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束

[ 本帖最后由 KG 于 2008-2-5 04:15 编辑 ]

KG · 发表于 2007-6-21 17:12

判断某人有某级某武功：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、判断某人有某级某武功，用来判断某人是否有某武功指定级数。
2、使用时使用50号指令中的（调用其他事件），调用方式为“本事件编号（ID1，ID2，LEVEL，0）”
3、参数说明：
   ID1=人物编号
   ID2=武功编号
   LEVEL=武功级数
4、调用本指令后，如某人存在某武功某级，则JMP=0，反之则JMP=1，需用36指令作跳转
5、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7事件修改中选择“从剪贴板复制”

;Kdefnum=1069
  50 0 10000 0 0 0 0 0          ;  50(32):变量赋值 [X10000]=0
;:Label2
  50 3 0 0 10001 10000 126 0    ;  50(32):四则运算 [X10001]=[X10000]+126
  50 17 3 0 28928 10001 10002 0 ;  50(32):读取属性 [X10002]=人物[X28928]属性偏移[X10001]
  50 4 1 2 10002 28929 0 0    ;  50(32):变量判断 If[X10002]=[X28929]  then JMP=0 else JMP=1
  36 333 0 28                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
  50 3 0 0 10001 10001 20 0    ;  50(32):四则运算 [X10001]=[X10001]+20
  50 17 3 0 28928 10001 10002 0 ;  50(32):读取属性 [X10002]=人物[X28928]属性偏移[X10001]
  50 4 1 4 10002 28930 0 0    ;  50(32):变量判断 If[X10002]>=[X28930] then JMP=0 else JMP=1
  36 256 20 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
;:Label0
  50 3 0 0 10000 10000 2 0    ;  50(32):四则运算 [X10000]=[X10000]+2
  50 4 0 0 10000 20 0 0       ;  50(32):变量判断 If[X10000]<20 then JMP=0 else JMP=1
  36 333 -76 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
;:Label1
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2007-8-6 14:03

新对话指令：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是新对话指令，功能如下：
⑴可以显示各种颜色的字体，也就是说可以对于重点名词，可以突出表示，方便玩家；也可以用不同颜色表示不同内容
比如黄色是“心想”等。
⑵在对话框上面添加姓名框，由系统自动侦识，方便玩家认清说话对象。
⑶系统自动侦识主角姓名，添加到对话相应位置，以后不必因为对话无法详细显示而剥夺大家起名的权利。
⑷支持延时播放，这个功能很多目前主流rpg都有，如今我们完美的把它引入到金群的对话系统当中。
⑸支持等待击键，同上，在重点的地方等待敲击后播放，提醒大家认真看，同时作为升级到对话自动发展，不需要反复敲击。
⑹防止方向键刷版，以后因为这个错过剧情，甚至产生bug的烦恼将彻底根除。
⑺兼容高低分辨率，新的对话系统经过反复测试改良，已经可以兼容高分辨率，并解决了可移植性问题，即使发展了更高的分辨率，也可以同步升级。
2、使用方法：调用事件（head，talk，name，ctrl）。
   具体参数意义：head：头像编号；
                              talk：对话编号，对话不需要加*换行；
                              name：姓名控制，这里有三种取值方式：-2，即读取R*中第一个使用head为头像的人的名字
                                                                                                   0，即不显示姓名
                                                                                                   其他数值N，即读取N号对话作为姓名
                              ctrl：控制器，分别为对话位置（个位），头像开关（十位），对话颜色（百位）
                                                      对话位置（个位）：0左头右对话；1右头左对话
                                                      头像开关（十位）：0显示，1隐藏
                                                      对话颜色（百位）：0白，1黄，2红，3蓝，4绿，5橙
3、控制字符：控制字符是指在对话中插入的有特殊意义的字符，如原版的*，C语言的\n等。
   **：换行
   &&：显示主角姓名
   ##：延时500毫秒
   @@：等待击键
   ^1——^5：把颜色换成1-5号颜色
   ^^：把颜色换回ctrl预设
4、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.72事件修改中选择“从剪贴板复制”

;Kdefnum=201
  50 3 0 0 100 28928 0 0       ;  50(32):四则运算 [X100]=[X28928]+0
  50 3 0 0 101 28929 0 0       ;  50(32):四则运算 [X101]=[X28929]+0
  50 3 0 0 10 28930 0 0       ;  50(32):四则运算 [X10]=[X28930]+0
  50 3 0 4 1 28931 10 0       ;  50(32):四则运算 [X1]=[X28931]10
  50 3 0 3 116 28931 100 0    ;  50(32):四则运算 [X116]=[X28931]/100
  50 3 0 2 5 116 10 0          ;  50(32):四则运算 [X5]=[X116]*10
  50 3 0 3 2 28931 10 0       ;  50(32):四则运算 [X2]=[X28931]/10
  50 3 1 1 2 2 5 0             ;  50(32):四则运算 [X2]=[X2]-[X5]
  50 25 0 0 -10164 3 480 0    ;  50(32):保存给定地址数据 [3-D84C+0]=480(Int)
  50 26 0 0 -19142 5 0 0       ;  50(32):读取给定地址数据 [X0]=[5-B53A+0](Int)
  50 4 0 2 0 0 0 0             ;  50(32):变量判断 If[X0]=0  then JMP=0 else JMP=1
  36 256 0 116                ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
  50 0 46 81 0 0 0 0          ;  50(32):变量赋值 [X46]=81
  50 0 47 99 0 0 0 0          ;  50(32):变量赋值 [X47]=99
  50 0 60 224 0 0 0 0          ;  50(32):变量赋值 [X60]=224
  50 0 61 64 0 0 0 0          ;  50(32):变量赋值 [X61]=64
  50 0 62 81 0 0 0 0          ;  50(32):变量赋值 [X62]=81
  50 0 63 124 0 0 0 0          ;  50(32):变量赋值 [X63]=124
  50 0 64 16 0 0 0 0          ;  50(32):变量赋值 [X64]=16
  50 0 65 126 0 0 0 0          ;  50(32):变量赋值 [X65]=126
  50 0 68 13 0 0 0 0          ;  50(32):变量赋值 [X68]=13
  50 0 69 3 0 0 0 0             ;  50(32):变量赋值 [X69]=3
  50 4 0 2 1 1 0 0             ;  50(32):变量判断 If[X1]=1  then JMP=0 else JMP=1
  36 256 0 24                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
  50 0 46 158 0 0 0 0          ;  50(32):变量赋值 [X46]=158
  50 0 62 16 0 0 0 0          ;  50(32):变量赋值 [X62]=16
  50 0 64 248 0 0 0 0          ;  50(32):变量赋值 [X64]=248
;:Label1
;:Label0
  50 4 0 2 0 1 0 0             ;  50(32):变量判断 If[X0]=1  then JMP=0 else JMP=1
  36 256 0 108                ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 0 46 167 0 0 0 0          ;  50(32):变量赋值 [X46]=167
  50 0 47 340 0 0 0 0          ;  50(32):变量赋值 [X47]=340
  50 0 60 438 0 0 0 0          ;  50(32):变量赋值 [X60]=438
  50 0 61 96 0 0 0 0          ;  50(32):变量赋值 [X61]=96
  50 0 62 105 0 0 0 0          ;  50(32):变量赋值 [X62]=105
  50 0 63 372 0 0 0 0          ;  50(32):变量赋值 [X63]=372
  50 0 64 105 0 0 0 0          ;  50(32):变量赋值 [X64]=105
  50 0 65 306 0 0 0 0          ;  50(32):变量赋值 [X65]=306
  50 0 68 25 0 0 0 0          ;  50(32):变量赋值 [X68]=25
  50 0 69 5 0 0 0 0             ;  50(32):变量赋值 [X69]=5
  50 4 0 2 1 1 0 0             ;  50(32):变量判断 If[X1]=1  then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label3
  50 0 46 398 0 0 0 0          ;  50(32):变量赋值 [X46]=398
  50 0 64 483 0 0 0 0          ;  50(32):变量赋值 [X64]=483
;:Label3
;:Label2
  50 3 0 1 58 62 14 0          ;  50(32):四则运算 [X58]=[X62]-14
  50 3 0 0 59 63 4 0          ;  50(32):四则运算 [X59]=[X63]+4
  50 3 0 0 66 64 2 0          ;  50(32):四则运算 [X66]=[X64]+2
  50 3 0 0 67 65 59 0          ;  50(32):四则运算 [X67]=[X65]+59
  50 3 0 0 44 46 44 0          ;  50(32):四则运算 [X44]=[X46]+44
  50 3 0 0 45 47 5 0          ;  50(32):四则运算 [X45]=[X47]+5
  50 0 50 28515 0 0 0 0       ;  50(32):变量赋值 [X50]=28515
  50 0 51 28421 0 0 0 0       ;  50(32):变量赋值 [X51]=28421
  50 0 52 28435 0 0 0 0       ;  50(32):变量赋值 [X52]=28435
  50 0 53 28563 0 0 0 0       ;  50(32):变量赋值 [X53]=28563
  50 0 54 28466 0 0 0 0       ;  50(32):变量赋值 [X54]=28466
  50 0 55 28450 0 0 0 0       ;  50(32):变量赋值 [X55]=28450
  50 3 0 0 116 116 50 0       ;  50(32):四则运算 [X116]=[X116]+50
  50 32 0 116 5 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数5=[X116]
  50 3 0 0 117 116 0 0          ;  50(32):四则运算 [X117]=[X116]+0
  50 0 105 0 0 0 0 0          ;  50(32):变量赋值 [X105]=0
  50 0 103 0 0 0 0 0          ;  50(32):变量赋值 [X103]=0
  50 0 104 32 0 0 0 0          ;  50(32):变量赋值 [X104]=32
  50 0 111 0 0 0 0 0          ;  50(32):变量赋值 [X111]=0
  50 8 1 101 10000 0 0 0       ;  50(32):读对话到字符串  Str[X10000]=talk([X101])
;:Label22
;:Label28
  50 0 114 1 0 0 0 0          ;  50(32):变量赋值 [X114]=1
  50 0 113 0 0 0 0 0          ;  50(32):变量赋值 [X113]=0
  50 0 112 0 0 0 0 0          ;  50(32):变量赋值 [X112]=0
  50 0 102 0 0 0 0 0          ;  50(32):变量赋值 [X102]=0
  50 0 107 0 0 0 0 0          ;  50(32):变量赋值 [X107]=0
  50 4 0 2 10 0 0 0             ;  50(32):变量判断 If[X10]=0  then JMP=0 else JMP=1
  36 256 136 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 4 0 5 10 0 0 0             ;  50(32):变量判断 If[X10]>0 then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label5
  50 8 1 10 20 0 0 0          ;  50(32):读对话到字符串  Str[X20]=talk([X10])
;:Label5
  50 4 0 2 10 -2 0 0          ;  50(32):变量判断 If[X10]=-2  then JMP=0 else JMP=1
  36 256 0 56                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label6
  50 0 15 0 0 0 0 0             ;  50(32):变量赋值 [X15]=0
;:Label8
  50 17 1 0 15 2 16 0          ;  50(32):读取属性 [X16]=人物[X15]属性偏移2
  50 4 1 2 16 100 0 0          ;  50(32):变量判断 If[X16]=[X100]  then JMP=0 else JMP=1
  36 256 20 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
  50 3 0 0 15 15 1 0          ;  50(32):四则运算 [X15]=[X15]+1
  50 4 0 0 15 720 0 0          ;  50(32):变量判断 If[X15]<720 then JMP=0 else JMP=1
  36 256 -40 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
;:Label7
  50 27 1 0 15 20 0 0          ;  50(32):取属性名称 Str20=人物[X15]
;:Label6
  50 34 3 46 47 82 28 0       ;  50(32):处理背景位置([X46],[X47]) Width=82 Height=28
  50 10 20 11 0 0 0 0          ;  50(32):取字符串长度 [X11]=Len(Str[X20] )
  50 3 0 2 11 11 9 0          ;  50(32):四则运算 [X11]=[X11]*9
  50 3 0 3 11 11 2 0          ;  50(32):四则运算 [X11]=[X11]/2
  50 3 1 1 12 44 11 0          ;  50(32):四则运算 [X12]=[X44]-[X11]
  50 33 3 20 12 45 28771 0    ;  50(32):显示字符串显示字符串20 ([X12],[X45])Color28771
;:Label4
  50 34 15 62 63 60 61 0       ;  50(32):处理背景位置([X62],[X63]) Width=[X60] Height=[X61]
  50 4 0 2 2 0 0 0             ;  50(32):变量判断 If[X2]=0  then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label9
  50 34 3 64 65 60 62 0       ;  50(32):处理背景位置([X64],[X65]) Width=60 Height=62
  50 41 7 1 66 67 100 0       ;  50(32):显示图片头像图片[X100] 位置([X66],[X67])
;:Label9
;:Label11
;:Label14
;:Label17
;:Label18
;:Label20
;:Label26
;:Label30
;:Label39
;:Label40
  50 2 1 0 10000 105 110 0    ;  50(32):取数组变量值 [X110]=数组10000([X105])(Int)
  50 4 0 2 110 8995 0 0       ;  50(32):变量判断 If[X110]=8995  then JMP=0 else JMP=1
  36 256 0 28                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label10
  50 3 0 0 105 105 1 0          ;  50(32):四则运算 [X105]=[X105]+1
  50 37 0 500 0 0 0 0          ;  50(32):延时延时500
  50 4 0 7 110 8995 0 0       ;  50(32):变量判断  JMP=1
  36 256 0 -48                ;  36(24):跳转变量JMP是否为0否则跳转到:Label11
;:Label10
  50 4 0 2 110 16448 0 0       ;  50(32):变量判断 If[X110]=16448  then JMP=0 else JMP=1
  36 256 0 32                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label12
  50 3 0 0 105 105 1 0          ;  50(32):四则运算 [X105]=[X105]+1
;:Label13
  50 35 0 0 0 0 0 0             ;  50(32):读取键盘 [X0]=键值
  50 4 0 2 0 131 0 0          ;  50(32):变量判断 If[X0]=131  then JMP=0 else JMP=1
  36 256 -20 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label13
  36 256 0 -92                ;  36(24):跳转变量JMP是否为0否则跳转到:Label14
;:Label12
  50 3 0 4 70 110 256 0       ;  50(32):四则运算 [X70]=[X110]256
  50 4 0 2 70 94 0 0          ;  50(32):变量判断 If[X70]=94  then JMP=0 else JMP=1
  36 256 0 92                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label15
  50 3 0 0 105 105 1 0          ;  50(32):四则运算 [X105]=[X105]+1
  50 3 0 3 70 110 256 0       ;  50(32):四则运算 [X70]=[X110]/256
  50 4 0 2 70 94 0 0          ;  50(32):变量判断 If[X70]=94  then JMP=0 else JMP=1
  36 256 0 28                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label16
  50 32 0 116 5 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数5=[X116]
  50 3 0 0 117 116 0 0          ;  50(32):四则运算 [X117]=[X116]+0
  50 4 0 6 28930 5 0 0          ;  50(32):变量判断  JMP=0
  36 256 -168 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label17
;:Label16
  50 3 0 0 70 70 2 0          ;  50(32):四则运算 [X70]=[X70]+2
  50 32 0 70 5 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数5=[X70]
  50 3 0 0 117 70 0 0          ;  50(32):四则运算 [X117]=[X70]+0
  50 4 0 6 28930 5 0 0          ;  50(32):变量判断  JMP=0
  36 256 -204 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label18
;:Label15
  50 4 0 2 110 10794 0 0       ;  50(32):变量判断 If[X110]=10794  then JMP=0 else JMP=1
  36 256 0 61                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label19
  50 3 0 0 102 102 1 0          ;  50(32):四则运算 [X102]=[X102]+1
  50 3 0 0 105 105 1 0          ;  50(32):四则运算 [X105]=[X105]+1
  50 0 114 1 0 0 0 0          ;  50(32):变量赋值 [X114]=1
  50 4 1 2 102 69 0 0          ;  50(32):变量判断 If[X102]=[X69]  then JMP=0 else JMP=1
  36 256 0 -252                ;  36(24):跳转变量JMP是否为0否则跳转到:Label20
;:Label21
  50 35 0 0 0 0 0 0             ;  50(32):读取键盘 [X0]=键值
  50 4 0 3 0 131 0 0          ;  50(32):变量判断 If[X0]<>131 then JMP=0 else JMP=1
  36 256 0 -20                ;  36(24):跳转变量JMP是否为0否则跳转到:Label21
  0                            ;  0(0)::空语句(清屏)
  36 256 -501 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label22
;:Label19
  50 3 0 3 106 110 256 0       ;  50(32):四则运算 [X106]=[X110]/256
  50 4 0 2 106 0 0 0          ;  50(32):变量判断 If[X106]=0  then JMP=0 else JMP=1
  36 256 536 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label23
  50 3 0 4 106 110 256 0       ;  50(32):四则运算 [X106]=[X110]256
  50 4 0 2 106 0 0 0          ;  50(32):变量判断 If[X106]=0  then JMP=0 else JMP=1
  36 256 516 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label24
  50 3 1 4 107 114 68 0       ;  50(32):四则运算 [X107]=[X114][X68]
  50 4 0 2 107 0 0 0          ;  50(32):变量判断 If[X107]=0  then JMP=0 else JMP=1
  36 256 0 52                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label25
  50 3 0 0 102 102 1 0          ;  50(32):四则运算 [X102]=[X102]+1
  50 0 114 1 0 0 0 0          ;  50(32):变量赋值 [X114]=1
  50 4 1 2 102 69 0 0          ;  50(32):变量判断 If[X102]=[X69]  then JMP=0 else JMP=1
  36 256 0 -365                ;  36(24):跳转变量JMP是否为0否则跳转到:Label26
;:Label27
  50 35 0 0 0 0 0 0             ;  50(32):读取键盘 [X0]=键值
  50 4 0 3 0 131 0 0          ;  50(32):变量判断 If[X0]<>131 then JMP=0 else JMP=1
  36 256 0 -20                ;  36(24):跳转变量JMP是否为0否则跳转到:Label27
  36 256 -613 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label28
;:Label25
  50 4 0 2 110 9766 0 0       ;  50(32):变量判断 If[X110]=9766  then JMP=0 else JMP=1
  36 256 0 364                ;  36(24):跳转变量JMP是否为0否则跳转到:Label29
  50 0 79 0 0 0 0 0             ;  50(32):变量赋值 [X79]=0
  50 27 0 0 0 80 0 0          ;  50(32):取属性名称 Str80=人物0
  50 3 0 0 105 105 1 0          ;  50(32):四则运算 [X105]=[X105]+1
;:Label31
;:Label32
;:Label38
  50 2 1 0 80 79 84 0          ;  50(32):取数组变量值 [X84]=数组80([X79])(Int)
  50 4 0 2 84 0 0 0             ;  50(32):变量判断 If[X84]=0  then JMP=0 else JMP=1
  36 256 -445 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label30
  50 3 0 2 112 107 18 0       ;  50(32):四则运算 [X112]=[X107]*18
  50 3 1 0 112 112 58 0       ;  50(32):四则运算 [X112]=[X112]+[X58]
  50 3 0 2 113 102 18 0       ;  50(32):四则运算 [X113]=[X102]*18
  50 3 1 0 113 113 59 0       ;  50(32):四则运算 [X113]=[X113]+[X59]
  50 33 7 84 112 113 117 0    ;  50(32):显示字符串显示字符串84 ([X112],[X113])Color[X117]
  50 3 0 0 114 114 1 0          ;  50(32):四则运算 [X114]=[X114]+1
  50 3 0 0 79 79 1 0          ;  50(32):四则运算 [X79]=[X79]+1
  50 3 1 4 107 114 68 0       ;  50(32):四则运算 [X107]=[X114][X68]
  50 4 0 2 107 0 0 0          ;  50(32):变量判断 If[X107]=0  then JMP=0 else JMP=1
  36 256 0 -96                ;  36(24):跳转变量JMP是否为0否则跳转到:Label31
  50 3 0 0 102 102 1 0          ;  50(32):四则运算 [X102]=[X102]+1
  50 0 114 1 0 0 0 0          ;  50(32):变量赋值 [X114]=1
  50 4 1 2 102 69 0 0          ;  50(32):变量判断 If[X102]=[X69]  then JMP=0 else JMP=1
  36 256 0 -124                ;  36(24):跳转变量JMP是否为0否则跳转到:Label32
;:Label33
  50 35 0 0 0 0 0 0             ;  50(32):读取键盘 [X0]=键值
  50 4 0 2 0 131 0 0          ;  50(32):变量判断 If[X0]=131  then JMP=0 else JMP=1
  36 256 -20 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label33
  50 0 114 1 0 0 0 0          ;  50(32):变量赋值 [X114]=1
  50 0 113 0 0 0 0 0          ;  50(32):变量赋值 [X113]=0
  50 0 112 0 0 0 0 0          ;  50(32):变量赋值 [X112]=0
  50 0 102 0 0 0 0 0          ;  50(32):变量赋值 [X102]=0
  50 0 107 0 0 0 0 0          ;  50(32):变量赋值 [X107]=0
  50 0 85 0 0 0 0 0             ;  50(32):变量赋值 [X85]=0
  50 4 0 2 10 -1 0 0          ;  50(32):变量判断 If[X10]=-1  then JMP=0 else JMP=1
  36 256 88 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label34
  50 4 0 4 10 0 0 0             ;  50(32):变量判断 If[X10]>=0 then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label35
  50 8 1 10 20 0 0 0          ;  50(32):读对话到字符串  Str[X20]=talk([X10])
;:Label35
  50 4 0 2 10 -2 0 0          ;  50(32):变量判断 If[X10]=-2  then JMP=0 else JMP=1
  36 256 0 8                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label36
  50 27 1 0 100 20 0 0          ;  50(32):取属性名称 Str20=人物[X100]
;:Label36
  50 34 3 46 47 82 28 0       ;  50(32):处理背景位置([X46],[X47]) Width=82 Height=28
  50 10 20 11 0 0 0 0          ;  50(32):取字符串长度 [X11]=Len(Str[X20] )
  50 3 0 2 11 11 9 0          ;  50(32):四则运算 [X11]=[X11]*9
  50 3 0 3 11 11 2 0          ;  50(32):四则运算 [X11]=[X11]/2
  50 3 1 1 12 44 11 0          ;  50(32):四则运算 [X12]=[X44]-[X11]
  50 33 3 20 12 45 28771 0    ;  50(32):显示字符串显示字符串20 ([X12],[X45])Color28771
;:Label34
  50 34 15 62 63 60 61 0       ;  50(32):处理背景位置([X62],[X63]) Width=[X60] Height=[X61]
  50 4 0 2 2 0 0 0             ;  50(32):变量判断 If[X2]=0  then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label37
  50 34 3 64 65 60 75 0       ;  50(32):处理背景位置([X64],[X65]) Width=60 Height=75
  50 41 7 1 66 67 100 0       ;  50(32):显示图片头像图片[X100] 位置([X66],[X67])
;:Label37
  50 4 0 6 102 5 0 0          ;  50(32):变量判断  JMP=0
  36 256 -340 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label38
;:Label29
  50 3 0 2 112 107 18 0       ;  50(32):四则运算 [X112]=[X107]*18
  50 3 1 0 112 112 58 0       ;  50(32):四则运算 [X112]=[X112]+[X58]
  50 3 0 2 113 102 18 0       ;  50(32):四则运算 [X113]=[X102]*18
  50 3 1 0 113 113 59 0       ;  50(32):四则运算 [X113]=[X113]+[X59]
  50 33 7 110 112 113 117 0    ;  50(32):显示字符串显示字符串110 ([X112],[X113])Color[X117]
  50 3 0 0 105 105 1 0          ;  50(32):四则运算 [X105]=[X105]+1
  50 3 0 0 114 114 1 0          ;  50(32):四则运算 [X114]=[X114]+1
  50 4 0 6 102 3 0 0          ;  50(32):变量判断  JMP=0
  36 256 -833 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label39
;:Label24
;:Label23
  50 35 0 0 0 0 0 0             ;  50(32):读取键盘 [X0]=键值
  50 4 0 2 0 131 0 0          ;  50(32):变量判断 If[X0]=131  then JMP=0 else JMP=1
  36 256 -853 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label40
  -1                            ;  -1(FFFF):事件结束

[ 本帖最后由 KG 于 2008-1-29 01:10 编辑 ]

KG · 发表于 2007-8-17 03:23

调色板更换指令：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是调色板更换指令。
2、用法：因篇幅较长，本指令放入附件中。
下载附件，解压后得3个TXT文件，分别为“黑夜”，“回忆”和“正常”的效果
将TXT里的指令码复制，然后在FISHEDIT0.72事件修改中选择“从剪贴板复制”制作为3个事件
3、调用方式：调用事件后使用亮屏指令或转换场景才能看见颜色改变的效果
4、如有问题，请与本人联系

KA · 发表于 2007-8-23 18:57

顺坤版得到物品[X0]=[X1]

顺坤版得到物品[X0]=[X1]
调用方法：callsub事件编号(物品代号,数量,0,0)
数量可为正负
输出字符串:"得到%S%D个"或"减少%S%D个"
3161=%d
3184=个
3185=得到
3186=减少
-----------------------------------------

;Kdefnum=1072
  50 3 0 0 1 28928 0 0          ;  50(32):四则运算 [X1]=[X28928]+0
  50 3 0 0 2 28929 0 0          ;  50(32):四则运算 [X2]=[X28929]+0
  50 3 0 0 3 28930 0 0          ;  50(32):四则运算 [X3]=[X28930]+0
  50 0 4 0 0 0 0 0             ;  50(32):变量赋值 [X4]=0
  50 3 0 1 5 2 1 0             ;  50(32):四则运算 [X5]=[X2]-1
  50 0 20 0 0 0 0 0             ;  50(32):变量赋值 [X20]=0
  50 8 0 3161 100 0 0 0       ;  50(32):读对话到字符串  Str[X100]=talk(3161)
  50 9 1 300 100 2 0 0          ;  50(32):Sprintf  Str[X300]=CStr([X2]) FORMAT=Str[X100]
  50 8 0 3184 200 0 0 0       ;  50(32):读对话到字符串  Str[X200]=talk(3184)
  50 11 300 300 200 0 0 0       ;  50(32):字符串合并 Str[X300]=Str[X300]+Str[X200]
  50 27 1 1 1 400 0 0          ;  50(32):取属性名称 Str400=物品[X1]
  50 8 0 3185 500 0 0 0       ;  50(32):读对话到字符串  Str[X500]=talk(3185)
  50 11 500 500 400 0 0 0       ;  50(32):字符串合并 Str[X500]=Str[X500]+Str[X400]
  50 11 500 500 300 0 0 0       ;  50(32):字符串合并 Str[X500]=Str[X500]+Str[X300]
  50 4 0 0 2 0 0 0             ;  50(32):变量判断 If[X2]<0 then JMP=0 else JMP=1
  36 256 64 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 32 0 1 1 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数1=[X1]
  2 0 1                         ;  2(2):得到物品[可口可乐][1]
  50 36 0 500 100 40 1797 0    ;  50(32):显示字符串并等待击键显示字符串500 (100,40)Color1797
  50 4 0 2 5 0 0 0             ;  50(32):变量判断 If[X5]=0  then JMP=0 else JMP=1
  36 256 0 1                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
  -1                            ;  -1(FFFF):事件结束
;:Label1
;:Label2
  50 32 0 1 1 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数1=[X1]
  32 1 1                      ;  32(20):物品[机票]+[1]
  50 3 0 0 4 4 1 0             ;  50(32):四则运算 [X4]=[X4]+1
  50 4 1 5 5 4 0 0             ;  50(32):变量判断 If[X5]>[X4] then JMP=0 else JMP=1
  36 256 -31 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  -1                            ;  -1(FFFF):事件结束
;:Label0
  50 20 1 1 6 0 0 0             ;  50(32):主角200个物品数量 [X6]=物品编号[X1]数量
  50 3 1 1 8 20 6 0             ;  50(32):四则运算 [X8]=[X20]-[X6]
  50 3 1 1 7 20 2 0             ;  50(32):四则运算 [X7]=[X20]-[X2]
  50 8 0 3161 600 0 0 0       ;  50(32):读对话到字符串  Str[X600]=talk(3161)
  50 9 1 800 600 7 0 0          ;  50(32):Sprintf  Str[X800]=CStr([X7]) FORMAT=Str[X600]
  50 8 0 3184 700 0 0 0       ;  50(32):读对话到字符串  Str[X700]=talk(3184)
  50 11 800 800 700 0 0 0       ;  50(32):字符串合并 Str[X800]=Str[X800]+Str[X700]
  50 27 1 1 1 900 0 0          ;  50(32):取属性名称 Str900=物品[X1]
  50 8 0 3186 1000 0 0 0       ;  50(32):读对话到字符串  Str[X1000]=talk(3186)
  50 11 1000 1000 900 0 0 0    ;  50(32):字符串合并 Str[X1000]=Str[X1000]+Str[X900]
  50 11 1000 1000 800 0 0 0    ;  50(32):字符串合并 Str[X1000]=Str[X1000]+Str[X800]
  50 4 1 0 6 7 0 0             ;  50(32):变量判断 If[X6]<[X7] then JMP=0 else JMP=1
  36 256 40 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
;:Label4
  50 32 0 1 1 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数1=[X1]
  32 1 -1                      ;  32(20):物品[机票]+[-1]
  50 3 0 0 4 4 -1 0             ;  50(32):四则运算 [X4]=[X4]+-1
  50 4 1 0 2 4 0 0             ;  50(32):变量判断 If[X2]<[X4] then JMP=0 else JMP=1
  36 256 -31 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 36 0 1000 100 40 1797 0    ;  50(32):显示字符串并等待击键显示字符串1000 (100,40)Color1797
  -1                            ;  -1(FFFF):事件结束
;:Label3
;:Label5
  50 32 0 1 1 0 0 0             ;  50(32):修改下一条指令参数下一条指令参数1=[X1]
  32 1 -1                      ;  32(20):物品[机票]+[-1]
  50 3 0 0 4 4 -1 0             ;  50(32):四则运算 [X4]=[X4]+-1
  50 4 1 5 4 8 0 0             ;  50(32):变量判断 If[X4]>[X8] then JMP=0 else JMP=1
  36 256 -31 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
  50 36 0 1000 100 40 1797 0    ;  50(32):显示字符串并等待击键显示字符串1000 (100,40)Color1797
  -1                            ;  -1(FFFF):事件结束

KG · 发表于 2008-6-29 15:35

带显示数量的得失物品：

请仔细阅读说明，特别是红色粗体部分。

说明：
1、这是物品得失指令，功能跟原版的相差不多，弥补了原版不能显示数量且必定出现提示的不足。
2、使用方法：调用事件（物品编号，得失数量（正得负失），是否显示提示（0是1否））
3、只用于z.dat版本，复刻版无效
4、如有问题，请与本人联系

用法：将下面的指令码复制，然后在FISHEDIT0.7事件修改中选择“从剪贴板复制”

;Kdefnum=202
  50 0 1 0 0 0 0 0             ;  50(32):变量赋值 [X1]=0
  50 0 6 320 0 0 0 0          ;  50(32):变量赋值 [X6]=320
  50 26 0 0 -19142 5 0 0       ;  50(32):读取给定地址数据 [X0]=[5-B53A+0](Int)
  50 4 0 2 0 1 0 0             ;  50(32):变量判断 If[X0]=1  then JMP=0 else JMP=1
  36 256 0 21                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
  50 0 6 640 0 0 0 0          ;  50(32):变量赋值 [X6]=640
  50 4 0 2 28929 0 0 0          ;  50(32):变量判断 If[X28929]=0  then JMP=0 else JMP=1
  36 256 0 1                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label1
  -1                            ;  -1(FFFF):事件结束
;:Label1
;:Label0
  50 0 25 25637 0 0 0 0       ;  50(32):变量赋值 [X25]=25637
  50 0 14 8224 0 0 0 0          ;  50(32):变量赋值 [X14]=8224
  50 0 15 8280 0 0 0 0          ;  50(32):变量赋值 [X15]=8280
  50 0 16 32 0 0 0 0          ;  50(32):变量赋值 [X16]=32
  50 0 26 0 0 0 0 0             ;  50(32):变量赋值 [X26]=0
  50 3 0 0 5 28929 0 0          ;  50(32):四则运算 [X5]=[X28929]+0
  50 0 20 28593 0 0 0 0       ;  50(32):变量赋值 [X20]=28593
  50 0 21 -4952 0 0 0 0       ;  50(32):变量赋值 [X21]=-4952
  50 0 22 8224 0 0 0 0          ;  50(32):变量赋值 [X22]=8224
  50 0 23 0 0 0 0 0             ;  50(32):变量赋值 [X23]=0
  50 4 0 0 28929 0 0 0          ;  50(32):变量判断 If[X28929]<0 then JMP=0 else JMP=1
  36 256 0 24                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 0 20 -23899 0 0 0 0       ;  50(32):变量赋值 [X20]=-23899
  50 0 21 26789 0 0 0 0       ;  50(32):变量赋值 [X21]=26789
  50 3 1 1 5 26 28929 0       ;  50(32):四则运算 [X5]=[X26]-[X28929]
;:Label2
;:Label13
  50 3 0 2 2 1 4 0             ;  50(32):四则运算 [X2]=[X1]*4
  50 26 1 0 -468 24 3 2       ;  50(32):读取给定地址数据 [X3]=[18-FE2C+[X2]](Int)
  50 3 0 0 10 2 2 0             ;  50(32):四则运算 [X10]=[X2]+2
  50 26 1 0 -468 24 4 10       ;  50(32):读取给定地址数据 [X4]=[18-FE2C+[X10]](Int)
  50 4 1 2 28928 3 0 0          ;  50(32):变量判断 If[X28928]=[X3]  then JMP=0 else JMP=1
  36 256 0 253                ;  36(24):跳转变量JMP是否为0否则跳转到:Label3
  50 3 1 0 4 4 28929 0          ;  50(32):四则运算 [X4]=[X4]+[X28929]
  50 4 0 1 4 0 0 0             ;  50(32):变量判断 If[X4]<=0 then JMP=0 else JMP=1
  36 256 0 132                ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  50 3 0 0 510 1 0 0          ;  50(32):四则运算 [X510]=[X1]+0
;:Label6
  50 3 0 2 500 510 4 0          ;  50(32):四则运算 [X500]=[X510]*4
  50 3 0 0 501 500 2 0          ;  50(32):四则运算 [X501]=[X500]+2
  50 3 0 0 502 500 4 0          ;  50(32):四则运算 [X502]=[X500]+4
  50 3 0 0 503 502 2 0          ;  50(32):四则运算 [X503]=[X502]+2
  50 26 1 0 -468 24 504 502    ;  50(32):读取给定地址数据 [X504]=[18-FE2C+[X502]](Int)
  50 26 1 0 -468 24 505 503    ;  50(32):读取给定地址数据 [X505]=[18-FE2C+[X503]](Int)
  50 25 3 0 -468 24 504 500    ;  50(32):保存给定地址数据 [18-FE2C+[X500]]=[X504](Int)
  50 25 3 0 -468 24 505 501    ;  50(32):保存给定地址数据 [18-FE2C+[X501]]=[X505](Int)
  50 4 0 2 504 -1 0 0          ;  50(32):变量判断 If[X504]=-1  then JMP=0 else JMP=1
  36 256 20 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
  50 3 0 0 510 510 1 0          ;  50(32):四则运算 [X510]=[X510]+1
  50 4 0 0 510 199 0 0          ;  50(32):变量判断 If[X510]<199 then JMP=0 else JMP=1
  36 256 -96 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label6
;:Label5
  50 25 2 0 -468 24 -1 502    ;  50(32):保存给定地址数据 [18-FE2C+[X502]]=-1(Int)
  50 25 2 0 -468 24 0 503       ;  50(32):保存给定地址数据 [18-FE2C+[X503]]=0(Int)
  50 4 0 6 0 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 8 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label7
;:Label4
  50 25 3 0 -468 24 4 10       ;  50(32):保存给定地址数据 [18-FE2C+[X10]]=[X4](Int)
;:Label7
  50 4 0 3 28930 0 0 0          ;  50(32):变量判断 If[X28930]<>0 then JMP=0 else JMP=1
  36 256 80 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label8
  50 27 1 1 28928 30 0 0       ;  50(32):取属性名称 Str30=物品[X28928]
  50 9 1 40 25 5 0 0          ;  50(32):Sprintf  Str[X40]=CStr([X5]) FORMAT=Str[X25]
  50 11 60 20 30 0 0 0          ;  50(32):字符串合并 Str[X60]=Str[X20]+Str[X30]
  50 11 100 60 14 0 0 0       ;  50(32):字符串合并 Str[X100]=Str[X60]+Str[X14]
  50 11 120 100 40 0 0 0       ;  50(32):字符串合并 Str[X120]=Str[X100]+Str[X40]
  50 10 120 8 0 0 0 0          ;  50(32):取字符串长度 [X8]=Len(Str[X120] )
  50 3 0 2 8 8 9 0             ;  50(32):四则运算 [X8]=[X8]*9
  50 3 1 1 7 6 8 0             ;  50(32):四则运算 [X7]=[X6]-[X8]
  50 3 0 3 7 7 2 0             ;  50(32):四则运算 [X7]=[X7]/2
  50 36 1 120 7 50 1797 0       ;  50(32):显示字符串并等待击键显示字符串120 ([X7],50)Color1797
;:Label8
  -1                            ;  -1(FFFF):事件结束
;:Label3
  50 4 0 2 28928 -1 0 0       ;  50(32):变量判断 If[X28928]=-1  then JMP=0 else JMP=1
  36 256 0 121                ;  36(24):跳转变量JMP是否为0否则跳转到:Label9
;:Label12
  50 4 0 5 28929 0 0 0          ;  50(32):变量判断 If[X28929]>0 then JMP=0 else JMP=1
  36 256 0 16                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label10
  50 25 3 0 -468 24 28928 2    ;  50(32):保存给定地址数据 [18-FE2C+[X2]]=[X28928](Int)
  50 25 3 0 -468 24 28929 10    ;  50(32):保存给定地址数据 [18-FE2C+[X10]]=[X28929](Int)
;:Label10
  50 4 0 3 28930 0 0 0          ;  50(32):变量判断 If[X28930]<>0 then JMP=0 else JMP=1
  36 256 80 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label11
  50 27 1 1 28928 30 0 0       ;  50(32):取属性名称 Str30=物品[X28928]
  50 9 1 40 25 5 0 0          ;  50(32):Sprintf  Str[X40]=CStr([X5]) FORMAT=Str[X25]
  50 11 60 20 30 0 0 0          ;  50(32):字符串合并 Str[X60]=Str[X20]+Str[X30]
  50 11 100 60 14 0 0 0       ;  50(32):字符串合并 Str[X100]=Str[X60]+Str[X14]
  50 11 120 100 40 0 0 0       ;  50(32):字符串合并 Str[X120]=Str[X100]+Str[X40]
  50 10 120 8 0 0 0 0          ;  50(32):取字符串长度 [X8]=Len(Str[X120] )
  50 3 0 2 8 8 9 0             ;  50(32):四则运算 [X8]=[X8]*9
  50 3 1 1 7 6 8 0             ;  50(32):四则运算 [X7]=[X6]-[X8]
  50 3 0 3 7 7 2 0             ;  50(32):四则运算 [X7]=[X7]/2
  50 36 1 120 7 50 1797 0       ;  50(32):显示字符串并等待击键显示字符串120 ([X7],50)Color1797
;:Label11
  -1                            ;  -1(FFFF):事件结束
;:Label9
  50 4 0 2 4 0 0 0             ;  50(32):变量判断 If[X4]=0  then JMP=0 else JMP=1
  36 256 -133 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label12
  50 3 0 0 1 1 1 0             ;  50(32):四则运算 [X1]=[X1]+1
  50 4 0 0 1 200 0 0          ;  50(32):变量判断 If[X1]<200 then JMP=0 else JMP=1
  36 256 -462 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label13
  -1                            ;  -1(FFFF):事件结束

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

weyl · 发表于 2008-7-22 21:39

使用方法：定义为武功事件，此武功可以复制被选中的人物的武功，属性，形象等。但是复制出来的武功会比被复制方的武功低一级或不会超过这个武功的级别。
作者：凶神恶煞

;Kdefnum=1358
  50 26 0 0 22234 5 1 0       ;  50(32):读取给定地址数据 [X1]=[5-56DA+0](Int)
  50 26 0 0 22236 5 2 0       ;  50(32):读取给定地址数据 [X2]=[5-56DC+0](Int)
  50 3 0 2 1 1 2 0             ;  50(32):四则运算 [X1]=[X1]*2
  50 3 0 2 2 2 128 0          ;  50(32):四则运算 [X2]=[X2]*128
  50 3 1 0 3 1 2 0             ;  50(32):四则运算 [X3]=[X1]+[X2]
  50 26 1 0 18948 30 4 3       ;  50(32):读取给定地址数据 [X4]=[1E-4A04+[X3]](Int)
  50 4 0 0 4 0 0 0             ;  50(32):变量判断 If[X4]<0 then JMP=0 else JMP=1
  36 256 228 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  50 30 1 4 0 5 0 0             ;  50(32):[战斗中]读取人物战斗属性
  50 30 1 28005 0 7 0 0       ;  50(32):[战斗中]读取人物战斗属性
  50 17 1 0 5 2 6 0             ;  50(32):读取属性 [X6]=人物[X5]属性偏移2
  50 16 5 0 7 2 6 0             ;  50(32):保存属性人物[X7]属性偏移2=[X6]
  50 17 1 0 7 146 11 0          ;  50(32):读取属性 [X11]=人物[X7]属性偏移146
  50 0 8 50 0 0 0 0             ;  50(32):变量赋值 [X8]=50
;:Label1
  50 17 3 0 5 8 6 0             ;  50(32):读取属性 [X6]=人物[X5]属性偏移[X8]
  50 16 7 0 7 8 6 0             ;  50(32):保存属性人物[X7]属性偏移[X8]=[X6]
  50 3 0 0 8 8 2 0             ;  50(32):四则运算 [X8]=[X8]+2
  50 4 0 0 8 79 0 0             ;  50(32):变量判断 If[X8]<79 then JMP=0 else JMP=1
  36 256 -36 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 0 8 126 0 0 0 0          ;  50(32):变量赋值 [X8]=126
;:Label5
  50 17 3 0 5 8 6 0             ;  50(32):读取属性 [X6]=人物[X5]属性偏移[X8]
  50 3 0 0 9 8 20 0             ;  50(32):四则运算 [X9]=[X8]+20
  50 17 3 0 5 9 10 0          ;  50(32):读取属性 [X10]=人物[X5]属性偏移[X9]
  50 3 0 0 8 8 2 0             ;  50(32):四则运算 [X8]=[X8]+2
  50 3 0 0 9 8 20 0             ;  50(32):四则运算 [X9]=[X8]+20
  50 3 0 1 10 10 100 0          ;  50(32):四则运算 [X10]=[X10]-100
  50 4 0 4 10 0 0 0             ;  50(32):变量判断 If[X10]>=0 then JMP=0 else JMP=1
  36 256 8 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label2
  50 0 10 0 0 0 0 0             ;  50(32):变量赋值 [X10]=0
;:Label2
  50 4 1 0 10 11 0 0          ;  50(32):变量判断 If[X10]<[X11] then JMP=0 else JMP=1
  36 256 8 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 3 0 0 10 11 0 0          ;  50(32):四则运算 [X10]=[X11]+0
;:Label3
  50 16 7 0 7 8 6 0             ;  50(32):保存属性人物[X7]属性偏移[X8]=[X6]
  50 16 7 0 7 9 10 0          ;  50(32):保存属性人物[X7]属性偏移[X9]=[X10]
  50 4 0 4 8 144 0 0          ;  50(32):变量判断 If[X8]>=144 then JMP=0 else JMP=1
  36 256 12 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 4 0 6 6 0 0 0             ;  50(32):变量判断  JMP=0
  36 256 -128 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
;:Label4
  50 47 1 28005 0 0 0 0       ;  50(32):[战斗中]回复人物静止贴图
;:Label0
  -1                            ;  -1(FFFF):事件结束

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

[通用] 50指令编写的复杂事件分享帖（禁水）

马上注册，结交更多侠友！

评分

评分

自创武功系统

评分

配药系统

评分

评分

评分

本帖子中包含更多资源

顺坤版得到物品[X0]=[X1]

评分

评分

战斗中复制人物