Full Tilt Poker Game #7763347847: $6 + $0.50 Sit & Go (Turbo) (59041467), Table 1 - 15/30 - No Limit Hold'em - 3:49:39 ET - 2008/08/23
Seat 1: suntaek (1,500)
Seat 2: j1mm4y (1,500)
Seat 3: lumpsum (1,500)
Seat 4: Olivers_90 (1,500)
Seat 5: Krstf86 (1,500)
Seat 6: OzTex (1,500)
suntaek posts the small blind of 15
j1mm4y posts the big blind of 30
The button is in seat #6
*** HOLE CARDS ***

Full Tilt Poker Game #7999560079: $7+$0.50 Sit&Go (Super Turbo) (60835759), Table 1 - 15/30 - No Limit Hold'em - 7:37:36 ET - 2008/09/09
Seat 1: pronto911 (300)
Seat 2: Litchia (300)
Seat 3: rice1975 (300)
Seat 4: ThouCantBluffMe (300)
Seat 5: 1Endymion1 (300)
Seat 6: 7Scred7 (300)
Seat 7: Jason Sun (300)
Seat 8: Thricewise (300)
Seat 9: SoYuKKUSENMAN (300)
pronto911 posts the small blind of 15
Litchia posts the big blind of 30
The button is in seat #9
*** HOLE CARDS ***
Dealt to ThouCantBluffMe [Jd 2s]
rice1975 folds
ThouCantBluffMe folds
1Endymion1 folds
7Scred7 calls 30
Jason Sun folds
Thricewise folds
SoYuKKUSENMAN folds
pronto911 raises to 300, and is all in
Litchia folds
7Scred7 calls 270, and is all in
pronto911 shows [Kc Ah]
7Scred7 shows [Kh Tc]
*** FLOP *** [6c 2h 5d]
*** TURN *** [6c 2h 5d] [As]
*** RIVER *** [6c 2h 5d As] [Td]
pronto911 shows a pair of Aces
7Scred7 shows a pair of Tens
pronto911 wins the pot (630) with a pair of Aces
7Scred7 stands up
*** SUMMARY ***
Total pot 630 | Rake 0
Board: [6c 2h 5d As Td]
Seat 1: pronto911 (small blind) showed [Kc Ah] and won (630) with a pair of Aces
Seat 2: Litchia (big blind) folded before the Flop
Seat 3: rice1975 didn't bet (folded)
Seat 4: ThouCantBluffMe didn't bet (folded)
Seat 5: 1Endymion1 didn't bet (folded)
Seat 6: 7Scred7 showed [Kh Tc] and lost with a pair of Tens
Seat 7: Jason Sun didn't bet (folded)
Seat 8: Thricewise didn't bet (folded)
Seat 9: SoYuKKUSENMAN (button) didn't bet (folded)

NL Texas Hold'em $ USD Buy-in Trny:60835759 Level:1   Blinds(15/30) - Tuesday, September 09, 07:37:36 ET 2008

; starsconverter.ahk v0.11 - Written by dave_w11 from the 2+2 software forum
; =========================================================================
;
; Usage: autohotkey.exe starsconverter.ahk "output folder" ["input folder"]
; or compile the script  and use starsconverter.exe "output folder" ["input folder"]
;
; if no parameters given, or just the output folder, then select folder(s) using dialogs
;
; IMPORTANT - Make sure the input folder has only PokerStars hand history .txt files in it.
;             I have no idea what will happen if other files are in there.


#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.


overwritefiles := 0 	; if set to 1 existing converted hand history files will be replaced
			; if set to 0 existing files will be assumed to be correctly converted and skipped


