backup_chgmode.gml

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

#ifndef chgmode_gml
#define chgmode_gml


#define usermodetypeGIF

#ifdef usermodetypeGIF
#define usermodepath $.\..\..\imgs\manmode\
#define usermodeex .gif#mask,18,8
#define MAINFACEW 200
#define MAINFACEH 130
#define usermodeframe 8
#define usermodewidth 32
#define usermodeheight 32
#define usermanmodecount 18
#define userwmanmodecount 7
#else
#define usermodepath $.\..\..\imgs\manmode\
#define usermodeex .ale
#define MAINFACEW 200
#define MAINFACEH 150
#define usermodeframe 96
#define usermodewidth 30
#define usermodeheight 50
#define usermanmodecount 5
#define userwmanmodecount 3
#endif


#define usermodeshowdelay 100
#define modelinemax 5



#define userfacepath $.\face\face
#define userfaceex .gif
#define userfacecount 1

<style>
.usermodeitem:img{
	autopos=1;
	manpath=man;
	size=#(usermodewidth),#(usermodeheight);
	OnCreate={<: src=#(usermodepath)$[manpath]\man#(usermodeex);
#ifdef usermodetypeGIF
		src=#(usermodepath)$[manpath]\man#(usermodeex);
		frame=(($[count]%9)*2+($[count]/9)*72);
		dx=(($[count]%9)*64);
		dy=(($[count]/9)*128);
#else
		src=#(usermodepath)$[manpath]\man$[count]#(usermodeex);
		frame=75;
#endif
//		ctrl=loop(frame,0,(#(usermodeframe)-1),1,(150+rand(#(usermodeshowdelay))));
		>
	};
#ifdef usermodetypeGIF
	OnClick={<: pid.pid.showimgobj.eve=setpos,$[frame],$[dx],$[dy];pid.pid.count=*count;>};
#else
	OnClick={<: pid.pid.showimgobj.src=*src;pid.pid.showimgobj.eve=setpos,$[ypos];pid.pid.count=*count;>};
#endif
}
.mode2chg:div{
	size=200,100;
	class=rdragclass;
	bk2=color(#CCFFFF);

	autosubpos=low(3,1,2,1);

	usersex=0;startid=0;
	OnRefList={<: 
		count=0;
		if=(usersex)?{
			while(count<#(modelinemax)){
			if=(count+startid<#(userwmanmodecount))?{<: ?*count;><usermodeitem manpath=wman;count=(pid.startid+pid.count);>};
			count=(count+1);
			}
		}:{
			while(count<#(modelinemax)){
			if=(count+startid<#(usermanmodecount))?{<usermodeitem manpath=man;count=(pid.startid+pid.count);>};
			count=(count+1);
			}
		};
		>
	};
	OnCreate={<: pid.modelistobj=*id;eve=RefList;>};
	OntoLeft={<: if=(startid-#(modelinemax)>=0)?{startid=(startid-#(modelinemax));delallsub=1;eve=RefList;};>};
	OntoRight={<: if=(usersex)?{mmax=#(userwmanmodecount);}:{mmax=#(usermanmodecount);};
		if=(startid+#(modelinemax)<mmax)?{startid=(startid+#(modelinemax));delallsub=1;eve=RefList;};
		>
	};
}
.lightballstyle{
 draw=-1:{wv();offsetorg(-22,10);Circlelight(0,0,rdsize/40+8,#99FFFF);
	    Circlelight(0,0,rdsize/10,#660000);
	    torus(0,0,rdsize/30+6,3,R50G15B30);
	    torus2(0,0,rdsize*15/100,8,R17G25B32);
	    torus2(rdsize/100,rdsize/100,rdsize*15/100+3,9,R7G25B32);
	}
 ctrl#light=loop(rdsize,80,150,8,0);
}
.lightballstyle2{
 draw=-1:{wv();offsetorg(width+22,10);Circlelight(0,0,rdsize/40+8,#99FFFF);
	    Circlelight(0,0,rdsize/10,#660000);
	    torus(0,0,rdsize/30+6,3,R50G15B30);
	    torus2(0,0,rdsize*15/100,8,R17G25B32);
	    torus2(rdsize/100,rdsize/100,rdsize*15/100+3,9,R7G25B32);
	}
 ctrl#light=loop(rdsize,80,150,8,0);
}
.nolightballstyle{
 draw=null;ctrl#light=null;
}
.MenuBtn:Text{
 font=黑体,8,12,600;color=#FFFFFF;anti=1;
 ctrl=loopt(1,alpha,0,255,8,80);
 left=1;
 OnMouseOver={<: bk=roundbar(#2689AF,11,#0066AF,-9,-1);bk#t=shadow(0,255,0,0,2,2);if=(left)?{class=lightballstyle}:{class=lightballstyle2};>};
 OnmouseOut={<: bk=null;bk#t=null;class=nolightballstyle>};
}
</style>
#ifdef MAINGML
<div size=#(MAINFACEW),#(MAINFACEH);bk=color(#006699);class=dragclass;count=-1;>
<human 
	pos=(pid.width-width)/2,0;
	OnCreate={<: pid.showimgobj=*id;>};
	Onsetpos={<: 
#ifdef usermodetypeGIF
		mutisrc=walk('$.\..\..\imgs\manmode\man\man.gif#mask,2,-4,32,32,$[ep1],$[ep2]',4);
		pos=(pid.width-width)/2,20;
#else
		pos=(pid.width-width)/2,20+$[ep0];
#endif
		ctrl=loop(frame,0,(framemax-1),1,(150+rand(#(usermodeshowdelay))));
		>
	};
>
<mode2chg pos=15,pid.height-#(usermodeheight)-30;></mode2chg>
<MenuBtn pos=30,pid.height-20; src="toleft";OnClick={<: pid.modelistobj.eve=toLeft>};>
<MenuBtn pos=100,pid.height-20; src="toRight";OnClick={<: pid.modelistobj.eve=toRight>};left=0;>
</div>

//<human mutisrc=walk('$.\..\..\imgs\manmode\man\man.gif#mask,2,-4,32,32,0,0,16,32',#(usermodedirection));pos=100,100;>
#endif
#endif