请问这是什么语言?

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.
这个是千年私服的一个活动脚本...不知道是根据什么语言写的..

第1个回答  2007-10-20
和pascal里的标识符很像本回答被提问者采纳
第2个回答  2022-02-06
这是网络链接或者是乱码
第3个回答  2007-10-19
非人类语言。
第4个回答  2007-10-19
什么呀你写错了