if 0 > 2
{
	MsgBox,16,ERROR,Too many parameters.`nUse starsconverter.exe `"outputfolder`" [`"inputfolder`"]
	ExitApp
}
if 0 < 2
{
	FileSelectFolder,input_folder,*%A_WorkingDir%,0,Select a folder containing ONLY PokerStars hand histories

	if input_folder =
	{
		MsgBox,16,ERROR,No input file selected!
		ExitApp
	}
	IfNotExist,%input_folder%\*.txt
	{
		MsgBox,16,ERROR,No *.txt files found in input folder.
		ExitApp
	}
}
else
{
	input_folder = %2%

	IfNotExist,%input_folder%\*.txt
	{
		MsgBox,16,ERROR,No *.txt files found in input folder.`nUse starsconverter.exe `"outputfolder`" [`"inputfolder`"]
		ExitApp
	}
}


if 0 > 0
{
	usedcommandline := 1

	output_folder = %1%

	IfNotExist,%output_folder%
	{
		FileCreateDir,%output_folder%
		if errorlevel = 1
		{
			MsgBox,16,ERROR,Output folder does not exist and creating folder failed.`nUse starsconverter.exe `"outputfolder`" [`"inputfolder`"]
			ExitApp
		}
	}
}
else
{
	FileSelectFolder,output_folder,*%input_folder%,1,Select a folder to save converted hand histories
	if output_folder =
	{
		MsgBox,16,ERROR,No output file selected!
		ExitApp
	}
	IfNotExist,%output_folder%
	{
		MsgBox,16,ERROR,Output folder does not exist.
		ExitApp
	}
}



ScriptStartTime := A_Now
StartTime := A_TickCount
Tournaments := 0
Loop,%input_folder%\*.txt
	Tournaments += 1


files_kept := 0
files_overwritten := 0
old_files := 0
discarded_hands := 0



Gui,Add,Text,vProgress,Processing tournament 0000000 of %Tournaments%`nTime Elapsed: 000m00s`nTime Remaining: 000m00s
Gui,Show,,Converting Tournaments

Loop,%input_folder%\*.txt
{
	TimeRemaining := (A_TickCount - StartTime)*(Tournaments-A_Index)/(A_Index-files_kept)/1000/60
	GuiControl,,Progress,% "Processing tournament " . A_Index . " of " . Tournaments . "`nTime elapsed: " . Floor((A_TickCount-StartTime)/60000) . "m" . Round(( (A_TickCount-StartTime)/60000 - Floor((A_TickCount-StartTime)/60000) ) * 60) . "s`nTime Remaining: " . Floor(TimeRemaining) . "m" . Round(( TimeRemaining - Floor(TimeRemaining) ) * 60) . "s"
	CurrentHand =
	CurrentTournament =
	a := 1

	FileRead,hh_file,%A_LoopFileFullPath%
	Loop, parse,hh_file, `n, `r
	{
		if A_LoopField
		{
			If a = 1
			{
				a := 0
				reached_summary := 0
				playercount := 0
				ante := 0
				antestring =
				lastante := 0
				discard_hand := 0
				totalpot := 0
				showdown := 0
				allins := 0
				ignore_summary := 0
				smallest_ante := 0
				done_posting := 0
				Loop,10
				{
					player_%A_Index% =
					stack_%A_Index% =
					moneyinpot_%A_Index% := 0
				}

				stacks =
				actionline =
				collectline =
				winline =
				showline =

				StringSplit,parts,A_LoopField,%A_Space%

				StringTrimLeft,game_number,parts3,1
				StringTrimRight,game_number,game_number,1

				StringTrimLeft,tournament_number,parts5,1
				StringTrimRight,tournament_number,tournament_number,1



				StringSplit,buyin,parts6,+
				StringTrimLeft,buyin,buyin1,1
				StringTrimLeft,fee,buyin2,1

				
				StringSplit,dateparts,parts15,/
				year := dateparts1
				month := dateparts2
				day := dateparts3

				hours =
				minutes =
				seconds =
				time =

				If parts16 = -
				{
					StringSplit,timeparts,parts17,:
					hours := timeparts1
					minutes := timeparts2
					seconds := timeparts3
					time := parts17
				}
				Else
				{

					StringSplit,timeparts,parts16,:
					hours := timeparts1
					minutes := timeparts2
					seconds := timeparts3
					time := parts16
				}

				date_and_time := year . month . day . hours . minutes . seconds

				FormatTime,dayofweek,%date_and_time%,WDay

				dayofweek := DayString(dayofweek)
				month := MonthString(month)
				;FormatTime,timestring,%date_and_time%,dddd, MMMM dd, HH:mm:ss
				;timestring .= " ET " . year

				timestring = %dayofweek%, %month% %day%, %time% ET %year%

				levelnumber := getlevelnumber(parts12)

				StringSplit,blindparts,parts13,/
				StringTrimLeft,smallblind,blindparts1,1
				StringTrimRight,bigblind,blindparts2,1

			}
			Else
			{
				StringSplit,parts,A_LoopField,%A_Space%

				if RegExMatch(A_LoopField," said, ")
					continue


				

				if (done_posting != 1)
				{

					if RegExMatch(A_LoopField,"^Seat (.*)?: (.*) \((.*) in chips\)",regex_part)
					{
						playercount += 1
						seat := regex_part1
						player_%seat% := regex_part2
						stack_%seat% := regex_part3
						stacks .= "Seat " . seat . ": " . PartyName(regex_part2) . " ( " . AddCommas(regex_part3) . " )`n"
						continue
					}


	
					if RegExMatch(A_LoopField,"(.*): posts the ante ([^\s]*)(.*)",regex_part)
					{
	
						if regex_part2 > %ante%
							ante := regex_part2

						if regex_part3 = %A_Space%and is all-in
							discard_hand := 1

						name := regex_part1
						antestring .= PartyName(name) . " posts ante [" . regex_part2 . "]`n"
						seat := FindSeat(name)
						;moneyinpot_%seat% += ante
						stack_%seat% -= regex_part2
						totalpot += regex_part2
						continue
					}



					if RegExMatch(A_LoopField,"(.*): posts (.*) blind ([^\s]*)(.*)",regex_part)
					{
						name := regex_part1
						seat := FindSeat(name)
						moneyinpot_%seat% += regex_part3
						totalpot += regex_part3

						;if regex_part4 = %A_Space%and is all-in
						;	discard_hand := 1

						continue
					}



					if RegExMatch(A_LoopField,"^Table '(.*) 1' .*-max Seat #(.*) is the button",regex_part)
					{
						button := regex_part2
						table_number := regex_part1
						buttonline = Seat %button% is the button`n
						continue
					}
				}



				if RegExMatch(A_LoopField,"(.*): folds",regex_part)
				{
					name := regex_part1
					actionline .= PartyName(name) . " folds`n"
					continue
				}
				if RegExMatch(A_LoopField,"(.*): calls ([^\s]*)",regex_part)
				{
					name := regex_part1
					seat := FindSeat(name)
					moneyinpot_%seat% += regex_part2
					totalpot += regex_part2
					if moneyinpot_%seat% = % stack_%seat%
					{
						actionline .= PartyName(name) . " is all-In  [" . AddCommas(regex_part2) . "]`n"
						allins += 1
					}
					else
						actionline .= PartyName(name) . " calls [" . AddCommas(regex_part2) . "]`n"
					continue
				}
				if RegExMatch(A_LoopField,"(.*): checks",regex_part)
				{
					name := regex_part1
					actionline .= PartyName(name) . " checks`n"
					continue
				}


				if RegExMatch(A_LoopField,"^Dealt to (.*) \[(..) (..)\]",regex_part)
				{
					StringTrimLeft,c1,parts4,1
					StringTrimRight,c2,parts5,1
					holecardline := "** Dealing down cards **`nDealt to " . PartyName(regex_part1) . " [  " . regex_part2 . " " . regex_part3 . " ]`n"
					continue
				}


				If A_LoopField = *** HOLE CARDS ***
				{
					done_posting := 1
					continue
				}

				If A_LoopField = *** SHOW DOWN ***
				{
					NewStreet()
					showdown := 1
					continue
				}

				If A_LoopField = *** SUMMARY ***
				{
					reached_summary := 1
					continue
				}

				if (SubStr(A_LoopField,1,12) = "*** FLOP ***")
				{
					StringTrimLeft,c1,parts4,1
					c2 := parts5
					StringTrimRight,c3,parts6,1
					actionline .= "** Dealing Flop ** [ " . c1 . ", " . c2 . ", " . c3 . " ]`n"
					NewStreet()
					continue
				}
				if (SubStr(A_LoopField,1,12) = "*** TURN ***")
				{
					StringTrimLeft,c4,parts7,1
					StringTrimRight,c4,c4,1
					actionline .= "** Dealing Turn ** [ " . c4 . " ]`n"
					NewStreet()
					continue
				}
				if (SubStr(A_LoopField,1,13) = "*** RIVER ***")
				{
					StringTrimLeft,c5,parts8,1
					StringTrimRight,c5,c5,1
					actionline .= "** Dealing River ** [ " . c5 . " ]`n"
					NewStreet()
					continue
				}












				if RegExMatch(A_LoopField,"(.*): raises [^\s]* to ([^\s]*)",regex_part)
				{
					name := regex_part1
					seat := FindSeat(name)

					chips_added := regex_part2 - moneyinpot_%seat%
					totalpot += chips_added
					

					if chips_added = % stack_%seat% - moneyinpot_%seat%
					{
						actionline .= PartyName(name) . " is all-In  [" . AddCommas(chips_added) . "]`n"
						allins += 1
					}
					else
						actionline .= PartyName(name) . " raises [" . AddCommas(chips_added) . "]`n"

					moneyinpot_%seat% += chips_added
					continue
				}

				if RegExMatch(A_LoopField,"(.*): bets ([^\s]*)",regex_part)
				{
					name := regex_part1
					seat := FindSeat(name)

					moneyinpot_%seat% += regex_part2
					totalpot += regex_part2
					
					;MsgBox % "Money in pot: " . moneyinpot_%seat% . "`nStack: " . stack_%seat%
					if moneyinpot_%seat% = % stack_%seat%
					{
						actionline .= PartyName(name) . " is all-In  [" . AddCommas(regex_part2) . "]`n"
						allins += 1
					}
					else
						actionline .= PartyName(name) . " bets [" . AddCommas(regex_part2) . "]`n"
					continue
				}

				if RegExMatch(A_LoopField,"(.*) collected .* from pot",regex_part)
				{
					name := regex_part1
					if showdown = 0
					{
						collectline := PartyName(name) . " does not show cards.`n" . PartyName(name) . " wins " . AddCommas(totalpot) . " chips`n"
						ignore_summary := 1
					}
				}

				if reached_summary = 1
				{
					if ignore_summary = 1
						continue


					if RegExMatch(A_LoopField,"^Seat (.*): .* (showed|mucked) \[(..) (..)\]",regex_part)
						showline .= PartyName(player_%regex_part1%) . " shows [ " . regex_part3 . ", " . regex_part4 . " ]`n"


					if RegExMatch(A_LoopField,"^Seat (.*): .* and won \((.*)\)",regex_part)
					{
							totalpot -= regex_part2
							winline .= PartyName(player_%regex_part1%) . " wins " . AddCommas(regex_part2) . " chips`n" 
					}

				}


				;MsgBox Line not recognised:`n'%A_LoopField%'
			}
		}
		else
		{
			if a = 0
			{
				playercount := playercount // 2
				
				position := playercount - actions + 1

				if ante > 0
					blindstring := "Blinds-Antes(" . AddCommas(smallblind) . "/" . AddCommas(bigblind) . " -" . ante . ")"
				else
					blindstring := "Blinds(" . AddCommas(smallblind) . "/" . AddCommas(bigblind) . ")"

				trnyline := "Trny:" . tournament_number . " Level:" . levelnumber . "  " . blindstring . "`n"

				
				header := " Game #" . game_number . " starts.`n`n#Game No : " . game_number . "`n***** Hand History for Game " . game_number . " *****`nNL Texas Hold'em $" . buyin + fee . " USD Buy-in Trny:" . tournament_number . " Level:" . levelnumber . "   " . blindstring . " - " . timestring . "`nTable Speed #" . table_number . " (Real Money)`n"
				
				hand = %header%%buttonline%%stacks%%trnyline%%antestring%%holecardline%%actionline%%collectline%%showline%%winline%
				;hand := header . buttonline . stacks . trnyline . antestring . holecardline . actionline . collectline . showline . winline
				;MsgBox %hand%`n`n%discard_hand%
				;if (discard_hand != 1)
				;	FileAppend,%hand%,%output_folder%\party T%tournament_number%.txt
				;else
				;	FileAppend,%hand%,%output_folder%\discarded hands.txt



				;first hand of file.. see if file already exists
				if CurrentTournament =
				{
					IfExist,%output_folder%\party T%tournament_number%.txt
					{
						old_files += 1
						
						;if modified since starting script do nothing (will append text), probably from a tournament split across 2 files
						FileGetTime,ModifyTime,%output_folder%\party T%tournament_number%.txt
						EnvSub,ModifyTime,%ScriptStartTime%,Seconds
						if ModifyTime < 0
						{
							if overwritefiles = 1
							{
								FileDelete,%output_folder%\party T%tournament_number%.txt
								files_overwritten += 1
							}
							else
							{
								files_kept += 1
								break			;keeping old file, skip to next
							}
						}
					}
				}
				if discard_hand = 0
					CurrentTournament .= hand
				else
					discarded_hands +=  1
			}
			CurrentHand =
			a := 1
		}

		

	}
	FileAppend,%CurrentTournament%,%output_folder%\party T%tournament_number%.txt
}

if usedcommandline = 1
	MsgBox,64,Done! (message box times out in 3 seconds),Read %Tournaments% files.`nSkipped %files_kept% already converted tournaments.`nOverwrote %files_overwritten% files.`nDiscarded %discarded_hands% hands.,3
else
	MsgBox,64,Done!,Read %Tournaments% files.`nSkipped %files_kept% already converted tournaments.`nOverwrote %files_overwritten% files.`nDiscarded %discarded_hands% hands.


GuiClose:
ExitApp


AddCommas(number)
{
	len := StrLen(number)
	out =
	Loop,%len%
	{
		if A_Index > 1
			if mod(A_Index,3) = 1
				out := "," . out
		out := SubStr(number,1 - A_Index,1) . out
	}
	return out
}


FindSeat(findseat_name)
{
	global

	Loop,10
	{
		if player_%A_Index% = %findseat_name%
			return A_Index
	}
}


NewStreet()
{
	global winline


	stacklist =

	highest := 0
	second := 0
	Loop,10
	{
		if moneyinpot_%A_Index% > %highest%
		{
			second := highest
			second_seat := highest_seat
			highest_seat := A_Index
			highest := moneyinpot_%A_Index%
		}
		else if moneyinpot_%A_Index% > %second%
		{
			second := moneyinpot_%A_Index%
			second_seat := A_Index
		}
		
		
	}
	;MsgBox % "Highest: " . player_%highest_seat% . " (" . highest . " invested)`nSecond: " . player_%second_seat% . " (" . second . " invested)`n"
	if highest > %second%
		winline .= PartyName(player_%highest_seat%) . " wins " . AddCommas(highest - second) . " chips`n"
	
	Loop,10
	{
		stack_%A_Index% -= moneyinpot_%A_Index%
		moneyinpot_%A_Index% := 0
		;stacklist .= player%A_Index% . ": " . stack
	}
	

}



PartyName(name)
{
	output := name
	Loop	
		if pos := InStr(output,A_Space)
			output := SubStr(output,1,pos - 1) . SubStr(output,pos + 1)
		else
			break

	return output
}


getlevelnumber(string)
{
	If string = I
		return 1
	else If string = II
		return 2
	else If string = III
		return 3
	else If string = IV
		return 4
	else If string = V
		return 5
	else If string = VI
	 	return 6
	else If string = VII
		return 7
	else If string = VIII
		return 8
	else If string = IX
		return 9
	else If string = X
		return 10
	else If string = XI
		return 11
	else If string = XII
		return 12
}

DayString(day)
{
	if day = 1
		return "Monday"
	if day = 2
		return "Tuesday"
	if day = 3
		return "Wednesday"
	if day = 4
		return "Thursday"
	if day = 5
		return "Friday"
	if day = 6
		return "Saturday"
	if day = 7
		return "Sunday"
}

MonthString(month)
{
	if month = 1
		return "January"
	if month = 2
		return "February"
	if month = 3
		return "March"
	if month = 4
		return "April"
	if month = 5
		return "May"
	if month = 6
		return "June"
	if month = 7
		return "July"
	if month = 8
		return "August"
	if month = 9
		return "September"
	if month = 10
		return "October"
	if month = 11
		return "November"
	if month = 12
		return "December"
}

@echo off

echo Converting FTP hands to Party hands.
mkdir TempConvertedStarsHands 2> NUL
del /Q .\TempConvertedStarsHands\*.txt 2> NUL
ftpconverter.exe .\TempConvertedStarsHands .

echo Running on all 9-man FTP hands found in the TempConvertedStarsHands folder...

rem For Super Turbo 3.8s we pay 12.063492063492063492063492063492% of the final prize-pool as our entry fee.
BackTestAllInLuck.exe 12.063492063492063492063492063492 50 30 20 TempConvertedStarsHands

pause

@echo off

echo Converting FTP hands to Party hands.
mkdir TempConvertedStarsHands 2> NUL
del /Q .\TempConvertedStarsHands\*.txt 2> NUL
ftpconverter.exe .\TempConvertedStarsHands .

echo Running on all 9-man FTP hands found in the TempConvertedStarsHands folder...

rem For Super Turbo 7.5s we pay 11.904761904761904761904761904762% of the final prize-pool as our entry fee.
BackTestAllInLuck.exe 11.904761904761904761904761904762 50 30 20 TempConvertedStarsHands

pause