终于仿照出来了，好累啊

风吹屁屁凉 · 发表于 2010-2-21 15:59

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

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

x

就是飞机场系统，在我这里黄大的那个并不能跳转场景（老版的那个）一时心血来潮改了一下，经我测试，可以准确的跳转场景。PS，我是新手，不夸我也不要骂我。
;Kdefnum=15
  1 3024 87 0                   ;  1(1):[???]说: 这里是传说中的飞机场，你*们可以去任何一个客栈。

  0                            ;  0(0)::空语句(清屏)
  50 0 1000 0 0 0 0 0          ;  50(32):变量赋值 [X1000]=0
;:Label0
  50 3 0 2 1001 1000 100 0    ;  50(32):四则运算 [X1001]=[X1000]*100
  50 3 0 0 1001 1001 2000 0    ;  50(32):四则运算 [X1001]=[X1001]+2000
  50 1 3 0 1100 1000 1001 0    ;  50(32):数组变量赋值数组1100([X1000])=[X1001](Int)
  50 3 0 0 1000 1000 1 0       ;  50(32):四则运算 [X1000]=[X1000]+1
  50 4 0 0 1000 4 0 0          ;  50(32):变量判断 If[X1000]<4 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 45 285 30 0       ;  50(32):处理背景位置(15,45) Width=285 Height=30
  50 33 0 400 20 50 26211 0    ;  50(32):显示字符串显示字符串400 (20,50)Color26211
  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 3017 0 0 0 0          ;  50(32):变量赋值 [X1]=3017
;: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 4 0 0 0          ;  50(32):修改下一条指令参数下一条指令参数4=[X1005]
  50 8 1 1 400 0 0 0          ;  50(32):读对话到字符串  Str[X400]=talk([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 4 0 0          ;  50(32):变量判断 If[X1002]<4 then JMP=0 else JMP=1
  36 256 -60 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label1
  50 34 0 95 95 120 83 0       ;  50(32):处理背景位置(95,95) Width=120 Height=83
  50 39 0 4 1100 100 100 100    ;  50(32):菜单选择菜单个数4[X1100]()返回=[X100]显示位置(100,100)
  50 4 0 2 100 1 0 0          ;  50(32):变量判断 If[X100]=1  then JMP=0 else JMP=1
  36 256 0 27                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label2
  0                            ;  0(0)::空语句(清屏)
  14                            ;  14(E):场景变黑
  50 43 0 6 40 34 32 0          ;  50(32):调用其它事件 Call Sub6(40,34,32,0)
  50 16 0 2 28928 28 26 0       ;  50(32):保存属性场景28928属性偏移28=26
  50 16 0 2 28928 30 43 0       ;  50(32):保存属性场景28928属性偏移30=43
  -1                            ;  -1(FFFF):事件结束
;:Label2
  50 4 0 2 100 2 0 0          ;  50(32):变量判断 If[X100]=2  then JMP=0 else JMP=1
  36 256 0 27                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label3
  0                            ;  0(0)::空语句(清屏)
  14                            ;  14(E):场景变黑
  50 43 0 6 61 34 31 0          ;  50(32):调用其它事件 Call Sub6(61,34,31,0)
  50 16 0 2 28928 28 23 0       ;  50(32):保存属性场景28928属性偏移28=23
  50 16 0 2 28928 30 49 0       ;  50(32):保存属性场景28928属性偏移30=49
  -1                            ;  -1(FFFF):事件结束
;:Label3
  50 4 0 2 100 3 0 0          ;  50(32):变量判断 If[X100]=3  then JMP=0 else JMP=1
  36 256 0 27                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label4
  0                            ;  0(0)::空语句(清屏)
  14                            ;  14(E):场景变黑
  50 43 0 6 60 34 31 0          ;  50(32):调用其它事件 Call Sub6(60,34,31,0)
  50 16 0 2 28928 28 26 0       ;  50(32):保存属性场景28928属性偏移28=26
  50 16 0 2 28928 30 42 0       ;  50(32):保存属性场景28928属性偏移30=42
  -1                            ;  -1(FFFF):事件结束
;:Label4
  50 4 0 2 100 4 0 0          ;  50(32):变量判断 If[X100]=4  then JMP=0 else JMP=1
  36 256 0 28                   ;  36(24):跳转变量JMP是否为0否则跳转到:Label5
  0                            ;  0(0)::空语句(清屏)
  14                            ;  14(E):场景变黑
  50 43 0 6 3 21 34 0          ;  50(32):调用其它事件 Call Sub6(3,21,34,0)
  0                            ;  0(0)::空语句(清屏)
  50 16 0 2 3 28 21 0          ;  50(32):保存属性场景3属性偏移28=21
  50 16 0 2 3 30 50 0          ;  50(32):保存属性场景3属性偏移30=50
  -1                            ;  -1(FFFF):事件结束
;:Label5
  0                            ;  0(0)::空语句(清屏)
  1 3023 0 0                   ;  1(1):[兹]说: 走错路了，再见
  0                            ;  0(0)::空语句(清屏)
  -1                            ;  -1(FFFF):事件结束

[发帖际遇]: 风吹屁屁凉在独孤墓捡到大雕遗漏的怪蛇胆，卖出银两16两。