作者DreamYeh (天使)
看板DIABLO
标题[论文] 论纯电法的极限伤害 (三)
时间Mon Oct 22 17:06:12 2007
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
四、Program
开启Borland C++ Builder，拉一个Button和一个ListView
，修改ListView显示方式和排序，接着开按钮，输入以下程式码
。
或许你可以改用.Net去写，但关於ListView细节部份需要有
所修改。
在演算法部分，或许有人会觉得使用多层回圈是浪费的，所
幸每个装备选择性不大。且一定能在多项式时间内运算完成。
程式用到一个类别： class item，仅内建各种属性和一个
初始化建构子。这里是为了使程式可以充分扩充，像是加入闪电
奥马斯等例外装备时候，我们可以使用
继承来简单扩充。
我曾思考另外订一个脚色类别，里面定义两个 Method:穿装
备、脱装备，这样程式可以更灵活，这个方向可以提供有志研究
本论文者一个研究方向。
以下附程式码，未有程式基础可直接按End ，等待下篇的实
验数据分析。
Code:
class item
{
public:
AnsiString NameC;
int Skill;//All Lightning Spell Page Skill
int Light_Skill; //only light skill
double Dmg;
double Res;
int Sockets;
int FCR;
item();
};
item::item()
{
Skill=0; Light_Skill=0;
Dmg=0.0; Res=0.0; Sockets=0; FCR=0;
}
#define ResFunction (1.45+res+0.05*socket) //对抗一般敌人
//#define ResFunction (0.09+res+0.05*socket) //对抗电系免疫
#define MaxDmg()
5.8*(36*(skill+LightSkill+1)+732)*(0.12*(skill+1)+5.7+dmg+0.05*socket)
#define SumDmg()
5.8*(((36*(skill+LightSkill+1)+732)+1)/2)*(0.12*(skill+1)+5.7+dmg+0.05*socket)
void __fastcall TForm1::Button1Click(TObject *Sender)
{
class item Weapon2Hand[4];
class item Weapon[4];
class item Shield[3];
class item Helm[2];
class item Ammy[2];
class item Ring[3];
class item Armor[4];
Weapon2Hand[0].NameC="Mage"; Weapon2Hand[0].Skill=5;
Weapon2Hand[0].Res=0.15; Weapon2Hand[0].Sockets=1; Weapon2Hand[0].FCR=30;
//Mage's Song
Weapon2Hand[1].NameC="infinite"; Weapon2Hand[1].Res=0.55;
//自拿无限
Weapon2Hand[2].NameC="6soc"; Weapon2Hand[2].Skill=3;
Weapon2Hand[2].Sockets=6;
//+3闪电+3支电双手杖打六洞全镶电彩 (S=3 J=6)
Weapon2Hand[3].NameC="Memory"; Weapon2Hand[3].Skill=6;
Weapon2Hand[3].FCR=33;
//+3闪电+3支电双手杖打四洞做成记忆 (Memory) (S=6)
Weapon[0].NameC="Moon"; Weapon[0].Res=0.35;
//新月剑 (Res=0.35)
Weapon[1].NameC="Esch"; Weapon[1].Skill=3; Weapon[1].Dmg=0.2;
Weapon[1].Sockets=1; Weapon[1].FCR=40;
//艾利屈塔镶电彩(S=3 Dmg=0.2 J=1)
Weapon[2].NameC="6socSword"; Weapon[2].Sockets=6;
//六洞水晶剑全镶电彩 (J=6)
Weapon[3].NameC="Powered Magus Orbs"; Weapon[3].Skill=6;
Weapon[3].Sockets=2; Weapon[3].FCR=20;
//+3电系+3闪电+3支电2洞 神奇蓝色单手杖XD (S=6 J=2)
Shield[0].NameC="Spirt";Shield[0].Skill=2;Shield[0].FCR=35;
//精神(S=2)
Shield[1].NameC="Wall";Shield[1].Skill=1;
Shield[1].Sockets=1;Shield[1].FCR=20;
//警墙+电彩(S=1 J=1)
Shield[2].NameC="4soc";Shield[2].Sockets=4;
//四洞统盾四电彩(J=4)
Helm[0].NameC="Griffon"; Helm[0].Skill=1; Helm[0].Res=0.2;
Helm[0].Dmg=0.15; Helm[0].Sockets=1; Helm[0].FCR=25;
//Grifon(S=1 Res=0.2 Dmg=0.15 J=1)
Helm[1].NameC="Powered Magus"; Helm[1].Skill=3; Helm[1].Sockets=2;
Helm[1].FCR=20;
//+3闪电页 2洞(S=3 J=2)
Ammy[0].NameC="+3L 10FCR"; Ammy[0].Skill=3; Ammy[0].FCR=10;
//+3闪电页 10fcr
Ammy[1].NameC="+2 20FCR"; Ammy[1].Skill=2; Ammy[1].FCR=20;
//+2 20fcr 手工 (S=2)
Ring[0].NameC="2SOJ"; Ring[0].Skill=2;
Ring[1].NameC="SOJ+10fcr"; Ring[1].Skill=1; Ring[1].FCR=10;
Ring[2].NameC="2 10fcr"; Ring[2].FCR=20;
Armor[0].NameC="Arkaine's";Armor[0].Skill=2; Armor[0].Sockets=1;
//+2阿凯尼 1电彩 (S=2 J=1)
Armor[1].NameC="Skin of the Vipermagi";Armor[1].Skill=1;
Armor[1].Sockets=1; Armor[1].FCR=30;
//+1蛇皮 1电彩 (S=1 J=1 35RES 30FCR)
Armor[2].NameC="COH";Armor[2].Skill=2;
//+2 COH or Enigma(S=2)
Armor[3].NameC="Ormus'"; Armor[3].Light_Skill=3; Armor[3].Dmg=0.15;
Armor[3].FCR=20; Armor[3].Sockets=1;
//闪电澳马斯
int skill=0,LightSkill=0,socket=0,Num=0,FCR;
double dmg=0,res=0,Res=0.0,SumDmg; //Res is real res max limited
on 200%
ListView1->Clear();
TListItem *Data_List;
//two hand
for(int i1=0;i1<2;i1++)
{
Num++;
skill = Helm[i1].Skill;
LightSkill=0;
socket = Helm[i1].Sockets;
dmg = Helm[i1].Dmg; res = Helm[i1].Res;
FCR = Helm[i1].FCR+40;
for(int i2=0;i2<2;i2++)
{
skill += Ammy[i2].Skill; socket += Ammy[i2].Sockets;
dmg += Ammy[i2].Dmg; res += Ammy[i2].Res;
FCR += Ammy[i2].FCR;
for(int i3=0;i3<3;i3++)
{
skill += Ring[i3].Skill; socket += Ring[i3].Sockets;
dmg += Ring[i3].Dmg; res += Ring[i3].Res;
FCR += Ring[i3].FCR;
for(int i4=0;i4<4;i4++)
{
skill += Armor[i4].Skill;
LightSkill+= Armor[i4].Light_Skill;
socket += Armor[i4].Sockets;
dmg += Armor[i4].Dmg; res += Armor[i4].Res;
FCR += Armor[i4].FCR;
//two
hand-------------------------------------------------------------
for(int i5=0;i5<4;i5++)
{
skill += Weapon2Hand[i5].Skill; socket +=
Weapon2Hand[i5].Sockets;
dmg += Weapon2Hand[i5].Dmg; res +=
Weapon2Hand[i5].Res;
FCR += Weapon2Hand[i5].FCR;
Res = ResFunction;
if(Res>2.0) Res=2.0;
//printf
code=================================================
if(CheckBox1->Checked) if(FCR<117) goto NLOOP;
SumDmg = SumDmg()*Res;
Data_List=ListView1->Items->Add();
Data_List->Caption=Num;
Data_List->SubItems->Add(Weapon2Hand[i5].NameC);
Data_List->SubItems->Add("");//no shield
Data_List->SubItems->Add(Helm[i1].NameC);
Data_List->SubItems->Add(Ammy[i2].NameC);
Data_List->SubItems->Add(Ring[i3].NameC);
Data_List->SubItems->Add(Armor[i4].NameC);
Data_List->SubItems->Add(Res);
Data_List->SubItems->Add(FCR);
Data_List->SubItems->Add((int)SumDmg);
Data_List->SubItems->Add(AnsiString((int)(MaxDmg())));
NLOOP:
//============================================================
skill -= Weapon2Hand[i5].Skill; socket -=
Weapon2Hand[i5].Sockets;
dmg -= Weapon2Hand[i5].Dmg; res -=
Weapon2Hand[i5].Res;
FCR -= Weapon2Hand[i5].FCR;
}
//One
hand-------------------------------------------------------------
for(int i5=0;i5<4;i5++)
{
skill += Weapon[i5].Skill; socket +=
Weapon[i5].Sockets;
dmg += Weapon[i5].Dmg; res += Weapon[i5].Res;
FCR += Weapon[i5].FCR;
for(int i6=0;i6<3;i6++)
{
skill += Shield[i6].Skill; socket +=
Shield[i6].Sockets;
dmg += Shield[i6].Dmg; res += Shield[i6].Res;
FCR += Shield[i6].FCR;
Res = ResFunction;
if(Res>2.0) Res=2.0;
//printf
code=================================================
if(CheckBox1->Checked) if(FCR<117) goto NLOOP2;
SumDmg = SumDmg()*Res;
Data_List=ListView1->Items->Add();
Data_List->Caption=Num;
Data_List->SubItems->Add(Weapon[i5].NameC);
Data_List->SubItems->Add(Shield[i6].NameC);
Data_List->SubItems->Add(Helm[i1].NameC);
Data_List->SubItems->Add(Ammy[i2].NameC);
Data_List->SubItems->Add(Ring[i3].NameC);
Data_List->SubItems->Add(Armor[i4].NameC);
Data_List->SubItems->Add(Res);
Data_List->SubItems->Add(FCR);
Data_List->SubItems->Add((int)SumDmg);
Data_List->SubItems->Add(AnsiString((int)(MaxDmg())));
NLOOP2:
//============================================================
skill -= Shield[i6].Skill; socket -=
Shield[i6].Sockets;
dmg -= Shield[i6].Dmg; res -= Shield[i6].Res;
FCR -= Shield[i6].FCR;
}
skill -= Weapon[i5].Skill; socket -=
Weapon[i5].Sockets;
dmg -= Weapon[i5].Dmg; res -= Weapon[i5].Res;
FCR -= Weapon[i5].FCR;
}
skill -= Armor[i4].Skill;
LightSkill-= Armor[i4].Light_Skill;
socket -= Armor[i4].Sockets;
dmg -= Armor[i4].Dmg; res -= Armor[i4].Res;
FCR -= Armor[i4].FCR;
}
skill -= Ring[i3].Skill; socket -= Ring[i3].Sockets;
dmg -= Ring[i3].Dmg; res -= Ring[i3].Res;
FCR -= Ring[i3].FCR;
}
skill -= Ammy[i2].Skill; socket -= Ammy[i2].Sockets;
dmg -= Ammy[i2].Dmg; res -= Ammy[i2].Res;
FCR -= Ammy[i2].FCR;
}
}
}
//---------------------------------------------------------------------------
--
10.22 19:38 程式修正伤害部份
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.66.37.44
1F：推 BlueNEO:很想抓过去算...不过太久没碰了 有点看不懂XD 先推 10/22 17:10
2F：推 swh7493:我承认我看到一半就end了 XD 还是推一个 10/22 17:10
3F：推 fkd:ㄜ~~ 我还没灌... 10/22 17:15
4F：推 t00t: 天使~!! 请问我data structure可以找你De bug吗@@? 10/22 17:49
5F：推 kathsda:看到一半就End了= = 想起正在修的该死的资料结构... 10/22 18:06
6F：推 DayFly0515:你真屌.... 10/22 19:00
※ 编辑: DreamYeh 来自: 210.66.37.44 (10/22 19:28)
7F：→ LUCIFERRRR:看不懂了........不懂程式 (汔 10/22 20:10
8F：推 ilikechess:没看完~不过推一个~XD 10/22 23:41