test.gml

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

<sys setiepos=200,200,246,420>
<sys gamexsize=230,320>

#define MS <User_Me name=%1;ownername=%2;src=%2;x=%3;y=%4;img=%5;img2=%6;mode=%7;data=%8;></User_Me>

<sys import=desktop,$.\..\common\list.gml>
<:desktop mapwidth=2200;mapheight=1600>

<style>
.gamelist:list{
	name=glist;
	bkimg=color(0);
	size=100,200;
	pos=10,100;
	num=0;
	sel=0;
//	OnAdd={<gitem src="group$[num]";name=G$[num]><: num=(num+1)>};
	OnAdd={<: num=(num+1)>};
	OnMov={<:G$[sel] del=1>};
	OnSel={<: sel=$[ep];ulist.gid=$[ep]>};
}
.userlist:list{
	name=ulist;
	bkimg=color(0);
	size=100,200;
	pos=120,100;
	num=0;
	OnAdd={<uitem num=$[num];src="group$[num]"><: num=(num+1)>};
}
.gitem:text{
	autopos=1;
	pid=glist;
	size=100,20;
	bkimg=color(#990000);
	OnClick={<: pid.eve=sel,$[name]>};
}
.uitem:div{
	autopos=1;
	size=100,20;
	bkimg=color(#009900);
	OnClick={<: del=1>};
	OnCreate={<text src=$[ownername]>};
	OnDestroy={<: uid.del=1>};
}
.gg:gitem{
	OnCreate#s={<: src=*name>};
	num=0;maxnum=0;
//	paramCtrl#make=loopcmd(-1,1,1000,{<: if=(num<maxnum)?{<SC>}>});
	OnClick={<:AutoCt gg=$[id]>};
}
.User_Me:uitem{
	OnSide={<: sid.send=#e,side,$[side];>};
	OnCreate#s={<: src=$[ownername];sid=$[pid];pid=ulist;side=(rand(2)+1);eve=side>};
//	OnCreate#s={<uitem src=$[ownername];uid=$[id]>};
	say="hi,how do you do?,where you from?,my name is yu.";
	paramCtrl#go=loopcmd(-1,1000,500,{<: randposx=(rand(1600));randposy=(rand(1600));eve=RandGo>});
	OnRandGo={<: sid.send=#e,run,$[randposx],$[randposy]>};
	paramCtrl#fire=loopcmd(-1,1000,3000,{<: randposx1=(rand(1600));randposy1=(rand(1600));eve=RandFire>});
	OnRandFire={<: sid.send=#e,fire,$[randposx1],$[randposy1]>};
	OnCreate#m={<: sid.eve=in,$[id]><:AutoCt eve=addm>};
	OnDestroy#m={<: sid.eve=out,$[id]><:AutoCt eve=delm>};
	OnDie={<: paramCtrl#dd=loopcmd(1,2000,2000,{<: sid.send=#e,Remake>})>};
}
.autoclass{
	OnCreate#auto={<: &desktop.hitme[-1]=*id>};
	Ondebugtryhit={<:$[pid] enumsub(debugFlag,other)={<: eve=debughitme>};>
		<: trypos=$[&desktop.hitme.pos];eve=debugHit;>};
	OndebugHit={<: sid.send=#e,fire,$[trypos];>}
	Ondebugtryhitto={<: ParamCtrl#autohit=loopcmd(4,100,300,{<: eve=debugtryhit;>});>};
	Ondebugtryrun={<: tryrunxpos=(rand($[&desktop.mapwidth]));tryrunypos=(rand($[&desktop.mapheight]));eve=debugRun>};
	OndebugRun={<: neteventToS=run,$[tryrunxpos],$[tryrunypos];>}

	ParamCtrl#autohitto=loopcmd(-1,1000,5000,{<: if=(health)?{eve=debugtryhitto;}>});
	ParamCtrl#autorun=loopcmd(-1,1000,500,{<: if=(health)?{eve=debugtryrun;}>});
}
.SC:socketc{
	loginname=Auto;
	autoconnectlist=192.168.0.2;
	port=10400;
	timeout=0;
//	paramCtrl#autodel=timer(30000+rand(90000),del);
	group="乡间雪战1";
	loginname=auto;
	Onconnected={<: login=$[loginname],$[group]>};
	acceptzipdata=0;
	syscmd="#(MS,";
	OnConnectErr={<: del=1>};
//	paramCtrl#dd=loopcmd(1,30000,30000,{<: del=1>});
	num=0;
	OnIn={<: user[num]=$[ep];num=(num+1)>};
	OnOut={<: num=(num-1)>};
}
.AutoNumC:div{
	name=AutoCt;
	pos=10,10;
	size=210,80;
	bkimg=color(#660000);
	autosubpos=vertmax(5,15,70,90,5);
	num=0;
	maxnum=0;
	draw=9:{textout(1,1,"num=$[num];max=$[maxnum]",#33CC00)};
	OnAddm={<: num=(num+1);src=*num>};
	OnDelm={<: num=(num-1);src=*num>};
	paramCtrl#make=loopcmd(-1,1,300,{<: if=(num<maxnum)?{<SC>}>});
	OnAdd={<: maxnum=(maxnum+ep);if=(maxnum>0)?{if=($[maxnum]==0)?{&glist.eve=add}}:{&glist.eve=mov}>};
}
.gbtn:textbtn{
	autopos=1;
	OnCreate={<: src=*num>};
	OnClick={<: pid.eve=add,(num)>};
}
</style>

<AutoNumC>
	<gbtn num=1>
	<gbtn num=10>
	<gbtn num=50>
	<gbtn num=-10>
	<gbtn num=0>
</AutoNumC>
<gamelist>
<gg name="雪战的冬季_乡间雪战1">
</gamelist>
<userlist>
</userlist>