{
/************************************************************************}

PROGRAM Mir2;

{$I common.pas}

Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;

procedure domain;
begin
This_NPC.NpcDialog(This_Player,
‘欢迎来到散人之家传奇!:\’
+’|{cmd}<安全传送/@anquan> ^<险恶区域/@xiane>\’);
end;

procedure _xiane;
begin
This_Npc.NpcDialog(This_Player,
‘欢迎来到散人之家传奇!\ \’
+’|{cmd}<比齐矿区/@MOVE12> ^<沃玛寺庙/@MOVE13> ^<死亡山谷/@MOVE14>\’
+’|{cmd}<石 墓 阵/@MOVE15> ^<抉择之地/@MOVE16> ^<封魔矿区/@MOVE17>\’
+’|{cmd}<尸 魔 洞/@MOVE18> ^<骨 魔 洞/@MOVE19> ^<牛魔寺庙/@MOVE20> \’
+’|{cmd}<牛魔六层/@MOVE21> ^<返回/@main>’
);
end;

procedure _MOVE12;
begin
This_Player.Flyto(‘0’,650,219);
end;

procedure _MOVE13;
begin
This_Player.Flyto(‘1’,88,282);
end;

procedure _MOVE14;
begin
This_Player.Flyto(‘3’,143,93);
end;

procedure _MOVE15;
begin
This_Player.Flyto(‘D715’,87,77);
end;

procedure _MOVE16;
begin
This_Player.Flyto(‘D1004’,64,234);
end;

procedure _MOVE17;
begin
This_Player.Flyto(‘4’,56,76);
end;

procedure _MOVE18;
begin
This_Player.Flyto(‘5’,518,615);
end;

procedure _MOVE19;
begin
This_Player.Flyto(‘5’,550,135);
end;

procedure _MOVE20;
begin
This_Player.Flyto(‘5’,659,461);
end;

procedure _MOVE21;
begin
This_Player.Flyto(‘D2078’,160,160);
end;

 

 

 

 

procedure _anquan;
begin
This_Npc.NpcDialog(This_Player,
‘欢迎来到散人之家传奇!\ \’
+’|{cmd}<边界村/@MOVE01> ^<银杏山谷/@MOVE02> ^<比奇省/@MOVE0>\’
+’|{cmd}<毒蛇山谷/@MOVE2> ^<盟重省/@MOVE3> ^<封魔谷/@MOVE4>\’
+’|{cmd}<苍月岛/@MOVE5> ^<魔龙城/@MOVE6> ^<白日门/@MOVE11> \’
+’|{cmd}<沙城区域/@shacheng> ^<返回/@main>’
);
end;

procedure _MOVE01;
begin
This_Player.Flyto(‘0’,650,631);
end;

procedure _MOVE02;
begin
This_Player.Flyto(‘0’,289,618);
end;

procedure _MOVE0;
begin
This_Player.Flyto(‘0’,325,268);
end;

procedure _MOVE2;
begin
This_Player.Flyto(‘2’,503,483);
end;

procedure _MOVE3;
begin
This_Player.Flyto(‘3’,330,330);
end;

procedure _MOVE4;
begin
This_Player.Flyto(‘4’,240,200);
end;

procedure _MOVE5;
begin
This_Player.Flyto(‘5’,141,335);
end;

procedure _MOVE6;
begin
This_Player.Flyto(‘6′,124,156);
end;

procedure _MOVE11;
begin
This_Player.Flyto(’11’,178,326);
end;

procedure _shacheng;
begin
This_Player.Flyto(‘3’,719,414);
end;

Begin
domain;
end.