system "untitled"

method "main"
begin
track last Black-Red pattern for 4 spins to record "pattern BR" layout
track last Black-Red pattern for 1 spins to record "pattern BR recover" layout
    While Starting a New Session
    begin
    Input Data "Qual'è la tua base bet?" to Record "base bet" data
    put 100% record "base bet" data to record "bet amount" data
    end

    While on Each Spin
    begin
      call "bet result"
      call "check"
      call "place bet"
    end

end

method "check"
begin
    If list [black,black,black,black] has a pattern match to record "pattern BR" layout
    begin
    Set flag "go black" to true
    Set flag "recover" to false
    end

    If list [red,red,red,red] has a pattern match to record "pattern BR" layout
    begin
    Set flag "go red" to true
    Set flag "recover" to false
    end
    
    If flag "recover" is true
    begin
        If list [black] has a pattern match to record "pattern BR recover" layout
        begin
        Set flag "go red" to true
        end
        If list [red] has a pattern match to record "pattern BR recover" layout
        begin
        Set flag "go black" to true
        end
    end
end

method "place bet"
begin
    If flag "go black" is true
    begin
    Put 100% record "bet amount" data to black
    end
    If flag "go red" is true
    begin
    Put 100% record "bet amount" data to red
    end
end

method "bet result"
begin

    If net > 0
    and record "recover" data < 0
    and flag "recover" is true
    begin
    add 100% net to record "recover" data
    reset all flags to false
    set flag "recover" to true
    end

    If net > 0
    and record "recover" data >= 0
    begin
    put 0 to record "recover" data
    put 100% record "base bet" data to record "bet amount" data
    reset all flags to false
    end

    If net > 0
    and record "recover" data < 0
    and flag "recover" is false
    begin
    add 100% net to record "recover" data
    reset all flags to false
    end
    
    
    If net < 0
    begin
    add 100% net to record "recover" data
    reset all flags to false
    set flag "recover" to true
    end
    
    If record "recover" data > -9
    begin
    put 100% record "base bet" data to record "bet amount" data
    end
    If record "recover" data < -9
    and record "recover" data >= -19
    begin
    put 200% record "base bet" data to record "bet amount" data
    end
    If record "recover" data < -19
    and record "recover" data >= -29
    begin
    put 300% record "base bet" data to record "bet amount" data
    end
    If record "recover" data < -29
    and record "recover" data >= -39
    begin
    put 400% record "base bet" data to record "bet amount" data
    end
    If record "recover" data < -39
    begin
    put 500% record "base bet" data to record "bet amount" data
    end
end