FLASH网游通过XMLSocket与VB后台通信

xml|后台

前段时间用Flash做了个网游的Demo,通讯用的是Socket。曾承诺写个教程,现在有空就把它写写吧。
先从FLASH说起。我要达到的效果是点击地面,人物就走到点击的地点。思路:一个鼠标监听器监听鼠标的点击事件,把X座标和Y座标传到角色,做为角色的目的地。角色每一帧都向这个目的地移动一点点。
role_mc为场景里的一个MovieClip
role_mc.x = role_mc._x;
role_mc.y = role_mc._y;
var mouseListener:Object = new Object();
mouseListener.onMouseDown = function() {
moveRole(role_mc, _xmouse, _ymouse);
};
Mouse.addListener(mouseListener);
function moveRole(role:MovieClip, x:Number, y:Number) {
role.x = x;
role.y = y;
role.onEnterFrame = function() {
  if (this.x != this._x) {
   this._x += this.x-this._x>0 ? 1 : -1;
  }
  if (this.y != this._y) {
   this._y += this.y-this._y>0 ? 1 : -1;
  }
  if (this.x == this._x && this.y == this._y) {
   delete this.onEnterFrame;
  }
};
}试一下效果,发现角色会斜45度角移动到与目的地垂直或者水平后再垂直或水平运动。这是move函数里的算法没写好。我们现在来想想我想需要的是怎么样的移动。[1.gif]

如图,角色在A点,要移动到B点去,方向就是AB。C点是下一帧角色将会出现的点,那向量AC就相当于角色的速度。将向量AC分解到两轴就得到x方向上的向量AE和y方向上的向量AD,这就是角色在这帧里需要移动的xy值了。角色的速度是已知的,要得到两个分解的向量,就只需要知道角度就行了。角度也可以根据A点和B点得到。我把角色面向右边时定为0度,则向上时为-90度,向下为90度,向左为180度。之所以这么定是为了计算方便。如Math.atan2(role_mc.y-role_mc._y, role_mc.x-role_mc._x)就可以直接到得角色面向的方向了(注意,Math.atan2得到的是以弧度为单位的数,不是角度)。所以把AS改写成: role_mc.x = role_mc._x;
role_mc.y = role_mc._y;
role_mc.speed = 5;
role_mc.angle = 0;
var mouseListener:Object = new Object();
mouseListener.onMouseDown = function() {
moveRole(role_mc, _xmouse, _ymouse);
};
Mouse.addListener(mouseListener);
function moveRole(role:MovieClip, x:Number, y:Number) {
role.x = x;
role.y = y;
role.angle = Math.atan2(role.y-role._y, role.x-role._x);
role.onEnterFrame = function() {
  if (this.x != this._x) {
   this._x += Math.abs(this.x-this._x)>Math.abs(this.speed*Math.cos(this.angle)) ? this.speed*Math.cos(this.angle) : this.x-this._x; //当角色和目的地的距离小于角色的速度时,就不能再以速度计算出的位移,而直接移动到目的地,Y方向同理
  }
  if (this.y != this._y) {
   this._y += Math.abs(this.y-this._y)>Math.abs(this.speed*Math.sin(this.angle)) ? this.speed*Math.sin(this.angle) : this.y-this._y;
  }
  if (this.x == this._x && this.y == this._y) {
   delete this.onEnterFrame;
  }
};
}移动看起来应该没什么大问题了。现在来做人物。把自己画的人物,或者是从游戏里抓图弄出来的人物处理好,我有两张从RO里弄出来的图。
[role.png]

[head.png]:

将两张图导入到FLASH的role_mc里。因为我是把身体和头部所有方向都做成一张图,所以要用遮照来只显示需要的那个。将第一帧做成第一个方向的站立,给帧起名stand_1,加AS:stop();后边若干帧做成行走的动画,给帧起名run_1,加AS:play();在行走动画的后边加上一帧空白关健帧,加AS:gotoAndPlay("run_1")。这就完成了一个方向。在这一段后边加上其他几个方向。我做的是方向1为向下,2为左下,3为左,4为左上,5为上。其他三个方向可以之后用AS将234方向做水平翻转达到。也许我说得不是很明白,看我的这个文件(teach1.fla)就知道了。做好这一步之后,就可以在moveRole函数里加些东西,让角色做出相应的动作。我们先画个图来看一看角色的angle值分别代表角色面向哪个方向。见下图
[2.gif]:

