selectside.gml

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

<Palette src=$.\..\imgs\act\sn_red.act;name=redpal>
<Palette src=$.\..\imgs\act\sn_blue.act;name=bluepal>
<style>
.selectbtn:div{
 btncolor=0;
 size=160,40;pos=(pid.width-width)/2,68;
 ptmtxt="加入红方";
 txtcolor=#FF0000;
 actid=redpal;ret=0;
 OnCreate={<: bkimg=btnup($[btncolor])>
	<text font=隶书,26;color=$[txtcolor];anti=1;src=*pid.ptmtxt;pos=10,5;
		bkimg#2=shadow(0,134,1,1,1);bkimg=shadow(#FFFFCC,124,-1,-1,1);>
	<img pid.pimg=*id;src=$.\..\imgs\ani\m_sn_r.ale;pos=136,30;palette=*pid.actid;frame=72;
	 OnPlay={<: paramctrl=loops(frame,72,83,1,20)>};
	 OnStop={<: paramctrl=null;frame=72;>};
	>
	}
 OnMouseOver={<: bkimg=btnup($[btncolorh]);pimg.eve=play;>};
 OnmouseOut={<: bkimg=btnup($[btncolor]);pimg.eve=stop;>};
 Onclick={<: pid.pid.eve=selectside,$[ret];pid.show=0>};
}
.seldlg:div{
	pid.pseldlg=*id;
	size=320,210;
	bkimg=dotcolor(#336699);
	zorder=top;
	OnSize={<: pos=(pid.width-width)/2,(pid.height-height)/2>};
	eve=size;class=dragclass;
	draw=2:{rect(8,8,width-8,height-8,#FFFF99);rect(0,0,width,height,0)};
	OnCreate={<div size=pid.width-16,18;pos=8,8;bkimg=glintfill(#FF6600,#FFCC66);zorder=13></div>
		<Text font=system,9,16,600;zorder=top;
	   color=#330000;bkimg=shadow(0,134,1,1)
	   anti=1;
	   srcex="请选择加入方";
	   pos=(pid.width-width)/2,8
	>
#ifdef TDM
	<selectbtn ypos=40;btncolor=#CFA6A1;btncolorh=#FFD5D1;ret=1;></selectbtn>
	<selectbtn ypos=90;btncolor=#AF9CCB;btncolorh=#C8C8FF;ret=2;ptmtxt="加入蓝方";txtcolor=#6633FF;actid=bluepal></selectbtn>
	<selectbtn ypos=140;btncolor=#98CEB0;btncolorh=#B0FFB7;ret=0;ptmtxt="袖手旁观";txtcolor=#009933;actid=0></selectbtn>
#else
	<selectbtn ypos=60;btncolor=#AF9CCB;btncolorh=#C8C8FF;ret=3;ptmtxt="加入战斗";txtcolor=#009933;actid=0></selectbtn>
	<selectbtn ypos=140;btncolor=#98CEB0;btncolorh=#B0FFB7;ret=0;ptmtxt="袖手旁观";txtcolor=#009933;actid=0></selectbtn>
#endif
	};
</style>

<seldlg show=0></seldlg>