【VBA】RPG网游经验模型搭建和验算

唐僧

　　笔者最近抽空写了一个简单的RPG游戏的升级经验模型。主要包含主线任务、日常任务，其他经验产出渠道可自行补充，这里只分享一个模型思路，抛砖引玉，欢迎大家讨论。
　　excel中还包含一个升级模拟工具，该工具主要作用是，当频繁调整升级经验时（项目早期），能快速的看到各个经验卡点的变化（主线任务经验不足，需要做日常任务、刷副本等）的情况。实际上如果模型搭建合理，这个验算工具基本没什么卵用。

     excel中的数值笔者已做过特殊处理，仅供测试模型用，不建议直接使用：）。

     欢迎有兴趣的朋友一起讨论
　　QQ：1437900504 唐僧
      Q群：564663199



　　以下是相关的VBA代码：

1. Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. 
   
3. Sub 升级行为模拟器2()
   
4. '模拟器只规划玩家行为，统计经验在表格中。
   
5. '定义变量----------------------------------------------
   
6. action_type = 0 '确定行为类型
   
7. task_zhuxian = "主线"
   
8. task_richang = "日常"
   
9. task_richang_huan_max = 20 '日常任务最大环数
   
10. task_richang_huan_finished = 0
    
11. 
    
12. guaji = "挂机"
    
13. guaji_time_max = 60 * 8 '每日挂机时间
    
14. guaji_time = 0
    
15.    
    
16. '初始化数据-------------------------------------------------------------------------------
    
17.         
    
18.     sheetname = "升级模拟器2.0"
    
19.     playerlv = 1 '玩家初始等级
    
20.     playerlv_max = 150 '设定玩家等级上限
    
21.     action_row = 18 '开始写入行为相关内容的行-------------------
    
22.    
    
23.     action_column = "L"
    
24. '清空行为区域-------------------------------------------------------------------------------
    
25.   
    
26.     rangevalue = "L" & action_row & ":L10000" '清空行为区域的范围
    
27.     Sheets(sheetname).Select
    
28.     Range(rangevalue).Select
    
29.     Selection.ClearContents
    
30. '开始循环======================================================================================================================
    
31. 
    
32.     For action_row = 18 To 4000
    
33.    
    
34.         Cells(action_row, 1).Select
    
35.         Debug.Print action_row
    
36.         
    
37.         playerlv = Sheets(sheetname).Cells(action_row, "B") '获取上一次行为后玩家等级
    
38.         playerlv_lastture = Sheets(sheetname).Cells(action_row - 1, "B")
    
39. '主线任务-----------------------------------------------------------------------------
    
40.         If playerlv = 1 Then
    
41.         
    
42.             action_type = task_zhuxian
    
43.             Sheets(sheetname).Cells(action_row, action_column).Value = action_type & "Lv." & playerlv '写入行为类型
    
44.             Debug.Print action_type & "Lv." & playerlv
    
45.             GoTo nextfor '跳下一循环
    
46.         
    
47.         ElseIf playerlv > playerlv_lastture Then '判断是否升级了，如果升级则做主线，并退出当前循环------------------------------------
    
48.         
    
49.             action_type = task_zhuxian
    
50.             Sheets(sheetname).Cells(action_row, action_column).Value = action_type & "Lv." & playerlv '写入行为类型
    
51.             
    
52.             Debug.Print action_type & "Lv." & playerlv
    
53.             GoTo nextfor '跳下一循环
    
54.         
    
55.         End If
    
56.         
    
57.         
    
58.         
    
59. '日常任务--------------------------------------------------------------------------
    
60.         
    
61.         If task_richang_huan_finished < task_richang_huan_max Then '如果日常任务还有剩余，则做日常任务，直到升级或做完。
    
62. 
    
63.                 action_type = task_richang
    
64.                 task_richang_huan_finished = task_richang_huan_finished + 1
    
65.                 Sheets(sheetname).Cells(action_row, action_column).Value = action_type & "(" & task_richang_huan_finished & "/" & task_richang_huan_max & ")"  '写入行为类型
    
66.                
    
67.                
    
68.                 Debug.Print action_type & "(" & task_richang_huan_finished & "/" & task_richang_huan_max & ")"
    
69.                 GoTo nextfor '跳下一循环
    
70.             
    
71.         End If
    
72.         'Debug.Print "日常任务已全部完成!!!";
    
73. 
    
74. 
    
75. '挂机--------------------------------------------------------------------------------
    
76. guijia:
    
77.         
    
78.         If guaji_time < guaji_time_max Then '如果挂机可已做，则做，直到升级或做完
    
79. 
    
80.                 action_type = guaji
    
81.                 guaji_time = guaji_time + 60
    
