LUA实现状态模式

最新推荐文章于 2024-09-30 10:22:53 发布
最新推荐文章于 2024-09-30 10:22:53 发布
阅读量1k 收藏
点赞数
分类专栏： 软件工程 文章标签： lua function tree api lift fun
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xiaodan007/article/details/7570443
版权 
G_DynamicNPCs_Talking_Fun = {}
API_AddLUAReqFunc("GDynamicNpcsTalk")
function GDynamicNpcsTalk()
	local playerID 	= API_RequestGetActorID()
	local TalkID	= API_RequestGetString(1)
	local Index		= API_RequestGetNumber(2)
	local UID 		= API_RequestGetNumber(3)
	if nil ~= G_DynamicNPCs_Talking_Fun[TalkID] then
		G_DynamicNPCs_Talking_Fun[TalkID][Index](playerID, UID)
	end
	return 10
end
--仿照windows的CD机制， 可以在CD上不断用begin和end重画每一帧，begin会清掉上次的, 当消除CD时也会消除掉数据。
function GDynamicNpcsTalkManage()
	local public = {}
	function public.newTalkItems(_playerID, _NpcUID)
		local TalkID = "" .. _playerID .. "|" .. _NpcUID
		myPrint("TalkID " .. TalkID, 1)
		G_DynamicNPCs_Talking_Fun[TalkID] = {}
		local talkPublic = {}
		local iCount = 0
		local szCaption
		function talkPublic.Begin(_szCaption)
			szCaption = _szCaption
			iCount = 0
		end
		function talkPublic.AddItem(_szItemText, _Fun, _bClose)
			local Index = table.getn(G_DynamicNPCs_Talking_Fun[TalkID]) + 1
			G_DynamicNPCs_Talking_Fun[TalkID][ Index ] = _Fun
			if _bClose then
				API_ResponseWrite(ChuanSongStr..'<a size="13" color="175,216,242" closewindow = "1" href="GDynamicNpcsTalk?1='.. TalkID .. '&2='.. Index .. '&3='.. _NpcUID .. '">' .. _szItemText .. '</a><br>')
			else
				API_ResponseWrite(ChuanSongStr..'<a size="13" color="175,216,242" href="GDynamicNpcsTalk?1='.. TalkID .. '&2='.. Index .. '&3='.. _NpcUID .. '">' .. _szItemText .. '</a><br>')
			end
			iCount = iCount + 1
		end
		function talkPublic.End()
			if 0 == iCount then
				API_OpenWindow(_playerID,WndID_TaskDialog,0)
			else
				API_ResponseWrite('<name>'.. szCaption ..'</name>')
				API_ResponseFlush(_playerID)
			end
		end
		function talkPublic.Delete()
			G_DynamicNPCs_Talking_Fun[TalkID] = nil
		end
		return talkPublic
	end
	return public
end
G_DynamicNPCsTalking_Manager = GDynamicNpcsTalkManage()


 

 

--修改了IGoodsActions文件
--待策划东西配好， 需改回来

G_TREE_OBJ = {}
function UpdataTreeTaskData(_par1, _par2)
	if nil ~= G_TREE_OBJ[_par1] then
		G_TREE_OBJ[_par1].delete()
		G_TREE_OBJ[_par1] = nil
	end
	local tgrID = API_GetCurTriggerID()
	API_DestroyTriggerG(tgrID)
end


