钓鱼事件（新手作品）

无情剑客

下面是钓鱼事件，我还是新手，所以做得不好，请大家指教。

对话：2977：是否钓鱼 （Ｙ／Ｎ）
对话：2978：垂钓中，请等待
对话：2980：钓鱼最重要的就是钓竿。
设置五种鱼类，掉到与否的几率储存在物品188偏移上。
以下事件未经测试，请大家帮忙测试下！

;Kdefnum=1018
  50 8 0 2977 2000 0 0 0         ;  50(32):读对话到字符串  Str[X2000]=talk(2977)
  50 36 0 2000 200 100 1797 0    ;  50(32):显示字符串并等待击键 显示字符串2000 (200,100)Color1797
  36 256 0 160                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label0
  18 5 7 0                       ;  18(12):是否有物品[钓竿]是则跳转到:Label1
  0                              ;  0(0)::空语句(清屏)
  1 2980 0 0                     ;  1(1):[无情剑客]说: 钓鱼最需要的就是钓竿。
  0                              ;  0(0)::空语句(清屏)
  7                              ;  7(7):无条件返回
;:Label1
  0                              ;  0(0)::空语句(清屏)
  50 8 0 2978 2100 0 0 0         ;  50(32):读对话到字符串  Str[X2100]=talk(2978)
;:Label2
  50 34 0 200 100 126 28 0       ;  50(32):处理背景 位置(200,100) Width=126 Height=28
  50 33 0 2100 205 105 1797 0    ;  50(32):显示字符串 显示字符串2100 (205,105)Color1797
  50 37 0 3 0 0 0 0              ;  50(32):延时 延时3
  50 38 0 100 300 0 0 0          ;  50(32):随机数 [X300]=Random(100)
  50 3 0 0 300 300 1 0           ;  50(32):四则运算 [X300]=[X300]+1
  50 4 0 5 300 75 0 0            ;  50(32):变量判断 If[X300]>75 then JMP=0 else JMP=1
  36 256 0 -52                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  50 38 0 100 500 0 0 0          ;  50(32):随机数 [X500]=Random(100)
  50 0 600 4 0 0 0 0             ;  50(32):变量赋值 [X600]=4
;:Label5
  50 3 0 0 500 500 1 0           ;  50(32):四则运算 [X500]=[X500]+1
  50 17 1 1 600 188 400 0        ;  50(32):读取属性 [X400]=物品[X600]属性偏移188
  50 4 1 0 500 400 0 0           ;  50(32):变量判断 If[X500]<[X400] then JMP=0 else JMP=1
  36 256 32 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label3
  50 4 0 1 600 0 0 0             ;  50(32):变量判断 If[X600]<=0 then JMP=0 else JMP=1
  36 256 20 0                    ;  36(24):跳转变量JMP是否为0是则跳转到:Label4
  50 3 0 1 600 600 1 0           ;  50(32):四则运算 [X600]=[X600]-1
  50 4 0 6 0 0 0 0               ;  50(32):变量判断  JMP=0
  36 256 -60 0                   ;  36(24):跳转变量JMP是否为0是则跳转到:Label5
;:Label4
;:Label3
  50 32 0 600 1 0 0 0            ;  50(32):修改下一条指令 下一条指令参数1=[X600]
  2 0 1                          ;  2(2):得到物品[海螺][1]
  0                              ;  0(0)::空语句(清屏)
;:Label0
  0                              ;  0(0)::空语句(清屏)
  -1                             ;  -1(FFFF):事件结束

[发帖际遇]: 无情剑客无意中获得赵敏的木制倚天剑，卖给摆地摊的，获利银两140000.

[ 本帖最后由 无情剑客 于 2009-2-8 16:21 编辑 ]

wz110123

行啊楼主修改的不错啊

无情剑客

这位仁兄，有帮我测试吗？？

乔风

看不到