If initializing script Then clear all(checkstacks, checkstacknames) : Name cs0.progtype as "Type of progression to play. 1=Loss, 2=Win" : Name cs1.bets2play as "Bets to play. 1=Passline, 2=Don't Pass" : Name cs2.beginningwager as "Beginning wager" : Name cs3.playodds as "Play odds: -1=yes, 0=no" : Name cs4.maxnumsteps as "# of steps in the progression" : Name cs6.currentstep as "Current step #" : Name cs7.wait4repeat as "Wait for repeat of win or loss (-1=true, 0=false)" : Name cs8.#progendreached as "# of times complete progression has lost" : Name cs11.1stpreviouswager as "1st previous wager (also beginning wager)" : Name cs12.2ndpreviouswager as "2nd previous wager" : Name cs14.#sessionsdesired as "# of sessions desired" : Name cs15.#sessions as "# of sessions completed" : Name cs16.stoploss as "Stop loss" : Name cs17.wingoal as "Win goal" : : "Get progression type" : cs0.progtype = input( "This script plays a Fibonacci progression wherein each step is a sum of " & "the previous two steps. For example: 1,1,2,3,5,8,13,21,34,55, etc. (note " & "that the first step can be any amount and is added to zero to produce the " & "second step.)" & cr & cr & "How would you like to play?" & cr & cr & "1) Loss progession:" & cr & " -- each loss advances one step" & cr & " -- each win repeats the same bet" & cr & " -- two wins in a row starts the progression over" & cr & cr & "2) Win progession:" & cr & " -- each win advances one step" & cr & " -- each loss repeats the same bet" & cr & " -- two losses in a row starts the progression over" & cr) If cs0 <> 1 And cs0 <> 2 Then GoTo "Get progression type" EndIf : "Get bet selection" : cs1.bets2play = input( "Which bets would you like to play: " & cr & cr & "1) Passline bets" & cr & "2) Don't Pass bets" & cr) If cs1 <> 1 And cs1 <> 2 Then GoTo "Get bet selection" EndIf : "Get beginning wager" : cs2.beginningwager = input( "How large would you like your beginning wager to be?" & cr & cr & "(note: this should not be smaller than " & minimum bet & " which is the " & "minimum bet set on the Configuration screen)" & cr) If cs2 < minimum bet Then GoTo "Get beginning wager" EndIf : "Get odds selection" : yes / no question("Would you like to play odds too?") If answer = yes Then cs3.playodds = true : AutoTake Full Odds = true : AutoLay Full Odds = true EndIf : "Get # of steps" : cs4.maxnumsteps = input( "What's the maximum number of steps you'd like in the progression?" & cr & cr & "For example, 10 steps would yield a max bet of 55 units (21+34)." & cr) : : "Get limits" : cs16.stoploss = -input( "What's your stop loss (max amount to lose) per session?" & cr & "(leave blank to ignore)" & cr) : cs17.wingoal = input( "What's your win goal (max amount to win) per session?" & cr & "(leave blank to ignore)" & cr) : cs14.#sessionsdesired = greatest(1, input("How many sessions would you like?" & cr)) : GoTo "Reset progression" EndIf If beginning new session Then : "Reset progression" : cs6.currentstep = 1 : cs7.wait4repeat = false : cs11.1stpreviouswager = 0 : cs12.2ndpreviouswager = 0 : If comeout roll Then GoTo "Make bets" EndIf EndIf : "Check stop loss/win goal" : If (bankroll - beginning bankroll <= cs16.stoploss And cs16.stoploss < 0) Then add 1 to cs15.#sessions If cs15.#sessions = cs14.#sessionsdesired Then Stop AutoRolling / HyperDrive : show message "Stop loss reached. Simulation complete." GoTo "End" EndIf show message "Stop loss reached. A new session will start now" : start new session(preserve checkstacks) ElseIf (bankroll - beginning bankroll >= cs17.wingoal And cs17.wingoal > 0) Then add 1 to cs15.#sessions If cs15.#sessions = cs14.#sessionsdesired Then Stop AutoRolling / HyperDrive : show message "Win goal reached. Simulation complete." GoTo "End" EndIf show message "Win goal reached. A new session will start now" : start new session(preserve checkstacks) EndIf If A Point is established Then GoTo "End" EndIf ' speeds up processing If cs0.progtype = 1 Then ' Loss progression If PassLine loses Or DontPass loses Then cs12.2ndpreviouswager = cs11.1stpreviouswager : If cs1.bets2play = 1 Then cs11.1stpreviouswager = last PassLine Else cs11.1stpreviouswager = last DontPass EndIf add 1 on cs6.currentstep : If cs6.currentstep > cs4.maxnumsteps Then Add 1 to cs8.#progendreached : Show message "The end of the progression was reached without" & cr & "back-to-back wins and will start over now." : GoTo "Reset progression" EndIf cs7.wait4repeat = false ElseIf PassLine wins Or DontPass wins Then If cs7.wait4repeat Then Show message "Great! That's two wins in a row." & cr & "The progression will start over now." : GoTo "Reset progression" EndIf cs7.wait4repeat = true : Show message "Ok, that's one win. Now you need to win" & cr & "the next bet to win the progression." EndIf Else ' Win progression If Passline wins Or DontPass wins Then cs12.2ndpreviouswager = cs11.1stpreviouswager : If cs1.bets2play = 1 Then cs11.1stpreviouswager = last Passline Else cs11.1stpreviouswager = last DontPass EndIf add 1 on cs6.currentstep : If cs6.currentstep > cs4.maxnumsteps Then Add 1 to cs8.#progendreached : Show message "Great run! The end of the progression was reached and " & "will start over now." : GoTo "Reset progression" EndIf cs7.wait4repeat = false ElseIf PassLine loses Or DontPass loses Then If cs7.wait4repeat Then Show message "Unfortunately, that's two losses in a row." & cr & "The progression will start over now." : GoTo "Reset progression" EndIf cs7.wait4repeat = true EndIf EndIf : "Make bets" : If cs1.bets2play = 1 Then If cs6.currentstep = 1 Then PassLine = cs2.beginningwager Else PassLine = cs11.1stpreviouswager + cs12.2ndpreviouswager EndIf Else If cs6.currentstep = 1 Then DontPass = cs2.beginningwager Else DontPass = cs11.1stpreviouswager + cs12.2ndpreviouswager EndIf EndIf : "End" :