login.gml

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

<sys include=$.\style\mainstyle.gml>
<style>
.登陆文字:text{
	 font=黑体,9,18;color=#AFFFDF;
	 anti=1;
	 bk=shadow(0,80,1,1,1);
//	 ctrl=loopt(1,alpha,0,255,18,20);
}
.文字按钮:MenuBtn{
	 font=黑体,12,20,800;ctrl=null;alpha=255;
}
.登陆通讯:基本通讯{
	port=10020;
	OnConnected={<: eve=登陆;>};
	on登陆={<: ptextid.src="正在登陆..";ptextid.show=1;send=#e,canlogin,$[username],$[userpass];>};
}
.登陆输入:wedit{
	font=Fixedsys,14;
	textcolor=#FFFFFF;
	bkcolor=#003300;
//	bk=shadow(0,160,0,0,3,3);
	size=130,17;maxnum=16;
	OnEnter={<: eve=Write;pid.eve=开始登陆>};
	OnDestroy={<: eve=Write>};
}
.用户名输入:登陆输入{
	src=*regstr(xxtloginname,"");
	OnWrite={<: regstr(xxtloginname)=*src>};
}
.用户密码输入:登陆输入{
	password=1;
	OnWrite={<: if=(pid.m_pbrempass.ifrem)?{regstr(xxtloginpass)=*src;}:{regstr(xxtloginpass)="";?cle};>};
	ctrl=timer(100,active);
	OnCreate={<: if=(pid.m_pbrempass.ifrem)?{src=*regstr(xxtloginpass,"");}:{src=""};>};
	OnDestroy={<: eve=Write>};
}
.记住密码check:text{
 font=黑体,9,16,400;anti=1;
 color=#FFFFFF;
 ifrem=*regstr(rempass,0);
 OnShowCheck={<: if=(ifrem)?{ptxt.src=A;}:{ptxt.src=D;};>}
 OnCreate={<: ptxt=new text{font=Wingdings,22,24,450;
	filltext={bar(0,0,40,40,#09999F);Circlelight(4,8,15,#FFFFCC);Circlelight(6,6,5,#FFFFFF);};
	color=#99FF66;src=J;anti=1;clip=0;pos=-16,-2};eve=ShowCheck>};
 OnClick={<: ifrem=(1-ifrem);regstr(rempass)=*ifrem;eve=ShowCheck>};
	
 OnMouseOver={<: bk=roundbar(#2689AF,8,#0066AF,-19,-2);bk#t=shadow(0,255,0,0,2,2);>};
 OnmouseOut={<: bk=null;bk#t=null;>};
}
.登陆页:face{
	name=登陆;
	size=360,180;
	class=centerclass;
	m_socketid=0;
	OnClose={<: ctrl=null;ifobj(m_socketid)={m_socketid.del=1;m_socketid=0};
		path=stepto(0,-800,6);Onpathend={<: del=1;>}>};
	onCreate={<face标题文字 pos=EDIT#145,1;src=登陆游戏;>
		  <登陆文字 pos=EDIT#22,35;src=您的名字;>
		  <登陆文字 pos=EDIT#22,70;src=您的密码;>
		  <文字按钮 pos=EDIT#286,111;src=登陆;onclick={<: pid.eve=开始登陆>};>;
		  <文字按钮 pos=EDIT#283,151;src=返回;iconsrc=q;onclick={<: pid.eve=close>};>
		  <:  m_pbrempass=new 记住密码check{pos=EDIT#126,96;src=记住密码;};
			m_nameid=new 用户名输入{pos=100,35;};
			m_passid=new 用户密码输入{pos=100,70;}>
	}
	OnDestroy={<: ifobj(m_socketid)={m_socketid.del=1;m_socketid=0;}>};

	On开始登陆={<: ifobj(m_socketid)={m_socketid.del=1;m_socketid=0};m_socketid=new 登陆通讯{username=$[m_nameid.src];userpass=$[m_passid.src]};
		ctrl=timer(10000,登陆失败,登陆失败，服务器超时);
		show=0;>};
	on登陆成功={<: ctrl=null;regstr(loginname)=$[ep0];regstr(loginpass)=$[ep1];>
		<:desktop eve=登陆成功,$[ep]>
	};
	on登陆失败={<: ctrl=null;ifobj(m_socketid)={m_socketid.del=1;m_socketid=0}><sysdlg src=$[ep0];pid=desktop;onclick={<:$[id] show=1>}></sysdlg>
	};
}
</style>
<:desktop on登陆成功={<: exec=$.\root.gml;>}>
#ifdef MAINGML
<登陆页></登陆页>
#endif