An BetPot-User, mit Problemen bei anonymen HU-Tables

    • TheJerk
      TheJerk
      Black
      Dabei seit: 14.10.2008 Beiträge: 1.415
      Ich war mal so frei das BetPot-Skript anzupassen für die neuen anonymen HU-Tables.
      Sollte euer Skript laufen (das ist der Fall, wenn ihr im Skript "fphg_uselive := 0" verwendet) dann müsst ihr nichts ändern, andernfalls ("fphg_uselive := 1") einfach folgenden Code einfügen:

      code:
      PotSizeParty(id, ByRef pot, ByRef call, ByRef sb, ByRef bb, ByRef hero_bet, ByRef street, ByRef hero_position, ByRef open)
      {
      global deduct_rake   
      global fphg_party_hh_folder   
      global debug   
      global fphg_uselive   
      WinGetTitle, title, ahk_id%id%      
      
      nl_actions = calls [,raises [,bets [,all-In  [,posts ante [,posts small blind [,posts big blind [, posts big blind + dead [      
      
      notraked := 0   
      maxrake := 3   
      tourney := 0      
      
      if (fphg_uselive) 
      {     
        ControlGetText, handnum, #, ahk_id%id%     
        StringTrimLeft, handnum, handnum, InStr(handnum, "#")     
        StringReplace, handnum, handnum, `,,, All     
        StringReplace, handnum, handnum, .,, All     
        StringReplace, handnum, handnum, %A_SPACE%,, All     
        hhf := fphg_party_hh_folder . "live\" . handnum . ".live"
      }
      else
      {
        IfInString, title, Anonymous
        {
          StringTrimRight, part1, title, ( StrLen(title) - (InStr(title, " - ")-1) )       
          StringTrimLeft, part2, title, (  (InStr(title, " - ")+1) )       
          StringTrimRight, part2, part2, ( StrLen(part2) - (InStr(part2, " - ")-1) )       
          tablename := part1 . " -" . part2 
        }
        else
        {
          StringTrimRight, tablename, title, ( StrLen(title) - (InStr(title, " - ")-1) )     
        }
        
        ;Get hero's screen name from the window title     
        StringMid, hero, title, InStr(title, "Luck ") + 5     
        StringMid, hero, hero, InStr(hero, "!")-2,, L     
        StringReplace, hero, hero, %A_SPACE%,, All     
        hhf := fphg_party_hh_folder . tablename . ".hhf"
      }
      
      FileRead, hh, %hhf%   
      if not ErrorLevel
      {
      ............ hier geht der alte Code weiter 
  • 1 Antwort