图中的红线就是每个方向的分隔线,把角度也列出来了,用弧度为单位是为了方便以后的计算。把AS也修改了一下就达到行走效果了。
role_mc.x = role_mc._x;
role_mc.y = role_mc._y;
role_mc.speed = 5;
role_mc.angle = 0;
var mouseListener:Object = new Object();
mouseListener.onMouseDown = function() {
moveRole(role_mc, _xmouse, _ymouse);
};
Mouse.addListener(mouseListener);
function moveRole(role:MovieClip, x:Number, y:Number) {
role.x = x;
role.y = y;
role.angle = Math.atan2(role.y-role._y, role.x-role._x);
role.dire = 1+Math.round((role.angle+Math.PI)/(Math.PI/4)); //把角色面向的角度的值从-Math.PI到Math.PI的范围变为1到8的自然数,分别代码八个方向
role.dire = role.dire>6 ? role.dire-6 : role.dire+2; //把八个方向处理一下,和图上代表的方向符合
if (role.dire>5) {
  //如果方向为789中的一个,就水平翻转MC
  role.dire = role.dire == 6 ? 4 : role.dire == 7 ? 3 : 2; //方向6对应方向4,7对应3,8对应2
  role._xscale = -100;
} else {
  role._xscale = 100;
}
role.gotoAndPlay("run_"+role.dire);
role.onEnterFrame = function() {
  if (this.x != this._x) {
   this._x += Math.abs(this.x-this._x)>Math.abs(this.speed*Math.cos(this.angle)) ? this.speed*Math.cos(this.angle) : this.x-this._x;
  }
  if (this.y != this._y) {
   this._y += Math.abs(this.y-this._y)>Math.abs(this.speed*Math.sin(this.angle)) ? this.speed*Math.sin(this.angle) : this.y-this._y;
  }
  if (this.x == this._x && this.y == this._y) {
   delete this.onEnterFrame;
   this.gotoAndStop("stand_"+this.dire);
  }
};
}大体样子已经出来了。现在我们来想想,其他的玩家要怎么办?当收到服务器有新玩家登陆这里的时候,FLASH要添加一个新的角色在画面上。我们可以做一个创造角色的函数,收到有新人登陆时就添加一个。而自己登陆的时候也可以用这个函数来创建自己。其他玩家移动,也是从服务器收到是谁要移动到哪的信息,FLASH只要调用moveRole函数就可以了。现在先做一个创建角色的函数。role_mc不需要再放在场景里,在库里给他一个链接名role,就可以方便用attachMovie命令调用了。
//创建鼠标监听器
var mouseListener:Object = new Object();
mouseListener.onMouseDown = function() {
for (var i = 0; i<allRoles.length; i++) {
  if (allRoles[i].ctrl) {
   moveRole(allRoles[i], _xmouse, _ymouse);
   break;
  }
}
};
Mouse.addListener(mouseListener);
//创建角色
var allRoles:Array = new Array();
allRoles[allRoles.length] = createRole(Math.random(), true, 5, Stage.width/2, Stage.height/2);
function createRole() {
var roleObj:MovieClip = this.attachMovie("role", "role_mc", this.getNextHighestDepth());
roleObj.id = arguments[0]; //区别每一个角色的ID,可以从数据库中得到值。在这个教程里就直接用一个随机数代替
roleObj.ctrl = arguments[1]; //标识该角色是否为由玩家控制的角色
roleObj.speed = arguments[2];
roleObj._x = arguments[3];
roleObj._y = arguments[4];
roleObj.x = roleObj._x;
roleObj.y = roleObj._y;
return roleObj;
}
//角色移动
function moveRole(role:MovieClip, x:Number, y:Number) {
role.x = x;
role.y = y;
role.angle = Math.atan2(role.y-role._y, role.x-role._x);
role.dire = 1+Math.round((role.angle+Math.PI)/(Math.PI/4));
role.dire = role.dire>6 ? role.dire-6 : role.dire+2;
if (role.dire>5) {
  role.dire = role.dire == 6 ? 4 : role.dire == 7 ? 3 : 2;
  role._xscale = -100;
} else {
  role._xscale = 100;
}
role.gotoAndPlay("run_"+role.dire);
role.onEnterFrame = function() {
  if (this.x != this._x) {
   this._x += Math.abs(this.x-this._x)>Math.abs(this.speed*Math.cos(this.angle)) ? this.speed*Math.cos(this.angle) : this.x-this._x;
  }
  if (this.y != this._y) {
   this._y += Math.abs(this.y-this._y)>Math.abs(this.speed*Math.sin(this.angle)) ? this.speed*Math.sin(this.angle) : this.y-this._y;
  }
  if (this.x == this._x && this.y == this._y) {
   delete this.onEnterFrame;
   this.gotoAndStop("stand_"+this.dire);
  }
};
}
teach1.fla:点击这里下载源文件

  接下来是后台服务器的制作。我用的是Microsoft Visual Studio .NET 2003。语言为VB。(图和相关文字不能放在一起-_- 大家麻烦点,上下对着看吧。)
