room.gml

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

#define TQW <table_qw name=%1;nick=%2;pos=%3,%4;f=%5;mode=%6>

<style>
.t_info:text{
	color=#FFFF88;
	align=center,center;
	showstyle=3;
}
.table_qw:img{
	pid=*pid.map;
	autozorder=1;
	pid.cache=1;
	anishow=1;
	automask=1;
	src=$.\imgs\table_91.ale;
	OnCreate={<t_info src=$[nick];pos=6,-28>
		<t_info pid.pm=*id;src=$[mode];showstyle=0;pos=6,-14>};
	mode="空";
	ifchged(mode)={<: pm.src=$[mode]>};
	OnPos={<: pos=$[ep]>};
	OnIn={<: mode=有人>};
	OnFull={<: mode=已满>};
	OnEmpty={<: mode=空>};
	OnIngame={<: pmode=$[ep0];pdata=$[ep1];pman=$[ep2];pmyid=*&desktop.myid;
		regstr($[type])=$[name]>};
//		<:desktop eve=切换场景,网络台球,$[gname],$[nick],$[ingml],1>};
	OnIngame#2=openGmlWnd(pmyid,ingml,nick,740,580);
	OnMode={<: mode=$[ep];switch(ep){
		case -1:pmode.src=旁观;pman.pmode.src=旁观;break;
		default:pmode.src=$[nick]$[ep]号台;pman.pmode.src=$[ep]号台;break;
		}>};
	OnData={<: data=$[ep];pdata.src=$[ep]>};
//	OnLButtonDblClk={<: pid.pid.myid.eve=in,$[id];pid.eve=run,$[pos]>};
	OnLButtonDown={<: pid.pid.myid.eve=sel,$[id];pid.eve=go,$[pos]>};
	OnRButtonDown={<: pid.pid.myid.eve=sel,$[id];pid.eve=go,$[pos]>};
//	OnLButtonUp={<: pid.eve=LButtonUp>};
//	OnLButtonDown={<: pid.pid.myid.eve=wgo,$[pid.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);>
//	}
	OnMouseOver={<: bkimg=shadow(#CCFFCC,250,0,0,4,1);>};
	OnmouseOut={<: bkimg=null;>};
	type="围棋";
	ingml=$.\\index.htm;
//	OnCreate#s={<: if=(f==0)?{src=$.\imgs\table_91.ale;}:{src=$.\imgs\table_92.ale;}>};
}
</style>

#define PORT 10200
#define MAP_NAME $.\..\..\maps\billiards_r.gml
#define USER $.\..\..\common\defuser.gml

<: selfcreatex=320;selfcreatey=240;gname="台球">

<sys import=,$.\..\..\chat\index.gml>
<sys import=,$.\..\..\common\openie.gml>