EN中文
开发者社区 > 策划

角色升级模拟VBA（转给想学VBA的数值新人，带附件）

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

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

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



　　以下是相关的VBA代码：
  1. Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

  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

  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. '开始循环======================================================================================================================

  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 '如果日常任务还有剩余，则做日常任务，直到升级或做完。

  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 "日常任务已全部完成!!!";


  75. '挂机--------------------------------------------------------------------------------
  76. guijia:
  77.         
  78.         If guaji_time < guaji_time_max Then '如果挂机可已做，则做，直到升级或做完

  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 '跳下一循环

  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



  116. '等级最大时---------------------------------------------------------------------------------
  117.         
  118.         If playerlv = playerlv_max Then
  119.             Exit For
  120.         End If

  122. nextfor: '跳下一循环---------------------------------------------------------------------------

  124.     Next
  125.     
  126.     Sheets("模拟2数据分析").EnableCalculation = True '开启分析表的自动运算
  127.     
  128. End Sub
复制代码

附件下载地址：
http://bbs.gameres.com/forum.php?mod=attachment&aid=MzQyNTA5fDIyZmE1ZTNmfDE0Njc4NzExNDB8MTk0MTQ1fDY2ODM2Mg%3D%3D

如社区发表内容存在侵权行为，您可以点击这里查看侵权投诉指引

标签：

游戏策划数值策划EXCELVBAMMORPG角色