roomuser.gml

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

#define USER

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

<style>
.showtext:text{
	showstyle=3;
	color=white;
	pos=0,5;
	align=center;
	zorder=1;
	clip=0;
}
.UserMan:human{
	puser=*pid;
	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={<showtext pid=$[id];pos=6,-55;src=$[man]><showtext pid.pmode=*id;pos=20,-35;src="";align=left;>};
	OnGo={<: walk=gotopos($[ep],100,12,20)>};
	OnRun={<: walk=gotopos($[ep],400,20,20)>};
	OnWalkend={<: puser.eve=posed,$[pos]>};
}
.user_n{
	gid=null;
	pman.pmode.src="";
//	OnCreate#c={<: pman.OnWalkend={<:$[id] class=user_g><:desktop eve=切换场景,台球,$[ep],$.\9\main.gml>};>};
	OnWgo={<: pid.pid.pid.mysocket.send=#e,wto,$[ep];eve=go,$[ep]>};
//	OnWrun={<: pid.pid.pid.mysocket.send=#e,wrunto,$[ep];eve=runto,$[ep]>};
	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;
	OnWgo={<: wpos=$[ep];&msg.eve=show,1,$[id],outg,现在您正在游戏中,如果走开就会自动离开游戏>};
//	OnWrun={<: wpos=$[ep];&msg.eve=show,1,$[id],outr,现在您正在游戏中,如果跑开就会自动离开游戏>};
	OnGo=null;
	OnRunTo=null;
	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]>};
}
.UserAll{
	OnPos={<: pman.pos=$[ep];pid.viewfollow=*pman>};
	OnPosed={<: pid.pid.pid.mysocket.send=#e,pos,$[ep];>};
	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{
	bkimg=shadow(#CCFFCC,250,0,0,4,1);
	OnCreate#m={<UserMan man='我';pid.viewfollow=*id;bkimg=shadow(#CCFFCC,250,0,0,4,1);>
		<: eve=sendpos,(pid.pid.pid.selfcreatex+rand(200),pid.pid.pid.selfcreatey+rand(200))>};
//		<: eve=sendpos,(320+rand(200),240+rand(200))>};
	OnIn={<: pman.OnWalkend={<:$[id] gid=$[ep];class=user_g;gid.eve=ingame,$[pmode],$[pinfo],$[pman];>}>};
	OnNoin={<: pman.OnWalkend=null>}:
	class=user_n;
}
.UserOther{
	OnCreate#m={<UserMan man=$[ownername];pos=$[x],$[y]>};
}
.MyMap{
	pid.map=*id;
	pathfinder=1;
	size=pid.width,pid.height-120;
	OnSize={<: size=pid.width,pid.height-120;>};
	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{
}
.MyFun{
}
</style>

<:mymap class=MyMap>