root.gml

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

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

<sys include=$.\style\mainstyle.gml>
<style>
.RootBtn:Text{
	font=黑体,12,20,800;color=#FFFFFF;anti=1;italic=1;
	ctrl=loopt(1,alpha,0,255,8,80);
	OnCreate={<MenuIcon>};
	OnMouseOver={<: bk=roundbar(#2689AF,11,#0066AF,-9,-1);bk#t=shadow(0,255,0,0,2,2);class=lightballstyle>};
	OnmouseOut={<: bk=null;bk#t=null;class=nolightballstyle>};
}
.GameTitleText:Text{
	font=黑体,28;color=#BCFFF0;zorder=top;path=stepin(500,0,7);
	anti=1;Onsize={<: pos=pid.width-width-20,8>};
	ctrl=loopt(1,alpha,0,255,8,50);
	OnOut={<: path=stepto(500,0,7);>};
}
</style>
<GameTitleText srcex=快乐吧;eve=size;>

<style>
.PageTitle:text{
	color=#00FFFF;
	bk=shadow(0,255);
	pos=pid.xpos+pid.width/2,pid.ypos-30;
	pid=*pid.pid;
	align=center,top;
	font=黑体,12,20,800;
	anti=1;
}
.PageNum:text{
	src="0";
	color=#00FFFF;
	pid=*pid.pid;
	OnSize={<: pos=ptab.xpos+ptab.width+15,ptab.ypos+ptab.height;>};
	align=left,bottom;
	font=黑体,16;
	anti=1;
}
.PageBase:list{
	bkimg=null;
	bk=roundhalf(#004633,15,#006600,-8,-8);
	autosubpos=vert(25,5,2,1);
	pos=160,140;
	size=260,120;
	OnSize={<: enumsub={<: eve=size>}>};
	createclass=0;
	pageno=0;
	pagename=unkown;
	OnCreate={<: ptitle=new PageTitle{src=$[pagename]};pnum=new PageNum{ptab=$[ptable];eve=size;src="..."};>};
	OnDestroy={<: ptitle.del=1>};
	ifchged(show)={<: ptitle.show=show>};
	ifchged(num)={<: if=(num>0)?{pnum.src="$[num]人"}:{pnum.src="空"};>};
	OnNum={<: num=0;enumsub()={<: pid.num=(pid.num+num)>}>};
}
.实景聊天page:PageBase{
	pid.pid.pid.pchat=*id;
	pos=EDIT#188,103;
	size=260,170;
}
.体育类Page:PageBase{
	pid.pid.pid.psport=*id;
	pos=EDIT#203,151;
}
.动作类page:PageBase{
	pid.pid.pid.pact=*id;
	pos=EDIT#190,150;
	size=260,280;
}
.益智类page:PageBase{
	pid.pid.pid.pbrain=*id;
	pos=EDIT#108,161;
}
.棋类page:PageBase{
	pid.pid.pid.pchess=*id;
	pos=EDIT#109,221;
}
.牌类page:PageBase{
	pid.pid.pid.pcard=*id;
	pos=EDIT#118,277;
}
.gameitem:div{
	autopos=1;
	size=230,24;
	OnCreate={<: ptxt=new game_txt{src=$[nick]};pnum=new game_num{src=$[num]}>};
	ifchged(num)={<: pnum.src=*num;pid.eve=num>};
	OnClick={<: regstr($[type])=$[nick];regstr(from)=$thisfile;regstr(fromname)="首页";
		&desktop.OnExit={<: exec=$[link]>};
		pid.pid.pid.eve=out;
	>};
	OnMouseOver={<: bk=roundbar(#2689AF,11,#0066AF,-9,-1);class=lightballstyle>};
	OnmouseOut={<: bk=null;class=nolightballstyle>};
}
.game_txt:text{
	font=黑体,6,18,800;
	anti=1;
	pos=0,pid.height/2;
	color=#AADDDD;
	align=left,center;
}
.game_num:text{
	font=黑体,12,20,800;
	anti=1;
	pos=pid.width-20,pid.height/2;
	color=#88FF88;
	align=right,center;
}
.gamechat:gameitem{
	pid=*pid.pchat;
	type="实景聊天";
	link=$.\..\chat\room.gml;
}
.gamebilliards:gameitem{
	pid=*pid.psport;
	type="台球";
	link=$.\..\sport\billiards\room.gml;
}
.gamesnow:gameitem{
	pid=*pid.pact;
	type="雪战的冬季";
	OnCreate#p={<: link=$.\..\act\snow\index$[no].gml;>};
}
.gamequake:gameitem{
	pid=*pid.pact;
	type="竞技场";
	link=$.\..\act\quake\room.gml;
	OnCreate#p={<: link=$.\..\act\quake\index$[no].gml;>};
}
.gameland:gameitem{
       pid=*pid.pact;
       type="古岛之战";
       link=$.\..\act\land\room.gml;
       OnCreate#p={<: link=$.\..\act\land\index$[no].gml;>};
}      
</style>

<div name=mainface;size=682,466;class=centerclass;OnOut={<: enumsub={<: eve=out>}>}>
	<img src=$.\images\rootbk.jpg;ctrl=loopt(1,alpha,0,255,8,20);
	 OnExit={<:desktop eve=exit>};
	 OnOut={<: ctrl=loopt(1,alpha,255,0,8,20,exit);>}
	>
	<PageCtrl clip=0;>
		//<: eve=AddPage,牌类,40,300,牌类page>
		//<: eve=AddPage,棋类,30,250,棋类page>
		//<: eve=AddPage,益智类,20,200,益智类page>
		<: eve=AddPage,动作类,500,240,动作类page>
		<: eve=AddPage,体育类,512,190,体育类Page>
		<: eve=AddPage,实景聊天,520,140,实景聊天page>
	</PageCtrl>
	//<img src=$.\images\xiaologo.gif#resize,64,54,mask;ctrl=loopt(1,alpha,0,255,8,20);pos=EDIT#98,18;
	// OnOut={<: ctrl=loopt(1,alpha,255,0,8,20,exit);>}>
	<img src=$.\images\kele8icon.jpg#resize,150,75,autoalpha,2,1;ctrl=loopt(1,alpha,0,255,8,20);pos=EDIT#17,15;
	 OnOut={<: ctrl=loopt(1,alpha,255,0,8,20,exit);>}>
</div>
<kele8copytext>
<mousefire zorder=top;zorder=zorder+1000>
<:desktop eve=size;>
<: bk=color(0)>
<:desktop OnExit={<: exec=$.\index.gml>};
	eve=size;
>

#define MYSOCKET
<: gname=ROOT;regstr(ROOT)=ROOT>
<sys import=,$.\..\common\toolbar.gml>