Zvezda progression v2

Contenuto del file

system "Zvezda progression v2"
{
*************************************
*         System by pashikk         *
*         on the VIP Lounge         *
*************************************
          Rx-ed by st0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
State:
(primary session) 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,
(1st recorvery session) 18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
(2nd recovery session) 38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57

Bet size:
(primary session)  1,2,1,2,1,2,2,4,5,5,10,10,15,15,25,25,40,40,
(1st recorvery session) 10,20,2,4,2,4,2,4,4,8,10,10,20,20,30,30,50,50,80,80,
(2nd recovery session) 30,60,6,12,6,12,6,12,12,24,30,30,60,60,90,90,150,150,240,240

Goto state after win:
(primary session) 1,0,3,0,5,0,7,0,9,0,11,0,13,0,15,0,17,0,
(1st recorvery session) 19,28,21,20,23,20,25,20,27,20,29,20,31,20,33,20,35,20,37,20,
(2nd recovery session) 39,48,41,40,43,40,45,40,47,40,49,40,51,40,53,40,55,40,57,40

Goto state after loss:
(primary session) 2,2,4,4,6,6,8,8,10,8,12,10,14,12,16,14,18,16,
(1st recorvery session) 20,20,22,22,24,24,26,26,28,28,30,28,32,30,34,32,36,34,38,36,
(2nd recovery session) 40,40,42,42,44,44,46,46,48,48,50,48,52,50,54,52,56,54,stop,56

Start at state 0 with corresponding bet size. Go to the state indicated as
appropriate after a win or a loss.
Reset when losing state 56.
-------------------------------------
}
method "main"
begin
// do this once
while starting new session
    begin call "init" end

// act on a loss
if net < 0
    begin
    put 100% record"after a loss goto"data record"bet size"data index
    if record"after a loss goto"data = 0
        begin call "reset" end
    end

// act on a win
if net > 0
    begin put 100% record"after a win goto"data record"bet size"data index end

add 1 record"bet size"data index
put 100% record"bet size"data index record"after a win goto"data index
put 100% record"bet size"data index record"after a loss goto"data index

//bet
put 100% record"bet size"data red
end

// subroutines
method "init"
begin
set list [1,2,1,2,1,2,2,4,5,5,10,10,15,15,25,25,40,40,10,20,2,4,2,4,2,4,4,8,10,10,
20,20,30,30,50,50,80,80,30,60,6,12,6,12,6,12,12,24,30,30,60,60,90,90,150,150,240,240] record"bet size"data
set list [1,0,3,0,5,0,7,0,9,0,11,0,13,0,15,0,17,0,19,28,21,20,23,20,25,20,27,20,29,
20,31,20,33,20,35,20,37,20,39,48,41,40,43,40,45,40,47,40,49,40,51,40,53,40,55,40,57,40] record"after a win goto"data
set list [2,2,4,4,6,6,8,8,10,8,12,10,14,12,16,14,18,16,20,20,22,22,24,24,26,26,28,28,
30,28,32,30,34,32,36,34,38,36,40,40,42,42,44,44,46,46,48,48,50,48,52,50,54,52,56,54,0,56] record"after a loss goto"data
call "reset"
end

method "reset"
begin
put 0 record"bet size"data index
end