Kevs Labby

Contenuto del file

system "Kevs Labby"
{
*************************************
* System by Kev *
* on PM *
*************************************
Rx-ed by St0rm0r
-------------------------------------
00-c0mpatible
-------------------------------------
Start with a series: [1]
On a loss: add loss and spread evenly, ALWAYS go on the outside of the labby
first.
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
begin
call "init"
end

// section 2: do the tracking


// section 3: act on a loss
if net < 0
begin
call "get labby total"
call "redistribute labby"
end

// section 4:act on a win
if net > 0
begin
call "get labby total 2"
if record"labby"data count > 1
begin
call "redistribute labby"
end
end

call "get betting amount"
//bet
put 100% record"bet amount"data on red

end

// subroutines
method "init"
begin
set list [1] record"labby"data
end

method "get betting amount"
begin
put 1 record"labby"data index
put 100% record"labby"data record"bet amount"data
if record"labby"data count > 1
begin
put 1 record"labby"data index
loop until record"labby"data index = record"labby"data count
begin
add 1 record"labby"data index
end
add 100% record"labby"data record"bet amount"data
end
end

method "get labby total"
begin
put 0 record"labby lenght"data
put 0 record"total"data
put 1 record"labby"data index
loop until record"labby"data index > record"labby"data count
begin
add 100% record"labby"data record"total"data
add 1 record"labby lenght"data
add 1 record"labby"data index
end
add 100% record"bet amount"data record"total"data
add 1 record"labby lenght"data
end

method "get labby total 2"
begin
put 0 record"labby lenght"data
put 0 record"total"data
put 1 record"labby"data index
loop until record"labby"data index > record"labby"data count
begin
add 100% record"labby"data record"total"data
add 1 record"labby lenght"data
add 1 record"labby"data index
end
subtract 100% record"bet amount"data record"total"data
subtract 2 record"labby lenght"data
if record"labby lenght"data < 1
begin
clear record"labby"data
set list [1] record"labby"data
end
end

method "redistribute labby"
begin
clear record"labby"data
loop until record"total"data = 0
begin
add 1 record"labby"data
add 1 record"labby"data index
if record"labby"data index > record"labby lenght"data
begin
put 1 record"labby"data index
end
subtract 1 record"total"data
end
clear record"temp"data
put 2 record"labby"data index
loop until record"labby"data index > record"labby"data count
begin
put 100% record"labby"data record"temp"data
add 1 record"temp"data index
add 1 record"labby"data index
end
put 1 record"labby"data index
put 100% record"labby"data record"temp"data
duplicate record"temp" record"labby"
end