GTN-Helper -- Nie wieder scouten!

Meine Erfahrungen mit dem Global-Transfer-Network waren keine guten. Nach Spielern zu suchen hat mich in jeder Transferphase mehrere Stunden gekostet, das Scoutingsystem noch viel mehr (allein diese dämliche Menüführung) und dabei habe noch nicht einmal die besten Spieler für mein Team bekommen. Daher habe ich nach einer Möglichkeit gesucht, die Spielerinformationen aus dem Speichstand auszulesen und für meine Transfers zu benutzen. Der Vorteil ist, dass die Daten auf dem aktuellen Stand sind (Potential verändert sich bei Transfers), dass auch von FIFA 14 generierte Spieler (die, die jedes Jahr neu dazu kommen) enthalten sind, dass nach Potential und Vertragslaufzeit gesucht werden kann.

Das Ergebnis funktioniert, es ist allerdings keine schöne Lösung (Namen fehlen, manche Spieler sind doppelt enthalten) und sie erfordert recht viel Aufwand. Nach der Einrichtung des Systems erhält man jedoch auf Knopfdruck eine Tabelle mit allen Spieler, die den gesuchten Kriterien entsprechen. Über das Team, das Spieleralter und die Position kann dann im Spiel gezielt gesucht werden. Das Skript wurde mit dem European Expansion Patch 1.05 und 1.5 getested. Andere FIFA 14 Versionen, Patches und Mods, natürlich auch die Originalversion, sollten aber ebenfalls funktionieren. Eine Garantie kann aber natürlich nicht übernommen werden.

Voraussetzungen:

1. Umwandlung der dataX.big in eine Ordnerstruktur: Wird durch die meisten Mods erledigt. Weitere Informationen finden sich, wenn nach Creation Master 14 oder File Master 14 gesucht wird.
2. fifa_ng_db-meta.xml aus FIFA 12 (Es gibt leidern keinen aktuellen Internal Master, daher muss der Umweg über FIFA 12 gegangen werden)

Benötigte Software:

1. Internal Master 12
2. R (Open-Source Statistiksoftware)
3. R-Studio (GUI für R)
4. GTN-Helper Skript (Befindet sich im Spoiler. Text einfach kopieren, dann in Editor (z.b. Notepad) einfügen und speichern.)

################################## Auswählen der Suchparameter #############################################
# Das Skript kann für nicht-kommerzielle Zwecke weitergegeben und verändert werden.

# Dateipfad (Anführungszeichen bitte beibehalten):
pfad1 <- "C:/Users/x/Desktop/"

# Name der fertigen Tabelle:
Tabelle.komplett <- "meine_fifa_spieler.csv"

# Gesamtbewertung:
gesamtbewertung.min <- 83
gesamtbewertung.max <- 99

# Potential:
potential.min <- 75

# Vertragsende:
vertragsende.min <- 2019
vertragsende.max <- 2022

################################################## ################################################## ###
setwd(pfad1)

links <- read.table("teamplayerlinks.txt", fileEncoding="UCS-2LE", header=TRUE)
player <- read.table("players.txt", fileEncoding="UCS-2LE", header=TRUE)

linkcol <- c("teamid", "playerid")
linkcol

links
links <- links[, linkcol]
colnames(links) <- c("teamid", "playerid_team")
head(links)


player <- player[player$birthdate<999999999 & player$overallrating > gesamtbewertung.min & player$overallrating < gesamtbewertung.max & player$potential > potential.min & player$contractvaliduntil > vertragsende.min & player$contractvaliduntil < vertragsende.max,]
index <- c(1:nrow(player))
player$index <- index
playercol <- c("index", "lastnameid", "playerid", "birthdate", "height", "weight", "overallrating", "potential", "skillmoves", "contractvaliduntil", "preferredposition1", "preferredposition2", "preferredposition3", "preferredposition4", "preferredfoot", "acceleration", "sprintspeed", "agility", "strength","stamina", "jumping", "balance", "reactions", "aggression", "positioning", "vision", "dribbling", "ballcontrol","shortpassing", "longpassing", "crossing", "shotpower", "longshots", "finishing", "headingaccuracy", "freekickaccuracy", "penalties", "volleys", "standingtackle", "marking", "slidingtackle", "gkdiving", "gkpositioning", "gkreflexes", "gkkicking", "gkhandling")
player <- player[, playercol]
player

