mutlist.gml

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

#define HEADHEIGHT 15
<style>
.mutlistscroll:div{
	bk=color(#508676);
	abspos=1;
	zorder=top;
	clip=0;
	Oncreate#pan={<: pid.scrollobj=*id;eve=size>
				<listscrollUp></listscrollUp>
				<listscrollSpan pid.spanobj=*id;pid.pid.spanobj=*id;width=pid.width></listscrollSpan>
				<listscrollDown></listscrollDown>
				<: eve=size>
	}
	OnLButtonDown={<: spanobj.eve=setpan,(0,mouseypos-(spanobj.height/2))>};
	OnSize={<: size=#(LISTWIDTH),pid.height-#(HEADHEIGHT);
		 if=(pid.rightscroll)?{pos=pid.width-width,#(HEADHEIGHT)}:{pos=0,#(HEADHEIGHT)};
		 enumsub={<: eve=size>}>
		};
}
.headtext:text{
autopos=1;color=#DDDDBB;anti=1;font=黑体,6,14,600;//bk=shadow(0,130,-1,-1,1);bk#2=shadow(#CCFFFF,130,1,1,1);
}
.muthead:div{
	abspos=1;pos=0,0;zorder=top;
	bk=Glintfill(#888080,#443333);
	////roundbar(#006699,3,#333333,-3,-1);
	OnCreate={<: size=pid.width,#(HEADHEIGHT);
		tablename=*pid.tablename;
		tablewidth=*pid.tablewidth;
		tablealgin=*pid.tablealgin;
//		selfauto="lowtable(0,0";
		subauto="lowtable(0,0";
		tw=0;
		num=0;while(num<tablename[]){
		 pbtn=new headtext{src=*pid.tablename[num]};
//		 selfauto[-1]=*tablewidth[num];selfauto[-1]=11;
		 subauto[-1]=*tablewidth[num];subauto[-1]=*tablealgin[num];
		 tw=(tw+tablewidth[num]);num=(num+1);
		};
//		selfauto[-1]="0,0)";
		subauto[-1]="0,0)";
		autosubpos=*subauto;
		width=tw-1;
		pid.width=tw;
		pid.scrollobj.eve=size;
		pid.subauto=*subauto;
		>};
}
.mutlist:map{
	movestep=1;cache=0;scrollobj=0;
	autosubpos=vert(#(LISTWIDTH),#(HEADHEIGHT),1,true,120);
	ifchged(voffset)={<: spanobj.eve=Mapsetpan>};
	ifchged(size)={<: if=(scrollobj != '0')?{scrollobj.eve=size}>}
//	OnMapsizechg={<: voffset=0,-10000>};
	OnMapsizechg={<: voffset=0,0>};
	rightscroll=1;
	tablename=姓名;
	tablewidth=60;
	tablealgin=11;
	OnCreate#s={<: eve=rebuild>};
	OnRebuild={<: delallsub=1;if=(rightscroll)?{autosubpos=vert(1,#(HEADHEIGHT),1,true,120);}
		scrollobj=new mutlistscroll{show=0;}><muthead>};
}
</style>
#ifdef MAINGML
<mutlist name=my;pos=EDIT#306,77;size=250,200;
 zorder=top;path=stepin(100)
 tablename=姓名,得分,杀人数,被杀数,TT;
 tablewidth=60,80,60,60,60;
 tablealgin=11,21,21,11,11;
 bk=roundhalf(#669999,3,#333333,-3,-3);
 OnAdd={<div autopos=1;size=pid.width,22;autosubpos=*pid.subauto;bk=dark(6);>
		<text autopos=1;color=#FFFF99;src=$[ep0];>
		<text autopos=1;color=#FFCCCC;src=$[ep1];>
		<text autopos=1;color=#66FFCC;src=$[ep2]>
		<text autopos=1;color=#66FFCC;src=$[ep3]>
		<img src=res$net.gif;autopos=1;>
	</div>};
>
</list>
<btn btntext=add;pos=110,320;num=0;
 OnClick={<:my eve=add,guest$[(rand(200))],$[(rand(1000))],$[(rand(1000))],$[(rand(40))]>};
 OnCreate#2={<: ctrl#m=loopcmd(30,100,50,{<: eve=click>});>}
>
<:desktop bkimg=color(#333366);>
#endif