5 Line Eliminator

Contenuto del file

system "5 Line Eliminator"
{
Play all lines except the one that just hit.  Remove each from play as they hit.
Add one unit to remaining lines in play until one remains, then start over by playing
all lines except the one that failed to appear.

RX'd by GoldVentures
00 compatible
}
method "main"
begin
    while starting a new session
    begin
      Call "setup"
    end

    if Flag "Startup" false
    begin
      Call "Process"
      Call "Bet"
    end
    else
    begin
        Set Flag "Startup" false
    end
end

method "Process"

  begin
    if Number 0 hit each or Number 00 hit each
    begin
   Set Flag "Zero Hit" True
    end
    If Flag "Zero Hit" False
    begin
      Track last Street 1 time record "Last Street" layout
   {Determine which Street won, so we can figure which Line won}
      put 1 on record "Street List" layout index
      loop until record "Street List" layout = record "Last Street" layout
        begin
          add 1 to record "Street List" layout index
        end

        {This will give us which Line just hit}
      put 100% record "street list" layout index on record "line list" data index
        {This will give us which Line just hit as a numerical value}
      put 100% record "Street List" layout index on record "line list value" data index
        {This positions us on the line flag which just hit, so we can zero it, so no bet is made next time}
      put 100% record "Line List Value" data on record "Line Flag" data index
        {Now clear the flag so no bet is made}
      if record "Line Flag" data = 1
          begin
           put 0 on record "Line Flag" data
           Set Flag "Line Cleared" True
         end

    if Flag "Bet Placed" True
      begin
          {Subtract from our count of active Lines}
        if Flag "Line Cleared" True
        begin
          Subtract 1 from record "Lines in Play" data
          Set Flag "Line Cleared" False
       if record "Lines in Play" data = 4
          begin
            Put 10 on record "MMProgression" data index
          end
          if record "Lines in Play" data = 3
             begin
               Put 20 on record "MMProgression" data index
             end
          if record "Lines in Play" data = 2
             begin
               Put 30 on record "MMProgression" data index
          end
        end

        {If there is 1 line left, start a new session}
        if record "Lines in Play" data = record "LineStop" data
           begin
            {Reverse all flags so Line that didn't hit, we don't play for next session}
      Put 1 on record "Line Flag" data index
             Loop until record "Line Flag" data index > record "Line Flag" data count
        begin
          if record "Line Flag" data = 0
             begin
                      Put 1 on record "Line Flag" data
             end
          else
             begin
               Put 0 on record "Line Flag" data
             end
          Add 1 to record "Line Flag" data index
        end
             Put 5 on record "Lines in Play" data
             Put 0 on all bets
      Put 0 on record "MMProgression" data index
           end {If there is 1 line left}
      end {If Flag "Bet Placed"}
    end {If zero did not show}
    Set Flag "Line Cleared" False
    Set Flag "Zero Hit" False
{    if Bankroll < record "Lowest Bankroll" data
        begin
            put 100% bankroll on record "Lowest Bankroll" data
        end}

  end {method Process}

method "Bet"
  begin
    if Flag "MMProgression" True
    begin
      Add 1 to record "MMProgression" data index
      if record "MMProgression" data index > record "MMProgression" data count
         begin
           put 0 on record "MMProgression" data index
         end
    end
    put 1 on record "Line Flag" data index
    Loop until record "Line Flag" data index > record "Line Flag" data count
      begin
        if record "Line Flag" data = 1   {If flag=1 then bet on this Line}
           begin
          if Flag "MMProgression" is False
             begin
                  put 100% record "Line Flag" data index on record "Line List" layout index
                  Add 1 unit on record "Line List" layout
             end
          else
        begin
                 put 100% record "Line Flag" data index on record "Line List" layout index
          put 100% record "MMProgression" data on record "Line List" layout
        end
           end
        add 1 to record "Line Flag" data index
      end
    Set Flag "Bet Placed" True
end

method "Input"
  begin
    group
      begin
        Input Data "Stop with how many Lines left?" to record "LineStop" data
        Input Dropdown "Wheel type
                        1:=Single Zero
                        2:=Double Zero" to record "wheel type" data
     Input Checkbox "Use Magic Mat progression  " to Flag "MMProgression"
   end {group}
      if record "wheel type" data = 1
         begin
           load single wheel
         end
      else
         begin
           load double wheel
         end
  end {method "Input"}

method "setup"
begin
  put 1 on record "LineStop" data
  Call "Input"
  Set Flag "Startup" to True
  Set Flag "Bet Placed" to False
  Set Flag "Line Cleared" to False
  Set Flag "Zero Hit" to False
  Put 1 on record "Bet Level" data
  Put 5 on record "Lines in Play" data
  Set List [1,1,1,1,1,1] Record "Line Flag" data
  Set List [1,1,2,2,3,3,4,4,5,5,6,6] record "Line List Value" data
  Copy List [Line(1-6), Line(7-12), Line(13-18), Line(19-24), Line(25-30), Line(31-36)] record "Line List" layout
  Copy List [Street(1-3), Street(4-6), Street(7-9), Street(10-12), Street(13-15), Street(16-18),
  Street(19-21), Street(22-24), Street(25-27), Street(28-30), Street(31-33), Street(34-36)] record "Street List" layout
  Set List [1,6,20,0,0,0,0,0,0,0,1,3,9,27,0,0,0,0,0,0,1,2,4,8,16,32,0,0,0,0,1,2,3,4,6,9,14,20,30,45] record "MMProgression" data
  put 0 on record "MMProgression" data index
end