roomuser.gml

来自「在线游戏最新服务器端源代码」· GML 代码 · 共 77 行

#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\man\青年女子.ale',12)walk('$.\..\..\imgs\man\青年女子.ale',12)
	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)>};
}
.user_n{
	gid=null;
//	OnCreate#c={<: pman.OnWalkend={<:$[id] class=user_g><:desktop eve=切换场景,台球,$[ep],$.\9\main.gml>};>};
	OnGo={<: pman.eve=go,$[ep]>};
	OnRunTo={<: pman.eve=run,$[ep]>};
	OnMode={<: mode=$[ep];pmode.src=$[ep]>};
	OnData={<: data=$[ep];pdata.src=$[ep]>};
}
.user_g{
	pman.OnWalkend=null;
	OnGo={<: wpos=$[ep];&msg.eve=show,1,$[id],outg,现在您正在游戏中,如果走开就会自动离开游戏>};
	OnRunTo={<: wpos=$[ep];&msg.eve=show,1,$[id],outr,现在您正在游戏中,如果跑开就会自动离开游戏>};
	OnOutG={<: pid.pid.pid.eve=closec;class=user_n;pman.eve=go,$[wpos]>};
	OnOutR={<: pid.pid.pid.eve=closec;class=user_n;pman.eve=run,$[wpos]>};
	OnMode={<: mode=$[ep];gid.eve=mode,$[ep]>};
	OnData={<: data=$[ep];gid.eve=data,$[ep]>};
	gid.eve=ingame,$[pmode],$[pinfo],$[pman];
}
.UserAll{
	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,(320+rand(200),240+rand(200))>};
	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={<:$[id] gid=$[ep];class=user_g>}>};
	OnNoin={<: pman.OnWalkend=null>}:
	class=user_n;
}
.UserOther{
	OnCreate#m={<UserMan man=$[ownername];pos=$[x],$[y]>};
}
.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>