简化战斗系统设计小游戏开发报告.pdfVIP

第二次上机

程序:《尖峰对决》

简介:模仿网上常见的诸如《Q宠大乱斗》游戏的自动回合模式设计

的小游戏。对战斗系统进行了一定的简化，单纯考虑生命值和力，战

斗的过程仅采用文字的形式描述。

设计流程

角色设置对手设置对战界面

FrmGameSetFrmEnemyFrmCombat

开始界面

FrmStart

帮助界面

FrmHelp

End

主要变量

PublicstrNameAsString‘玩家名

PublicstrCharAsString‘玩家角色

PublicstrWeaponAsString‘玩家武

器PublicstrEnemyAsString‘对手

信息

主要函数,子过程

函数Rndnum(MaxValueAsInteger,MixValueAsInteger)As

整取随机数

数

随机化

第二次上机

程序:《尖峰对决》

简介：模仿网上常见的诸如《Q宠大乱斗》游戏的自动回合模式设计的

小游戏。对战斗系统进行了一定的简化，单纯考虑生命值和力，战斗

的过程仅采用文字的形式描述。

设计流程

角色设置对手设置对战界面

FrmGameSetFrmEnemyFrmCombat

开始界面

FrmStart

帮助界面

FrmHelp

End

主要变量

PublicstrNameAsString‘玩家名

PublicstrCharAsString‘玩家角色

PublicstrWeaponAsString‘玩家

PublicstrEnemyAsString‘对手信息

主要函数，子过程

FunctionRndnum(MaxValueAsInteger,MixValueAsInteger)As

Integer取随机数

Randomize

Rndnum=Int(Rnd()*(MaxValue‑MinValue+1)+

MinValue)EndFunction

上

以是获取随机整数的函数，由于游戏进行中需要多次获取随机数，故将其

写为函数

SubAttackKnife(AttackerAsString,DefenderAsString,

ShowListAsListBox,HpShowAsTextBox)

DimCombatInfoAsStringDimAttPointAsInteger

DimiAsIntegeri=Rndnum(100,1)出招概率AttPoint

=Rndnum(40,15)值相应基础力Ifi20Then

CombatI