[HM] srcipt Vpp.ahk

la idea nace de aqui http://www.poker-red.com/foros/software/44531-hem-logitech-g13-g15.html

[ATTACH]2979[/ATTACH]

lo hice ayer y aun no lo pruebo en "vivo", ni por mucho tiempo, ni se como se comporta con otros *.ahk, si alguien se anima puede crear una DB nueva y jugar en niveles bajos y probar como va, si no, el lunes les cuento...

database_name := "  nombre de la base de datos  "  

host_address := "127.0.0.1" 

#NoEnv

#SingleInstance, Force

SendMode Input

FormatTime, fecha, ,yyyy-MM-dd

Gui, 2:Font, bold , Courier

Gui, 2:Add, Text, w170 vVPPG , VPP: 0

Gui, 2:Show, w170, baran84 2.0

SetTimer, VPPs, 10000

return

VPPs:

  sql := "select sum(round(cast(((cast(rakeamount as numeric)*5.5)/100)/numberofplayers as numeric),2)) as vpp from pokerhands_hero where   handtimestamp > '" . fecha . "'; "

  vpp := psql(sql)

   

  info := "VPP: " . vpp 

  GuiControl, 2:,VPPG, %info%

  Gui, 2:Show, NA,VPP: %VPP%

;======meta vpp======

if (vpp > 33 or vpp > 56)

{

   if (vpp < 36 or vpp < 59)

    {

       FPP :=  round(vpp*1.5,2)

       TrayTip, Hoy, Total de VPP: %vpp% `n`nTotal de FPP: %FPP% ,, 1

    }

}

;======fin============

return

psql(sql="", database="", debug=0, host="", username="")

{

  global database_name, host_address

  database := database_name

  host := host_address

  username := "postgres"

  

  stamp = %A_Now%

  Random, r, 1000, 9999

  

  file1 := stamp . "_" . A_ScriptName . "_" . r . "_in.txt"

  file2 := stamp . "_" . A_ScriptName . "_" . r . "_out.txt"

  file3 := stamp . "_" . A_ScriptName . "_" . r . "_error.txt"

  

  command := "psql.exe -A -t -h " . host . " -p 5432 -U " . username . " -d """ . database . """ -f " . file1 . " -o " . file2 . " 2> " . file3  ; . " 2>&1" 

  

  FileDelete, %file1% 

  FileDelete, %file2% 

  FileDelete, %file3%

  

  FileAppend,  \f '\t'`n, %file1%

  FileAppend, %sql%`n, %file1%

  FileAppend,  \q`n, %file1%

  

  RunWait, %comspec% /c %command%, , Hide

  

  FileGetSize, errorsize, %file3%

  

  If (errorsize > 0) 

  {

    FileRead, errortext, %File3%

    FileRead, errorcause, %File1%

  

    FileDelete, %file1% 

    FileDelete, %file2% 

    FileDelete, %file3%

    

    if (debug)

    {

      Msgbox, %errorcause%`n`n`n%errortext%

      ExitApp

    }

    else

    {

      FileAppend, %A_Now% - An Error Occured:`n`nInput:`n%errorcause%`n`nOutput:`n%errortext%`n`n`n`n, %A_Scriptname%_Error_Log.txt

    }

  }

  

  FileRead, sqlout, %File2%

  

  FileDelete, %file1% 

  FileDelete, %file2% 

  FileDelete, %file3%

  

  StringTrimRight, sqlout, sqlout, 2

  return %sqlout%   

}

el *.ahk lo guardas en ...\PostgreSQL\8.x\bin, buscas

# IPv4 local connections:
host    all         all         127.0.0.1/32          md5

en ...\PostgreSQL\8.x\data\pg_hba.conf y cambias el md5 por trust

el "cartelito" solo sale cuando se cumple la meta de vpp que le asigne, si no tienes una meta puedes borrar los IF y los {},y, colocas un F1:: o cualquier otra letra

F1::
       FPP :=  round(vpp*1.5,2)
       TrayTip, Hoy, Total de VPP: %vpp% `n`nTotal de FPP: %FPP% ,, 1

si quieres que se actualice mas rapido

disminuye el 10000 de SetTimer, VPPs, 10000 (60k es 1 minuto)

si no quieres crear otra base de datos ni jugar, puedes hacer lo que hice yo pa' ve' si funciona, agrega abajo de Vpps:, esto, FormatTime, fecha, ,yyyy-MM-dd

VPPs:
FormatTime, fecha, ,yyyy-MM-dd
  sql := "selec......

luego vas modificando la fecha de windows y dandole a aplicar..

si no quieres ver los Vpp, aqui estan las formulas que usa el HM Formulas for every HM Stat! (Updated Nov 12, 2009) - Holdem Manager Forums

quitas la "mia" y colocas la nueva.

uso windows xp y demas esta decir que no me hago responsable por lo que le pase a tu pc xD