head(player)



teamids <- read.table("teams_edit.txt", fileEncoding="UCS-2LE", header=FALSE)
teamids

teamnames <- scan("teamnames.txt", sep="\t", what=list("character"))
as.vector(teamnames)
teamnames

head(teamnames)

team.data <- cbind(teamids, teamnames)
colnames(team.data) <- c("teamid", "budget", "teamname")



head(links)
head(player)
head(team.data)

aim <- player$playerid
length(aim)

f1 <- function(x){
count <- 1
tac <- cbind(player[1, ], links[1, ])
as.data.frame(tac)
# tac$"teamid" <- "xxx"

for (i in 1:length(x)){
target.player <- player[count, ]
target.teams <- links[links$playerid_team==x[count], ]
rows.teams <- nrow(target.teams)

if (rows.teams > 1){
multi.target.player <- target.player

for (i in 2:rows.teams){
multi.target.player <- rbind(multi.target.player, target.player)
}
tab <- cbind(links[links$playerid_team==x[count], ], multi.target.player)
tac <- rbind(tac, tab)
count <- count+1
tabelle <<- tac
}

else if (rows.teams < 1){
count <- count+1

}

else{
tab <- cbind(target.teams, target.player)
tac <- rbind(tac, tab)
count <- count+1
tabelle <<- tac
}
}
tabelle <<- tabelle[-1,]
tabelle <<- tabelle[, c("index", "teamid", "playerid_team", "lastnameid", "playerid", "birthdate", "height", "weight", "overallrating", "potential", "skillmoves", "contractvaliduntil", "preferredposition1", "preferredposition2", "preferredposition3", "preferredposition4", "preferredfoot", "acceleration", "sprintspeed", "agility", "strength","stamina", "jumping", "balance", "reactions", "aggression", "positioning", "vision", "dribbling", "ballcontrol","shortpassing", "longpassing", "crossing", "shotpower", "longshots", "finishing", "headingaccuracy", "freekickaccuracy", "penalties", "volleys", "standingtackle", "marking", "slidingtackle", "gkdiving", "gkpositioning", "gkreflexes", "gkkicking", "gkhandling")]
print(tabelle)
}

f1(aim)

aim2 <- tabelle$teamid
aim2

f2 <- function(x){
count2 <- 1
tac <- cbind(tabelle[1, ], team.data[1, ])
as.data.frame(tac)
tac$"teamid" <- "xxx"
failed.ids <<- c()
for (i in 1:length(x)){
teamid <- x[count2]
team.ids.data <- team.data[team.data$teamid==teamid,]
if (nrow(team.ids.data) < 1){
count2 <- count2+1
failed.ids <<- c(failed.ids, tabelle[count2, "playerid"])
print(tabelle[count2, "playerid"])
}

else{
spalte.neu <- cbind(tabelle[count2,], team.data[team.data$teamid==teamid,])
tac <- rbind(tac, spalte.neu)
count2 <- count2+1

tabelle1 <<- tac
}
}

tabelle1 <<- tabelle1[-1,]
tabelle1 <<- tabelle1[, c("index", "teamname", "budget", "teamid", "playerid_team", "lastnameid", "playerid", "birthdate", "height", "weight", "overallrating", "potential", "skillmoves", "contractvaliduntil", "preferredposition1", "preferredposition2", "preferredposition3", "preferredposition4", "preferredfoot", "acceleration", "sprintspeed", "agility", "strength","stamina", "jumping", "balance", "reactions", "aggression", "positioning", "vision", "dribbling", "ballcontrol","shortpassing", "longpassing", "crossing", "shotpower", "longshots", "finishing", "headingaccuracy", "freekickaccuracy", "penalties", "volleys", "standingtackle", "marking", "slidingtackle", "gkdiving", "gkpositioning", "gkreflexes", "gkkicking", "gkhandling")]

print(tabelle1)

}

f2(aim2)

