room.gml

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

#define TB9 <table9 name=%1;nick=%2;pos=%3,%4;f=%5;mode=%6>
#define TB16 <table16 name=%1;nick=%2;pos=%3,%4;f=%5;mode=%6>

<style>
.t_name:text{
	font=黑体,8,16,800;
	anti=1;
	degree=450;
	align=center,center;
	clip=0;
	OnCreate={<: if=(f==0)?{pos=12,-13;degree=3060;}:{pos=10,-25;degree=450;};>};
}
.t_info:text{
	color=#FFFF88;
	align=center,center;
	showstyle=3;
	clip=0;
}
.table:img{
	pid=*pid.map;
	autozorder=1;
	pid.cache=1;
	anishow=1;
	automask=1;
	src=$.\imgs\table_91.ale;
	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;>};
}
.table9:table{
	type="九球";
	ingml=$.\\9\\main.gml;
	OnCreate#s={<: if=(f==0)?{src=$.\imgs\table_91.ale;}:{src=$.\imgs\table_92.ale;}>
		<t_name src=$[nick];pos=10,-23;f=$[f]><t_info pid.pm=*id;src=$[mode];showstyle=0;pos=4,-52>};
}
.table16:table{
	type="十六球";
	ingml=$.\\16\\main.gml;
	OnCreate#s={<: if=(f==0)?{src=$.\imgs\table_161.ale;}:{src=$.\imgs\table_162.ale;}>
		<t_name src=$[nick];pos=10,-23;f=$[f]><t_info pid.pm=*id;src=$[mode];showstyle=0;pos=4,-52>};
}
</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>