function newTreeNpc(_MapID, _x, _y, _dir, _RoleID)
	local ID_PAIR = {{11387, 11388}, {11387, 11389}, {11387, 11390}, {11387, 11391}}
	local treenpc_public = { CUR_ID = math.random(1, table.getn(ID_PAIR))}
	local G_TREE_OBJ_ID = nil
	for i=1, 99999 do
		if nil == G_TREE_OBJ[i] then
			G_TREE_OBJ_ID = i
			G_TREE_OBJ[G_TREE_OBJ_ID] = treenpc_public
			break
		end
	end
	if nil == G_TREE_OBJ_ID then
		myPrint("newTreeNpc 资源耗尽",1)
		return
	end
	local tgrID = API_CreateTimerTriggerG(G_TREE_OBJ_ID, 0, 250, 1, "UpdataTreeTaskData")

	--树基础状态
	function newTreeState()
		local tState ={}
		function tState.InState()
			myPrint("种树状态的进入未实现!", 1)
		end
		function tState.OutState()
			myPrint("种树状态的退出未实现!", 1)
		end
		function tState.OnOpenNPCWindows(_playerID, _pTaskID)
			myPrint("种树状态未实现!", 1)
		end
		return tState
	end

	--虚状态
	function newVirtualState()
		local curState = nil
		local tState = newTreeState()
		function tState.SetState(_pState)
			if nil ~= curState then
				curState.OutState()
			end
			curState = _pState
			if nil == curState then
				curState = newTreeState()
			end
			curState.InState()
		end
		function tState.GetState()
			return curState
		end
		function tState.InState()
		end
		function tState.OutState()
			curState.OutState()
		end
		function tState.OnOpenNPCWindows(_playerID, _pTaskID)
			curState.OnOpenNPCWindows(_playerID, _pTaskID)
		end
		return tState
	end
	treenpc_public.virState = newVirtualState()
	function treenpc_public.TryTransition()
		if treenpc_public.virState.GetState() == treenpc_public.tDevelopingTree then
			if treenpc_public.tDevelopingTree.getLack() <= 0 then
				treenpc_public.virState.SetState(treenpc_public.tDevelopedTree)
				treenpc_public.virState.OnOpenNPCWindows(_RoleID, 0)
			end
		end
	end

	--成长状态
	function newDevelopingTree()
		local tPrivate = {}
		local tDevelopingTree = newTreeState()
		local tTreeNpc = nil
		local tTalkItems = nil
		local tPar = nil
		--进入状态
		function tDevelopingTree.InState()
			myPrint("种下树!", 1)
			tPar = {Lack = 10, TIMES_MAX = 10, ITEM1_Count = 0, ITEM2_Count = 0, ITEM3_Count = 0}
			tTreeNpc = G_DynamicNPCs.obj_CreateSob(ID_PAIR[treenpc_public.CUR_ID][1], _MapID, _x, _y, _dir)
			tTalkItems = G_DynamicNPCsTalking_Manager.newTalkItems(_RoleID, tTreeNpc.UID)
			local TIMES_LIFT = tPar.TIMES_MAX - 3
			local a = math.random(0,TIMES_LIFT)
			local b = math.random(0,TIMES_LIFT - a)
			local c = TIMES_LIFT - a - b
			tPar.ITEM1_Count = 1 + a
			tPar.ITEM2_Count = 1 + b
			tPar.ITEM3_Count = 1 + c

			--选项1
			function tPrivate.Item1()
				local function OverProcess(_playerID, _UserSign1, _UserSign2)
					tPar.Lack = tPar.Lack - 2
					API_ActorSendMsg(_playerID, 2, "目前树苗不满度" .. tPar.Lack)
					treenpc_public.TryTransition()
				end
				local function On(_playerID, _UID)
					if G_ProcessBar_Manager.CreateProcessBar(_RoleID, 1, OverProcess) then
						API_ActorSendMsg(_RoleID, 2, "进行使用金钱增加阳光")
						tPar.ITEM1_Count = tPar.ITEM1_Count - 1
						treenpc_public.virState.OnOpenNPCWindows(_RoleID, 0)
					else
						API_ActorSendMsg(_RoleID, 2, "操作进行中")
					end
				end
				return On
			end

			--选项2
			function tPrivate.Item2()
				local function OverProcess(_playerID, _UserSign1, _UserSign2)
					tPar.Lack = tPar.Lack - 2
					API_ActorSendMsg(_RoleID, 2, "目前树苗不满度" .. tPar.Lack)
					treenpc_public.TryTransition()
				end
				local function On(_playerID, _UID)
					if G_ProcessBar_Manager.CreateProcessBar(_RoleID, 1, OverProcess) then
						API_ActorSendMsg(_RoleID, 2, "进行使用吟唱消灭虫子")
						tPar.ITEM2_Count = tPar.ITEM2_Count - 1
						treenpc_public.virState.OnOpenNPCWindows(_RoleID, 0)
					else
						API_ActorSendMsg(_RoleID, 2, "操作进行中")
					end
				end
				return On
			end

			--选项3
			function tPrivate.Item3()
				local function OverProcess(_playerID, _UserSign1, _UserSign2)
					tPar.Lack = tPar.Lack - 2
					API_ActorSendMsg(_RoleID, 2, "目前树苗不满度" .. tPar.Lack)
					treenpc_public.TryTransition()
				end
				local function On(_playerID, _UID)
					local BOX_ID = 4001
					if API_ActorGetGoodsNum(_RoleID, BOX_ID) > 0 then
						API_ActorRemoveGoods(_RoleID, BOX_ID, 1, "种树消耗一件道具")
					else
						API_ActorSendMsg(_RoleID, 2, "没有种树道具: " .. BOX_ID)
						return
					end
					if G_ProcessBar_Manager.CreateProcessBar(_RoleID, 1, OverProcess) then
						API_ActorSendMsg(_RoleID, 2, "进行使用商城道具施肥")
						tPar.ITEM3_Count = tPar.ITEM3_Count - 1
						treenpc_public.virState.OnOpenNPCWindows(_RoleID, 0)
					else
						API_ActorSendMsg(_RoleID, 2, "操作进行中")
					end
				end
				return On
			end

			--开窗函数
			function tTreeNpc.OnOpenNPCWindows(_playerID, _pTaskID)
				tTalkItems.Begin("" .. _playerID .. "|" .. G_TREE_OBJ_ID)
				--myPrint("发展状态", 1)
				if _playerID == _RoleID then
					if tPar.ITEM1_Count > 0 then
						tTalkItems.AddItem("使用金钱增加阳光(" .. tPar.ITEM1_Count .. ")", tPrivate.Item1(), false)
					end
					if tPar.ITEM2_Count > 0 then
						tTalkItems.AddItem("使用吟唱消灭虫子(" .. tPar.ITEM2_Count .. ")", tPrivate.Item2(), false)
					end
					if tPar.ITEM3_Count > 0 then
						tTalkItems.AddItem("使用商城道具施肥(" .. tPar.ITEM3_Count .. ")" , tPrivate.Item3(), false)
					end
				end
				tTalkItems.End()
				return 10
			end


		end

		--退出状态
		function tDevelopingTree.OutState()
			myPrint("树离开发展态!", 1)
			tTalkItems.Delete()
			G_DynamicNPCs.DeleteSob(tTreeNpc.ID, tTreeNpc.UID)
			G_ProcessBar_Manager.DeleteProcessBar(_RoleID)
		end

		--获得不足值
		function tDevelopingTree.getLack()
			return tPar.Lack
		end

		--开窗
		function tDevelopingTree.OnOpenNPCWindows(_playerID, _pTaskID)
			return tTreeNpc.OnOpenNPCWindows(_playerID, _pTaskID)
		end

		return tDevelopingTree
	end
	treenpc_public.tDevelopingTree = newDevelopingTree()




	--成熟状态
	function newDevelopedTree()
		local tPrivate = {}
		local tDevelopedTree = newTreeState()
		local tTreeNpc = nil
		local tTalkItems = nil
		local tPar = nil
		--进入状态
		function tDevelopedTree.InState()
			myPrint("树成熟!", 1)
			tPar = {ITEM1_Count = 10}
			tTreeNpc = G_DynamicNPCs.obj_CreateSob(ID_PAIR[treenpc_public.CUR_ID][2], _MapID, _x, _y, _dir)
			tTalkItems = G_DynamicNPCsTalking_Manager.newTalkItems(_RoleID, tTreeNpc.UID)

			--选项1
			function tPrivate.Item1()
				local function On(_playerID, _UID)
					tPar.ITEM1_Count = tPar.ITEM1_Count - 1
					API_ActorSendMsg(_playerID, 2, "果实剩余数" .. tPar.ITEM1_Count)
					treenpc_public.virState.OnOpenNPCWindows(_RoleID, 0)
				end
				return On
			end

			--开窗函数
			function tTreeNpc.OnOpenNPCWindows(_playerID, _pTaskID)
				tTalkItems.Begin("" .. _playerID .. "|" .. G_TREE_OBJ_ID)
				--myPrint("成熟状态", 1)
				if _playerID == _RoleID then
					if tPar.ITEM1_Count > 0 then
						tTalkItems.AddItem("采摘果实", tPrivate.Item1(), false)
					end
				end
				tTalkItems.End()
				return 10
			end

			local BOX_ID = 1000004
			if API_ActorCanAddGoodsEx(_RoleID, "" .. BOX_ID, "" .. 1, 0, 0) then
				API_AddActorGoods(_RoleID, BOX_ID, 1, "种树奖")
				API_ActorSendMsg(_RoleID, 2, "获得种树奖励")
			else
				API_SendActorMail(_RoleID, BOX_ID, 1, "种树奖", "种树奖")
				API_ActorSendMsg(_RoleID, 2, "由于背包已满,种树奖已寄到您的邮箱")
			end
		end

		--退出状态
		function tDevelopedTree.OutState()
			myPrint("树枯萎!", 1)
			tTalkItems.Delete()
			G_DynamicNPCs.DeleteSob(tTreeNpc.ID, tTreeNpc.UID)
			G_ProcessBar_Manager.DeleteProcessBar(_RoleID)
		end

		--获得不足值
		function tDevelopedTree.getLack()
			return tPar.Lack
		end

		--开窗
		function tDevelopedTree.OnOpenNPCWindows(_playerID, _pTaskID)
			return tTreeNpc.OnOpenNPCWindows(_playerID, _pTaskID)
		end

		return tDevelopedTree
	end
	treenpc_public.tDevelopedTree = newDevelopedTree()



	treenpc_public.virState.SetState(treenpc_public.tDevelopingTree)
	function treenpc_public.delete()
		treenpc_public.virState.OutState()
		if API_ActorIsOnline(_RoleID) then
			API_OpenWindow(_RoleID,WndID_TaskDialog,0)
			API_ActorSendMsg(_RoleID, 2, "树已枯死")
		end
	end