tabelle.fertig <- tabelle1[tabelle1$budget > 2 | tabelle1$teamid == 111592 | tabelle1$teamid == 130011,]
tabelle.fertig

tabelle.fertig2 <- tabelle.fertig[, c("index", "teamname", "lastnameid", "birthdate", "height", "weight", "overallrating", "potential", "skillmoves", "contractvaliduntil", "preferredposition1", "preferredposition2", "preferredfoot", "acceleration", "sprintspeed", "agility", "strength","stamina", "jumping", "balance", "reactions", "aggression", "positioning", "vision", "dribbling", "ballcontrol","shortpassing", "longpassing", "crossing", "shotpower", "longshots", "finishing", "headingaccuracy", "freekickaccuracy", "penalties", "volleys", "standingtackle", "marking", "slidingtackle", "gkdiving", "gkpositioning", "gkreflexes", "gkkicking", "gkhandling")]
tabelle.fertig2

colnames(tabelle.fertig2) <- c("Index", "Team", "Lastname", "Year", "Height", "Weight", "Rating", "Potential", "Skill", "Contractend", "Pos1", "Pos2", "Foot", "Acc", "Speed", "Agility", "Strength","Stamina", "Jumping", "Balance", "Reactions", "Aggression", "Positioning", "Vision", "Dribbling", "Ballcontrol","Shortpassing", "Longpassing", "Crossing", "Shotpower", "Longshots", "Finishing", "Headingaccuracy", "Freekickaccuracy", "Penalties", "Volleys", "Standingtackle", "Marking", "Slidingtackle", "Gkdiving", "Gkpositioning", "Gkreflexes", "Gkkicking", "Gkhandling")
tabelle.fertig2

year <- tabelle.fertig2$Year

f3 <- function(x){
count3 <- 1
Year.of.Birth <- c()
for (i in 1:length(x)){
new.year <- floor(x[count3]/365+1582)
Year.of.Birth <- c(Year.of.Birth, new.year)
count3 <- count3+1
target.year <<- Year.of.Birth
}
print(target.year)
}

f3(year)

tabelle.fertig2$NewYear <- target.year

all.pos1 <- tabelle.fertig2$Pos1

all.pos2 <- tabelle.fertig2$Pos2

f4 <- function(x){
count4 <- 1
pos1 <- c()

for (i in 1:length(x)){
pos.item <- x[count4]

if (identical(pos.item, "0")){
pos1 <<- c(pos1, "TW")
count4 <- count4+1
}

else if (pos.item == 1){
pos1 <- c(pos1, "LIB")
count4 <- count4+1
}
else if (pos.item == 2){
pos1 <- c(pos1, "RAV")
count4 <- count4+1
}
else if (pos.item == 3){
pos1 <- c(pos1, "RV")
count4 <- count4+1
}
else if (pos.item == 4){
pos1 <- c(pos1, "RIV")
count4 <- count4+1
}
else if (pos.item == 5){
pos1 <- c(pos1, "IV")
count4 <- count4+1
}
else if (pos.item == 6){
pos1 <- c(pos1, "LIV")
count4 <- count4+1
}
else if (pos.item == 7){
pos1 <- c(pos1, "LV")
count4 <- count4+1
}
else if (pos.item == 8){
pos1 <- c(pos1, "LAV")
count4 <- count4+1
}
else if (pos.item == 9){
pos1 <- c(pos1, "RDM")
count4 <- count4+1
}
else if (pos.item == 10){
pos1 <- c(pos1, "ZDM")
count4 <- count4+1
}
else if (pos.item == 11){
pos1 <- c(pos1, "LDM")
count4 <- count4+1
}
else if (pos.item == 12){
pos1 <- c(pos1, "RM")
count4 <- count4+1
}
else if (pos.item == 13){
pos1 <- c(pos1, "RZM")
count4 <- count4+1
}
else if (pos.item == 14){
pos1 <- c(pos1, "ZM")
count4 <- count4+1
}
else if (pos.item == 15){
pos1 <- c(pos1, "LZM")
count4 <- count4+1
}
else if (pos.item == 16){
pos1 <- c(pos1, "LM")
count4 <- count4+1
}
else if (pos.item == 17){
pos1 <- c(pos1, "ROM")
count4 <- count4+1
}
else if (pos.item == 18){
pos1 <- c(pos1, "ZOM")
count4 <- count4+1
}
else if (pos.item == 19){
pos1 <- c(pos1, "LOM")
count4 <- count4+1
}
else if (pos.item == 20){
pos1 <- c(pos1, "RMS")
count4 <- count4+1
}
else if (pos.item == 21){
pos1 <- c(pos1, "MS")
count4 <- count4+1
}
else if (pos.item == 22){
pos1 <- c(pos1, "LMS")
count4 <- count4+1
}
else if (pos.item == 23){
pos1 <- c(pos1, "RF")
count4 <- count4+1
}
else if (pos.item == 24){
pos1 <- c(pos1, "RS")
count4 <- count4+1
}
else if (pos.item == 25){
pos1 <- c(pos1, "ST")
count4 <- count4+1
}
else if (pos.item == 26){
pos1 <- c(pos1, "LS")
count4 <- count4+1
}
else if (pos.item == 27){
pos1 <- c(pos1, "LF")
count4 <- count4+1
}
else if (pos.item == 28){
pos1 <- c(pos1, "Bank")
count4 <- count4+1
}

else if (pos.item == 29){
pos1 <- c(pos1, "Tribuene")
count4 <- count4+1
}

else if (pos.item == -1){
pos1 <- c(pos1, "xxx")
count4 <- count4+1
}

else{
pos1 <- c(pos1, "TW")
count4 <- count4+1
}
}

Pos.final <<-pos1
print(Pos.final)
}

