system "Tera-TNT"
{
 *************************************************************************************************************
 *         System: Tera-TNT
 *         Coded by: Roulette787
 *
 * NOTES: Changes from original system.
 *        1. Bets on both even chances for a 50% coverage.
 *           This can be changed on line 41, to cover a single even chance. eg. [RED]
 *        2. The system restarts at the stop-limit.
 *           Comment line 279 to stop betting at the stop-limit.
 *        3. The original system suggests to continue playing without reducing bet sizes.
 *           This leads to very large bet sizes. But here, the system will restart when you're ahead.
 *           Comment lines 267-271 to play without restarting.
 *
 ************************************************************************************************************
}
method "main"
begin
    while starting a new session
    begin
        call "init";
        put 200 units in bankroll;
        put 100% bankroll on record "highest bankroll" data;
        put 150% bankroll on record "target bankroll" data;
        exit;
    end

    call "check win";
    call "place bets";
end


method "init"
begin
   set list [1, 2] as record "numbers" data;
   put 0 units on record "play level" data;
   put 1 unit on record "add level" data;
   put 3 units on record "numbers" data index;
   put 0 units on record "numbers total" data;
   copy list [red, black] to record "ECs" layout;             // CHANGE BETTING PATTERN in [BRACKETS], default [red, black]
end


method "check win"
begin
   if net amount > 0
   begin
      call "check win variables";
      
      // ----------------------- level selection -----------------------
      if record "numbers" data count > 1
      begin
        if record "play level" data = 0
        begin
            if record "RI" data >= 5 OR record "left number" data >= 5
            begin
                put 1 unit on record "play level" data;
            end
        end
      
        if record "play level" data = 1
        begin
            if record "right number" data >= 12
            begin
                put 2 units on record "play level" data;
            end
        end

        if record "play level" data = 2
        begin
            if record "right number" data >= 30
            begin
                put 3 units on record "play level" data;
            end
        end
      
        if record "play level" data = 3
        begin
           if record "RI" data >= 100
           begin
                put 4 units on record "play level" data;
           end
        end
      end
      else
      begin
         put 0 units on record "play level" data;
      end

      // --------------------------------- cancellation -------------------------------
      
      if record "play level" data = 0
      begin
         if record "numbers" data count > 1
         begin
            put 2 units on record "numbers" data index;
            call "erase first numbers";
         end
         else
         begin
            //call "restart";          // 1 number left in series, START OVER? OR DO NOTHING?
         end
      end
      
      if record "play level" data = 1
      begin
          if record "numbers" data count > 2
          begin
              put 3 units on record "numbers" data index;
              call "erase first numbers";
          end
          else
          begin
              put 2 units on record "numbers" data index;
              call "erase first numbers";
          end
      end
      
      if record "play level" data = 2
      begin
         if record "numbers" data count > 3
         begin
            put 4 units on record "numbers" data index;
            call "erase first numbers";
         end
         else
         begin
            call "erase till last one";
         end
      end
      
      if record "play level" data = 3
      begin
         if record "numbers" data count > 5
         begin
            put 6 units on record "numbers" data index;
            call "erase first numbers";
         end
         else
         begin
            call "erase till last one";
         end
      end
      
      if record "play level" data = 4
      begin
         if record "numbers" data count > 10
         begin
            put 11 units on record "numbers" data index;
            call "erase first numbers";
         end
         else
         begin
            call "erase till last one";
         end
      end
   end
   
   
   if net amount < 0
   begin
      call "check lost variables";
      
      //if number 0 has hit each time       // 0 TREATED AS A LOSS
      //begin
      
      //end
      //else
      //begin
         if record "right number" data >= 5
         begin
            put 2 units on record "add level" data;
            if record "right number" data >= 15
            begin
               put 3 units on record "add level" data;
                    if record "right number" data >= 40
                    begin
                       put 6 units on record "add level" data;
                    end
            end
         end
         else
         begin
            put 1 unit on record "add number" data;
         end
         
         put 1 units on record "counter" data;
         loop until record "counter" data > record "add level" data
         begin
            subtract 1 unit from record "numbers" data index;
            put 100% of record "numbers" data to record "temp number" data;
            add 1 unit on record "temp number" data;
            add 1 unit to record "numbers" data index;
            put 100% of record "temp number" data to record "numbers" data;
            add 1 unit on record "counter" data;
            add 1 unit on record "numbers" data index;
         end
      //end
   end
end

method "check win variables"
begin
   put 100% of record "numbers" data index to record "counter" data;
   subtract 1 unit from record "numbers" data index;
   put 100% of record "numbers" data to record "right number" data;
   put 1 unit on record "numbers" data index;
   put 100% of record "numbers" data to record "left number" data;
   put 100% of record "counter" data to record "numbers" data index;
   
   put 100% of record "right number" data to record "RI" data;
   subtract 100% of record "left number" data from record "RI" data;
end

method "check lost variables"
begin
   subtract 1 unit from record "numbers" data index;
   put 100% of record "numbers" data to record "right number" data;
   add 1 unit to record "numbers" data index;
end


method "erase till last one"
begin
            loop until record "numbers" data count < 2
            begin
               put 2 units on record "numbers" data index;
               call "erase first numbers";
            end
end



method "erase first numbers"
begin
            clear record "temp numbers" data;
            loop until record "numbers" data index > record "numbers" data count
            begin
               put 100% record "numbers" data on record "temp numbers" data;
               add 1 unit on record "numbers" data index;
               add 1 unit on record "temp numbers" data index;
            end
            clear record "numbers" data;
            duplicate record "temp numbers" to record "numbers";
end


method "calc stop limit"
begin
   put 1 unit on record "numbers" data index;
   put 0 units on record "numbers total" data;
   
   loop until record "numbers" data index > record "numbers" data count
   begin
      add 100% record "numbers" data to record "numbers total" data;
      add 1 unit on record "numbers" data index;
   end
end


method "place bets"
begin

   put 100% bankroll on record "bankroll" data;
   
   if record "bankroll" data > record "highest bankroll" data             // COMMENT LINES 267 TO 271 TO
   begin                                                                  // CONTINIUOUS PLAY WITHOUT RESTARTING
      put 100% record "bankroll" data to record "highest bankroll" data;  // AT PEAK BANKROLL.
      call "restart";                                                     // THIS WILL RESULT IN VERY LARGE BETS.
   end                                                                    //
   
   //else
   //begin
        call "calc stop limit";
        if record "bankroll" data >= record "target bankroll" data          // stop-play
        OR record "numbers total" data > record "bankroll" data               // STOP LIMIT
        begin
            call "restart";                    // COMMENT THIS LINE TO STOP PLAY AT, STOP LIMIT
        end
        else
        begin
            put 100% record "numbers" data index on record "counter" data;
            put 1 unit on record "numbers" data index;
            if record "ECs" layout index >= record "ECs" layout count
            begin
               put 1 unit on record "ECs" layout index;
            end
            else
            begin
               add 1 unit to record "ECs" layout index;
            end
            put 100% record "numbers" data on record "ECs" layout;
            put 100% record "counter" data on record "numbers" data index;
        end
   //end
end

method "restart"
begin
   clear record "numbers" data;
   call "init";
end