user.gml

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

<style>
.gman:div{
	pid=ManList;
	autopos=1;
	size=100,20;
	OnCreate={<text src=$[name]><text xpos=50;pid.mid=*id;src="空"><:$[id] eve=mode,$[mode],$[user]>};
	mode=0;
	user=0;
	OnMode={<: if=($[ep0]==0)?{user=0;mid.src="空"}:{user=$[ep1];mid.src=$[ep1]}>};
	OnClick={<: if=(mode==0)?{pid.eve=down,$[index]}:{pid.eve=up,$[index]};>};
	OnEnter={<: eve=mode,1,$[ep]>};
	OnLeave={<: eve=mode,0>};
}
.MyDesk{
	mid=0;
//	OnDown={<:$[myid] eve=down,$[ep]>};
//	OnUp={<:$[myid] eve=up,$[ep]>};
}
.UserAll{
	modepos=80;
	datapos=120;
	OnMode={<: mode=$[ep];if=(mode>=0)?{pmode.src=第$[ep]台}:{pmode.src=旁观};>};
}
.UserMe{
	OnBegin={<: neteventtos=begin,$[ep]>};
	On加入={<: neteventtos=enter,$[ep]>};
	On旁观={<: neteventtos=leave,$[ep]>};
	OnErr={<: switch(ep[0]){
		case 1:!有人在此;break;
		case 2:!已经在此;break;
		case 3:?换座位到$[ep1];break;
		case 4:!你还是旁观呢:);break;
		case 5:!你不是主人:);break;
	}>};
	OnRestart={<: neteventtos=restart,$[ep]>};
	OnWaitin={<msg_wait src="等待主人$[ep]接受挑战..."></msg_wait>};
	OnIfin={<msg_in src="$[ep]想加入游戏挑战你\r\n接受么？"></msg_in>};
	OnSeeifin={<msg_wait src="$[ep]想加入游戏，等待主人同意..."></msg_wait>};
	OnFight={<:msgdlg del=1>};
	Onyes={<: neteventTos=fyes>};
	Onnofight={<: neteventTos=fno>};
	Onquit={<: neteventTos=quit>};
	OnExit={top.close()};
	Onfquit={<:msgdlg del=1>};
	OnLost={<msg_over src="一局结束\r\n$[ep] 输了"></msg_over><:b1 stop=1;><:b2 stop=1>};
	Onnext={<: neteventTos=continue;>};
	Onwaito={<msg_wait src="等待其他人继续..."></msg_wait>};
}
.UserOther{
}
</style>

<: class=MyDesk>