if mb = 1 and mx > 411 and mx < 430 and my < 19 then
col := 0
end if
if mb = 1 and mx > 430 and mx < 450 and my < 19 then
col := 1
end if
if mb = 1 and mx > 450 and mx < 470 and my < 19 then
col := 2
end if
if mb = 1 and mx > 470 and mx < 490 and my < 19 then
col := 3
end if
if mb = 1 and mx > 490 and mx < 510 and my < 19 then
col := 4
end if
if mb = 1 and mx > 510 and mx < 530 and my < 19 then
col := 5
end if
if mb = 1 and mx > 530 and mx < 550 and my < 19 then
col := 6
end if
if mb = 1 and mx > 550 and mx < 570 and my < 19 then
col := 7
end if
if mb = 1 and mx > 570 and mx < 590 and my < 19 then
col := 8
end if
if mb = 1 and mx > 590 and mx < 610 and my < 19 then
col := 9
end if
if mb = 1 and mx > 610 and mx < 630 and my < 19 then
col := 10
end if
if mb = 1 and mx > 630 and mx < 650 and my < 19 then
col := 11
end if
if mb = 1 and mx > 650 and mx < 670 and my < 19 then
col := 12
end if
if mb = 1 and mx > 670 and mx < 690 and my < 19 then
col := 13
end if
if mb = 1 and mx > 690 and mx < 710 and my < 19 then
col := 14
end if
if mb = 1 and mx > 710 and mx < 730 and my < 19 then
col := 15
end if