f4(all.pos1)

tabelle.fertig2$Posi1 <- Pos.final

f4(all.pos2)

tabelle.fertig2$Posi2 <- Pos.final

tabelle.fertig2 <- tabelle.fertig2[, c("Index", "Posi1", "Posi2", "Team", "Lastname", "NewYear", "Height", "Weight", "Rating", "Potential", "Skill", "Contractend", "Foot", "Acc", "Speed", "Agility", "Strength","Stamina", "Jumping", "Balance", "Reactions", "Aggression", "Positioning", "Vision", "Dribbling", "Ballcontrol","Shortpassing", "Longpassing", "Crossing", "Shotpower", "Longshots", "Finishing", "Headingaccuracy", "Freekickaccuracy", "Penalties", "Volleys", "Standingtackle", "Marking", "Slidingtackle", "Gkdiving", "Gkpositioning", "Gkreflexes", "Gkkicking", "Gkhandling")]

colnames(tabelle.fertig2) <- c("Index", "Pos1", "Pos2", "Team", "Lastname", "Year", "Height", "Weight", "Rating", "Potential", "Skill", "Contractend", "Foot", "Acc", "Speed", "Agility", "Strength","Stamina", "Jumping", "Balance", "Reactions", "Aggression", "Positioning", "Vision", "Dribbling", "Ballcontrol","Shortpassing", "Longpassing", "Crossing", "Shotpower", "Longshots", "Finishing", "Headingaccuracy", "Freekickaccuracy", "Penalties", "Volleys", "Standingtackle", "Marking", "Slidingtackle", "Gkdiving", "Gkpositioning", "Gkreflexes", "Gkkicking", "Gkhandling")

write.table(tabelle.fertig2, Tabelle.komplett, sep="\t", fileEncoding="UTF-8", row.names = FALSE)

Vorgehen:

1. Erstellen der benötigten Dateien aus dem Speicherstand:
   
   1. Startet den Internal Master 12.
   2. Wählt in der Menüleiste: File -> Open -> fifa_ng_db-meta.xml.
   3. Der Internal Master zwingt Euch nun eine zweite Datei zu öffnen. Hierfür wählt Ihr Euren Speicherstand.
   
   
2. Exportieren der benötigten Dateien:
   
   1. Im Internal Master 12 gibt es links eine Spalte mit vier Reitern (DB1-DB4). Wählt DB2.
   2. Wählt den ersten Eintrag "teamplayerlinks".
   3. Wählt aus der Menüleiste: Table -> Export Single.
   4. Speichert die Datei.
   5. Wiederholt Schritt 3-4 mit den Dateien "player" und "teams".
   
   
