GRRR Squad Forum

You sure you got all the clan members in that search?

Sorry, I only have clan-friend's-nicks in that search.
http://www.grrr.co.za/forum/index.php?topic=2074.msg37361#msg37361

You sure you got all the clan members in that search?

Neat code! Very easy to read. I haven't coded in ages but I alway prefer easy to read code over "super-optimised-takes-you-an-hour-to-figure-out" code.

I will have a look see at this api as well

Hi Paul, I found an API that is able to provide the required information.

Effectively, you generate the following string and download the required file:
http://api.bfbcs.com/api/pc?players=[grrr] Paul,&fields=all

I used excel to generate the above string for each member in the clan. Downloaded all the strings using something like FDM (download contents in clipboard). Once all the stats are downloaded (couple of seconds), I will put all the files in a single directory. I then wrote some code to import all the files in the said directory into Excel (see below)

Regarding what stats are available, there is over 1600 different stats on each person using the above API. I just focused on the UAV ones. I am still thinking on how the best way is to mine and display the specific data but unfortunately I haven't done that yet.

I am also having some domestic negotiations to see if I can negotiate with my fiance if she could write me some proper code to eliminate some of the above steps...

Finally, here is the Excel VBA code, if you would like to import the stuff yourself. Kindly note that it ain't optimised or anything yet, but at least it is working:

Type FNArray
FileName As String
DirName As String
FullPath As String
Inputdata As String
End Type

Dim TheDir As String
Dim FileNArray() As FNArray
Dim NewFileCreated As String
Dim MainWorkbook As String
Dim InFile() As String


Sub ImportData()
ReDim FileNArray(1 To 1000)
Application.GetOpenFilename
ChDir (CurDir)
i = 1
FileNArray(i).FileName = Dir("*." & FileExt)
Do While FileNArray(i).FileName <> ""
FileNArray(i).DirName = CurDir
FileNArray(i).FullPath = FileNArray(i).DirName & "\" & FileNArray(i).FileName
i = i + 1
FileNArray(i).FileName = Dir
Loop
ReDim Preserve FileNArray(1 To i - 1)

For i = 1 To UBound(FileNArray)
Open FileNArray(i).FullPath For Input As #1
Line Input #1, FileNArray(i).Inputdata ' Read line of data.
Close #1
Range("A1").Offset(i - 1, 0).Value = FileNArray(i).Inputdata
Next
End Sub

interested in stats I see! brilliant deductions... heh heh

LOL Awesome dude!! How exactly did you extraact this? You do this for a variety of thingse.g. armour, heli's etc

I've posted a question about the UAV skills of the team, did not get a lot of responses so I decided to do a quick analysis. I Found a nice way in which I could extract ALL the stats of an individual player directly off the server, imported that into Excel, and started looking at the UAV stats. Herewith a quick breakdown:

Most kills in a UAV:
1. [grrr]Flycatchr = 54
2. Icenflame = 33
3. [grrr] Paul = 30
4. [grrr]leelo = 27
5. pmurgs = 18
6. L3pr3c4un = 15
7. Phatso = 12
8. Dragonne = 10
9. Skouperd = 8
10. Jackal-GI = 6
11. grav1ty = 3
12. [grrr]NiteShade = 2
13. [grrr]s3xy_j0nny= 2
grrr-Average = 10.47

Time spend in the UAV
1. [grrr]Flycatchr = Kills=54 Seconds=5883
2. [grrr] Paul = Kills=30 Seconds=4457
3. Icenflame = Kills=33 Seconds=3596
4. L3pr3c4un = Kills=15 Seconds=3130
5. [grrr]leelo = Kills=27 Seconds=2492
6. Skouperd = Kills=8 Seconds=2381
7. pmurgs = Kills=18 Seconds=1704
8. Jackal-GI = Kills=6 Seconds=1404
9. Dragonne = Kills=10 Seconds=1265
10. Phatso = Kills=12 Seconds=1256
11. [grrr]s3xy_j0nny= Kills=2 Seconds=1055
12. grav1ty = Kills=3 Seconds=1046
13. [grrr]NiteShade = Kills=2 Seconds=780
14. [grrr]Onyx = Kills=0 Seconds=198
15. Baseline = Kills=0 Seconds=108
16. Voetsek = Kills=0 Seconds=55
grrr-Average = 1467 seconds

Average number of estimated kills for 10 minuts in the UAV:
1. [grrr]leelo = Kills=27 Seconds=2492 ~K/10min=6.5
2. pmurgs = Kills=18 Seconds=1704 ~K/10min=6.3
3. Phatso = Kills=12 Seconds=1256 ~K/10min=5.7
4. [grrr]Flycatchr = Kills=54 Seconds=5883 ~K/10min=5.5
5. Icenflame = Kills=33 Seconds=3596 ~K/10min=5.5
6. Dragonne = Kills=10 Seconds=1265 ~K/10min=4.7
7. [grrr] Paul = Kills=30 Seconds=4457 ~K/10min=4
8. L3pr3c4un = Kills=15 Seconds=3130 ~K/10min=2.9
9. Jackal-GI = Kills=6 Seconds=1404 ~K/10min=2.6
10. Skouperd = Kills=8 Seconds=2381 ~K/10min=2
11. grav1ty = Kills=3 Seconds=1046 ~K/10min=1.7
12. [grrr]NiteShade = Kills=2 Seconds=780 ~K/10min=1.5
13. [grrr]s3xy_j0nny= Kills=2 Seconds=1055 ~K/10min=1.1
grrr-Average = 2.39

Fastest UAV pilot (distance traveled / by the time spend traveling said distance)
1. [grrr]Onyx = Distance Travel=1901 Avg m/second = 9.603
2. Voetsek = Distance Travel=345 Avg m/second = 6.182
3. Icenflame = Distance Travel=18774 Avg m/second = 5.22
4. [grrr]leelo = Distance Travel=12843 Avg m/second = 5.153
5. Dragonne = Distance Travel=6168 Avg m/second = 4.873
6. Skouperd = Distance Travel=10895 Avg m/second = 4.574
7. [grrr]Flycatchr = Distance Travel=26630 Avg m/second = 4.526
8. [grrr] Paul = Distance Travel=20139 Avg m/second = 4.519
9. Phatso = Distance Travel=5496 Avg m/second = 4.375
10. [grrr]NiteShade = Distance Travel=3335 Avg m/second = 4.275
11. pmurgs = Distance Travel=6683 Avg m/second = 3.922
12. Jackal-GI = Distance Travel=5369 Avg m/second = 3.824
13. grav1ty = Distance Travel=3923 Avg m/second = 3.75
14. L3pr3c4un = Distance Travel=11255 Avg m/second = 3.596
15. [grrr]s3xy_j0nny= Distance Travel=2652 Avg m/second = 2.513
16. Baseline = Distance Travel=249 Avg m/second = 2.303
grrr-Average = Distance Travel=6507 Avg m/second = 3.486


In summary, Fly killed the most people, though Leelo is more effective in it, while Onyx is the most dangerous when handling a UAV. Bottom line, I think we will all be able to kill more enemy on foot than from the UAV.

(Ok, so I was bored...)