82.                 Sheets(sheetname).Cells(action_row, action_column).Value = action_type & "(小时:" & guaji_time / 60 & "/" & guaji_time_max / 60 & ")" '写入行为类型
    
83.                
    
84.                
    
85.                 Debug.Print action_type & "(" & guaji_time / 60 & "/" & guaji_time_max / 60 & ")"
    
86.                 GoTo nextfor '跳下一循环
    
87. 
    
88.         End If
    
89.         'Debug.Print "挂机已全部完成!!!";
    
90.         
    
91.         
    
92. '离线&重置次数--------------------------------------------------------------------------------
    
93. lixian:
    
94.    
    
95.         action_type = lixian
    
96.                
    
97.         lixian_time = 60 * 24 - guaji_time
    
98.         Sheets(sheetname).Cells(action_row, action_column).Value = action_type & "(小时:" & lixian_time / 60 & ")" '写入行为类型
    
99.         
    
100.         '重置次数和时间
     
101.         task_richang_huan_finished = 0
     
102.         task_bangpai_huan_finished = 0
     
103.         juqingfuben_finished = 0
     
104.         'shouweinvshen_finished = 0
     
105.         shouweinvshen_saodang_finished = 0
     
106.         'tongtianta_finished = 0
     
107.         tongtianta_saodang_finished = 0
     
108.         danaotiangong_finished = 0
     
109.         zuduifuben_finished = 0
     
110.         yabiao_finished = 0
     
111.         shuilufahui_finished = 0
     
112.         guaji_time = 0
     
113. 
     
114. 
     
115. 
     
116. '等级最大时---------------------------------------------------------------------------------
     
117.         
     
118.         If playerlv = playerlv_max Then
     
119.             Exit For
     
120.         End If
     
121. 
     
122. nextfor: '跳下一循环---------------------------------------------------------------------------
     
123. 
     
124.     Next
     
125.    
     
126.     Sheets("模拟2数据分析").EnableCalculation = True '开启分析表的自动运算
     
127.    
     
128. End Sub
     
129. 
     
130. 
     

复制代码

升级经验规划及验算_蓝海唐僧.zip (2.07 MB, 下载次数: 1594)

2016-7-6 23:19 上传

点击文件名下载附件

相关阅读：策划如何用VBA调试游戏数值

lathur

嗯，确实没什么卵用
目标体验都没搞出来，经验公式完全就是渣渣

半不癫

代码还需要优化，数据量比较小没有感觉。处理的数据多你这太卡了。调用对象次数太频繁。没有内存处理。
GOTO语句少用。

唐僧

lathur 发表于 2016-7-7 09:30
嗯，确实没什么卵用
目标体验都没搞出来，经验公式完全就是渣渣

里面的数值都是随便填的，欢迎大神优化。目标体验、经验公式可有推荐的？

唐僧

半不癫 发表于 2016-7-7 11:02
代码还需要优化，数据量比较小没有感觉。处理的数据多你这太卡了。调用对象次数太频繁。没有内存处理。
GOT ...

果然是高手，VBA过程中的数据都直接读写单元格，运行确实比较慢。
放到内存中跑会快很多。

半不癫

唐僧 发表于 2016-7-7 12:12
果然是高手，VBA过程中的数据都直接读写单元格，运行确实比较慢。
放到内存中跑会快很多。 ...

建议先确定经验的来源：A\B\C\D\E，然后确定每级的行为设计反向得出升级需要的经验。再模拟用户的非设计行为看结果跟设计目标有多大出入。

唐僧

半不癫 发表于 2016-7-7 12:42
建议先确定经验的来源：A\B\C\D\E，然后确定每级的行为设计反向得出升级需要的经验。再模拟用户的非设计 ...

不谋而合，该经验模型就是如此搭建的。配置模型中的参数即可实现想要的体验。

lathur

唐僧 发表于 2016-7-7 12:09
里面的数值都是随便填的，欢迎大神优化。目标体验、经验公式可有推荐的？
...

没什么推荐，一条公式用到底：y=ak+b

一条日常经验获取；一条升级所需时间

分段计算，你先设定玩家在多少时间内达到多少级，然后慢慢调整，调到你想要的结果为准，然后两条公式算出来的值相乘，就可以大致推导出一级需要多少经验

唐僧

lathur 发表于 2016-7-7 13:14
没什么推荐，一条公式用到底：y=ak+b

一条日常经验获取；一条升级所需时间

这位朋友估计是没看excel，模型就是如此，且都已做公式关联，配置即可实现想要的节奏

半不癫

lathur 发表于 2016-7-7 13:14
没什么推荐，一条公式用到底：y=ak+b

一条日常经验获取；一条升级所需时间

当你需要GOTO跳转的时候还有多出代码重复性较高时，可以试试类编程思想，调用自己写的类