三千论坛

标题: 关于大地图PK死亡传送到另一地图 [打印本页]

作者: 快要发癫啦 时间: 2023-1-29 09:53
标题: 关于大地图PK死亡传送到另一地图

在中央常PK的地方放置一个NPC叫——中央管理员，建议放在500 500的位置。

unit 中央管理员;

inte**ce

function GetToken (aStr, aToken, aSep : String) : String;

function CompareStr (aStr1, aStr2 : String) : Boolean;

function callfunc (aText: string): string;

procedure print (aText: string);

function Random (aScope: integer): integer;

function Length (aText: string): integer;

procedure Inc (aInt: integer);

procedure Dec (aInt: integer);

function StrToInt (astr: string): integer;

function IntToStr (aInt: integer): string;

procedure exit;

procedure OnChangeState (aStr : String);

implementation

//下面是当玩家状态改变时，也就是检测到玩家死亡了。

procedure OnChangeState (aStr : String);

var Str, Name : String;

begin if aStr <> 'die' then exit;

Str := callfunc ('getsenderrace');

//这里是检测死亡的是不是玩家

if Str <> '1' then exit;

//下面这一段和普通传送有点不同，这个是利用本地图的NPC传送的，如果本地图没有中央管理员，那么这段就无效了。

Name := callfunc ('getsendername');

Str := 'movespacebyname ' + Name;

Str := Str + ' user 6 84 81 中央管理员 npc 300';

print (Str);

end;

end.

欢迎光临三千论坛 (http://bbs.3000y.com.cn/)