index.gml

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

<style>
.mtvmenu_item:text{
	color=black
	autopos=true
	OnMouseOver={<: bkimg=color(#000080);color=#FFFFFF>}
	OnMouseOut={<: bkimg=null;color=black>}
}
.mtvmenu:div{
	size=6,6
	pos=0,0
	zorder=top;
	zorder=zorder+10000;
	bkimg=btnup;
	autosubpos=vert(3,3,3,3);
	pmtv=0;
	OnLButtonDownEnd={<: mousemsg=0;del=1>}
	OnCreate={<mtvmenu_item src=music;OnClick={<: pid.pmtv.eve=play,$.\music.asf;>}>
	<mtvmenu_item src=Matrix;OnClick={<: pid.pmtv.eve=play,$.\Matrix.avi;>}>
	<: pid=desktop>
	}
	OnCreate#Show={<: show=true;pos=$[mousesrcpos];mousemsg=true>}
}
.playbtn:img{
 src=$.\playbtn.gif#mask,2,1;
 OnMouseOver={<: bkimg=shadow(白,230,0,0,4,2)>};
 OnMouseOut={<: bkimg=null>};
 OnLButtonDown={<: bkimg=shadow(黄,230,0,0,3)>};
 OnLButtonUp={<: bkimg=null;event=click>};
 OnClick={<: pid.mci.pause=frame;frame=1-pid.mci.pause>}
}
.stopbtn:img{
 src=$.\stopbtn.gif#mask;
 OnMouseOver={<: bkimg=shadow(白,230,0,0,4,2)>};
 OnMouseOut={<: bkimg=null>};
 OnLButtonDown={<: bkimg=shadow(黄,230,0,0,3)>};
 OnLButtonUp={<: bkimg=null;event=click>};
 OnClick={<: pid.mci.stop=1;pid.playbtnid.frame=0>}
}
.PosBtn:img{
	size=12,13;
	drawcmd={Glint(3,0,width,height/2,#E0E7E0,#6F706F);rect(0,0,width,height,#7F7F7F);
	rect(3,3,width-3,height-3,#7F7F7F);
	};
	alphacmd={bar(0,0,width,height,#FFFFFF);bar(4,4,width-4,height-4,0);};
	addframe=1;
 
	pos=10,224;
	cursor=movel2;
	TrParam=lowpos(pid.mci,playpos,0,pid.mci.len,52,175);
	OnMouseOver={<: bkimg=shadow(白,230,0,0,3,2)>};
	OnMouseOut={<: bkimg=null>};
	OnLButtonDown={<: TrParam=follow_mouse>};
	OnLButtonUp={<: TrParam=normal;bkimg=null>};
	OnLink={<: TrParam=lowpos(pid.mci,playpos,0,pid.mci.len,52,175)>};
}
.ValBtn:img{
	size=10,18;
	drawcmd={Glint(0,0,width/2,height/2,#E0E7E0,#7F7F7F);rect(0,0,width,height,#7F7F7F);
	rect(3,3,width-3,height-3,#7F7F7F);
	};
	alphacmd={bar(0,0,width,height,#FFFFFF);bar(4,4,width-4,height-4,0);};
	addframe=1;
	
	pos=102,242;
	cursor=movel;
	TrParam=lowpos(pid.mci,vol,0,1000,102,45);
	OnMouseOver={<: bkimg=shadow(白,230,0,0,3,2)>};
	OnMouseOut={<: bkimg=null>};
	OnLButtonDown={<: cursor=movel2;TrParam=follow_mouse;bkimg=shadow(黄,230,0,0,2)>};
	OnLButtonUp={<: cursor=movel;TrParam=normal;bkimg=null>}
}
.imgBtn:img{
	OnMouseOver={<: bkimg=shadow(白,230,-1,0,3,1)>};
	OnMouseOut={<: bkimg=null>};
}
.MtvWnd:MCIWnd{
 OnCreate={<: size=240,184;vol=400;><sys sethotkey=esc,{<:$[id] fullscreen=0>}>};
}
.MTV:img{
	pid=desktop;zoder=top;zoder=zoder+10;
	size=268,268;src=$.\bd.gif#mask;pos=0,0;
	bkimg=shadow(0,100,3,3,2);
	class=dragclass;
	cursor=move;
	Onplay={<: playbtnid.frame=0;mci.stop=1;mci.src=$[ep];posbtnid.eve=link;>};
	OnCreate#in={<: mci=new MtvWnd{pos=14,30;};
		playbtnid=new playbtn{pos=10,228;oncreate={<: frame=pid.mci.pause>};};
		stopbtnid=new stopbtn{pos=46,238};
		posbtnid=new PosBtn;
		valbtnid=new ValBtn;>
		<div size=11,9;pos=251,8;class=imgBtn;Onclick={<: pid.lock=0;pid.del=1>}></div>
		<imgBtn src=$.\fullbtn.gif#mask;pos=190,240;Onclick={<: pid.mci.fullscreen=1>}>
		<imgBtn src=$.\selectbtn.gif#mask;pos=221,240;
		 OnLButtonUp={<mtvmenu pmtv=*pid.pid>}>
	}
	showtxt="$[mci.curtime]-$[mci.totaltime]";
	OnCreate#in2={<: draw=1:{textout(22,7,$[showtxt],lightgreen)}>;
}
</style>
<MTV>