|
link to this page:
http://pastebin.antiyes.com/index360.html
download this file: click here
|
description/question:
|
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
119
120
121
122
123
124
125
126
127
128
| |
Shared Function TranslateStrikeZone(ByVal szType As Integer, ByVal X As Integer, ByVal Y As Integer) As String
Dim dfc As Single
Dim s As String
s = ""
If szType = 5 Then
If X <= 27 Then
If Y <= 49 Then
' ball upper left
s = "B 2"
Else
' ball lower left
s = "B 3"
End If
ElseIf X >= 73 Then
If Y <= 49 Then
' ball upper right
s = "B 4"
Else
' ball lower right
s = "B 5"
End If
Else
If Y <= 12 Then
' ball high
s = "B 1"
ElseIf Y >= 88 Then
' ball low
s = "B 6"
Else
' calculate distance from center
dfc = CSng((Math.Abs(X - 49) ^ 2 + Math.Abs(Y - 49) ^ 2) ^ 0.5)
If dfc <= 10 Then
' strike middle
s = "S 3"
ElseIf X <= 49 Then
If Y <= 49 Then
'strike upper left
s = "S 1"
Else
'strike lower left
s = "S 4"
End If
Else
If Y <= 49 Then
'strike upper right
s = "S 2"
Else
'strike lower right
s = "S 5"
End If
End If
End If
End If
ElseIf szType = 9 Then
If X <= 27 Then
If Y <= 49 Then
' ball upper left
s = "B 2"
Else
' ball lower left
s = "B 3"
End If
ElseIf X >= 73 Then
If Y <= 49 Then
' ball upper right
s = "B 4"
Else
' ball lower right
s = "B 5"
End If
Else
If Y <= 12 Then
' ball high
s = "B 1"
ElseIf Y >= 88 Then
' ball low
s = "B 6"
Else
If Y <= 37 Then
If X <= 42 Then
' strike upper left
s = "S 1"
ElseIf X <= 58 Then
' strike upper middle
s = "S 2"
Else
' strike upper right
s = "S 3"
End If
ElseIf Y <= 63 Then
If X <= 42 Then
' strike middle left
s = "S 4"
ElseIf X <= 58 Then
' strike right down Broadway
s = "S 5"
Else
' strike middle right
s = "S 6"
End If
Else
If X <= 42 Then
' strike lower left
s = "S 7"
ElseIf X <= 58 Then
' strike lower middle
s = "S 8"
Else
' strike lower right
s = "S 9"
End If
End If
End If
End If
End If
Return s
End Function
|
|
|
|
|
