1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118

Friend Class ScourgeStrike
	Inherits strikes.Strike
	
	Private tmpPhysical As integer
	Private tmpMagical As integer
	Private MagicHit As long
	Private MagicCrit As long
	Friend MagicTotal As Long
	
	
	Sub New(S As sim)
		MyBase.New(s)
		MagicCrit = 0
		MagicHit = 0
		MagicTotal = 0
	End Sub
	
	public Overrides Function ApplyDamage(T As long) As boolean
		Dim RNG As Double
		'scourgestrike glyph
		UseGCD(T)
		
		If DoMyStrikeHit = false Then
			sim.combatlog.write(T  & vbtab &  "SS fail")
			MissCount = MissCount + 1
			Exit function
		End If
		
		Sim.RunicPower.add (15 + sim.Character.talentunholy.Dirge * 2.5 + 5*sim.MainStat.T74PDPS)
		dim dégat as Integer
			tmpPhysical = 0
			tmpMagical = 0
			'Physical part
			RNG = RngCrit
			If RNG <= CritChance Then
				CritCount = CritCount + 1
				dégat = AvrgNonCrit(T)* (1 + CritCoef)
				sim.combatlog.write(T  & vbtab &  "SS Physical crit for " & dégat )
				totalcrit += dégat
				sim.tryOnCrit
				sim.ScourgeStrikeMagical.ApplyDamage(dégat,T,true)
			Else
				HitCount = HitCount + 1
				dégat = AvrgNonCrit(T)
				totalhit += dégat
				sim.combatlog.write(T  & vbtab &  "SS Physical hit for " & dégat )
				sim.ScourgeStrikeMagical.ApplyDamage(dégat,T,false)
			End If
			
			total = total + dégat
		
		
		If sim.character.glyph.ScourgeStrike Then
			If sim.Targets.MainTarget.BloodPlague.ScourgeStrikeGlyphCounter < 3 Then
				sim.Targets.MainTarget.BloodPlague.FadeAt = sim.Targets.MainTarget.BloodPlague.FadeAt + 3 * 100
				sim.Targets.MainTarget.BloodPlague.ScourgeStrikeGlyphCounter = sim.Targets.MainTarget.BloodPlague.ScourgeStrikeGlyphCounter + 1
			End If
			If sim.Targets.MainTarget.FrostFever.ScourgeStrikeGlyphCounter < 3 Then
				sim.Targets.MainTarget.FrostFever.FadeAt = sim.Targets.MainTarget.FrostFever.FadeAt + 3 * 100
				sim.Targets.MainTarget.FrostFever.ScourgeStrikeGlyphCounter = sim.Targets.MainTarget.FrostFever.ScourgeStrikeGlyphCounter + 1
			End If
		End If
		sim.runes.UseFU(T,False)
		
		sim.TryOnFU
		sim.TryOnMHHitProc
		return true
	End Function
	
	Overrides Function AvrgNonCrit(T As Long,target As Targets.Target) As Double
		tmpPhysical = sim.MainStat.NormalisedMHDamage
		tmpPhysical = tmpPhysical * 0.70
		tmpPhysical = tmpPhysical + 560
		If sim.sigils.Awareness Then tmpPhysical = tmpPhysical + 189
		If sim.sigils.ArthriticBinding Then tmpPhysical = tmpPhysical + 91.35
		tmpPhysical = tmpPhysical * sim.MainStat.StandardPhysicalDamageMultiplier(T)
		tmpPhysical = tmpPhysical * (1 + 6.6666666 * sim.Character.talentunholy.Outbreak / 100)
		If sim.MainStat.T102PDPS<>0 Then tmpPhysical = tmpPhysical * 1.1
		Return tmpPhysical
	End Function
	
	public Overrides Function CritCoef() As Double
		CritCoef = 1 + sim.Character.talentunholy.ViciousStrikes * 15 / 100
		CritCoef = CritCoef * (1+0.06*sim.mainstat.CSD)
	End Function
	
	
	
	public Overrides Function CritChance() As Double
		dim tmp as Double
		tmp = sim.MainStat.crit + sim.Character.talentunholy.ViciousStrikes * 3 / 100 + sim.MainStat.T72PDPS * 5 / 100 + sim.Character.talentblood.Subversion * 3 / 100
		return  tmp
	End Function
	
	public Overrides Function AvrgCrit(T As long,target As Targets.Target) As Double
		AvrgCrit = AvrgNonCrit(T) * (1 + CritCoef)
	End Function
	

	
	Public Overrides sub Merge()
		Total += sim.ScourgeStrikeMagical.Total
		TotalHit += sim.ScourgeStrikeMagical.TotalHit
		TotalCrit += sim.ScourgeStrikeMagical.TotalCrit

		MissCount = (MissCount + sim.ScourgeStrikeMagical.MissCount)/2
		HitCount = (HitCount + sim.ScourgeStrikeMagical.HitCount)/2
		CritCount = (CritCount + sim.ScourgeStrikeMagical.CritCount)/2
		
		sim.ScourgeStrikeMagical.Total = 0
		sim.ScourgeStrikeMagical.TotalHit = 0
		sim.ScourgeStrikeMagical.TotalCrit = 0
	End sub
	
	
	
	
End Class