‹‹ 上一主题 | 下一主题 ››
 22 12
发新话题
打印

[MOD技巧] 50指令编写的复杂事件分享帖（禁水）

本主题由 weyl 于 2008-7-4 03:27 分类
KG

江湖隐侠

家族 乐音古堡 - 族长

武林名宿

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

K小邪

帖子
2416 
精华
15 
声望
21411  
银两
106  
性别
男 
来自
广州 
注册时间
2006-5-20 

MOD制作者

1# 大 中 小 发表于 2006-9-28 01:49  只看该作者

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

求指令的，讨论的请到这里：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 编辑 ]
你们为什么要欺负我的朋友朱公子

TOP

KG

江湖隐侠

家族 乐音古堡 - 族长

武林名宿

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

K小邪

帖子
2416 
精华
15 
声望
21411  
银两
106  
性别
男 
来自
广州 
注册时间
2006-5-20 

MOD制作者

2# 大 中 小 发表于 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):事件结束
本帖最近评分记录
你们为什么要欺负我的朋友朱公子

TOP

KG

江湖隐侠

家族 乐音古堡 - 族长

武林名宿

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

K小邪

帖子
2416 
精华
15 
声望
21411  
银两
106  
性别
男 
来自
广州 
注册时间
2006-5-20 

MOD制作者

3# 大 中 小 发表于 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):事件结束
本帖最近评分记录
你们为什么要欺负我的朋友朱公子

TOP

南宫梦

家族 反天蝎联盟 - 才华横溢的天才

武林名宿

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

帖子
1210 
精华
10 
声望
11561  
银两
396  
性别
男 
来自
沈阳 
注册时间
2006-5-16 

MOD制作者

4# 大 中 小 发表于 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):事件结束
本帖最近评分记录
  • KG +30 发指令 2006-12-28 20:29

TOP

南宫梦

家族 反天蝎联盟 - 才华横溢的天才

武林名宿

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

帖子
1210 
精华
10 
声望
11561  
银两
396  
性别
男 
来自
沈阳 
注册时间
2006-5-16 

MOD制作者

5# 大 中 小 发表于 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 +30 发指令 2006-12-28 20:29

TOP

KG

江湖隐侠

家族 乐音古堡 - 族长

武林名宿

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

K小邪

帖子
2416 
精华
15 
声望
21411  
银两
106  
性别
男 
来自
广州 
注册时间
2006-5-20 

MOD制作者

6# 大 中 小 发表于 2006-10-7 18:05  只看该作者
商店系统：

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

说明：
1、这是商店指令，功能跟原版的小宝商店一样，弥补了小宝只在5个场景出现的不足，也省去了修改Z.dat的麻烦。
2、有物品数量功