room.gml

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

#define TS <tablesnow name=%1;gname=%2;nick=%3;pos=%4,%5;index=%6>

<style>
.s_info:text{
	pid=*pid.pid;
	zorder=top;
	color=#AA6600;
	align=center,center;
//	showstyle=3;
	font=隶书,18;
	anti=true;
}
.tablesnow:img{
	pid=*pid.map;
	autozorder=1;
	pid.cache=1;
	anishow=1;
	automask=1;
	src=$.\imgs\misc\table1.ale;
	OnCreate={<: ingml=$.\index$[index].gml><s_info src=$[gname];pos=$[(xpos+70)],$[(ypos+48)]>
		<s_info &$[id].pm=*id;src=$[mode];showstyle=0;pos=$[(xpos+70)],$[(ypos-60)]>};
	mode="空";
	ifchged(mode)={<: pm.src=$[mode]>};
	OnPos={<: pos=$[ep]>};
	OnIn={<: mode=有人>};
	OnFull={<: mode=已满>};
	OnEmpty={<: mode=空>};
	OnIngame={<: pmode=$[ep0];pdata=$[ep1];pman=$[ep2]>
		<:desktop eve=切换场景,雪战,$[gname],$[nick],$[ingml],1>};
	OnMode={<: mode=$[ep];switch(ep){
		case -1:pmode.src=旁观;break;
		default:pmode.src=战斗中;break;
		}>};
	OnData={<: data=$[ep];pdata.src=$[ep]>};
	OnLButtonDblClk={<: pid.pid.myid.eve=in,$[id];pid.eve=run>};
	OnLButtonDown={<: pid.pid.myid.eve=sel,$[id];pid.eve=go>};
	OnRButtonDown={<: pid.pid.myid.eve=sel,$[id];pid.eve=go>};
	OnMouseOver={<: bkimg=shadow(#CCFFCC,250,0,0,4,1);paramctrl#ani=loop(frame,0,framemax-1,1,80)>};
	OnmouseOut={<: bkimg=null;paramctrl#ani=null;frame=0>};
}
</style>


<div size=500,100;bkimg2=color(black);onsize={<: pos=(pid.width-width)/2,(pid.height-height)/2>};eve=size;onclick={<: del=1>}>
	<text color=black;src="此游戏室只能聊天，鼠标双击山头进入的雪战游戏";
	font=隶书,10,22;	
	anti=1;
	bkimg=shadow(0,80,-1,-1,1);
	bkimg#2=shadow(#FFFFFF,170,1,1,1);>
</div>

#define PORT 10200
#define USER $.\..\..\common\user.gml
<: selfcreatex=320;selfcreatey=240;gname="雪战的冬季">
#define MAP_NAME $.\..\..\maps\snow_r.gml
<sys import=,$.\..\..\chat\index.gml>
<: eve=size>