Ищу желающих заняться проектом

[ClMlD]

Сообщение от Arigato

А в чем смысл повторяющихся процедур?

procedure Con1;
var
p:string;
begin
proc;
 p:=bot.RImgL.Caption;
 if p = 'proc/r0.bmp' then fold else
 if p = 'proc/r10.bmp' then fold else
 if p = 'proc/r20.bmp' then fold else
 if p = 'proc/r30.bmp' then fold else
 if p = 'proc/r40.bmp' then callcheck else
 if p = 'proc/r50.bmp' then callcheck else
 if p = 'proc/r60.bmp' then callcheck else
 if p = 'proc/r70.bmp' then rais else
 if p = 'proc/r80.bmp' then rais else
 if p = 'proc/r90.bmp' then rais else
 if p = 'proc/r100.bmp' then rais;
end;


procedure Con2;
var
p:string;
begin
proc;
 p:=bot.RImgL.Caption;
 if p = 'proc/r0.bmp' then fold else
 if p = 'proc/r10.bmp' then fold else
 if p = 'proc/r20.bmp' then fold else
 if p = 'proc/r30.bmp' then fold else
 if p = 'proc/r40.bmp' then callcheck else
 if p = 'proc/r50.bmp' then callcheck else
 if p = 'proc/r60.bmp' then callcheck else
 if p = 'proc/r70.bmp' then rais else
 if p = 'proc/r80.bmp' then rais else
 if p = 'proc/r90.bmp' then rais else
 if p = 'proc/r100.bmp' then rais;
end;

И далее еще несколько таких же.

Это для принятия решений на разных кругах , пока все одинаково что бы не путаться , в дальнейшем на разных кругах думаю реализовать разные решения, да и код работает не совсем так как я хотел:
Если вы заметили то не зависимо от кона программа сканирует все карты на руках, флопе , терне , ривере . В моих же целях было сделать проверку карт только тех которые необходимо проверять проверили не убираем их новый кон старые карты остаются а мы проверяем новые и так до тех пор пока кон из 4 кругов не кончится , но вошел в тупик из за того что не могу определить когда закончился круг так как круг может состоять из 1 и более моментов принятия решения круг закончиться только тогда когда все игроки сровняют ставку и выпадут новые карты а если человек каждый раз будет по чуть поднимать то круг не кончится