chartserver.gml

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

//定义系统对象命名规则
<sys nameformat=C>
#define MAPIMG
<sys import=desktop,$.\..\maps\vrchengshi.gml>
<sys import=desktop,$.\public.gml>
#define PORT 10020
//加载地图
<style>
.ChartMan:ChartManBase{
	WebObj=wgroup,player;
//	NetParam=life,fen,bownum;

	owncreatecmd='#(NBU,$[ownername],$[name],$[pos])';
//	netcmdbase='<BowManOther ownername=$[ownername];name=$[name];pos=$[pos];frame=$[frame];life=$[life];fen=$[fen]>';
	netcmdbase='#(NBOB,$[ownername],$[name],$[pos])';

//	netgocmd='<BowManOther ownername=$[ownername];name=$[name];walk=!$[pos],$[gpos],150,22;life=$[life];fen=$[fen]>';
	netgocmd='#(NBOG,$[ownername],$[name],$[pos],$[gpos])';
	netcreatecmd=netcmdbase;
	//通知User对象
	OnCreate={<:$[userid] chartid=$[id]>};
	Onsto={<: walk=gotopos($[ep],85,15,20,walk);neteventTog=wgroup,cgo,$[pos],$[ep];>};
	Onsrun={<: walk=gotopos($[ep],210,10,20,run);neteventTog=wgroup,run,$[pos],$[ep];>};
}
//------------------------------- ;Warser  -------------------------------------
.ChartUser:defUser{
	WebGroup=wgroup;
	OnCreate={<: send='?hi welcome to chart!';>>}
	Onlogin={<ChartMan userid=$[id];ownername=$[name];pos=rand(200)+1000,rand(400)+1000>
		<?$[time] ;A player ($[name],{$[eventparam]},$[ipaddress],$[cpuname]) ;login.>};
	OnDestroy={<:$[chartid] del=1><?$[time] ;player ($[name],$[ipaddress],$[cpuname]) ;quit.>};
}
</style>
//================================================================================
<:mymap cache=true ;pathfinder=true;movestep=1>
<sockets name=ChartServer ;start=#(PORT);UserClass=ChartUser;debug=0>

<Text width=1000 ;height=20 ;Src=' Chart Server 1.00 port=#(PORT) write by Yu' ;>
//<:desktop bkimg=color(0) ;OnSize={<:mymap size=pid.width-100,pid.height>} ;event=Size>