index.gml

来自「在线游戏最新服务器端源代码」· GML 代码 · 共 42 行

<style>
.minTV:div{
	pid=desktop;
	size=140,100;
	pos=0,100;
	class=dragclass;
	zorder=top;
	zorder=zorder+10000;
	bkimg=$.\images\tv.gif#mask;
	name=MXMINTV;
	lock=1;

	onsize={<: ypos=(&desktop.height-height-&desktop.工具条高度-20);xpos=(&desktop.width-width)>}

	onCreate#2={<text pos=12,60;name=MXMINTVTXT;src=电视新闻>
	<img pos=10,50;src=$.\..\actimg\青年女子.ale>
	//<sys playsnd=$.\..\sound\再见.gsm>
	//<: paramctrl#bksound=loopcmd(-1,100,1000,{<sys playsnd=$.\..\sound\再见.gsm>}) >
	};
	onplaytv=playTV()
	onCreate#1={<: eve=playtv>};

	OnLButtonDblClk={open("http:/"+"/www.sina.com.cn")}
}
</style>
<minTV>
<text color=red;src=X;pos=130,8;zoeder=top;Onclick={<: pid.lock=0;pid.del=1>}>
</minTV>


<script>
var MXTVmsgs="首都机场将建磁悬浮铁路,1.gsm,美国仍无心向中国道歉,2.gsm,韩国召回驻日大使,3.gsm,江泽民出访拉美六国,4.gsm,王治准首登NBA,5.gsm,王朔攻击齐白石,6.gsm,精神病新标准：同性恋不是精神病,7.gsm,香港将引进内地经济人才，住满七年可申请拘留,8.gsm"
MXTVmsgs=MXTVmsgs.split(",")

var MXTVmsgsId=0;

function playTV()
{
	$GX.Cmd("<:MXMINTVTXT src="+MXTVmsgs[MXTVmsgsId]+"><:MXMINTV paramCtrl=timer("+(6*1000)+",playtv)><sys playsnd=$.\\sound\\news\\"+MXTVmsgs[MXTVmsgsId+1]+">")
	MXTVmsgsId=(MXTVmsgsId+2)%MXTVmsgs.length
}
</script>