请问这是什么语言?

Question

unit在a杀死刷到b;

interface

functiongettoken(astr,atoken,asep:string):string;
functioncomparestr(astr1,astr2:string):boolean;
functioncallfunc(atext:string):string;
procedureprint(atext:string);
functionrandom(ascope:integer):integer;
functionlength(atext:string):integer;
procedureinc(aint:integer);
proceduredec(aint:integer);
functionstrtoint(astr:string):integer;
functioninttostr(aint:integer):string;
procedureexit;

procedureondie(astr:string);
procedureontimer(astr:string);
var
zt:string=;

implementation
procedureontimer(astr:string);
begin

ifzt=thenexit;
print(mapaddobjbynamemonster猪50050010false);
print(say猪在500_500);
zt:=;
exit;
end;
end;
procedureondie(astr:string);
begin
zt:=1;
print(say猪在b地图500_500);
exit;
end;

end;
end.
这个是千年私服的一个活动脚本...不知道是根据什么语言写的..

Answer 1

和pascal里的标识符很像本回答被提问者采纳

Answer 2

这是网络链接或者是乱码

Answer 3

非人类语言。

Answer 4

什么呀你写错了