问个关于复刻版的问题

风吹屁屁凉

复刻版怎么跳转场景啊？71号指令貌似需要源码啊？怎么写

killer_zingy

源码大大已经发了~~~~~~

[发帖际遇]: killer_zingy想前往牛家村发掘曲灵风藏宝，却被侯通海弄脏了衣服，买新衣服花去银两5两。

夏海

lua复刻版代码是：
if JY.Base["人X1"]==JY.Scene[JY.SubScene]["跳转口X1"] and JY.Base["人Y1"]==JY.Scene[JY.SubScene]["跳转口Y1"] then
            JY.SubScene=JY.Scene[JY.SubScene]["跳转场景"];
            lib.ShowSlow(50,1);
            if JY.Scene[JY.SubScene]["外景入口X1"]==0 and JY.Scene[JY.SubScene]["外景入口Y1"]==0 then
                JY.Base["人X1"]=JY.Scene[JY.SubScene]["入口X"];
             JY.Base["人Y1"]=JY.Scene[JY.SubScene]["入口Y"];
            else
                JY.Base["人X1"]=JY.Scene[JY.SubScene]["跳转口X2"];  
           JY.Base["人Y1"]=JY.Scene[JY.SubScene]["跳转口Y2"];
            end
            Init_SMap(1);
            return;
        end

killer_zingy

pascal的
procedure instruct_71(snum, y, x: integer);
begin
  CurScence := snum;
  if x = -2 then
  begin
    x := RScence[CurScence].EntranceX;
  end;
  if y = -2 then
  begin
    y := RScence[CurScence].EntranceY;
  end;
  Cx := x + Cx - Sx;
  Cy := y + Cy - Sy;
  Sx := x;
  Sy := y;
  instruct_14;
  InitialScence;
  Drawscence;
  instruct_13;
  ShowScenceName(CurScence);
  CheckEvent3;
end;

[发帖际遇]: killer_zingy想前往牛家村发掘曲灵风藏宝，却被侯通海弄脏了衣服，买新衣服花去银两5两。

风吹屁屁凉

多谢楼上两位大大（其实是找不到了，知道发过）

陆压道人

风吹大也可以自己写一个啊，我研究了两天复刻版了，看来不难，比较麻烦的地方是游戏里的xy是相反的。

[发帖际遇]: 陆压道人吃烧饼的时候，发现烧饼里藏着一枚“玄铁令”，转手卖掉后，赚到银两15。

风吹屁屁凉

我是难在源码那里，其余貌似跟DOS差不多吧

[发帖际遇]: 与韦小宝赌骰子，韦小宝出老千，风吹屁屁凉失去银两16两。

陆压道人

为什么会难呢？
我倒觉得比dos版容易多了，汇编真不是人干的……

[发帖际遇]: 陆压道人帮周威信押镖，结果：偷得鸳鸯刀，转手卖得银两26。

风吹屁屁凉

根本看不懂源码，貌似全是英文

[发帖际遇]: 风吹屁屁凉跟踪成昆进入明教密道，结果：奋勇救小昭脱险，得到小昭感谢银两3。

killer_zingy

ms你在QQ上问我怎么用
在这里回答吧
复制到kys_event.pas
然后到kys_main.pas的event里加上

1. 71:
   
2.        begin
   
3.        instruct_71(e[i + 1], e[i + 2], e[i + 3]);
   
4.           i := i + 4;
   
5.           end;

复制代码

[发帖际遇]: killer_zingy发现牛家村曲灵风藏宝，共银两19两。

风吹屁屁凉

谢谢，茅塞顿开