3. Aufbereiten der Datei "teams". Leider lässt sich diese Datei mit R nicht so ohne weiteres Einlesen, daher ist ein kleiner Umweg erforderlich. Diese Operation muss jedoch nur einmal durchgeführt werden, solange keine neuen Teams hinzukommen (z. B. durch Mod / Update).
   
   1. Öffnen der Datei mit einem Tabellenkalkulationprogramm (OpenOffice, Excel).
   2. Löschen aller Spalten, außer "teamname". Löschen der ersten Zeile (Spaltennamen), dann alle Einträge kopieren und in Editor (z.B. Notepad) einfügen. Alle " ' " (einfachen Anführungszeichen wie in "K'lautern" löschen) und Datei unter dem Namen: teamnames.txt speichern. Falls es unlesbare Zeichen gibt, auch diese Zeilen löschen.
   3. Öffnen der unveränderten Datei "teams" (zum 2. mal).
   4. Löschen aller Spalten, außer "teamid" und "transferbudget". Speichern der Datei unter: teams_edit.txt.
   
   
4. Benutzung des Skriptes
   
   1. R-Studio starten.
   2. In R-Studio: File -> Open File -> GTN-Helper.R (Ort wählen, wo Ihr die Datei gespeichert habt).
   3. Einstellen erster Suchparameter:
      
      1. Im obersten Teil des Skriptes (zwischen den Linien aus ####) könnt Ihr Suchparameter einstellen (Gesamtstärke, Potential, Vertragslaufzeit). Trefft Eure Auswahl, seid aber nicht zu großzügig, was die Suchbereiche angeht. Je mehr Spieler hier gefunden werden, desto länger dauert die Ausführung des Skriptes. Im Bereich von 1000 - 2000 Spielern dauert es ca. 2 min. Wenn gesamtstärke.min auf > 75 gestellt wird, geht es recht schnell. Falls Spieler mit niedrigeren Werten gesucht werde, muss evtl. die ober Grenze angepasst werden. Grundsätzlich funktioniert das Skript auch, wenn die Suchparamter auf alle Spieler zutreffen, lediglich die Ausführung dauert dann etwas. Ein Datensatz mit ca. 20.000 Spielern dauert bei mir ca. 15 min.
   4. Markieren des gesamten Skriptes (Strg + A).
   5. Gleichzeitiges Drücken von Strg + Enter.
   
   
5. Fertig. Eine Datei mit dem von Euch spezifizierten Namen (oder meine_fifa_spieler.csv, falls Ihr nichts geändert habt) befindet sich nun in dem Ordner, den Ihr als Pfad angegeben habt. Diese kann nun problemlos mit einem Tabellenkalkulationsprogramm (OpenOffice, Excel) betrachtet werden. Falls es beim öffnen Probleme gibt, überprüfe, ob das Trennungszeichen auf "Tabulator" und der Schriftsatz auf UTF-8 eingestellt ist.

Bekannte Fehler:

1. Teamnamen sind nicht immer korrekt geschrieben, da Sonderzeichen von R nicht richtig erfasst werden.
2. GTN-Helper funktioniert nur, wenn sich der Speicherstand mit dem Interal Master 12 öffnen lässt. Dies geht beim EEP z.B. nicht, wenn man ein Team spielt, das im originalen Fifa nicht enthalten war (z.B. ein Team aus der dritten Liga). In dem Fall hilft es im Spiel einen neuen Job bei einem Verein aus dem Originalspiel anzunehmen (ggf. Spiele aufgeben, bis ihr rausgeschmissen werdent.). Sobald ihr mit einem Originalteam in einer Originalliga spielt, kann das Safegame geöffnet werden. Nach erfolgreicher Extraktion der Tabellen kann dann wieder mit dem eigentlichen Speicherstand fortgefahren werden.
3. Doppelte Spieler in der Tabelle, wenn sie in Classic Teams enthalten sind.
4. Wie bereits gesagt, Spielernamen fehlen.