WinCraps AutoBets, Data Format 3.9 Z End XCÈD ,B ' TURNAROUND - a system proposed by Ian Harmer and described at: c' TURNAROUND - a system proposed by Ian Harmer and described at: ' http://www.nanosecond.com/~turnaround/turnarnd.html c15 WC ' c15 WC ' This file was modeled using the Pass line bet, but can be changed to c15 WC ' any other bet by changing all the references to Pass Line and ensuring that c15 WC ' the unit size (Chip-Stack #0) is appropriate for the payoff ratio. c15 WC ' i.e. for a payoff ratio of 7 to 5, your unit size should be divisible by 5. c15 WC ' c15 WC ' The win progression for a winning series (when no LTD exists) is c15 WC ' 1,2,2,4,7,11,16,22,29, etc. (units) and is derived by adding 2,3,4,5,etc. c15 WC ' to the previous bet amount beginning with the 2nd 2-unit bet. c15 WC When . . . 15 WC Initializing Auto-Bet  <F then . . . <F Clear all Chip-Stack names X Bet $ 0 on All Chip-Stacks  @ÈD Name Chip-Stack #0 as "Unit size" WUnit size Name Chip-Stack #5 as "LTD (loss to date - as a positive amount)" WLTD (loss to date - as a positive amount)  Name Chip-Stack #6 as "LTD divisor to calculate the Jump" WLTD divisor to calculate the Jump  Name Chip-Stack #7 as "The Jump" WThe Jump  Name Chip-Stack #8 as "Used to ensure that the Jump has been rounded up" WUsed to ensure that the Jump has been rounded up  Name Chip-Stack #9 as "Used to limit the Jump to LTD+1" WUsed to limit the Jump to LTD+1 Name Chip-Stack #10 as "The Pump" WThe Pump Name Chip-Stack #12 as "NB (next bet - in units)" WNB (next bet - in units) Name Chip-Stack #13 as "NB (next bet - in actual $)" WNB (next bet - in actual $) Name Chip-Stack #15 as "Number of consecutive wins" WNumber of consecutive wins  Name Chip-Stack #16 as "Number of consecutive double digit losses" WNumber of consecutive double digit losses  Name Chip-Stack #18 as "Number of times LTD exceeds 100" WNumber of times LTD exceeds 100  Name Chip-Stack #19 as "Number of times LTD exceeds 200" WNumber of times LTD exceeds 200  Name Chip-Stack #20 as "Number of times LTD exceeds 500" WNumber of times LTD exceeds 500  Name Chip-Stack #21 as "Number of times LTD exceeds 1000" WNumber of times LTD exceeds 1000  Name Chip-Stack #23 as "Number of TURNAROUND's achieved" WNumber of TURNAROUND's achieved  Bet $ 1 on Chip-Stack #12  €?ÈD ' Set unit size here c €?ÈD Bet $ 5 on Chip-Stack #00   @ÈD Go to "Make bet" LMake bet When . . . LMake bet Pass Line has won each time  ,B then . . .  ,B Go to "Handle a win" LHandle a win When . . . LHandle a win Pass Line has lost each time  ,B then . . .  ,B Go to "Handle a loss" LHandle a loss else . . . LHandle a loss Go to "End" LEnd Handle a win ZLHandle a win Do this . . . LHandle a win ' Adjust counters for consecutive wins and losses cLHandle a win Add $ 1 on Chip-Stack #15  €?ÈD Bet $ 0 on Chip-Stack #16  ÈD ' Adjust LTD c ÈD Subtract 100 % of the last Chip-Stack #12 from Chip-Stack #05  ÈBÈD ÈD ' The Steal c ÈBÈD ÈD Add $ 1 on Chip-Stack #05  €?ÈD ' Reset Dump counters c €?ÈD While . . .  €?ÈD Chip-Stack # 5 is less than $ 100  ÈBÈD then . . .  ÈBÈD Bet $ 0 on Chip-Stack #18  ÈD While . . .  ÈD Chip-Stack # 5 is less than $ 200  HCÈD then . . .  HCÈD Bet $ 0 on Chip-Stack #19  ÈD While . . .  ÈD Chip-Stack # 5 is less than $ 500  úCÈD then . . .  úCÈD Bet $ 0 on Chip-Stack #20  ÈD While . . .  ÈD Chip-Stack # 5 is less than $ 1000  zDÈD then . . .  zDÈD Bet $ 0 on Chip-Stack #21  ÈD ' If turnaround bet wins, then start win progression over c ÈD When . . .  ÈD Chip-Stack # 5 is not greater than $ 0  ÈD then . . .  ÈD Bet $ 0 on Chip-Stack #05  ÈD Bet $ 0 on Chip-Stack #15  ÈD Bet $ 1 on Chip-Stack #12  €?ÈD Add $ 1 on Chip-Stack #23  €?ÈD Name Chip-Stack #03 as "--- Win Series is in progress ---" W--- Win Series is in progress ---  Go to "Make bet" LMake bet ' Use an accelerated win progression if there is no LTD cLMake bet While . . . LMake bet Chip-Stack # 5 is not greater than $ 0  ÈD Chip-Stack # 15 is equal to $ 1  €?ÈD then . . . €?ÈD Bet $ 2 on Chip-Stack #12  @ÈD While . . .  @ÈD Chip-Stack # 5 is not greater than $ 0  ÈD Chip-Stack # 15 is greater than $ 2  @ÈD then . . . @ÈD Add 100 % of Chip-Stack #15 on Chip-Stack #12  ÈBÈDÈD Subtract $ 1 from Chip-Stack #12  €?ÈD While . . .  €?ÈD Chip-Stack # 5 is not greater than $ 0  ÈD then . . .  ÈD Bet $ 0 on Chip-Stack #5  ÈD Name Chip-Stack #03 as "--- Win Series is in progress ---" W--- Win Series is in progress ---  Go to "Make bet" LMake bet ' Figure the Pump cLMake bet Do this . . . LMake bet Bet 100 % of the last Chip-Stack #12 on Chip-Stack #10  ÈBÈD ÈD Multiply by 1.2 on Chip-Stack #10 ( š™™?ÈD ' Ensure fractional amounts of Pump are rounded up if less than double digits c( š™™?ÈD While . . . ( š™™?ÈD Chip-Stack # 10 is not greater than Chip-Stack # 12  ÈD ÈD then . . .  ÈD ÈD Add $ 1 on Chip-Stack #10  €?ÈD ' Figure the Jump c €?ÈD Do this . . .  €?ÈD Bet 100 % of Chip-Stack #05 on Chip-Stack #7  ÈBÈDÈD While . . .  ÈBÈDÈD Chip-Stack # 05 is greater than $ 0  ÈD Chip-Stack # 05 is not greater than $ 20   AÈD then . . .   AÈD Bet $ 4 on Chip-Stack #6  €@ÈD While . . .  €@ÈD Chip-Stack # 05 is greater than $ 20   AÈD Chip-Stack # 05 is not greater than $ 50  HBÈD then . . .  HBÈD Bet $ 5 on Chip-Stack #6   @ÈD While . . .   @ÈD Chip-Stack # 05 is greater than $ 50  HBÈD then . . . HBÈD Bet $ 6 on Chip-Stack #6  À@ÈD Do this . . . À@ÈD Divide by 100 % of Chip-Stack #06 on Chip-Stack #7 3 ÈBÈDÈD ' Ensure fractional amounts of Jump are rounded up c3 ÈBÈDÈD Bet 100 % of Chip-Stack #07 on Chip-Stack #8  ÈBÈDÈD Multiply by 100 % of Chip-Stack #06 on Chip-Stack #8 ) ÈBÈDÈD While . . . ) ÈBÈDÈD Chip-Stack # 05 is greater than Chip-Stack # 8  ÈDÈD then . . .  ÈDÈD Add $ 1 on Chip-Stack #7  €?ÈD ' Choose higher of Pump or Jump (or leave normal win progression in place) c €?ÈD While . . .  €?ÈD Chip-Stack # 07 is greater than Chip-Stack # 12  ÈDÈD then . . .  ÈDÈD Bet 100 % of Chip-Stack #07 on Chip-Stack #12  ÈBÈDÈD While . . .  ÈBÈDÈD Chip-Stack # 10 is greater than Chip-Stack # 12  ÈD ÈD then . . .  ÈD ÈD Bet 100 % of Chip-Stack #10 on Chip-Stack #12  ÈBÈD ÈD ' Check limit of LTD+1 c ÈBÈD ÈD Do this . . . ÈBÈD ÈD Bet 100 % of Chip-Stack #5 on Chip-Stack #9  ÈBÈDÈD Add $ 1 on Chip-Stack #9  €?ÈD While . . .  €?ÈD Chip-Stack # 09 is less than Chip-Stack # 12  ÈD ÈD then . . .  ÈD ÈD Bet 100 % of Chip-Stack #09 on Chip-Stack #12  ÈBÈD ÈD Do this . . . ÈBÈD ÈD Go to "Make bet" LMake bet Handle a loss ZLHandle a loss Do this . . . LHandle a loss ' Adjust counters for consecutive wins and losses cLHandle a loss Bet $ 0 on Chip-Stack #15  ÈD Add $ 1 on Chip-Stack #16  €?ÈD ' Adjust LTD c €?ÈD Add 100 % of the last Chip-Stack #12 on Chip-Stack #05  ÈBÈD ÈD ' If loss has just ended a "winning" series then re-adjust NB to 2 or less c ÈBÈD ÈD When . . .  ÈBÈD ÈD Chip-Stack # 05 is greater than $ 0  ÈD Chip-Stack # 12 is greater than $ 2  @ÈD then . . . @ÈD Bet $ 2 on Chip-Stack #12  @ÈD ' If loss has just ended a "winning" series then set LTD to 1 c @ÈD When . . .  @ÈD Chip-Stack # 05 is greater than $ 0  ÈD then . . . ÈD Bet $ 1 on Chip-Stack #5  €?ÈD Name Chip-Stack #03 as "--- Recovery Series is in progress ---" W--- Recovery Series is in progress ---  ' Half bets after 2nd double digit loss until NB is single digits again cW--- Recovery Series is in progress ---  While . . . W--- Recovery Series is in progress ---  Chip-Stack # 16 is greater than $ 1  €?ÈD Chip-Stack # 12 is greater than $ 9  AÈD then . . . AÈD Divide by 2 on Chip-Stack #12 2 @ÈD Go to "Make bet" LMake bet ' Check for "Dump" criteria cLMake bet While . . . LMake bet Chip-Stack # 05 is not less than $ 1000  zDÈD then . . .  zDÈD Add $ 1 on Chip-Stack #21  €?ÈD While . . .  €?ÈD Chip-Stack # 05 is not less than $ 500  úCÈD then . . .  úCÈD Add $ 1 on Chip-Stack #20  €?ÈD While . . .  €?ÈD Chip-Stack # 05 is not less than $ 200  HCÈD then . . .  HCÈD Add $ 1 on Chip-Stack #19  €?ÈD While . . .  €?ÈD Chip-Stack # 5 is not less than $ 100  ÈBÈD then . . .  ÈBÈD Add $ 1 on Chip-Stack #18  €?ÈD When . . .  €?ÈD Chip-Stack # 18 is equal to $ 2  @ÈD or when . . .  @ÈD Chip-Stack # 19 is equal to $ 2  @ÈD or when . . .  @ÈD Chip-Stack # 20 is equal to $ 2  @ÈD or when . . .  @ÈD Chip-Stack # 21 is equal to $ 2  @ÈD then . . . @ÈD Display message: "A "Dump" is recommended now." OA "Dump" is recommended now. Show message: "You can accomplish this by re-seeding the random "; OYou can accomplish this by re-seeding the random ; Show message: "number generator from the Configuration screen." Onumber generator from the Configuration screen. Make bet ZOMake bet Do this . . . OMake bet Bet 100 % of Chip-Stack #12 on Chip-Stack #13  ÈBÈD ÈD ' Convert units into actual bet amount c ÈBÈD ÈD Multiply by 100 % of Chip-Stack #00 on Chip-Stack #13 ) ÈBÈDÈD Bet 100 % of Chip-Stack #13 on Pass Line  ÈBÈD ,B End Z End ÈBÈD ,B