root2.gml

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

#define GCT <gamechat name=%1;nick=%2;num=%3></gamechat>
#define GSN <gamesnow name=%1;nick=%2;num=%3;no=%4></gamesnow>
#define GQK <gamequake name=%1;nick=%2;num=%3;no=%4></gamequake>
#define GBI <gamebilliards name=%1;nick=%2;num=%3></gamebilliards>

<style>
.game_txt:text{
	color=#FFFF88;
	align=right,center;
	showstyle=3;
	OnMouseOver={<: bkimg=shadow(#CCFFCC,250,0,0,4,1);>};
	OnmouseOut={<: bkimg=null;>};
}
.game_num:text{
	color=#FFFF88;
	align=left,center;
	showstyle=3;
	OnMouseOver={<: bkimg=shadow(#CCFFCC,250,0,0,4,1);>};
	OnmouseOut={<: bkimg=null;>};
}
.game_show:div{
//	pid=*pid.map;
	size=200,20;
	OnCreate={<game_txt pid.ptxt=*id;pos=80,10><game_num pid.pnum=*id;pos=82,10><: ptxt.src=*nick;num=*num>};
	ifchged(num)={<: pnum.src=*num>};
	OnClick={<: regstr($[type])=$[nick];regstr(from)=$thisfile;regstr(fromname)="首页";
		regstr(fromx)="$[pid.myid.pman.xpos]";regstr(fromy)="$[pid.myid.pman.ypos]">
		<:desktop exec=$[link]>};
}
.gamechat:game_show{
//	src="实景聊天室";
	pos=100,100;
	type="实景聊天";
	link=$.\..\chat\room.gml;
}
.gamebilliards:game_show{
//	src="台球";
	pos=300,100;
	type="台球";
	link=$.\..\sport\billiards\room.gml;
}
.gamesnow:game_show{
//	src="雪战的冬季";
	pos=100,200;
	type="雪战的冬季";
	OnCreate#p={<: link=$.\..\act\snow\index$[no].gml;
		switch(no){
		case 00:ypos=200;break;
		case 01:ypos=220;break;
		case 10:ypos=240;break;
		case 11:ypos=260;break;
		case 20:ypos=280;break;
	}>};
}
.gamequake:game_show{
//	src="竞技场";
	pos=300,200;
	type="竞技场";
	link=$.\..\act\quake\room.gml;
	OnCreate#p={<: link=$.\..\act\quake\index$[no].gml;
		switch(no){
		case 00:ypos=200;break;
		case 01:ypos=220;break;
		case 10:ypos=240;break;
		case 20:ypos=260;break;
	}>};
.gameland:game_show{
//	src="古岛之战";
	pos=300,300;
	type="古岛之战";
	link=$.\..\act\land\room.gml;
	OnCreate#p={<: link=$.\..\act\land\index$[no].gml;
		switch(no){
		case 00:ypos=200;break;
		case 01:ypos=220;break;
		case 10:ypos=240;break;
		case 20:ypos=260;break;
	}>};
}
</style>

<:	regstr(ROOT)="ROOT";
	regstr(from)=$.\root.gml;
	regstr(fromname)="ROOT";
>

#define PORT 10200

<: selfcreatex=*regstr(fromx,320);selfcreatey=*regstr(fromy,240);gname="ROOT">

<sys import=,$.\..\common\toolbar.gml>

<: pfunbar.show=0;puserbar.show=0;pchatbar.show=0>
<: ptaskbar.puser.show=0;ptaskbar.pchat.show=0;ptaskbar.pfun.show=0>

<: OnSize={<: enumsub={<: eve=size>}>};eve=size>