Billy's P.O.T.P. System
(billy winton | Stormor) contare quante volte escono i numeri e quando uno arriva a tre uscite giocarlo con i due vicini sulla ruota.
Billys P.O.T.P. System.dgt
—
Xtreme,
31 KB (32546 bytes)
Contenuto del file
system "Billy's P.O.T.P. System"
{
*************************************
* System by billy winton *
* on the VIP Lounge *
*************************************
Rx-ed by St0rm0r
-------------------------------------
00-c0mpatible
-------------------------------------
Track how many times each number shows.
If a number shows for 3 times, bet on the number + on the number on either side
of the table layout.
If two numbers next to each other showed in total 3 times, bet on these 2 numbers.
On a new high or after 37 spins: reset the game.
-------------------------------------
}
method "main"
begin
//do this once
while starting new session
begin
call "init"
exit
end
//do the tracking
add 100% net record"profit"data
track last number for 1 time record"last N"layout
add 1 record"#spins"data
if record"#spins"data = 37 or bankroll > record"high"data
begin
call "reset"
put 0 record"profit"data
if bankroll >= record"high"data
begin
put 1 record"base bet"data
put 100% bankroll record"high"data
end
else
begin
if record"MM"data = 2
begin
add 1 record"base bet"data
end
end
exit
end
call "update frequencies"
call "get numbers that qualified"
call "generate number play list"
if record"PT"data = 2 or record"PT"data = 3
begin
call "generate split list"
end
if record"MM"data = 3
begin
if record"PT"data = 1 or record"PT"data = 3
begin
call "determine betting unit straight numbers"
end
if record"PT"data = 2 or record"PT"data = 3
begin
call "determine betting unit split numbers"
end
end
//bet
if record"#spins"data >= record"start bet variable"data
begin
if record"PT"data = 1 or record"PT"data = 3
begin
put 100% record"bet unit"data record"numbers to play"layout list
multiply by 100% record"base bet"data on record"numbers to play"layout list
end
if record"PT"data = 2 or record"PT"data = 3
begin
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout is found in record"numbers"layout
begin put 1 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"splits"layout
begin put 2 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"streets"layout
begin put 3 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"corners"layout
begin put 4 record"split bet unit"data index end
if record"split numbers to play"layout = Line(1-00)
begin put 5 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"lines"layout
begin put 6 record"split bet unit"data index end
put 100% record"split bet unit"data record"split numbers to play"layout
multiply by 100% record"base bet"data on record"split numbers to play"layout
add 1 record"split numbers to play"layout index
end
end
end
end
// subroutines
method "init"
begin
group
begin
display "Billy's P.O.T.P. System"
display "--------------------------------------"
input dropdown "Wheel Type:
1:= single zero
2:= double zero" record"WT"data
input drop down "Bet selection on:
1:= Table Layout
2:= Wheel Layout" record"BS"data
input drop down "Type of Play:
1:= play straight up numbers only
2:= use splits,streets,lines,corners to the maximum
3:= play both to see the decisions in action" record"PT"data
input data "Do not bet until spin number: " record"start bet variable"data
input dropdown "Money Management:
1:= always flat bet
2:= flat bet, increase base unit +1 after a losing game
3:= always bet just enough to be in profit in 1 hit" record"MM"data
end
if record"WT"data = 1
begin
load single wheel
if record"BS"data = 1
begin
copy list [number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
end
else
begin
copy list [number 0,number 32,number 15,number 19,number 4,number 21,number 2,
number 25,number 17,number 34,number 6,number 27,number 13,number 36,number 11,
number 30,number 8,number 23,number 10,number 5,number 24,number 16, number 33,
number 1,number 20,number 14,number 31,number 9,number 22,number 18,number 29,
number 7,number 28,number 12,number 35,number 3, number 26] to record"numbers"layout
end
put 37 record"lenght"data
end
else
begin
load double wheel
if record"BS"data = 1
begin
copy list [number 00, number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
end
else
begin
copy list [number 00, number 27, number 10, number 25, number 29,number 12,number 8,number 19,
number 31,number 18,number 6,number 21,number 33,number 16,number 4,number 23,
number 35,number 14,number 2,number 0,number 28,number 9,number 26,number 30,
number 11,number 7,number 20,number 32,number 17,number 5,number 22,number 34,
number 15,number 3,number 24,number 36,number 13,number 1] to record"numbers"layout
end
put 38 record"lenght"data
end
set list [36,18,12,9,7,6] record"return"data
put 1 record"base bet"data
put 100% bankroll record"high"data
put 0 record"profit"data
put 1 record"bet unit"data
set list [1,1,1,1,1,1] record"split bet unit"data
call "reset"
call "init splits"
end
method "reset"
begin
if record"WT"data = 1
begin
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"frequencies"data
end
else
begin
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"frequencies"data
end
put 0 record"#spins"data
put 0 record"amount of numbers active"data
end
method "update frequencies"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"last N"layout
begin
add 1 record"numbers"layout index
end
put 100% record"numbers"layout index record"frequencies"data index
add 1 record"frequencies"data
end
method "get numbers that qualified"
begin
clear record"qualifying numbers (3)"layout
clear record"qualifying numbers (2)"layout
put 1 record"run for"data
loop until record"run for"data > record"lenght"data
begin
put 100% record"run for"data record"frequencies"data index
if record"frequencies"data >= 3
begin
put 100% record"frequencies"data index record"numbers"layout index
if record"numbers"layout not found in record"qualifying numbers (3)"layout
begin
copy record"numbers"layout record"qualifying numbers (3)"layout
add 1 record"qualifying numbers (3)"layout index
end
end
if record"frequencies"data > 0
begin
put 100% record"frequencies"data record"subtotal"data
add 1 record"frequencies"data index
if record"frequencies"data index > record"frequencies"data count
begin
put 1 record"frequencies"data index
end
if record"frequencies"data > 0
begin
add 100% record"frequencies"data record"subtotal"data
if record"subtotal"data >=3
begin
call "copy number (2)"
call "subtract 1"
call "copy number (2)"
end
end
end
add 1 record"run for"data
end
end
method "copy number (2)"
begin
put 100% record"frequencies"data index record"numbers"layout index
if record"numbers"layout not found in record"qualifying numbers (2)"layout
begin
copy record"numbers"layout record"qualifying numbers (2)"layout
add 1 record"qualifying numbers (2)"layout index
end
end
method "subtract 1"
begin
subtract 1 record"frequencies"data index
if record"frequencies"data index < 1
begin put 100% record"lenght"data record"frequencies"data index end
end
method "subtract 1 number"
begin
subtract 1 record"numbers"layout index
if record"numbers"layout index < 1
begin put 100% record"lenght"data record"numbers"layout index end
end
method "add 1 number"
begin
add 1 record"numbers"layout index
if record"numbers"layout index > record"numbers"layout count
begin put 1 record"numbers"layout index end
end
method "copy number"
begin
if record"numbers"layout not found in record"numbers to play"layout
begin
copy record"numbers"layout record"numbers to play"layout
add 1 record"numbers to play"layout index
end
end
method "generate number play list"
begin
//combine 3 and 2 numbers to play
clear record"numbers to play"layout
duplicate record"qualifying numbers (2)" record"numbers to play"
call "goto end of play list"
put 1 record"qualifying numbers (3)" layout index
loop until record"qualifying numbers (3)" layout index > record"qualifying numbers (3)" layout count
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"qualifying numbers (3)"layout
begin
add 1 record"numbers"layout index
end
call "subtract 1 number"
call "copy number"
call "add 1 number"
call "copy number"
call "add 1 number"
call "copy number"
add 1 record"qualifying numbers (3)" layout index
end
end
method "goto end of play list"
begin
put 0 record"amount of numbers active"data
put 1 record"numbers to play"layout index
loop until record"numbers to play"layout index > record"numbers to play"layout count
begin
add 1 record"amount of numbers active"data
add 1 record"numbers to play"layout index
end
end
method "determine betting unit straight numbers"
begin
//determine amount of numbers to play
call "goto end of play list"
//calculate bet
put 100% record"profit"data record"count"data
put 0 record"bet unit"data
loop until record"count"data > 0
begin
subtract 100% record"amount of numbers active"data record"count"data
add 36 record"count"data
add 1 record"bet unit"data
end
end
method "calculate total bet"
begin
put 100% record"split bet unit"data index record"save"data
put 0 record"total bet"data
put 1 record"how many of each"data index
loop until record"how many of each"data index > record"how many of each"data count
begin
put 100% record"how many of each"data index record"split bet unit"data index
put 100% record"how many of each"data record"temp1"data
multiply by 100% record"split bet unit"data record"temp1"data
add 100% record"temp1"data record"total bet"data
add 1 record"how many of each"data index
end
put 100% record"save"data record"split bet unit"data index
end
method "determine betting unit split numbers"
begin
set list [1,1,1,1,1,1] record"split bet unit"data
//determine minimum needed for each type of bet
put 1 record"how many of each"data index
loop until record"how many of each"data index > record"how many of each"data count
begin
put 100% record"how many of each"data index record"hold"data
call "calculate total bet"
put 100% record"hold"data record"how many of each"data index
put 100% record"how many of each"data index record"split bet unit"data index
if record"how many of each"data > 0
begin
put 100% record"how many of each"data index record"return"data index
put 100% record"profit"data record"count"data
subtract 100% record"total bet"data record"count"data
put 0 record"split bet unit"data
loop until record"count"data > 0
begin
subtract 1 record"count"data
add 100% record"return"data record"count"data
add 1 record"split bet unit"data
end
end
else
begin
put 0 record"split bet unit"data
end
add 1 record"how many of each"data index
end
set flag "ok" false
loop until flag "ok" true
begin
set flag "ok" true
put 1 record"how many of each"data index
loop until record"how many of each"data index > record"how many of each"data count
begin
if record"how many of each"data > 0
begin
put 100% record"how many of each"data index record"split bet unit"data index
put 100% record"how many of each"data index record"return"data index
put 100% record"how many of each"data index record"hold"data
call "calculate total bet"
subtract 100% record"profit"data record"total bet"data
add 1 record"total bet"data
put 100% record"hold"data record"how many of each"data index
put 100% record"split bet unit"data record"temp1"data
multiply by 100% of record"return"data record"temp1"data
if record"temp1"data < record"total bet"data
begin
add 1 record"split bet unit"data
set flag "ok" false
end
end
add 1 record"how many of each"data index
end
end
end
method "determine betting unit mixed numbers"
begin
end
method "generate split list"
begin
//convert "numbers to play" into 1)streets 2) lines 3) corners 4) splits in record"split numbers to play"layout
//Special: line (1-00)
if record"special1"layout is found in record"split numbers to play"layout and
record"special2"layout is found in record"split numbers to play"layout and
record"special3"layout is found in record"split numbers to play"layout and
record"special4"layout is found in record"split numbers to play"layout and
record"special5"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = number 0 and
record"split numbers to play"layout not = number 00 and
record"split numbers to play"layout not = number 1 and
record"split numbers to play"layout not = number 2 and
record"split numbers to play"layout not = number 3
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy Line(1-00) record"temp"layout
duplicate record"temp" record"split numbers to play"
end
//streets
duplicate record"numbers to play" record"split numbers to play"
put 1 record"streets"layout index
loop until record"streets"layout index > record"streets"layout count
begin
put 100% record"streets"layout index record"streets1"layout index
put 100% record"streets"layout index record"streets2"layout index
put 100% record"streets"layout index record"streets3"layout index
if record"streets1"layout is found in record"split numbers to play"layout and
record"streets2"layout is found in record"split numbers to play"layout and
record"streets3"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"streets1"layout and
record"split numbers to play"layout not = record"streets2"layout and
record"split numbers to play"layout not = record"streets3"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"streets"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"streets"layout index
end
//lines
put 1 record"lines"layout index
loop until record"lines"layout index > record"lines"layout count
begin
put 100% record"lines"layout index record"lines1"layout index
put 100% record"lines"layout index record"lines2"layout index
if record"lines1"layout is found in record"split numbers to play"layout and
record"lines2"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"lines1"layout and
record"split numbers to play"layout not = record"lines2"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"lines"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"lines"layout index
end
//corners
put 1 record"corners"layout index
loop until record"corners"layout index > record"corners"layout count
begin
put 100% record"corners"layout index record"corners1"layout index
put 100% record"corners"layout index record"corners2"layout index
put 100% record"corners"layout index record"corners3"layout index
put 100% record"corners"layout index record"corners4"layout index
if record"corners1"layout is found in record"split numbers to play"layout and
record"corners2"layout is found in record"split numbers to play"layout and
record"corners3"layout is found in record"split numbers to play"layout and
record"corners4"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"corners1"layout and
record"split numbers to play"layout not = record"corners2"layout and
record"split numbers to play"layout not = record"corners3"layout and
record"split numbers to play"layout not = record"corners4"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"corners"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"corners"layout index
end
//splits
put 1 record"splits"layout index
loop until record"splits"layout index > record"splits"layout count
begin
put 100% record"splits"layout index record"splits1"layout index
put 100% record"splits"layout index record"splits2"layout index
if record"splits1"layout is found in record"split numbers to play"layout and
record"splits2"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"splits1"layout and
record"split numbers to play"layout not = record"splits2"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"splits"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"splits"layout index
end
set list [0,0,0,0,0,0] record"how many of each"data
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout is found in record"numbers"layout
begin
put 1 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"splits"layout
begin
put 2 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"streets"layout
begin
put 3 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"corners"layout
begin
put 4 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout = Line(1-00)
begin
put 5 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"lines"layout
begin
put 6 record"how many of each"data index
add 1 record"how many of each"data
end
add 1 record"split numbers to play"layout index
end
end
method "init splits"
begin
//special line(1-00)
copy number 0 record"special1"layout
copy number 00 record"special2"layout
copy number 1 record"special3"layout
copy number 2 record"special4"layout
copy number 3 record"special5"layout
//splits
if record"WT"data = 1
begin
copy list [Split(1-0),Split(2-0),Split(3-0),Split(1-2),Split(1-4),Split(2-3),
Split(2-5),Split(3-6),Split(4-5),Split(4-7),Split(5-6),Split(5-8),Split(6-9),Split(7-8),
Split(7-10),Split(8-9),Split(8-11),Split(9-12),Split(10-11),Split(10-13),Split(10-13),Split(11-12),
Split(11-14),Split(12-15),Split(13-14),Split(13-16),Split(14-15),Split(14-17),Split(15-18),Split(16-17),
Split(16-19),Split(17-18),Split(17-20),Split(18-21),Split(19-20),Split(19-22),
Split(20-21),Split(20-23),Split(21-24),Split(22-23),Split(22-25),Split(23-24),Split(23-26),
Split(24-27),Split(25-26),Split(25-28),Split(26-27),Split(26-29),Split(27-30),Split(28-29),
Split(28-31),Split(29-30),Split(29-30),Split(29-32),Split(30-33),Split(31-32),Split(31-34),
Split(32-33),Split(32-35),Split(33-36),Split(34-35),Split(35-36),Split(0-00),Split(3-00)] record"splits"layout
copy list [number 1,number 2,number 3,number 1,number 1,number 2,
number 2,number 3,number 4,number 4,number 5,number 5,number 6,number 7,
number 7,number 8,number 8,number 9,number 10,number 10,number 10,number 11,
number 11,number 12,number 13,number 13,number 14,number 14,number 15,number 16,
number 16,number 17,number 17,number 18,number 19,number 19,
number 20,number 20,number 21,number 22,number 22,number 23,number 23,
number 24,number 25,number 25,number 26,number 26,number 27,number 28,
number 28,number 29,number 29,number 29,number 30,number 31,number 31,
number 32,number 32,number 33,number 34,number 35,number 0,number 3] record"splits1"layout
copy list [number 0,number 0,number 0,number 2,number 4,number 3,
number 5,number 6,number 5,number 7,number 6,number 8,number 9,number 8,
number 10,number 9,number 11,number 12,number 11,number 13,number 13,number 12,
number 14,number 15,number 14,number 16,number 15,number 17,number 18,number 17,
number 19,number 18,number 20,number 21,number 20,number 22,
number 21,number 23,number 24,number 23,number 25,number 24,number 26,
number 27,number 26,number 28,number 27,number 29,number 30,number 29,
number 31,number 30,number 30,number 32,number 33,number 32,number 34,
number 33,number 35,number 36,number 35,number 36,number 00,number 00] record"splits2"layout
end
else
begin
copy list [Split(1-0),Split(1-2),Split(1-4),Split(2-3),
Split(2-5),Split(3-6),Split(4-5),Split(4-7),Split(5-6),Split(5-8),Split(6-9),Split(7-8),
Split(7-10),Split(8-9),Split(8-11),Split(9-12),Split(10-11),Split(10-13),Split(10-13),Split(11-12),
Split(11-14),Split(12-15),Split(13-14),Split(13-16),Split(14-15),Split(14-17),Split(15-18),Split(16-17),
Split(16-19),Split(17-18),Split(17-20),Split(18-21),Split(19-20),Split(19-22),
Split(20-21),Split(20-23),Split(21-24),Split(22-23),Split(22-25),Split(23-24),Split(23-26),
Split(24-27),Split(25-26),Split(25-28),Split(26-27),Split(26-29),Split(27-30),Split(28-29),
Split(28-31),Split(29-30),Split(29-30),Split(29-32),Split(30-33),Split(31-32),Split(31-34),
Split(32-33),Split(32-35),Split(33-36),Split(34-35),Split(35-36),Split(0-00),Split(3-00)] record"splits"layout
copy list [number 1,number 1,number 1,number 2,
number 2,number 3,number 4,number 4,number 5,number 5,number 6,number 7,
number 7,number 8,number 8,number 9,number 10,number 10,number 10,number 11,
number 11,number 12,number 13,number 13,number 14,number 14,number 15,number 16,
number 16,number 17,number 17,number 18,number 19,number 19,
number 20,number 20,number 21,number 22,number 22,number 23,number 23,
number 24,number 25,number 25,number 26,number 26,number 27,number 28,
number 28,number 29,number 29,number 29,number 30,number 31,number 31,
number 32,number 32,number 33,number 34,number 35,number 0,number 3] record"splits1"layout
copy list [number 0,number 2,number 4,number 3,
number 5,number 6,number 5,number 7,number 6,number 8,number 9,number 8,
number 10,number 9,number 11,number 12,number 11,number 13,number 13,number 12,
number 14,number 15,number 14,number 16,number 15,number 17,number 18,number 17,
number 19,number 18,number 20,number 21,number 20,number 22,
number 21,number 23,number 24,number 23,number 25,number 24,number 26,
number 27,number 26,number 28,number 27,number 29,number 30,number 29,
number 31,number 30,number 30,number 32,number 33,number 32,number 34,
number 33,number 35,number 36,number 35,number 36,number 00,number 00] record"splits2"layout
end
//streets
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),Corner(2:00),Street(00-3),Street(0-2)] record"streets"layout
copy list [number 1,number 4,number 7,number 10,number 13,number 16,
number 19,number 22,number 25,number 28,number 31,number 34,number 0,number 00,number 0] record"streets1"layout
copy list [number 2,number 5,number 8,number 11,number 14,number 17,
number 20,number 23,number 26,number 29,number 32,number 35,number 00,number 2,number 1] record"streets2"layout
copy list [number 3,number 6,number 9,number 12,number 15,number 18,
number 21,number 24,number 27,number 30,number 33,number 36,number 2,number 3,number 2] record"streets3"layout
//corners
if record"WT"data = 1
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),Line(1-0)] record"corners"layout
copy list [number 1,number 2,number 4,number 5,number 7,number 8,number 10,
number 11,number 13,number 14,number 16,number 17,number 19,number 20,number 22,
number 23,number 25,number 26,number 28,number 29,number 31,number 32,number 0] record"corners1"layout
copy list [number 2,number 3,number 5,number 6,number 8,number 9,number 11,
number 12,number 14,number 15,number 17,number 18,number 20,number 21,number 23,
number 24,number 26,number 27,number 29,number 30,number 32,number 33,number 1] record"corners2"layout
copy list [number 4,number 5,number 7,number 8,number 10,number 11,number 13,
number 14,number 16,number 17,number 19,number 20,number 22,number 23,number 25,
number 26,number 28,number 29,number 31,number 32,number 34,number 35,number 2] record"corners3"layout
copy list [number 5,number 6,number 8,number 9,number 11,number 12,number 14,
number 15,number 17,number 18,number 20,number 21,number 23,number 24,number 26,
number 27,number 29,number 30,number 32,number 33,number 35,number 36,number 3] record"corners4"layout
end
else
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)] record"corners"layout
copy list [number 1,number 2,number 4,number 5,number 7,number 8,number 10,
number 11,number 13,number 14,number 16,number 17,number 19,number 20,number 22,
number 23,number 25,number 26,number 28,number 29,number 31,number 32] record"corners1"layout
copy list [number 2,number 3,number 5,number 6,number 8,number 9,number 11,
number 12,number 14,number 15,number 17,number 18,number 20,number 21,number 23,
number 24,number 26,number 27,number 29,number 30,number 32,number 33] record"corners2"layout
copy list [number 4,number 5,number 7,number 8,number 10,number 11,number 13,
number 14,number 16,number 17,number 19,number 20,number 22,number 23,number 25,
number 26,number 28,number 29,number 31,number 32,number 34,number 35] record"corners3"layout
copy list [number 5,number 6,number 8,number 9,number 11,number 12,number 14,
number 15,number 17,number 18,number 20,number 21,number 23,number 24,number 26,
number 27,number 29,number 30,number 32,number 33,number 35,number 36] record"corners4"layout
end
//Lines
copy list [Line(1-6),Line(4-9),Line(7-12),Line(10-15),Line(13-18),Line(16-21),
Line(19-24),Line(22-27),Line(25-30),Line(28-33),Line(31-36)] record"lines"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)] record"lines1"layout
copy list [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"lines2"layout
end