首先建一个空项目,命名为server(图3)。在这个项目的“解决方案资源管理器”上右击项目,选择“添加(D)”-“添加新项(W)”,添加一个类,命名为server.vb(图4)。在server.vb里写上socket的代码。我是从微软件的网站上的例子上修改来的,也没什么可说的。
Imports System.Net
Imports System.Net.Sockets
Namespace ibaiy
    Public Class Server
        Private lisenSocket As Socket
        Private allRoles As New Hashtable 
Private rolesPosition As New Hashtable
’在这个例子中我不打算用数据库了,所以建一个hashtable来存在线用户的资料。如果要存入数据库,只需要加上登陆后验证用户名密码,读数据库资料,再存到这个hashtable里。用户做了操作时再把hashtable里的数据处理后再写入数据库就可以了。这里的操作不难,但比较麻烦,所以我偷下懒
        ’启动服务的主函数
        Public Sub startServer(ByVal port As Integer)
            lisenSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            Dim ipen As IPHostEntry = Dns.Resolve(Dns.GetHostName)
            Dim endpoint = New IPEndPoint(ipen.AddressList(0).Any, port)
            lisenSocket.Bind(endpoint)
            lisenSocket.Listen(1000)
            lisenSocket.BeginAccept(AddressOf Me.Listen_Callback, lisenSocket)
        End Sub
        Public Sub Listen_Callback(ByVal result As IAsyncResult)
            Dim s As Socket = CType(result.AsyncState, Socket)
            Dim so2 As New StateObject
            so2.workSocket = s.EndAccept(result)
            so2.workSocket.BeginReceive(so2.buffer, 0, so2.buffer.Length, 0, AddressOf Me.Read_Callback, so2)
            s.BeginAccept(AddressOf Me.Listen_Callback, s)
        End Sub
        Public Sub Read_Callback(ByVal result As IAsyncResult)
            Dim so As StateObject = CType(result.AsyncState, StateObject)
            so.len = so.workSocket.EndReceive(result)
            opMsg(so)
            so.buffer.Clear(so.buffer, 0, so.buffer.Length)
            Try
                so.workSocket.BeginReceive(so.buffer, 0, so.buffer.Length, SocketFlags.None, AddressOf Me.Read_Callback, so)
            Catch
            End Try
        End Sub
’这个函数就是处理服务器收到客户端消息的处理函数,一会详细说明
        Public Sub opMsg(ByVal so As StateObject)
        End Sub
    End Class
End Namespace在server项目里像添加server.vb一样再添加一个StateObject.vb。这是为每个联接的SOCKET一定的buffer,索性做了一个新的类。写以下代码:
Imports System.Net.Sockets
Namespace ibaiy
    Public Class StateObject
        Public buffer(1024) As Byte
        Public workSocket As Socket
        Public len As Integer
    End Class
End Namespace

时间: 2024-10-04 20:10:50

FLASH网游通过XMLSocket与VB后台通信的相关文章

flash网游开发日志

本文是本人学习flash网络应用的过程,源码.说明陆续推出:先做一下自我介绍,为想学的朋友好上手:Flash 2004 MX学习了45天,包含AS语法在内:Flash Communication学习了10天:Flash Remoting看了一点点资料,没学:C#学习语法10天:Bc,十五年前看过5天资料,没学成,呵:C和Vc和Bc一样十五年前看过资料,学不下去:VB十五年前看过一阵子资料,写过几个非常简单的程序,现在忘得一干二净:ASP学习加应用共十年左右,应该说相当熟悉:SQL也还行,数据库总

b后台登录qq游戏-VB后台登录QQ游戏官网

问题描述 VB后台登录QQ游戏官网 VB后台登录QQ游戏官网网址:http://bns.qq.com/act/a20140507may/like.shtml?to=447317471&ck=a495370f08d0e1d5abb6698c9680c115&nick=Bns 登录后点赞,关键难点在哪里能不能解释下用什么方法实现

左手做网游,右手开KTV

