黄大,能不能把那场景传送的代码放出来?

killer_zingy

那个新的SFE 里, 看着有不能用, 自己又写不出来~ 能不能放出来让我们这种小白也能用

jy02785317

我记得黄大之前把她的飞机场代码放出来过啊


传送门50指令编写的复杂事件分享帖（禁水） - 达摩堂 - 金庸群侠传 - 铁血丹心论坛 - 做中国人自己的武侠单机游戏

[发帖际遇]: jy02785317投石杀死蒙古大汗蒙哥，天下闻名，增加声望5。

[ 本帖最后由 jy02785317 于 2010-1-4 08:51 编辑 ]

killer_zingy

我说的是pascal那个的~
新sfe里那个第71指令里用这个场景移动的指令

KA

版权所有是猪3工作组囧

啊啊啊啊啊KK说版权是他自己的，谢谢大家，谢谢

最后KK说这个是属于X传工作组的

本人奉命来吹捧，啊伟大的代码

[ 本帖最后由 黄顺坤 于 2010-1-4 13:48 编辑 ]

winson7891

自己写吧~~改改currentscence，Sx，Sy，音乐，然后InitialScence;一次~场景就跳转了

Sx，Sy可以从RScence那里定位

然后如果需要改出口的话，改改Mx,My，还有Mface，那就结了~~

weyl

应该是很简单
（其实我为这个指令把准备做足了）

[发帖际遇]: weyl当选为年度“赏善罚恶”大使，路过襄阳城，赏给郭靖银两9。

KA

1. procedure JmpScence(snum, y, x: integer);
   
2. begin
   
3.   CurScence := snum;
   
4.   if x = -2 then
   
5.   begin
   
6.     x := RScence[CurScence].EntranceX;
   
7.   end;
   
8.   if y = -2 then
   
9.   begin
   
10.     y := RScence[CurScence].EntranceY;
    
11.   end;
    
12.   Cx := x + Cx - Sx;
    
13.   Cy := y + Cy - Sy;
    
14.   Sx := x;
    
15.   Sy := y;
    
16.   instruct_14;
    
17.   InitialScence;
    
18.   Drawscence;
    
19.   instruct_13;
    
20.   ShowScenceName(CurScence);
    
21.   CheckEvent3;
    
22. end;

复制代码

[发帖际遇]: 黄顺坤当选为年度“赏善罚恶”大使，路过荆州城，罚凌退思获得银两11。

killer_zingy

哇,原来是这样,谢谢黄大和KG大了

[发帖际遇]: killer_zingy参加了一灯大师举办的《佛学交流大会》，因表现突出，被一灯大师点名表扬，增加声望3。

轩辕夏禹

黄大，把这个放到kys_event.pas里再编译就行了吗？
需不需要命名为71指令？

procedure instruct_71(snum, y, x: integer);
begin
这样子命名对不对？

[发帖际遇]: 轩辕夏禹请陈园园签名,被吴三桂发现,损失银两10。

[ 本帖最后由 轩辕夏禹 于 2010-1-5 11:52 编辑 ]

killer_zingy

还要在kys_mian里面加一个关于71指令的东西

[发帖际遇]: killer_zingy在佛山巧遇钟阿四一家被凤天南强逼，出手打趴凤天南，凤天南奉上银两29。

轩辕夏禹

黄大已经教过我了：
把源代码贴上，然后再event里声明，在main里加一个71什么的就行了。

[发帖际遇]: 轩辕夏禹挺身而出，阻止萧峰打“段正淳”，成功挽救阿朱，得到奖励银两14。

轩辕夏禹

71:
        begin
          JmpScence(e[i + 1], e[i + 2], e[i + 3]);
          i := i + 4;
        end;
这样子就对了。

[发帖际遇]: 轩辕夏禹拍丁春秋的马屁，获赠金钱银两5两。