system "Kingspin's ATM"
{
   *******************************************************************************
   *                        System: Kingspin's ATM                               *
   *                        Coded by: Roulette787                                *
   *                                                                             *
   * Info on: http://vlsroulette.com/full-systems/kingspins-atm-roulette-system/ *
   *******************************************************************************
}
method "main"
begin
    while starting a new session
    begin
        call "init";
    end


    call "select numbers";
    call "place bets";

end



method "init"
begin
   //set list [1, 1, 1, 1, 2, 2, 4, 8] on record "progression" data;
   clear record "numbers" layout;
end

method "place bets"
begin
   if net > 0
   begin
      put 1 on record "progression" data index;
   end
   if net < 0
   begin
      if record "progression" data index >= record "progression" data count
      begin
         put 1 on record "progression" data index;
      end
      else
      begin
         add 1 on record "progression" data index;
      end
   end
   
   if record "numbers" layout count > 1
   begin
        put 100% record "progression" data on record "numbers" layout list;
   end
end

method "select numbers"
begin
   clear record "numbers" layout;
   Locate Number Backward 9 spins from the Last Number to Record "numbers" layout;
   if record "numbers" layout count > 0
   begin
        add 1 on record "numbers" layout index;
   end
   copy last number to record "numbers" layout;
end