roomuser.gml

在线游戏最新服务器端源代码

#define USER

#define G <:%1 eve=go,%2,%3>
#define R <:%1 eve=runto,%2,%3>

<style>
.showname:text{
	showstyle=3;
	color=white;
	pos=0,5;
	align=center;
	zorder=1;
	clip=false;
}
.UserMan:human{
	pid.pman=*id;
	pid=*pid.pid.pid.pid.map;
	anishow=1;
	autozorder=1;
	mutisrc=stand('$.\..\imgs\ani\m_qk_r.ale',8)walk('$.\..\imgs\ani\m_qk_r.ale',8)
	OnCreate={<showname pid=$[id];pos=6,-55;src=$[man];clip=0>};
	OnGo={<: walk=gotopos($[ep],100,12,20)>};
	OnRun={<: walk=gotopos($[ep],400,20,20)>};
}
.UserAll{
	OnSendpos={<: pid.pid.pid.mysocket.send=#e,chgpos,$[ep]>};
	OnPos={<: pman.pos=$[ep];pid.viewfollow=*pman>};
	OnDestroy#m={<: pman.del=1>};
	OnGo={<: pman.eve=go,$[ep]>};
	OnRunTo={<: pman.eve=run,$[ep]>};
	onChat={<flychattxt pid=$[pman.pid];src=$[ep];chatfrom=$[pman];>};
}
.UserMe{
	OnCreate#m={<UserMan man='我';pid.viewfollow=*id><: eve=sendpos,(400+rand(100),100+rand(100))>};
	OnWgo={<: pid.pid.pid.mysocket.send=#e,wto,$[ep];eve=go,$[ep]>};
	OnWrun={<: pid.pid.pid.mysocket.send=#e,wrunto,$[ep];eve=runto,$[ep]>};
	OnIn={<: pman.OnWalkend={<: pid.pid.eve=切换场景,枪战,第$[ep]山头>}>};
	OnNoin={<: pman.OnWalkend=null>}:
}
.UserOther{
	OnCreate#m={<UserMan man=$[ownername]>};
}
.MyMap{
	pid.map=*id;
	pathfinder=1;
	OnLButtonUp={<: pid.myid.eve=wgo,$[mousepos]>
		<img pid=$[pid];src=$.\..\..\imgs\misc\light.ale;zorder=top;anishow=1;pos=$[pid.mousepos];paramctrl=loopt(1,frame,0,framemax-1,1,20,del);>};
	OnLButtonDblClk={<: pid.myid.eve=wrun,$[mousepos]>};
}
.MyUserBar{
}
.MyChatBar{
}
.MyChatEdit{
}
</style>

<:mymap class=MyMap>