屋子类.gml

来自「在线游戏最新服务器端源代码」· GML 代码 · 共 56 行

<style>
.titleinfor:text{
	name=MXtitle;
	pos=&desktop.mousexpos,&desktop.mouseypos;
	zorder=top;
	bk=color(red);
	pid=desktop;
}
.屋子:img{
	游戏=0;
	启动声音=0;
	sndname=0
	automask=1;
	nick=NO;
	doorx=0;
	doory=0;
	iconsrc=" ";

	OnLButtonDown={<: pid.pid.myid.eve=sel,$[id];pid.eve=go,$[doorx],$[doory];>};
	OnRButtonDown={<: pid.pid.myid.eve=sel,$[id];pid.eve=go,$[doorx],$[doory];>};
	OnIngame={<: pmode=$[ep0];pdata=$[ep1];pman=$[ep2]>
			<: regstr($[type])=$[nick];regstr(from)=*&desktop.curthisfile;regstr(fromname)="首页";
				regstr(fromx)=$[doorx];regstr(fromy)=$[doory];
			>
			<:desktop exec=$[link]>};

	OnMouseOver={<: 
		switch(type){
		case $[nick]:{<titleinfor src=$[type];>};break;
		default:{<titleinfor src=$[type]_$[nick];>};break;
		}
	>};
	OnMouseOut={<:MXtitle del=1>};

	OnCreate#door={<: doorx=(xpos+doorx);doory=(ypos+doory);
		ctrl=loopcmd(1,1,1,{<: &desktop.guidebarid.startmenuid.eve=AddMenuItem,$[nick],$[id],ingame,"$[iconsrc]";>});
		>
	};
}

.市中心:屋子{
	link=$.\rooms\centre.gml;
	type=市政府;
	nick=市政府;
	doorx=240;
	doory=40;
	iconsrc="G";
}

.台球:屋子{
	link=$.\..\sport\billiards\room.gml;
	type=台球;
	nick=网络台球;
	doorx=60;
	doory=58;
	iconsrc=