中国最另类网游创业者的偏执生存术._口述/蜗牛网创始人石海 _ 采访/曲琳 刘岩 _整理/曲琳 _摄影/bosco 石海是中国网游行业的一名老兵,可能也是最为特立独行的一个从业者:他一直以做艺术的心态来做产品,这不仅让其远离一波又一波的IPO浪潮,甚至几度腰包紧缩,不得不通过开KTV来接济网游:他做网游的口头禅是"让市场滚一边去",为此三个月花光2000多万的投资,败走北京城.上海滩.但是一个不争的事实是,这是一家笔耕不辍.值得尊敬的老牌公司.在上市之前,蜗牛创始人首次.可能是最后一次

2008十大病毒排行:“网游窃贼”最毒

2008年十大高发性热门病毒 江民反病毒中心.江民客户服务中心.江民全球反病毒监测网.江民全国恶意网页监测系统.江民KV病毒预警系统联合统计,综合感染的用户计算机台数.病毒的危害性.病毒新技术.清除难易程度等因素,评出2008年度十大热门病毒. 在江民公司2008年度截获的所有病毒中,网游盗号类病毒最为猖獗,"网游窃贼""网游大盗"病毒分别占据十大病毒第一.二名,而在病毒感染计算机台数前20名病毒中,网络游戏盗号木马占了10个席位,上千万台电脑被此类病毒感染. &q

站长5-1休闲漫谈:站长与网游

     每每想到站长这个词,内心都会有一种说不清楚的萌动,曾经的你我都为了成为一个个人站长摆弄个人主页,有些人甚至从东方网页王. Banner Maker .IBM Homepage.FP.DW.PS.FLASH.FW等软件一步步走来.我们没有追求过多的技术含量,因为我们都明白人才因为比技术这玩意来的更珍贵的,黎叔也是这样说的.    站长生于互联网,存于互联网,我们虽然也是一个挂长的小CEO,但是我们跟征途的CEO史玉柱先生一样,曾经热忠过一些网游.    有些可能是Mud文字游戏,比如笑傲

韩著名网游公司Nexon釜山成立开发工作室

韩国网游老牌公司Nexon日前在釜山成立游戏开发工作室,1月中旬起开始招聘开发人员. Nexon本次成立的开发工作室是为发展地方游戏产业,发掘地方优秀开发人员及投资作出的决定.Nexon计划今年第一季度内扩充所有就职人力,上半年中期开发工作室正式运作. 归属Nexon总部成立的釜山游戏开发工作室主要职责是,与Nexon集团下属多家子公司.相关工作人员一起共同开发游戏项目.工作室成立的同时,Nexon除现有的网游事业外,也将向Flash游戏.智能手机游戏.手机游戏等其他平台扩充,进行相关项目的开发

蜗牛网石海:左手网游右手KTV不以利益为驱动

中国最另类网游创业者的偏执生存术. <创业邦>杂志 口述/蜗牛网创始人石海 采访/曲琳 刘岩 整理/曲琳 摄影/bosco 编者按: 石海是中国网游行业的一名老兵,可能也是最为特立独行的一个从业者:他一直以做艺术的心态来做产品,这不仅让其远离一波又一波的IPO浪潮,甚至几度腰包紧缩,不得不通过开KTV来接济网游:他做网游的口头禅是"让市场滚一边去",为此三个月花光2000多万的投资,败走北京城.上海滩.但是一个不争的事实是,这是一家笔耕不辍.值得尊敬的老牌公司. 在上市之前

轻松千人国战 华硕推高承载网游服务器方案

如火如荼的网络游戏产业正吸引着各方的眼光,网游市场作为一个细分且快速成长的市场引起了国内外服务器厂商的格外关注.这个快速成长的市场也意味着客户需求在不断变迁,只有密切关注并不断研究客户需求变迁才能提供更适合客户需求的服务器.网络游戏具有信息双向交流.速度快.不受空间限制等优势,从根本上提高了游戏的互动性.仿真性和竞技性,使游戏玩家在虚拟世界里可以发挥现实世界无法展现的潜能,对于运营商来说,如何提高自身的运维水平,保证全国各地的网络.主机.应用的良好运行,提高用户体验,同时降低运维成本,成了各个网

用网游的思维来做英语培训

改变非英语国家人们的英语学习习惯是王雷的理想. 于是,他于2008年5月创立了八方视界网络科技有限公司(以下简称八方视界),这是一家专注于开发在线英语教育软件的公司.幸运的是,一年后的2009年7月12日,他的公司得到了美国星火投资和戈壁合伙人有限公司首轮联合700万美元的风险投资.王雷表示,是八方视界"面向少儿和英语初学者的网上虚拟世界"模式吸引了投资方的兴趣,在这种创新的模式下,他们通过营造生动有趣和身临其境的语言环境来帮助学习者提高口语和交流能力. 当英语学习软件遇到网游 有趣的