Mr.J's unhit Quad system

Contenuto del file

system "Ken's Unhit Quad"
{
 **************************************************
 *      Mr.J's unhit Quad system
 *      Coded by: Roulette787
 *      More info on VLSRoulette.com forums
 *
 *  NOTE: You can change the amount of 'missed spins' on line 69, for anything you're comfortable with.
 *        Default is 25
 **************************************************
}
method "main"
begin
    while starting a new session
    begin
       call "initialize";
       exit;
    end

    call "check win";

    if flag "isGameOn" is false
    begin
        if flag "isQualified" is false
        begin
            call "qualify";
        end
        else
        begin
            call "check hits";
        end
    end
    
    if flag "isGameOn" is true
    begin
        call "place bets";
    end
end

method "check win"
begin
   if net profit > 0
   begin
      put 1 unit on record "progression" data index;
      clear record "selected corners" layout;
      set flag "isQualified" to false;
      set flag "isGameOn" to false;
   end
   if net profit < 0
   begin
      if record "progression" data index >= record "progression" data count
      begin
         put 1 unit on record "progression" data index;
         set flag "isQualified" to false;
         set flag "isGameOn" to false;
      end
      else
      begin
      add 1 unit on record "progression" data index;
      end
   end
end


method "qualify"
begin
   clear record "unhit corners" layout;
   
   put 1 unit on record "all corners" layout index;
   loop until record "all corners" layout index > record "all corners" layout count
   begin
       if record "all corners" layout has not hit more than 25 times in a row
       begin
            copy record "all corners" layout to record "unhit corners" layout;
            add 1 unit to record "unhit corners" layout index;
       end
       add 1 unit to record "all corners" layout index;
   end
   if record "unhit corners" layout count > 0
   begin

      set flag "isQualified" to true;
   end
end


method "check hits"
begin
   put 1 unit on record "all corners" layout index;
   clear record "last corners" layout;
   
   loop until record "all corners" layout index > record "all corners" layout count
   begin
       if record "all corners" layout has hit each
       begin
           copy record "all corners" layout to record "last corners" layout;
           add 1 unit to record "last corners" layout index;
       end
       add 1 unit to record "all corners" layout index;
   end

   put 1 unit on record "last corners" layout index;
   loop until record "last corners" layout index > record "last corners" layout count
   begin
       if record "last corners" layout is found in record "unhit corners" layout
       begin
          copy record "last corners" layout to record "selected corners" layout;
          set flag "isGameOn" to true;
       end
       add 1 unit to record "last corners" layout index;
   end
end


method "place bets"
begin
   if record "selected corners" layout count > 0
   begin
       put 100% of record "progression" data on record "selected corners" layout list;
   end
end


method "initialize"
begin
   copy list [Corner(1:5),   Corner(2:6),   Corner(4:8),   Corner(5:9),
              Corner(7:11),  Corner(8:12),  Corner(10:14), Corner(11:15),
              Corner(13:17), Corner(14:18), Corner(16:20), Corner(17:21),
              Corner(19:23), Corner(20:24), Corner(22:26), Corner(23:27),
              Corner(25:29), Corner(26:30), Corner(28:32), Corner(29:33),
              Corner(31:35), Corner(32:36)] to record "all corners" layout;
   //set list [10, 10, 10, 10, 10, 10, 20, 20, 20, 20, 30, 30, 30, 40, 40, 50, 50, 60, 70, 80, 90, 100, 110, 120, 140, 160, 180, 200, 220, 250] record "progression" data;
   set list [1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 25] record "progression" data;
   set flag "isQualified" to false;
   set flag "isGameOn" to false;
end