Provade en snabbis att konvertera filerna som svenska spel lagrar, verkar funka utmärkt att konvertera formatet så att PT godtar det. MEN koden är långt ifrån klar då det krävs många if-satser för att koden ska förstå hur spelare agerar (dvs, höj, fold, raise).
Har inte tid just nu så den som vill kan ju fortsätta. Slutprodukten blir iallafall ett script som körs i bakgrunden under tiden som du spelar där samtliga .js filer importeras in i PT.
(ALL INFO SOM BEHÖVS FINNS I hand_history.db)
Byebye.
conv <- function(){
library(RSQLite)
library(RJSONIO)
setwd('/Users/xxx/Library/Application Support/Boss Media/Svenska Spel/Svenska Spel.app/Contents/MacOS/npp/history/x')
sqlite.driver <- dbDriver("SQLite")
connection <- dbConnect(sqlite.driver,
dbname = 'hand_history.db')
data.parcel <- dbReadTable(connection,
'hands_data',
row.names = NULL)
e <- data.parcel$xml_data[[8]][1]
e
x <- fromJSON(e)
x
setwd('/Users/xxx/Desktop/Hands')
bet <- x$history[[1]]$pot
sink("outfile.txt")
cat(sprintf("GTech G2 Game #2470250295: %s - kr5.00/kr10.00 - No Limit Hold'em - 20:46:33 - 2017/02/26
Seat 1: %s (kr%s)
Seat 2: %s (kr%s)
Seat 3: %s (kr%s)
Seat 4: %s (kr%s)
Seat 5: %s (kr%s)
%s posts the small blind of kr%s
%s posts the big blind of kr%s
%s is the button
*** HOLE CARDS ***
Dealt to YummiGummi [7h 7c]
fishmannen raises kr22.50
YummiGummi calls kr22.50
diverbengt folds
eckepoker folds
lissas calls kr12.50
*** FLOP *** [5h 5s Ks]
lissas checks
fishmannen checks
YummiGummi checks
*** TURN *** [5h 5s Ks] [Jh]
lissas bets kr30.00
fishmannen calls kr30.00
YummiGummi folds
*** RIVER *** [5h 5s Ks Jh] [Ac]
lissas bets kr30.00
fishmannen raises kr126.25
lissas folds
*** SUMMARY ***
Total pot kr187.69 | Rake kr4.81
Board: [5h 5s Ks Jh Ac]
fishmannen won (kr187.69), mucks
",x$history[[1]]$table[1],
x$history[[1]]$player[[1]][[1]],x$history[[1]]$player[[1]][[7]],
x$history[[1]]$player[[2]][[1]],x$history[[1]]$player[[2]][[7]],
x$history[[1]]$player[[3]][[1]],x$history[[1]]$player[[3]][[7]],
x$history[[1]]$player[[4]][[1]],x$history[[1]]$player[[4]][[7]],
x$history[[1]]$player[[5]][[1]],x$history[[1]]$player[[5]][[7]],
#smallblind
x$history[[1]]$action[[1]][[4]],x$history[[1]]$action[[1]][[5]],
#bigblind
x$history[[1]]$action[[2]][[4]],x$history[[1]]$action[[2]][[5]],
#button
x$history[[1]]$action[[6]]$player[1]
))
sink()
}
conv()