|
关于大地图PK死亡传送到另一地图 在中央常PK的地方放置一个NPC叫——中央管理员，建议放在500 500的位置。
unit 中央管理员;
interface
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.
下载地址
关于大地图PK死亡传送到另一地图.doc
| 
300x180 AD
