Code (freebasic) Select
Subroutine set_bets()
REM Clear counter
bets_count = 0
REM Clear hoding string
bets$ = ""
REM iterate splits
REM 1/0
if sp_1_0[2] > 0 and sp_1_0[3] > 0 and sp_1_0[2] = sp_1_0[3] then
REM Add to bets
bets$ = bets$ + ",1-0"
REM Rise bets counter
bets_count += 1
end if
REM 2/0
if sp_2_0[2] > 0 and sp_2_0[3] > 0 and sp_2_0[2] = sp_2_0[3] then
REM Add to bets
bets$ = bets$ + ",2-0"
REM Rise bets counter
bets_count += 1
end if
REM 3/0
if sp_3_0[2] > 0 and sp_3_0[3] > 0 and sp_3_0[2] = sp_3_0[3] then
REM Add to bets
bets$ = bets$ + ",3-0"
REM Rise bets counter
bets_count += 1
end if
REM 1/2
if sp_1_2[2] > 0 and sp_1_2[3] > 0 and sp_1_2[2] = sp_1_2[3] then
REM Add to bets
bets$ = bets$ + ",1-2"
REM Rise bets counter
bets_count += 1
end if
REM 1/4
if sp_1_4[2] > 0 and sp_1_4[3] > 0 and sp_1_4[2] = sp_1_4[3] then
REM Add to bets
bets$ = bets$ + ",1-4"
REM Rise bets counter
bets_count += 1
end if
REM 2/3
if sp_2_3[2] > 0 and sp_2_3[3] > 0 and sp_2_3[2] = sp_2_3[3] then
REM Add to bets
bets$ = bets$ + ",2-3"
REM Rise bets counter
bets_count += 1
end if
REM 2/5
if sp_2_5[2] > 0 and sp_2_5[3] > 0 and sp_2_5[2] = sp_2_5[3] then
REM Add to bets
bets$ = bets$ + ",2-5"
REM Rise bets counter
bets_count += 1
end if
REM 3/6
if sp_3_6[2] > 0 and sp_3_6[3] > 0 and sp_3_6[2] = sp_3_6[3] then
REM Add to bets
bets$ = bets$ + ",3-6"
REM Rise bets counter
bets_count += 1
end if
REM 4/5
if sp_4_5[2] > 0 and sp_4_5[3] > 0 and sp_4_5[2] = sp_4_5[3] then
REM Add to bets
bets$ = bets$ + ",4-5"
REM Rise bets counter
bets_count += 1
end if
REM 4/7
if sp_4_7[2] > 0 and sp_4_7[3] > 0 and sp_4_7[2] = sp_4_7[3] then
REM Add to bets
bets$ = bets$ + ",4-7"
REM Rise bets counter
bets_count += 1
end if
REM 5/6
if sp_5_6[2] > 0 and sp_5_6[3] > 0 and sp_5_6[2] = sp_5_6[3] then
REM Add to bets
bets$ = bets$ + ",5-6"
REM Rise bets counter
bets_count += 1
end if
REM 5/8
if sp_5_8[2] > 0 and sp_5_8[3] > 0 and sp_5_8[2] = sp_5_8[3] then
REM Add to bets
bets$ = bets$ + ",5-8"
REM Rise bets counter
bets_count += 1
end if
REM 6/9
if sp_6_9[2] > 0 and sp_6_9[3] > 0 and sp_6_9[2] = sp_6_9[3] then
REM Add to bets
bets$ = bets$ + ",6-9"
REM Rise bets counter
bets_count += 1
end if
REM 7/8
if sp_7_8[2] > 0 and sp_7_8[3] > 0 and sp_7_8[2] = sp_7_8[3] then
REM Add to bets
bets$ = bets$ + ",7-8"
REM Rise bets counter
bets_count += 1
end if
REM 7/10
if sp_7_10[2] > 0 and sp_7_10[3] > 0 and sp_7_10[2] = sp_7_10[3] then
REM Add to bets
bets$ = bets$ + ",7-10"
REM Rise bets counter
bets_count += 1
end if
REM 8/9
if sp_8_9[2] > 0 and sp_8_9[3] > 0 and sp_8_9[2] = sp_8_9[3] then
REM Add to bets
bets$ = bets$ + ",8-9"
REM Rise bets counter
bets_count += 1
end if
REM 8/11
if sp_8_11[2] > 0 and sp_8_11[3] > 0 and sp_8_11[2] = sp_8_11[3] then
REM Add to bets
bets$ = bets$ + ",8-11"
REM Rise bets counter
bets_count += 1
end if
REM 9/12
if sp_9_12[2] > 0 and sp_9_12[3] > 0 and sp_9_12[2] = sp_9_12[3] then
REM Add to bets
bets$ = bets$ + ",9-12"
REM Rise bets counter
bets_count += 1
end if
REM 10/11
if sp_10_11[2] > 0 and sp_10_11[3] > 0 and sp_10_11[2] = sp_10_11[3] then
REM Add to bets
bets$ = bets$ + ",10-11"
REM Rise bets counter
bets_count += 1
end if
REM 10/13
if sp_10_13[2] > 0 and sp_10_13[3] > 0 and sp_10_13[2] = sp_10_13[3] then
REM Add to bets
bets$ = bets$ + ",10-13"
REM Rise bets counter
bets_count += 1
end if
REM 11/12
if sp_11_12[2] > 0 and sp_11_12[3] > 0 and sp_11_12[2] = sp_11_12[3] then
REM Add to bets
bets$ = bets$ + ",11-12"
REM Rise bets counter
bets_count += 1
end if
REM 11/14
if sp_11_14[2] > 0 and sp_11_14[3] > 0 and sp_11_14[2] = sp_11_14[3] then
REM Add to bets
bets$ = bets$ + ",11-14"
REM Rise bets counter
bets_count += 1
end if
REM 12/15
if sp_12_15[2] > 0 and sp_12_15[3] > 0 and sp_12_15[2] = sp_12_15[3] then
REM Add to bets
bets$ = bets$ + ",12-15"
REM Rise bets counter
bets_count += 1
end if
REM 13/14
if sp_13_14[2] > 0 and sp_13_14[3] > 0 and sp_13_14[2] = sp_13_14[3] then
REM Add to bets
bets$ = bets$ + ",13-14"
REM Rise bets counter
bets_count += 1
end if
REM 13/16
if sp_13_16[2] > 0 and sp_13_16[3] > 0 and sp_13_16[2] = sp_13_16[3] then
REM Add to bets
bets$ = bets$ + ",13-16"
REM Rise bets counter
bets_count += 1
end if
REM 14/15
if sp_14_15[2] > 0 and sp_14_15[3] > 0 and sp_14_15[2] = sp_14_15[3] then
REM Add to bets
bets$ = bets$ + ",14-15"
REM Rise bets counter
bets_count += 1
end if
REM 14/17
if sp_14_17[2] > 0 and sp_14_17[3] > 0 and sp_14_17[2] = sp_14_17[3] then
REM Add to bets
bets$ = bets$ + ",14-17"
REM Rise bets counter
bets_count += 1
end if
REM 15/18
if sp_15_18[2] > 0 and sp_15_18[3] > 0 and sp_15_18[2] = sp_15_18[3] then
REM Add to bets
bets$ = bets$ + ",15-18"
REM Rise bets counter
bets_count += 1
end if
REM 16/17
if sp_16_17[2] > 0 and sp_16_17[3] > 0 and sp_16_17[2] = sp_16_17[3] then
REM Add to bets
bets$ = bets$ + ",16-17"
REM Rise bets counter
bets_count += 1
end if
REM 16/19
if sp_16_19[2] > 0 and sp_16_19[3] > 0 and sp_16_19[2] = sp_16_19[3] then
REM Add to bets
bets$ = bets$ + ",16-19"
REM Rise bets counter
bets_count += 1
end if
REM 17/18
if sp_17_18[2] > 0 and sp_17_18[3] > 0 and sp_17_18[2] = sp_17_18[3] then
REM Add to bets
bets$ = bets$ + ",17-18"
REM Rise bets counter
bets_count += 1
end if
REM 17/20
if sp_17_20[2] > 0 and sp_17_20[3] > 0 and sp_17_20[2] = sp_17_20[3] then
REM Add to bets
bets$ = bets$ + ",17-20"
REM Rise bets counter
bets_count += 1
end if
REM 18/21
if sp_18_21[2] > 0 and sp_18_21[3] > 0 and sp_18_21[2] = sp_18_21[3] then
REM Add to bets
bets$ = bets$ + ",18-21"
REM Rise bets counter
bets_count += 1
end if
REM 19/20
if sp_19_20[2] > 0 and sp_19_20[3] > 0 and sp_19_20[2] = sp_19_20[3] then
REM Add to bets
bets$ = bets$ + ",19-20"
REM Rise bets counter
bets_count += 1
end if
REM 19/22
if sp_19_22[2] > 0 and sp_19_22[3] > 0 and sp_19_22[2] = sp_19_22[3] then
REM Add to bets
bets$ = bets$ + ",19-22"
REM Rise bets counter
bets_count += 1
end if
REM 20/21
if sp_20_21[2] > 0 and sp_20_21[3] > 0 and sp_20_21[2] = sp_20_21[3] then
REM Add to bets
bets$ = bets$ + ",20-21"
REM Rise bets counter
bets_count += 1
end if
REM 20/23
if sp_20_23[2] > 0 and sp_20_23[3] > 0 and sp_20_23[2] = sp_20_23[3] then
REM Add to bets
bets$ = bets$ + ",20-23"
REM Rise bets counter
bets_count += 1
end if
REM 21/24
if sp_21_24[2] > 0 and sp_21_24[3] > 0 and sp_21_24[2] = sp_21_24[3] then
REM Add to bets
bets$ = bets$ + ",21-24"
REM Rise bets counter
bets_count += 1
end if
REM 22/23
if sp_22_23[2] > 0 and sp_22_23[3] > 0 and sp_22_23[2] = sp_22_23[3] then
REM Add to bets
bets$ = bets$ + ",22-23"
REM Rise bets counter
bets_count += 1
end if
REM 22/25
if sp_22_25[2] > 0 and sp_22_25[3] > 0 and sp_22_25[2] = sp_22_25[3] then
REM Add to bets
bets$ = bets$ + ",22-25"
REM Rise bets counter
bets_count += 1
end if
REM 23/24
if sp_23_24[2] > 0 and sp_23_24[3] > 0 and sp_23_24[2] = sp_23_24[3] then
REM Add to bets
bets$ = bets$ + ",23-24"
REM Rise bets counter
bets_count += 1
end if
REM 23/26
if sp_23_26[2] > 0 and sp_23_26[3] > 0 and sp_23_26[2] = sp_23_26[3] then
REM Add to bets
bets$ = bets$ + ",23-26"
REM Rise bets counter
bets_count += 1
end if
REM 24/27
if sp_24_27[2] > 0 and sp_24_27[3] > 0 and sp_24_27[2] = sp_24_27[3] then
REM Add to bets
bets$ = bets$ + ",24-27"
REM Rise bets counter
bets_count += 1
end if
REM 25/26
if sp_25_26[2] > 0 and sp_25_26[3] > 0 and sp_25_26[2] = sp_25_26[3] then
REM Add to bets
bets$ = bets$ + ",25-26"
REM Rise bets counter
bets_count += 1
end if
REM 25/28
if sp_25_28[2] > 0 and sp_25_28[3] > 0 and sp_25_28[2] = sp_25_28[3] then
REM Add to bets
bets$ = bets$ + ",25-28"
REM Rise bets counter
bets_count += 1
end if
REM 26/27
if sp_26_27[2] > 0 and sp_26_27[3] > 0 and sp_26_27[2] = sp_26_27[3] then
REM Add to bets
bets$ = bets$ + ",26-27"
REM Rise bets counter
bets_count += 1
end if
REM 26/29
if sp_26_29[2] > 0 and sp_26_29[3] > 0 and sp_26_29[2] = sp_26_29[3] then
REM Add to bets
bets$ = bets$ + ",26-29"
REM Rise bets counter
bets_count += 1
end if
REM 27/30
if sp_27_30[2] > 0 and sp_27_30[3] > 0 and sp_27_30[2] = sp_27_30[3] then
REM Add to bets
bets$ = bets$ + ",27-30"
REM Rise bets counter
bets_count += 1
end if
REM 28/29
if sp_28_29[2] > 0 and sp_28_29[3] > 0 and sp_28_29[2] = sp_28_29[3] then
REM Add to bets
bets$ = bets$ + ",28-29"
REM Rise bets counter
bets_count += 1
end if
REM 28/31
if sp_28_31[2] > 0 and sp_28_31[3] > 0 and sp_28_31[2] = sp_28_31[3] then
REM Add to bets
bets$ = bets$ + ",28-31"
REM Rise bets counter
bets_count += 1
end if
REM 29/30
if sp_29_30[2] > 0 and sp_29_30[3] > 0 and sp_29_30[2] = sp_29_30[3] then
REM Add to bets
bets$ = bets$ + ",29-30"
REM Rise bets counter
bets_count += 1
end if
REM 29/32
if sp_29_32[2] > 0 and sp_29_32[3] > 0 and sp_29_32[2] = sp_29_32[3] then
REM Add to bets
bets$ = bets$ + ",29-32"
REM Rise bets counter
bets_count += 1
end if
REM 30/33
if sp_30_33[2] > 0 and sp_30_33[3] > 0 and sp_30_33[2] = sp_30_33[3] then
REM Add to bets
bets$ = bets$ + ",30-33"
REM Rise bets counter
bets_count += 1
end if
REM 31/32
if sp_31_32[2] > 0 and sp_31_32[3] > 0 and sp_31_32[2] = sp_31_32[3] then
REM Add to bets
bets$ = bets$ + ",31-32"
REM Rise bets counter
bets_count += 1
end if
REM 31/34
if sp_31_34[2] > 0 and sp_31_34[3] > 0 and sp_31_34[2] = sp_31_34[3] then
REM Add to bets
bets$ = bets$ + ",31-34"
REM Rise bets counter
bets_count += 1
end if
REM 32/33
if sp_32_33[2] > 0 and sp_32_33[3] > 0 and sp_32_33[2] = sp_32_33[3] then
REM Add to bets
bets$ = bets$ + ",32-33"
REM Rise bets counter
bets_count += 1
end if
REM 32/35
if sp_32_35[2] > 0 and sp_32_35[3] > 0 and sp_32_35[2] = sp_32_35[3] then
REM Add to bets
bets$ = bets$ + ",32-35"
REM Rise bets counter
bets_count += 1
end if
REM 33/361
if sp_33_36[2] > 0 and sp_33_36[3] > 0 and sp_33_36[2] = sp_33_36[3] then
REM Add to bets
bets$ = bets$ + ",33-36"
REM Rise bets counter
bets_count += 1
end if
REM 34/35
if sp_34_35[2] > 0 and sp_34_35[3] > 0 and sp_34_35[2] = sp_34_35[3] then
REM Add to bets
bets$ = bets$ + ",34-35"
REM Rise bets counter
bets_count += 1
end if
REM 35/36
if sp_35_36[2] > 0 and sp_35_36[3] > 0 and sp_35_36[2] = sp_35_36[3] then
REM Add to bets
bets$ = bets$ + ",35-36"
REM Rise bets counter
bets_count += 1
end if
REM Check for bets
if bets_count > 0 then
REM Remove leading comma
bets$ = right(bets$, length(bets$) - 1)
end if
end subroutine