Shinobi Attack System
J
申明
本文是我个人所写并非官方资料，其中若有错误之处还请大家包函并指出，谢谢
攻击方式
1、刀
2、标
3、炎术
4、风术
5、踢
6、误伤
7、环境
杀阵倍率
1 2 3 4 10 15 30 40 60
杀阵倍率仅对刀和八双有效
难度有四种 Easy Normal Hard Super
敌方HP在各难度下都相同(8A飞头除外 Easy和Normal的HP相同为1倍，Hard下HP为1.5倍，Super下HP为2倍)
难度对刀的威力有影响，Super下Hotsuma刀的威力是1倍，Hard下是1.5倍，Normal下是2倍，Easy下是4倍
难度对Hotsuma和Moritsune的标的威力没有影响
难度对Joe Musashi的标的威力有影响，Super下Joe Musashi的标的威力是1倍，Hard下是1.5倍，Normal下是2倍，Easy和Normal相同也是2倍
难度对炎术没有影响(8B BOSS 産土蛭户除外 Easy 中炎术对其威力为原来的2倍)
难度对风术没有影响
难度对踢没有影响
难度对误伤和环境的影响暂无全面精确资料
人物有三个 Hotsuma Moritsune Joe Musashi
Hotsuma的刀和Joe Musashi的刀是完全相同的
Hotsuma的标和Moritsune的标的是完全相同的
Moritsune的刀的威力在Super Hard Normal三个难度中是Hotsuma的刀的威力的2倍，但在Easy中只有Hotsuma的1.5倍
三面倍率 正面 侧面 背面
正面倍率都是1
侧面倍率有的是1，有的是1.5，有的是2，有的是3，有的是N/A
背面倍率有的是0，有的是1，有的是3,有的是5，有的是N/A
有一种倍率很特殊，刀和单发的标无法打到侧面和背面(无论从哪个面打都算是正面)，只有忍术和八双才能打到这种侧面和背面的判定
属性防御
属性防御是指同样的攻击方式对不同的敌人威力不同
Hotsuma和Moritsune的标有属性防御
炎术也有属性防御
挑衅状态
部分BOSS特定动作时被攻击，威力是原来的3倍
二次判定
二次判定是指刀和Hotsuma的八双在攻击时，只发动了一次攻击，却被系统判定了两次
刀
刀能砍出多种动作，但不论哪个动作，其威力都是相同的
Hotsuma在1A和1B由于具情，刀的威力不受杀阵倍率影响
壁斩的威力是原来的2倍
蓄斩的威力是原来的2倍，蓄斩有无视防御的效果
系统在刀的威力计算上有一个BUG
Hotsuma和Joe Musashi在Hard下刀的威力是3.75，但实际上是3.74999
Moritsune在Hard下刀的威力是7.5，但实际上是7.4999
Moritsune在Easy下刀的威力是15，但实际上是14.999
刀的二次判定就算两次攻击次数，因此在打BOSS一刀斩时没有用处
标
敌人对Hotsuma和Moritsune的标有属性防御，攻击不同的敌人会发挥不同的威力
敌人对Joe Musashi的标没有属性防御
Hotsuma和Moritsune的单发标有定人的效果但有时会击中敌人却没定住敌人，但威力不变
Hotsuma和Moritsune的八双能发生二次判定，Joe Musashi的八双不能
八双的二次判定我暂时称之为COUNTER，但它并不是真正的附合COUNTER的定义，事实上能否打出COUNTER与敌人是否正在攻击没有直接关系
因为八双的判定不算TATE攻击次数，所以八双的二次判定可以在BOSS一刀斩时发挥作用
炎术
敌人对炎术有属性防御，攻击不同的敌人会发挥不同的威力
风术
敌人对风术没有属性防御，风术是最稳定的一种攻击方式，在所有难度下，任何人物的风术的每一击的威力都是相同的
踢
踢对敌人能起到破防的作用
能踢破産土蛭户一开始的七道封印
能踢爆直升机BOSS放出的导弹
能踢掉部分场境的物体，比如最终BOSS场境处一开始的一圈围栏
误伤
误伤是指敌人的攻击对敌人造成伤害
1A和2B直升机BOSS的导弹爆炸后能对直升机造成伤害，在BOSS一刀斩中要利用
环境
1B BOSS跳入深渊后会造成一定伤害，在BOSS一刀斩中要利用
敌人掉入深渊、岩浆和水中会直接死亡
毒气也会对敌人造成伤害
误伤和环境本人还没有全面测试，暂时无法提供全面的精确数据，请见谅
由于部分朋友要求看我编写的源程序，所以1500行源程序公布如下
(由于本人初学VB，本程序不是一次完全，是经过多次功能改写和添加而成，所以内部工作原理比较混乱，条理不清，当然主要原因还是本人水平太低，在程序阅读中造成的不便还请见谅)
Shuriken打棍式神和强化棍式神时表示单发的标，无字八双的情况没做进程序
Private Type ShinobiData
Name As String
Hp As Double
Shuriken As Double
Fire As Double
Side As Double
Back As Double
End Type
Dim Data(16, 6) As ShinobiData
Dim Stage(16) As String
Dim xx As Integer
Dim yy As Integer
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
Dim E As Double
Dim F As Double
Dim G As Double
Dim H As Double
Dim Percent As Double
Sub Hp()
If xx = 15 And yy = 2 Then
If Label10 = "Easy" Then
Data(15, 2).Hp = 15
ElseIf Label10 = "Normal" Then Data(15, 2).Hp = 15
ElseIf Label10 = "Hard" Then Data(15, 2).Hp = 22.5
ElseIf Label10 = "Super" Then Data(15, 2).Hp = 30
End If
End If
End Sub
Sub S0()
If yy = 6 Then
If xx = 2 Or xx = 6 Or xx = 8 Or xx = 10 Or xx = 12 Or xx = 14 Then Label14.Enabled = True
Else
Label14.ForeColor = &H80000003
Label14.Enabled = False
End If
If Label12 = "Fall" Then
Label14.ForeColor = &H80000003
Label14.Enabled = False
End If
End Sub
Sub S1()
If Label12 = "Shuriken" Then
Label15.Enabled = False
Label15.ForeColor = &H80000003
Label16.Enabled = True
Else
Label16.ForeColor = &H80000003
Label16.Enabled = False
Label15.Enabled = True
End If
If Label11 = "Joe Musashi" Then
Label16.Enabled = False
Label16.ForeColor = &H80000003
End If
End Sub
Sub S2()
'//C
Select Case Label10
Case "Super"
Select Case Label11
Case "Hotsuma"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 2.5
End If
Case "Moritsune"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 5
End If
Case "Joe Musashi"
If Label12 = "Shuriken" Then
C = 1
ElseIf Label12 = "Slash" Then
C = 2.5
End If
End Select
Case "Hard"
Select Case Label11
Case "Hotsuma"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 3.74999
End If
Case "Moritsune"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 7.4999
End If
Case "Joe Musashi"
If Label12 = "Shuriken" Then
C = 1.5
ElseIf Label12 = "Slash" Then
C = 3.74999
End If
End Select
Case "Normal"
Select Case Label11
Case "Hotsuma"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 5
End If
Case "Moritsune"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 10
End If
Case "Joe Musashi"
If Label12 = "Shuriken" Then
C = 2
ElseIf Label12 = "Slash" Then
C = 5
End If
End Select
Case "Easy"
Select Case Label11
Case "Hotsuma"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 10
End If
Case "Moritsune"
If Label12 = "Shuriken" Then
C = Data(xx, yy).Shuriken
ElseIf Label12 = "Slash" Then
C = 14.999
End If
Case "Joe Musashi"
If Label12 = "Shuriken" Then
C = 2
ElseIf Label12 = "Slash" Then
C = 10
End If
End Select
End Select
If Label12 = "Fire" Then C = Data(xx, yy).Fire
If Label12 = "Wind" Then C = 10
If Label12 = "Missile" Then
If Label10 = "Super" Then
C = 7.5
ElseIf Label10 = "Hard" Then C = 12.5
ElseIf Label10 = "Normal" Then C = 25
ElseIf Label10 = "Easy" Then C = 50
End If
End If
If Label12 = "Fall" Then
If Label10 = "Super" Then
C = 12.5
ElseIf Label10 = "Hard" Then C = 18.75
ElseIf Label10 = "Normal" Then C = 37.5
ElseIf Label10 = "Easy" Then C = 50
End If
End If
'//D
If Label8.FontBold = True Then
D = 60
ElseIf Label7.FontBold = True Then D = 40
ElseIf Label6.FontBold = True Then D = 30
ElseIf Label5.FontBold = True Then D = 15
ElseIf Label4.FontBold = True Then D = 10
ElseIf Label3.FontBold = True Then D = 4
ElseIf Label2.FontBold = True Then D = 3
ElseIf Label1.FontBold = True Then D = 2
ElseIf Label1.FontBold = False Then D = 1
End If
'//E
Select Case Label13
Case "Front"
E = 1
Case "Side"
E = Data(xx, yy).Side
Case "Back"
E = Data(xx, yy).Back
End Select
'//F
If Label14.ForeColor = &H80000003 Then
F = 1
ElseIf Label14.ForeColor = &H80000012 Then F = 3
End If
'//G
If Label15.ForeColor = &H80000003 Then
G = 1
ElseIf Label15.ForeColor = &H80000012 Then G = 2
End If
'//H
If Label16.ForeColor = &H80000003 Then
H = 1
ElseIf Label16.ForeColor = &H80000012 Then H = 2
End If
S0
End Sub
Sub S3()
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = False
Label2.FontBold = False
Label3.FontBold = False
Label4.FontBold = False
Label5.FontBold = False
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End Sub
Sub S4(L As Control, Str1$, Str2$)
Str3$ = Str1 + " " + Str2
len1% = Len(Str1)
len2% = Len(Str2)
m% = len1 + 2
K% = 1
y# = 0.1 / (m + 1)
Z = max(len1, len2)
For K = 1 To m + 1
L = Mid(Str3, K, K + Z - 1)
DelayLoop y
Next K
L = Right(L, len2)
End Sub
Sub S5(L As Control, Str1$, Str2$)
Str3$ = Str2 + " " + Str1
len1% = Len(Str1)
len2% = Len(Str2)
m% = len1 + 2
K% = 1
y# = 0.1 / (m + 1)
Z = max(len1, len2)
For K = 1 To len1 + 1
L = Mid(Str3, len1 + 2 - K, len1 + 2 - K + Z - 1)
DelayLoop y
Next K
L = Left(L, len2)
End Sub
Sub S6()
If Combo1 <> "" Then
Label17 = Format(A, "0.00###") + "/" + Format(Data(xx, yy).Hp) + " " + "0" + "/" + "0.00%"
Else
Label17 = ""
End If
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = False
Label2.FontBold = False
Label3.FontBold = False
Label4.FontBold = False
Label5.FontBold = False
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End Sub
Sub DelayLoop(DelayTime#)
Const SecondsInDay = 24& * 60& * 60&
loopfinish = Timer + DelayTime
If loopfinish > SecondsInDay Then
loopfinish = loopfinish - SecondsInDay
Do While Timer > loopfinish
Loop
End If
Do While Timer < loopfinish
Loop
End Sub
Function max(x, y)
If x >= y Then max = x Else max = y
End Function
Sub Stageselect()
If Label18 = "STAGE 1A" Then
xx = 1
ElseIf Label18 = "STAGE 1B" Then xx = 2
ElseIf Label18 = "STAGE 2A" Then xx = 3
ElseIf Label18 = "STAGE 2B" Then xx = 4
ElseIf Label18 = "STAGE 3A" Then xx = 5
ElseIf Label18 = "STAGE 3B" Then xx = 6
ElseIf Label18 = "STAGE 4A" Then xx = 7
ElseIf Label18 = "STAGE 4B" Then xx = 8
ElseIf Label18 = "STAGE 5A" Then xx = 9
ElseIf Label18 = "STAGE 5B" Then xx = 10
ElseIf Label18 = "STAGE 6A" Then xx = 11
ElseIf Label18 = "STAGE 6B" Then xx = 12
ElseIf Label18 = "STAGE 7A" Then xx = 13
ElseIf Label18 = "STAGE 7B" Then xx = 14
ElseIf Label18 = "STAGE 8A" Then xx = 15
ElseIf Label18 = "STAGE 8B" Then xx = 16
ElseIf Label18 = "STAGE EX" Then xx = 0
End If
For I = 1 To 6
If Data(xx, I).Name <> "" Then Combo1.AddItem Data(xx, I).Name
Next I
If Data(xx, 0).Name <> "" Then Combo1.AddItem Data(xx, 0).Name
If Label18 = "STAGE EX" Then Label10 = "Normal"
End Sub
Private Sub Combo1_Click()
For I = 0 To 6
If Combo1 = Data(xx, I).Name Then
yy = I
Exit For
End If
Next I
Hp
A = Data(xx, yy).Hp
If Label12 = "Missile" Or Label12 = "Fall" Then Label12 = "Shuriken"
If yy = 6 And xx = 15 Then Label13 = "Front"
S1
S2
Label19.Enabled = True
Picture1.Visible = True
Picture2.Picture = Picture4
Picture2.Visible = True
S6
End Sub
Private Sub Form_Load()
Rem 1A
Data(1, 1).Name = "蓝忍"
Data(1, 1).Hp = 10
Data(1, 1).Shuriken = 2
Data(1, 1).Fire = 50
Data(1, 1).Side = 1.5
Data(1, 1).Back = 3
Data(1, 2).Name = "狼"
Data(1, 2).Hp = 5
Data(1, 2).Shuriken = 3
Data(1, 2).Fire = 75
Data(1, 2).Side = 2
Data(1, 2).Back = 3
Data(1, 3).Name = "***"
Data(1, 3).Hp = 30
Data(1, 3).Shuriken = 0
Data(1, 3).Fire = 50
Data(1, 3).Side = 1
Data(1, 3).Back = 1
Data(1, 4).Name = "汽车(BOSS)"
Data(1, 4).Hp = 2.5
Data(1, 4).Shuriken = 2
Data(1, 4).Fire = 50
Data(1, 4).Side = 1
Data(1, 4).Back = 1
Data(1, 5).Name = "蓝忍(BOSS)"
Data(1, 5).Hp = 10
Data(1, 5).Shuriken = 2
Data(1, 5).Fire = 50
Data(1, 5).Side = 1.5
Data(1, 5).Back = 3
Data(1, 6).Name = "直升机(BOSS)"
Data(1, 6).Hp = 100
Data(1, 6).Shuriken = 0
Data(1, 6).Fire = 50
Data(1, 6).Side = 1
Data(1, 6).Back = 1
Rem 1B
Data(2, 1).Name = "蓝忍"
Data(2, 1).Hp = 10
Data(2, 1).Shuriken = 2
Data(2, 1).Fire = 50
Data(2, 1).Side = 1.5
Data(2, 1).Back = 3
Data(2, 2).Name = "黄飞头"
Data(2, 2).Hp = 2.5
Data(2, 2).Shuriken = 2
Data(2, 2).Fire = 50
Data(2, 2).Side = 1.5
Data(2, 2).Back = 3
Data(2, 3).Name = "紫女忍"
Data(2, 3).Hp = 7.5
Data(2, 3).Shuriken = 3
Data(2, 3).Fire = 75
Data(2, 3).Side = 2
Data(2, 3).Back = 3
Data(2, 5).Name = "蓝忍(BOSS)"
Data(2, 5).Hp = 10
Data(2, 5).Shuriken = 2
Data(2, 5).Fire = 50
Data(2, 5).Side = 1.5
Data(2, 5).Back = 3
Data(2, 6).Name = "守恒(BOSS)"
Data(2, 6).Hp = 187.5
Data(2, 6).Shuriken = 0
Data(2, 6).Fire = 50
Data(2, 6).Side = 1.5
Data(2, 6).Back = 3
Rem 2A
Data(3, 1).Name = "蓝忍"
Data(3, 1).Hp = 10
Data(3, 1).Shuriken = 2
Data(3, 1).Fire = 50
Data(3, 1).Side = 1.5
Data(3, 1).Back = 3
Data(3, 2).Name = "狐"
Data(3, 2).Hp = 10
Data(3, 2).Shuriken = 3
Data(3, 2).Fire = 75
Data(3, 2).Side = 2
Data(3, 2).Back = 3
Data(3, 3).Name = "鸦天狗"
Data(3, 3).Hp = 60
Data(3, 3).Shuriken = 1.5
Data(3, 3).Fire = 37.5
Data(3, 3).Side = 1.5
Data(3, 3).Back = 3
Data(3, 4).Name = "狐(BOSS)"
Data(3, 4).Hp = 10
Data(3, 4).Shuriken = 3
Data(3, 4).Fire = 75
Data(3, 4).Side = 2
Data(3, 4).Back = 3
Data(3, 5).Name = "银男(BOSS)"
Data(3, 5).Hp = 150
Data(3, 5).Shuriken = 2
Data(3, 5).Fire = 50
Data(3, 5).Side = 1.5
Data(3, 5).Back = 3
Data(3, 6).Name = "铜女(BOSS)"
Data(3, 6).Hp = 112.5
Data(3, 6).Shuriken = 2
Data(3, 6).Fire = 50
Data(3, 6).Side = 2
Data(3, 6).Back = 3
Rem 2B
Data(4, 1).Name = "绿忍"
Data(4, 1).Hp = 25
Data(4, 1).Shuriken = 2
Data(4, 1).Fire = 50
Data(4, 1).Side = 1.5
Data(4, 1).Back = 3
Data(4, 2).Name = "黄飞头"
Data(4, 2).Hp = 2.5
Data(4, 2).Shuriken = 2
Data(4, 2).Fire = 50
Data(4, 2).Side = 1.5
Data(4, 2).Back = 3
Data(4, 3).Name = "鸦天狗"
Data(4, 3).Hp = 60
Data(4, 3).Shuriken = 1.5
Data(4, 3).Fire = 37.5
Data(4, 3).Side = 1.5
Data(4, 3).Back = 3
Data(4, 5).Name = "绿忍(BOSS)"
Data(4, 5).Hp = 25
Data(4, 5).Shuriken = 2
Data(4, 5).Fire = 50
Data(4, 5).Side = 1.5
Data(4, 5).Back = 3
Data(4, 6).Name = "强化直升机(BOSS)"
Data(4, 6).Hp = 200
Data(4, 6).Shuriken = 0
Data(4, 6).Fire = 50
Data(4, 6).Side = 1
Data(4, 6).Back = 1
Rem 3A
Data(5, 1).Name = "绿忍"
Data(5, 1).Hp = 25
Data(5, 1).Shuriken = 2
Data(5, 1).Fire = 50
Data(5, 1).Side = 1.5
Data(5, 1).Back = 3
Data(5, 2).Name = "狗"
Data(5, 2).Hp = 12.5
Data(5, 2).Shuriken = 3
Data(5, 2).Fire = 75
Data(5, 2).Side = 2
Data(5, 2).Back = 3
Data(5, 3).Name = "强化***"
Data(5, 3).Hp = 75
Data(5, 3).Shuriken = 0
Data(5, 3).Fire = 50
Data(5, 3).Side = 1
Data(5, 3).Back = 1
Data(5, 5).Name = "狗(BOSS)"
Data(5, 5).Hp = 12.5
Data(5, 5).Shuriken = 3
Data(5, 5).Fire = 75
Data(5, 5).Side = 2
Data(5, 5).Back = 3
Data(5, 6).Name = "伯乐(BOSS)"
Data(5, 6).Hp = 187.5
Data(5, 6).Shuriken = 2
Data(5, 6).Fire = 50
Data(5, 6).Side = 3
Data(5, 6).Back = 0
Rem 3B
Data(6, 1).Name = "绿忍"
Data(6, 1).Hp = 25
Data(6, 1).Shuriken = 2
Data(6, 1).Fire = 50
Data(6, 1).Side = 1.5
Data(6, 1).Back = 3
Data(6, 2).Name = "蜘蛛"
Data(6, 2).Hp = 6.5
Data(6, 2).Shuriken = 2
Data(6, 2).Fire = 50
Data(6, 2).Side = 2
Data(6, 2).Back = 3
Data(6, 3).Name = "红女忍"
Data(6, 3).Hp = 22.5
Data(6, 3).Shuriken = 3
Data(6, 3).Fire = 75
Data(6, 3).Side = 2
Data(6, 3).Back = 3
Data(6, 4).Name = "蜘蛛巢"
Data(6, 4).Hp = 20
Data(6, 4).Shuriken = 2
Data(6, 4).Fire = 50
Data(6, 4).Side = 1
Data(6, 4).Back = 1
Data(6, 5).Name = "蜘蛛(BOSS)"
Data(6, 5).Hp = 6.5
Data(6, 5).Shuriken = 2
Data(6, 5).Fire = 50
Data(6, 5).Side = 2
Data(6, 5).Back = 3
Data(6, 6).Name = "白云(BOSS)"
Data(6, 6).Hp = 225
Data(6, 6).Shuriken = 0
Data(6, 6).Fire = 37.5
Data(6, 6).Side = 1
Data(6, 6).Back = 1
Data(6, 0).Name = "蜘蛛巢(BOSS)"
Data(6, 0).Hp = 20
Data(6, 0).Shuriken = 2
Data(6, 0).Fire = 50
Data(6, 0).Side = 1
Data(6, 0).Back = 1
Rem 4A
Data(7, 1).Name = "红忍"
Data(7, 1).Hp = 30
Data(7, 1).Shuriken = 2
Data(7, 1).Fire = 50
Data(7, 1).Side = 1.5
Data(7, 1).Back = 3
Data(7, 2).Name = "蛾子"
Data(7, 2).Hp = 7.5
Data(7, 2).Shuriken = 3
Data(7, 2).Fire = 75
Data(7, 2).Side = 2
Data(7, 2).Back = 3
Data(7, 3).Name = "强化***"
Data(7, 3).Hp = 75
Data(7, 3).Shuriken = 0
Data(7, 3).Fire = 50
Data(7, 3).Side = 1
Data(7, 3).Back = 1
Data(7, 5).Name = "飞头(BOSS)"
Data(7, 5).Hp = 7.5
Data(7, 5).Shuriken = 3
Data(7, 5).Fire = 75
Data(7, 5).Side = 2
Data(7, 5).Back = 3
Data(7, 6).Name = "焰(BOSS)"
Data(7, 6).Hp = 225
Data(7, 6).Shuriken = 2
Data(7, 6).Fire = 0
Data(7, 6).Side = 1.5
Data(7, 6).Back = 3
Rem 4B
Data(8, 1).Name = "红忍"
Data(8, 1).Hp = 30
Data(8, 1).Shuriken = 2
Data(8, 1).Fire = 50
Data(8, 1).Side = 1.5
Data(8, 1).Back = 3
Data(8, 2).Name = "蛾子"
Data(8, 2).Hp = 7.5
Data(8, 2).Shuriken = 3
Data(8, 2).Fire = 75
Data(8, 2).Side = 2
Data(8, 2).Back = 3
Data(8, 3).Name = "强化***"
Data(8, 3).Hp = 75
Data(8, 3).Shuriken = 0
Data(8, 3).Fire = 50
Data(8, 3).Side = 1
Data(8, 3).Back = 1
Data(8, 5).Name = "蛾子(BOSS)"
Data(8, 5).Hp = 7.5
Data(8, 5).Shuriken = 3
Data(8, 5).Fire = 75
Data(8, 5).Side = 2
Data(8, 5).Back = 3
Data(8, 6).Name = "红天蛾(BOSS)"
Data(8, 6).Hp = 225
Data(8, 6).Shuriken = 0
Data(8, 6).Fire = 50
Data(8, 6).Side = 1
Data(8, 6).Back = 0
Rem 5A
Data(9, 1).Name = "黑忍"
Data(9, 1).Hp = 20
Data(9, 1).Shuriken = 2
Data(9, 1).Fire = 50
Data(9, 1).Side = 1.5
Data(9, 1).Back = 3
Data(9, 2).Name = "黑飞头"
Data(9, 2).Hp = 8.5
Data(9, 2).Shuriken = 2
Data(9, 2).Fire = 50
Data(9, 2).Side = 1.5
Data(9, 2).Back = 3
Data(9, 3).Name = "红女忍"
Data(9, 3).Hp = 22.5
Data(9, 3).Shuriken = 3
Data(9, 3).Fire = 75
Data(9, 3).Side = 2
Data(9, 3).Back = 3
Data(9, 5).Name = "飞头(BOSS)"
Data(9, 5).Hp = 9
Data(9, 5).Shuriken = 3
Data(9, 5).Fire = 75
Data(9, 5).Side = 2
Data(9, 5).Back = 3
Data(9, 6).Name = "金刚(BOSS)"
Data(9, 6).Hp = 375
Data(9, 6).Shuriken = 1.5
Data(9, 6).Fire = 37.5
Data(9, 6).Side = 1.5
Data(9, 6).Back = 3
Rem 5B
Data(10, 5).Name = "蛇(BOSS)"
Data(10, 5).Hp = 9
Data(10, 5).Shuriken = 3
Data(10, 5).Fire = 75
Data(10, 5).Side = 1.5
Data(10, 5).Back = 3
Data(10, 6).Name = "玄九蛇(BOSS)"
Data(10, 6).Hp = 300
Data(10, 6).Shuriken = 0
Data(10, 6).Fire = 75
Data(10, 6).Side = 1
Data(10, 6).Back = 1
Rem 6A
Data(11, 1).Name = "红女忍"
Data(11, 1).Hp = 22.5
Data(11, 1).Shuriken = 3
Data(11, 1).Fire = 75
Data(11, 1).Side = 2
Data(11, 1).Back = 3
Data(11, 2).Name = "绿飞头"
Data(11, 2).Hp = 10
Data(11, 2).Shuriken = 4
Data(11, 2).Fire = 100
Data(11, 2).Side = 1.5
Data(11, 2).Back = 3
Data(11, 3).Name = "棍式神"
Data(11, 3).Hp = 30
Data(11, 3).Shuriken = 1.5
Data(11, 3).Fire = 37.5
Data(11, 3).Side = 1.5
Data(11, 3).Back = 3
Data(11, 5).Name = "绿飞头(BOSS)"
Data(11, 5).Hp = 10
Data(11, 5).Shuriken = 4
Data(11, 5).Fire = 100
Data(11, 5).Side = 1.5
Data(11, 5).Back = 3
Data(11, 6).Name = "刻(BOSS)"
Data(11, 6).Hp = 450
Data(11, 6).Shuriken = 2
Data(11, 6).Fire = 50
Data(11, 6).Side = 1.5
Data(11, 6).Back = 3
Rem 6B
Data(12, 5).Name = "飞头(BOSS)"
Data(12, 5).Hp = 10
Data(12, 5).Shuriken = 3
Data(12, 5).Fire = 75
Data(12, 5).Side = 2
Data(12, 5).Back = 3
Data(12, 6).Name = "八面王(BOSS)"
Data(12, 6).Hp = 675
Data(12, 6).Shuriken = 0
Data(12, 6).Fire = 50
Data(12, 6).Side = 1
Data(12, 6).Back = 1
Rem 7A
Data(13, 1).Name = "绿女忍"
Data(13, 1).Hp = 37.5
Data(13, 1).Shuriken = 3
Data(13, 1).Fire = 75
Data(13, 1).Side = 2
Data(13, 1).Back = 3
Data(13, 2).Name = "飞头"
Data(13, 2).Hp = 15
Data(13, 2).Shuriken = 3
Data(13, 2).Fire = 75
Data(13, 2).Side = 2
Data(13, 2).Back = 3
Data(13, 3).Name = "强化鸦天狗"
Data(13, 3).Hp = 150
Data(13, 3).Shuriken = 1.5
Data(13, 3).Fire = 37.5
Data(13, 3).Side = 1.5
Data(13, 3).Back = 3
Data(13, 4).Name = "香炉(BOSS)"
Data(13, 4).Hp = 50
Data(13, 4).Shuriken = 2
Data(13, 4).Fire = 50
Data(13, 4).Side = 1
Data(13, 4).Back = 1
Data(13, 5).Name = "花(BOSS)"
Data(13, 5).Hp = 12.5
Data(13, 5).Shuriken = 3
Data(13, 5).Fire = 75
Data(13, 5).Side = 2
Data(13, 5).Back = 3
Data(13, 6).Name = "朱刃(BOSS)"
Data(13, 6).Hp = 525
Data(13, 6).Shuriken = 2
Data(13, 6).Fire = 50
Data(13, 6).Side = 2
Data(13, 6).Back = 3
Rem 7B
Data(14, 5).Name = "小龙(BOSS)"
Data(14, 5).Hp = 12.5
Data(14, 5).Shuriken = 1
Data(14, 5).Fire = 25
Data(14, 5).Side = 1.5
Data(14, 5).Back = 3
Data(14, 6).Name = "苍蛟龙(BOSS)"
Data(14, 6).Hp = 750
Data(14, 6).Shuriken = 0
Data(14, 6).Fire = 50
Data(14, 6).Side = 1.5
Data(14, 6).Back = 3
Rem 8A
Data(15, 1).Name = "黑忍"
Data(15, 1).Hp = 20
Data(15, 1).Shuriken = 2
Data(15, 1).Fire = 50
Data(15, 1).Side = 1.5
Data(15, 1).Back = 3
Data(15, 2).Name = "飞头"
Data(15, 2).Hp = 15
Data(15, 2).Shuriken = 3
Data(15, 2).Fire = 75
Data(15, 2).Side = 2
Data(15, 2).Back = 3
Data(15, 3).Name = "强化棍式神"
Data(15, 3).Hp = 45
Data(15, 3).Shuriken = 1.5
Data(15, 3).Fire = 37.5
Data(15, 3).Side = 1.5
Data(15, 3).Back = 3
Data(15, 6).Name = "门(BOSS)"
Data(15, 6).Hp = 300
Data(15, 6).Shuriken = 0
Data(15, 6).Fire = 50
Data(15, 6).Side = 0
Data(15, 6).Back = 0
Rem 8B
Data(16, 1).Name = "紫忍"
Data(16, 1).Hp = 60
Data(16, 1).Shuriken = 2
Data(16, 1).Fire = 50
Data(16, 1).Side = 1.5
Data(16, 1).Back = 3
Data(16, 2).Name = "红飞头"
Data(16, 2).Hp = 15
Data(16, 2).Shuriken = 2
Data(16, 2).Fire = 50
Data(16, 2).Side = 1.5
Data(16, 2).Back = 3
Data(16, 3).Name = "强化棍式神"
Data(16, 3).Hp = 45
Data(16, 3).Shuriken = 1.5
Data(16, 3).Fire = 37.5
Data(16, 3).Side = 1.5
Data(16, 3).Back = 3
Data(16, 5).Name = "符(BOSS)"
Data(16, 5).Hp = 15
Data(16, 5).Shuriken = 3
Data(16, 5).Fire = 75
Data(16, 5).Side = 2
Data(16, 5).Back = 5
Data(16, 6).Name = "産土蛭户(BOSS)"
Data(16, 6).Hp = 900
Data(16, 6).Shuriken = 0
Data(16, 6).Fire = 50
Data(16, 6).Side = 1.5
Data(16, 6).Back = 3
Rem EX
Data(0, 0).Name = "蜈蚣"
Data(0, 0).Hp = 105
Data(0, 0).Shuriken = 1.5
Data(0, 0).Fire = 37.5
Data(0, 0).Side = 2
Data(0, 0).Back = 3
Stageselect
S1
S2
Label15.Enabled = False
End Sub
Private Sub Label1_Click()
If (Label1.ForeColor = &HFF&) And (Label2.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = False
Label3.FontBold = False
Label4.FontBold = False
Label5.FontBold = False
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label10_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Label18 <> "STAGE EX" Then
If Button = 1 Then
If Label10 = "Easy" Then
S4 Label10, "Easy", "Normal"
ElseIf Label10 = "Normal" Then S4 Label10, "Normal", "Hard"
ElseIf Label10 = "Hard" Then S4 Label10, "Hard", "Super"
End If
End If
If Button = 2 Then
If Label10 = "Super" Then
S5 Label10, "Super", "Hard"
ElseIf Label10 = "Hard" Then S5 Label10, "Hard", "Normal"
ElseIf Label10 = "Normal" Then S5 Label10, "Normal", "Easy"
End If
End If
End If
Picture1.Visible = True
Picture2.Picture = Picture4
Picture2.Visible = True
Hp
A = Data(xx, yy).Hp
S2
If Combo1 <> "" Then Label19.Enabled = True
S6
End Sub
Private Sub Label11_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
If Label11 = "Hotsuma" Then
S4 Label11, "Hotsuma", "Moritsune"
ElseIf Label11 = "Moritsune" Then S4 Label11, "Moritsune", "Joe Musashi"
End If
End If
If Button = 2 Then
If Label11 = "Joe Musashi" Then
S5 Label11, "Joe Musashi", "Moritsune"
ElseIf Label11 = "Moritsune" Then S5 Label11, "Moritsune", "Hotsuma"
End If
End If
Picture1.Visible = True
Picture2.Picture = Picture4
Picture2.Visible = True
A = Data(xx, yy).Hp
S1
S2
If Combo1 <> "" Then Label19.Enabled = True
S6
End Sub
Private Sub Label12_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
If Label12 = "Slash" Then
S4 Label12, "Slash", "Shuriken"
ElseIf Label12 = "Shuriken" Then S4 Label12, "Shuriken", "Fire"
ElseIf Label12 = "Fire" Then S4 Label12, "Fire", "Wind"
ElseIf Label12 = "Wind" Then
If yy = 6 And (xx = 1 Or xx = 4) Then S4 Label12, "Wind", "Missile"
If yy = 6 And xx = 2 Then S4 Label12, "Wind", "Fall"
End If
End If
If Button = 2 Then
If Label12 = "Wind" Then
S5 Label12, "Wind", "Fire"
ElseIf Label12 = "Fire" Then S5 Label12, "Fire", "Shuriken"
ElseIf Label12 = "Shuriken" Then S5 Label12, "Shuriken", "Slash"
ElseIf Label12 = "Missile" Then S5 Label12, "Missile", "Wind"
ElseIf Label12 = "Fall" Then S5 Label12, "Fall", "Wind"
End If
End If
S1
S2
End Sub
Private Sub Label13_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Data(xx, yy).Name <> Data(15, 6).Name Then
If Button = 1 Then
If Label13 = "Front" Then
S4 Label13, "Front", "Side"
ElseIf Label13 = "Side" Then S4 Label13, "Side", "Back"
End If
End If
If Button = 2 Then
If Label13 = "Back" Then
S5 Label13, "Back", "Side"
ElseIf Label13 = "Side" Then S5 Label13, "Side", "Front"
End If
End If
End If
S2
End Sub
Private Sub Label14_Click()
If Label14.ForeColor = &H80000003 Then
Label14.ForeColor = &H80000012
Label16.ForeColor = &H80000003
Else
Label14.ForeColor = &H80000003
End If
S2
End Sub
Private Sub Label15_Click()
If Label15.ForeColor = &H80000003 Then
Label15.ForeColor = &H80000012
Else: Label15.ForeColor = &H80000003
End If
S2
End Sub
Private Sub Label16_Click()
If Label16.ForeColor = &H80000003 Then
Label16.ForeColor = &H80000012
Else: Label16.ForeColor = &H80000003
End If
S2
End Sub
Private Sub Label18_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
If Label18 = "STAGE 1A" Then
S4 Label18, "STAGE 1A", "STAGE 1B"
ElseIf Label18 = "STAGE 1B" Then S4 Label18, "STAGE 1B", "STAGE 2A"
ElseIf Label18 = "STAGE 2A" Then S4 Label18, "STAGE 2A", "STAGE 2B"
ElseIf Label18 = "STAGE 2B" Then S4 Label18, "STAGE 2B", "STAGE 3A"
ElseIf Label18 = "STAGE 3A" Then S4 Label18, "STAGE 3A", "STAGE 3B"
ElseIf Label18 = "STAGE 3B" Then S4 Label18, "STAGE 3B", "STAGE 4A"
ElseIf Label18 = "STAGE 4A" Then S4 Label18, "STAGE 4A", "STAGE 4B"
ElseIf Label18 = "STAGE 4B" Then S4 Label18, "STAGE 4B", "STAGE 5A"
ElseIf Label18 = "STAGE 5A" Then S4 Label18, "STAGE 5A", "STAGE 5B"
ElseIf Label18 = "STAGE 5B" Then S4 Label18, "STAGE 5B", "STAGE 6A"
ElseIf Label18 = "STAGE 6A" Then S4 Label18, "STAGE 6A", "STAGE 6B"
ElseIf Label18 = "STAGE 6B" Then S4 Label18, "STAGE 6B", "STAGE 7A"
ElseIf Label18 = "STAGE 7A" Then S4 Label18, "STAGE 7A", "STAGE 7B"
ElseIf Label18 = "STAGE 7B" Then S4 Label18, "STAGE 7B", "STAGE 8A"
ElseIf Label18 = "STAGE 8A" Then S4 Label18, "STAGE 8A", "STAGE 8B"
ElseIf Label18 = "STAGE 8B" Then S4 Label18, "STAGE 8B", "STAGE EX"
End If
End If
If Button = 2 Then
If Label18 = "STAGE EX" Then
S5 Label18, "STAGE EX", "STAGE 8B"
ElseIf Label18 = "STAGE 8B" Then S5 Label18, "STAGE 8B", "STAGE 8A"
ElseIf Label18 = "STAGE 8A" Then S5 Label18, "STAGE 8A", "STAGE 7B"
ElseIf Label18 = "STAGE 7B" Then S5 Label18, "STAGE 7B", "STAGE 7A"
ElseIf Label18 = "STAGE 7A" Then S5 Label18, "STAGE 7A", "STAGE 6B"
ElseIf Label18 = "STAGE 6B" Then S5 Label18, "STAGE 6B", "STAGE 6A"
ElseIf Label18 = "STAGE 6A" Then S5 Label18, "STAGE 6A", "STAGE 5B"
ElseIf Label18 = "STAGE 5B" Then S5 Label18, "STAGE 5B", "STAGE 5A"
ElseIf Label18 = "STAGE 5A" Then S5 Label18, "STAGE 5A", "STAGE 4B"
ElseIf Label18 = "STAGE 4B" Then S5 Label18, "STAGE 4B", "STAGE 4A"
ElseIf Label18 = "STAGE 4A" Then S5 Label18, "STAGE 4A", "STAGE 3B"
ElseIf Label18 = "STAGE 3B" Then S5 Label18, "STAGE 3B", "STAGE 3A"
ElseIf Label18 = "STAGE 3A" Then S5 Label18, "STAGE 3A", "STAGE 2B"
ElseIf Label18 = "STAGE 2B" Then S5 Label18, "STAGE 2B", "STAGE 2A"
ElseIf Label18 = "STAGE 2A" Then S5 Label18, "STAGE 2A", "STAGE 1B"
ElseIf Label18 = "STAGE 1B" Then S5 Label18, "STAGE 1B", "STAGE 1A"
End If
End If
Label19.Enabled = False
Combo1.Clear
Stageselect
If Label12 = "Missile" Or Label12 = "Fall" Then Label12 = "Shuriken"
S2
Label14.ForeColor = &H80000003
Label14.Enabled = False
Label15.ForeColor = &H80000003
Label15.Enabled = False
Label16.ForeColor = &H80000003
Label16.Enabled = False
Picture1.Visible = True
Picture2.Picture = Picture4
Picture2.Visible = True
S6
End Sub
Private Sub Label19_Click()
Hp
If Label12 = "Slash" Or Label12 = "Shuriken" Then
B = C * D * E * F * G * H
If (yy = 3 And (xx = 11 Or xx = 15 Or xx = 16)) And D = 1 Then B = C * D * F * G * H
If Label11 = "Hotsuma" And (Label18 = "STAGE 1A" Or Label18 = "STAGE 1B") Then B = C * E * F * G * H
Else
B = C * E * F
If yy = 6 And xx = 16 And Label10 = "Easy" And Label12 = "Fire" Then B = 2 * C * E * F
If Label12 = "Missile" Then
If Label10 = "Super" And xx = 1 And yy = 6 And A - B < 2.5 Then
If A <= 2.5 Then
B = 0
Else
B = A - 2.5
End If
End If
If Label10 = "Hard" And xx = 1 And yy = 6 And A - B < 3.75 Then
If A <= 3.75 Then
B = 0
Else
B = A - 3.75
End If
End If
If (Label10 = "Normal" Or Label10 = "Easy") And xx = 1 And yy = 6 And A - B < 5 Then
If A <= 5 Then
B = 0
Else
B = A - 5
End If
End If
If Label10 = "Super" And xx = 4 And yy = 6 And A - B < 25 Then
If A <= 25 Then
B = 0
Else
B = A - 25
End If
End If
If Label10 = "Hard" And xx = 4 And yy = 6 And A - B < 37.5 Then
If A <= 37.5 Then
B = 0
Else
B = A - 37.5
End If
End If
If (Label10 = "Normal" Or Label10 = "Easy") And xx = 4 And yy = 6 And A - B < 50 Then
If A <= 50 Then
B = 0
Else
B = A - 50
End If
End If
End If
If Label12 = "Fall" Then
If Label10 = "Super" And xx = 2 And yy = 6 And A - B < 7.5 Then
If A <= 7.5 Then
B = 0
Else
B = A - 7.5
End If
End If
If Label10 = "Hard" And xx = 2 And yy = 6 And A - B < 11.25 Then
If A <= 11.25 Then
B = 0
Else
B = A - 11.25
End If
End If
If (Label10 = "Normal" Or Label10 = "Easy") And xx = 2 And yy = 6 And A - B < 15 Then
If A <= 15 Then
B = 0
Else
B = A - 15
End If
End If
End If
End If
A = A - B
Percent = B / Data(xx, yy).Hp
If A < Data(xx, yy).Hp Then Picture2.Line (A * 6000 / Data(xx, yy).Hp, 150)-(6000, 200), &H404040, BF
If B > 0 Then
Picture2.Line (A * 6000 / Data(xx, yy).Hp, 150)-((A + B) * 6000 / Data(xx, yy).Hp, 200), &HFFFF00, BF
DelayLoop 0.3
Picture2.Line (A * 6000 / Data(xx, yy).Hp, 150)-((A + B) * 6000 / Data(xx, yy).Hp, 200), &H404040, BF
End If
If A <= 0 Then
A = 0
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = False
Label2.FontBold = False
Label3.FontBold = False
Label4.FontBold = False
Label5.FontBold = False
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
Label19.Enabled = False
DelayLoop 0.2
Picture1.Visible = False
Picture2.Visible = False
End If
Label17 = Format(A, "0.00###") + "/" + Format(Data(xx, yy).Hp) + " " + Format(B) + "/" + Format(Percent, "0.00###%")
From1.Cls
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print ""
From1.Print "A="; A
From1.Print "B="; B
From1.Print "C="; C
From1.Print "D="; D
From1.Print "E="; E
From1.Print "F="; F
From1.Print "G="; G
From1.Print "H="; H
From1.Print "xx="; xx
From1.Print "yy="; yy
From1.Print "A * 6000 / Data(xx, yy).Hp="; A * 6000 / Data(xx, yy).Hp
From1.Print "(A + B) * 6000 / Data(xx, yy).Hp="; (A + B) * 6000 / Data(xx, yy).Hp
End Sub
Private Sub Label2_Click()
If (Label2.ForeColor = &HFF&) And (Label3.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &HFF&
Label3.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = False
Label4.FontBold = False
Label5.FontBold = False
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label20_Click()
If Combo1 <> "" Then
Hp
A = Data(xx, yy).Hp
Label19.Enabled = True
Picture1.Visible = True
Picture2.Picture = Picture4
Picture2.Visible = True
S2
S6
End If
End Sub
Private Sub Label3_Click()
If (Label3.ForeColor = &HFF&) And (Label4.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &HFF&
Label3.ForeColor = &HFF&
Label4.ForeColor = &H80000012
Label5.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = True
Label4.FontBold = False
Label5.FontBold = False
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label4_Click()
If (Label4.ForeColor = &HFF&) And (Label5.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &HFF&
Label3.ForeColor = &HFF&
Label4.ForeColor = &HFF&
Label5.ForeColor = &H80000012
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = True
Label4.FontBold = True
Label5.FontBold = False
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label5_Click()
If (Label5.ForeColor = &HFF&) And (Label6.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &HFF&
Label3.ForeColor = &HFF&
Label4.ForeColor = &HFF&
Label5.ForeColor = &HFF&
Label6.ForeColor = &H80000012
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = True
Label4.FontBold = True
Label5.FontBold = True
Label6.FontBold = False
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label6_Click()
If (Label6.ForeColor = &HFF&) And (Label7.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &HFF&
Label3.ForeColor = &HFF&
Label4.ForeColor = &HFF&
Label5.ForeColor = &HFF&
Label6.ForeColor = &HFF&
Label7.ForeColor = &H80000012
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = True
Label4.FontBold = True
Label5.FontBold = True
Label6.FontBold = True
Label7.FontBold = False
Label8.FontBold = False
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label7_Click()
If (Label7.ForeColor = &HFF&) And (Label8.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &HFF&
Label3.ForeColor = &HFF&
Label4.ForeColor = &HFF&
Label5.ForeColor = &HFF&
Label6.ForeColor = &HFF&
Label7.ForeColor = &HFF&
Label8.ForeColor = &H80000012
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = True
Label4.FontBold = True
Label5.FontBold = True
Label6.FontBold = True
Label7.FontBold = True
Label8.FontBold = False
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label8_Click()
If (Label8.ForeColor = &HFF&) And (Label9.ForeColor = &H80000012) Then
S3
Else
Label1.ForeColor = &HFF&
Label2.ForeColor = &HFF&
Label3.ForeColor = &HFF&
Label4.ForeColor = &HFF&
Label5.ForeColor = &HFF&
Label6.ForeColor = &HFF&
Label7.ForeColor = &HFF&
Label8.ForeColor = &HFF&
Label9.ForeColor = &H80000012
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = True
Label4.FontBold = True
Label5.FontBold = True
Label6.FontBold = True
Label7.FontBold = True
Label8.FontBold = True
Label9.FontBold = False
End If
S2
End Sub
Private Sub Label9_Click()
S3
S2
End Sub. |
川公网安备 51019002005286号
楼主
发表于 2005-2-13 14:39 · 江苏