end


 //--------------------------------------

改良想法：

1， 状态类不应了解其它状态，而应独设一个管理中心由其进行状态间的转换。 管理中心可以监控某状态类的相关信息，例如以触发器的形式监控某状态类。这样对他类的了解工作可以只有管理中心处理，而不用每个相关状态类都要了解，减少了工作。 监控信息则提供了一种在必要时刻对状态进行转换的通用方法。

2， NPC内部可以不用状态类，而是并列几种不同的NPC，例如战斗NPC（主炮），逃跑NPC（轮子）等。 然后“AI塔克”会和这些“主炮”，“轮子”绑定，并在每个适当的时侯由CPU为“AI塔克”提供心跳动力。“AI塔克”可以决定把什么时侯把实体数据套在“主炮”上还是“轮子”上。把内部状态类提到外部实体化，好处是增多状态时，不用去考虑太多该状态的适应环境，更自由随意。

xiaodan007
关注
专栏目录
【游戏_忍者六道】状态机设计与应用之lua篇
走向CTO的路上...
09-04 1788
一 前言上一篇图文描述了C++实现游戏中应用的状态机，C++中的三大特性：封装，继承，多态得以应用，封装数据引擎访问的增，删，查，改，状态机基类以及多种状态子类实现私有private或者公共public继承它，但是发挥更大的作用是多态的使用，子类继承实现基类的virtual虚函数，在不同的事件机制触发下，迁移变换执行不同的状态，虽然毫无标准顺序可言，却是按照指定规则轨道正确行使，这是状态机设计的正
Lua有限状态机
08-08
目前主要面向Unity3d的lua
状态模式lua实现
897371388
11-15 176
--[[ 状态模式(State Pattern)是设计模式的一种，属于行为模式。 适用场景： 1.一个对象的行为取决于它的状态，并且它必须在运行时刻根据状态改变它的行为。 2.一个操作中含有庞大的多分支结构，并且这些分支决定于对象的状态。 ]]-- Work = {} function Work:new(o,s) o = o or {} setmetata...
设计模式 - 状态模式
汐客SeaKr的博客
11-29 292
状态模式 在状态模式（State Pattern）中，类的行为是基于它的状态改变的。这种类型的设计模式属于行为型模式。 在状态模式中，我们创建表示各种状态的对象和一个行为随着状态对象改变而改变的 context 对象。 介绍 意图：允许对象在内部状态发生改变时改变它的行为，对象看起来好像修改了它的类。 主要解决：对象的行为依赖于它的状态（属性），并且可以根据它的状态改变而改变它的相关行为...
lua设计模式总结
10-16
创建型模式 1、简单工厂模式lua实现 2、工厂方法模式lua实现 3、原型模式lua实现 4、建造者模式lua实现 5、单例模式lua实现 6、抽象工厂模式lua实现 结构型模式 1、装饰模式lua实现 2、代理模式lua实现 3、外观模式lua实现 4、适配器模式lua实现 5、组合模式lua实现 6、桥接模式lua实现 7、享元模式lua实现 行为模式 1、策略模式lua实现 2、模板方法模式lua实现 3、观察者模式lua实现 4、状态模式lua实现 5、迭代器模式lua实现 6、备忘录模式lua实现 7、命令模式lua实现 8、职责链模式lua实现 9、解释器模式lua实现 10、中介者模式lua实现 11、访问者模式lua实现
状态模式(state)解析例子
jphaoren的专栏
11-01 608
<br />http://tianli.blog.51cto.com/190322/45223
ts_luademo:用于TouchSprite的lua状态机
04-28
在下载并解压这个压缩包后，开发者可以查看其结构，理解如何在TouchSprite中使用lua实现状态机，并可能找到示例代码、配置文件以及相关的使用说明。 总结起来，"ts_luademo" 是一个利用lua语言在TouchSprite平台上...
cocos-lua 实现状态机（组件模式）
blanc的博客
03-22 997
lua状态机实现 环境： quick-cocos 简述：提供状态列表设置的接口setupState（），状态列表中包含状态名称及相关调用函数，提供执行状态函数doEvent（） 1. 在状态的execute函数内编写状态切换判断的逻辑，该函数在对象重写并传入到对象的内建状态机。 2. myStateMachine继承自quick的Component类（含有事件派发机制） 代码：bas...
LUA实现led闪烁.rar_JW4_lua_lua 点亮led_stm32 lua_stm32_lua
07-15
这些文件可以帮助我们快速搭建一个基础的STM32项目，通过LUA实现LED闪烁。具体而言，可能有以下文件： - `main.lua`：项目的入口文件，包含初始化配置和主控制逻辑。 - `gpio.lua` 和 `timer.lua`：自定义的LUA模块...
Lua中的线程和状态
热门推荐
MaximusZhou的专栏
05-30 1万+
线程（thread）作为Lua中一种基本的数据类型，它代表独立的执行线程（independent threads of execution），线程类型是实现协程（coroutines）的基础。本文将介绍Lua虚拟中的全局状态和线程的关系，以及从源码角度来看其数据结构。
通知栏,对话框,菜单栏,响应函数的一个简单Demo,纯SDK写的
08-30
通知栏,对话框,菜单栏,响应函数的一个简单Demo,纯SDK写的.学习之用.
用lua实现字符菜单
10-09
使用lua构建的字符菜单界面，与C交互，并使用消息队列传送用户选择的菜单选项， 形成一个独立的字符菜单模块，可以编译成login替代系统的login程序，嵌入式开发首选技术~~
lua实现的状态机
code change the world
01-06 7374
状态机就是管理在不同状态下的操作实现，这里我简单的提一下，大家看代码就懂了。最近学完了lua打算做点游戏，所有先用lua弄清楚一些常用的状态控制。 ------创建状态机制类型三种状态学习，编码，休息 local state = {study="study",code="code",relax="relax"} bobo={nowstate=state.study} ---默认的是学习状态
Lua中的模式
活在阳光下
12-30 3227
在Lua中有很多字符分类： . 所有字符 %a 字母 %c 控制字符 %d 数字 %l 小写字母 %p 标点符号 %s 空白字符 %u 大写字母 %w 字母和数字字符 %x 十六进制数字 %z 内部表示为0的字符 上面这些分类的大写形式表示他们的
Lua队列的概念以及使用简单使用，实现微信信息弹窗UI功能（cocos 2dx）
笔记的博客
10-26 952
从网上看到，很多关于lua队列的，但是都没有具体的使用方式，有空将自己做的贴出来，希望大家能指点一二。 栈和队列概念理解： **相同点：**从"数据结构"的角度看，它们都是线性结构，即数据元素之间的关系相同。 **不同点：**栈（Stack）是限定只能在表的一端进行插入和删除操作的线性表。 队列（Queue）是限定只能在表的一端进行插入和在另一端进行删除操作的线性表。它们是完全不同的数据类型。除了...
发公告lua代码
写给自己看的博客
10-08 656
--addText方法由服务器向客户端发消息时调用，之后不断增加公告数量，一直到最后一条公告播完 function bull.addText(text) --显示的内容和当前时间     if self._listShow == nil then         self._listShow = {}     end     local tb = {}     tb.text = text    ...
Lua菜鸟教程学习笔记二（一些细节）
陈云佳的专栏
10-08 1337
内容会持续更新，有错误的地方欢迎指正，谢谢! 前言 上一篇文章：Lua菜鸟教程学习笔记一（基本语法和数据类型）介绍了Lua的基本用法，但缺少一些细节的内容，本文会补充一些细节。 正文 Lua 变量 Lua 循环 Lua 流程控制 Lua 函数 Lua 运算符 Lua 字符串 Lua 数组 Lua 迭代器 Lua table（表） ...
大数据埋点方案Openresty+Nginx+Lua踩坑日志
最新发布
qq_25954159的博客
09-30 618
翻看了一些资料，个人理解是 其实with-http_gunzip_module模块是帮前端进行解压的，比如nginx location代理接口进行了gz数据压缩，代理一层的对外接口就可以自动解压了。容易踩坑点：询问gbt的时候会提示使用nginx的with-http_gunzip_module模块，设置gunzip on;来自动解压，但是尝试多次后都无法成功。将zlib.so文件放到openresty的lualib目录下，供全局加载到。确保luajit的依赖存在，在cmake检查的时候会显示出来；
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值