You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

344 lines
13 KiB

/******************************************************************************
* Copyright © 2014-2016 The SuperNET Developers. *
* *
* See the AUTHORS, DEVELOPER-AGREEMENT and LICENSE files at *
* the top-level directory of this distribution for the individual copyright *
* holder information and the developer policies on copyright and licensing. *
* *
* Unless otherwise agreed in a custom licensing agreement, no part of the *
* SuperNET software, including this file may be copied, modified, propagated *
* or distributed except according to the terms contained in the LICENSE file *
* *
* Removal or modification of this copyright notice is prohibited. *
* *
******************************************************************************/
#include "pangea777.h"
cJSON *pangea_playerjson(struct supernet_info *myinfo,struct table_info *tp,struct player_info *p)
{
char ipaddr[64]; cJSON *json = cJSON_CreateObject();
jaddstr(json,"handle",p->handle);
expand_ipbits(ipaddr,p->ipbits);
jaddstr(json,"playeripaddr",ipaddr);
jaddbits256(json,"playerpub",p->playerpub);
return(json);
}
/*cJSON *pangea_tablejson(struct supernet_info *myinfo,struct table_info *tp)
{
char ipaddr[64],str[64]; int32_t i; cJSON *array,*json; struct game_info *gp;
gp = &tp->G;
json = cJSON_CreateObject();
jaddbits256(json,"tablehash",gp->tablehash);
expand_ipbits(ipaddr,gp->hostipbits);
jaddstr(json,"host",ipaddr);
jaddnum(json,"minbuyin",dstr(gp->minbuyin));
jaddnum(json,"maxbuyin",dstr(gp->maxbuyin));
jaddnum(json,"minplayers",gp->minplayers);
jaddnum(json,"maxplayers",gp->maxplayers);
jaddnum(json,"M",gp->M);
jaddnum(json,"N",gp->N);
jaddnum(json,"numcards",gp->numcards);
jaddnum(json,"rake",(double)gp->rakemillis/10.);
jaddnum(json,"maxrake",dstr(gp->maxrake));
jaddnum(json,"hostrake",dstr(gp->hostrake));
jaddnum(json,"pangearake",dstr(gp->pangearake));
jaddnum(json,"bigblind",dstr(gp->bigblind));
jaddnum(json,"ante",dstr(gp->ante));
if ( gp->opentime != 0 )
{
jaddstr(json,"opentime",utc_str(str,gp->opentime));
if ( gp->started != 0 )
{
jaddstr(json,"started",utc_str(str,gp->started));
if ( gp->finished != 0 )
jaddstr(json,"finished",utc_str(str,gp->finished));
}
}
if ( tp->G.numactive > 0 )
{
array = cJSON_CreateArray();
for (i=0; i<tp->G.numactive; i++)
jaddi(array,pangea_playerjson(myinfo,tp,&tp->G.P[i]));
jadd(json,"players",array);
}
jaddnum(json,"numactive",tp->G.numactive);
return(json);
}*/
void pangea_gamecreate(struct game_info *gp,uint32_t timestamp,bits256 tablehash,cJSON *json)
{
gp->gamehash = calc_categoryhashes(0,"pangea",0);
gp->tablehash = tablehash;
gp->hostipbits = calc_ipbits(jstr(json,"myipaddr"));
gp->minbuyin = jdouble(json,"minbuyin") * SATOSHIDEN;
gp->maxbuyin = jdouble(json,"maxbuyin") * SATOSHIDEN;
if ( (gp->minplayers= juint(json,"minplayers")) < 2 )
gp->minplayers = 2;
if ( (gp->maxplayers= juint(json,"maxplayers")) < gp->minplayers )
gp->maxplayers = gp->minplayers;
else if ( gp->maxplayers > CARDS777_MAXPLAYERS )
gp->maxplayers = CARDS777_MAXPLAYERS;
if ( (gp->N= juint(json,"N")) < gp->minplayers )
gp->N = gp->minplayers;
if ( (gp->M= juint(json,"M")) > gp->N )
gp->M = gp->N;
if ( (gp->numcards= juint(json,"numcards")) != 52 )
gp->numcards = 52;
gp->rakemillis = jdouble(json,"rake") * 10.;
gp->maxrake = jdouble(json,"maxrake") * SATOSHIDEN;
gp->hostrake = jdouble(json,"hostrake") * SATOSHIDEN;
gp->pangearake = jdouble(json,"pangearake") * SATOSHIDEN;
gp->bigblind = jdouble(json,"bigblind") * SATOSHIDEN;
gp->ante = jdouble(json,"ante") * SATOSHIDEN;
gp->opentime = timestamp;
printf("opentime timestamp.%u\n",timestamp);
}
int32_t pangea_opentable(struct game_info *gp)
{
if ( gp->opentime != 0 && gp->started == 0 )
return(1);
else if ( gp->finished != 0 )
return(0);
else return(-1);
}
cJSON *pangea_lobbyjson(struct supernet_info *myinfo)
{
struct gecko_chain *cat,*subchain,*tmp; cJSON *array,*retjson; //struct table_info *tp;
retjson = cJSON_CreateObject();
array = cJSON_CreateArray();
if ( (cat= category_find(calc_categoryhashes(0,"pangea",0),GENESIS_PUBKEY)) != 0 )
{
HASH_ITER(hh,cat->subchains,subchain,tmp)
{
printf("undeprecate\n");
//if ( (tp= sub->info) != 0 && pangea_opentable(&tp->G) > 0 )
// jaddi(array,pangea_tablestatus(myinfo,tp));
}
}
jadd(retjson,"tables",array);
jaddstr(retjson,"result","success");
printf("LOBBY.(%s)\n",jprint(retjson,0));
return(retjson);
}
cJSON *pangea_handjson(struct hand_info *hand,uint8_t *holecards,int32_t isbot)
{
int32_t i,card; char cardAstr[8],cardBstr[8],pairstr[18],cstr[128]; cJSON *array,*json = cJSON_CreateObject();
array = cJSON_CreateArray();
cstr[0] = 0;
for (i=0; i<5; i++)
{
if ( (card= hand->community[i]) != 0xff )
{
jaddinum(array,card);
cardstr(&cstr[strlen(cstr)],card);
strcat(cstr," ");
}
}
jaddstr(json,"community",cstr);
jadd(json,"cards",array);
if ( (card= holecards[0]) != 0xff )
{
jaddnum(json,"cardA",card);
cardstr(cardAstr,holecards[0]);
} else cardAstr[0] = 0;
if ( (card= holecards[1]) != 0xff )
{
jaddnum(json,"cardB",card);
cardstr(cardBstr,holecards[1]);
} else cardBstr[0] = 0;
sprintf(pairstr,"%s %s",cardAstr,cardBstr);
jaddstr(json,"holecards",pairstr);
jaddnum(json,"betsize",dstr(hand->betsize));
jaddnum(json,"lastraise",dstr(hand->lastraise));
jaddnum(json,"lastbettor",hand->lastbettor);
jaddnum(json,"numactions",hand->numactions);
jaddnum(json,"undergun",hand->undergun);
jaddnum(json,"isbot",isbot);
jaddnum(json,"cardi",hand->cardi);
return(json);
}
char *pangea_statusstr(int32_t status)
{
if ( status == CARDS777_FOLD )
return("folded");
else if ( status == CARDS777_ALLIN )
return("ALLin");
else return("active");
}
int32_t pangea_countdown(struct table_info *tp,struct player_info *p)
{
struct hand_info *hand = &tp->hand;
if ( p != 0 && hand->undergun == p->ind && hand->userinput_starttime != 0 )
return((int32_t)(hand->userinput_starttime + PANGEA_USERTIMEOUT - time(NULL)));
else return(-1);
}
cJSON *pangea_tablestatus(struct supernet_info *myinfo,struct table_info *tp)
{
int64_t sidepots[CARDS777_MAXPLAYERS][CARDS777_MAXPLAYERS],totals[CARDS777_MAXPLAYERS],sum;
struct player_info *p; int32_t i,n,N,j,countdown,iter; cJSON *item,*array,*json;
int64_t won[CARDS777_MAXPLAYERS],snapshot[CARDS777_MAXPLAYERS],bets[CARDS777_MAXPLAYERS];
int64_t total,val; char *handhist,*str; struct game_info *gp; struct hand_info *hand;
hand = &tp->hand, gp = &tp->G, N = tp->G.numactive;
json = cJSON_CreateObject();
jaddbits256(json,"tablehash",gp->tablehash);
jadd64bits(json,"myind",tp->priv.myind);
jaddnum(json,"minbuyin",gp->minbuyin);
jaddnum(json,"maxbuyin",gp->maxbuyin);
jaddnum(json,"button",tp->hand.button);
jaddnum(json,"M",gp->M);
jaddnum(json,"N",tp->G.numactive);
jaddnum(json,"numcards",gp->numcards);
jaddnum(json,"numhands",tp->numhands);
jaddnum(json,"rake",(double)gp->rakemillis/10.);
jaddnum(json,"maxrake",dstr(gp->maxrake));
jaddnum(json,"hostrake",dstr(gp->hostrake));
jaddnum(json,"pangearake",dstr(gp->pangearake));
jaddnum(json,"bigblind",dstr(gp->bigblind));
jaddnum(json,"ante",dstr(gp->ante));
if ( gp->opentime != 0 )
{
char utcbuf[65];
jaddstr(json,"opentime",utc_str(utcbuf,gp->opentime));
if ( gp->started != 0 )
{
jaddstr(json,"started",utc_str(utcbuf,gp->started));
if ( gp->finished != 0 )
jaddstr(json,"finished",utc_str(utcbuf,gp->finished));
}
}
if ( tp->G.numactive > 0 )
{
array = cJSON_CreateArray();
for (i=0; i<tp->G.numactive; i++)
jaddi(array,pangea_playerjson(myinfo,tp,&tp->G.P[i]));
jadd(json,"players",array);
}
jaddnum(json,"numactive",tp->G.numactive);
/*array = cJSON_CreateArray();
for (i=0; i<tp->G.numactive; i++)
jaddi64bits(array,tp->active[i]!=0?tp->active[i]->nxt64bits:0);
jadd(json,"addrs",array);*/
total = 0;
for (iter=0; iter<6; iter++)
{
array = cJSON_CreateArray();
for (i=0; i<tp->G.numactive; i++)
{
val = 0;
if ( (p= tp->active[i]) != 0 )
{
switch ( iter )
{
case 0: val = p->turni; str = "turns"; break;
case 1: val = p->balance; str = "balances"; break;
case 2: val = p->snapshot; str = "snapshot"; break;
case 3: val = p->betstatus; str = "status"; break;
case 4: val = p->bets; str = "bets"; break;
case 5: val = p->won; str = "won"; break;
}
}
if ( iter == 5 )
won[i] = val;
else
{
if ( iter == 3 )
jaddistr(array,pangea_statusstr((int32_t)val));
else
{
if ( iter == 4 )
total += val, bets[i] = val;
else if ( iter == 2 )
snapshot[i] = val;
jaddinum(array,val);
}
}
}
jadd(json,str,array);
}
jaddnum(json,"totalbets",dstr(total));
for (iter=0; iter<2; iter++)
if ( (n= pangea_sidepots(myinfo,tp,0,sidepots,iter == 0 ? snapshot : bets)) > 0 && n < N )
{
array = cJSON_CreateArray();
for (i=0; i<n; i++)
{
item = cJSON_CreateArray();
for (sum=j=0; j<N; j++)
jaddinum(item,dstr(sidepots[i][j])), sum += sidepots[i][j];
totals[i] = sum;
jaddi(array,item);
}
jadd(json,iter == 0 ? "pots" : "RTpots",array);
item = cJSON_CreateArray();
for (sum=i=0; i<n; i++)
jaddinum(item,dstr(totals[i])), sum += totals[i];
jadd(json,iter == 0 ? "potTotals" : "RTpotTotals",item);
jaddnum(json,iter == 0 ? "sum" : "RTsum",dstr(sum));
}
jadd64bits(json,"automuck",tp->priv.automuck);
jadd64bits(json,"autofold",tp->priv.autofold);
jadd(json,"hand",pangea_handjson(hand,tp->priv.hole,0));
if ( (handhist= pangea_dispsummary(myinfo,tp,0,tp->summary,tp->summarysize,tp->G.tablehash,tp->numhands-1,N)) != 0 )
{
if ( (item= cJSON_Parse(handhist)) != 0 )
jadd(json,"actions",item);
free(handhist);
}
if ( (countdown= pangea_countdown(tp,tp->active[tp->priv.myind])) >= 0 )
jaddnum(json,"timeleft",countdown);
if ( hand->finished != 0 )
{
item = cJSON_CreateObject();
jaddnum(item,"hostrake",dstr(tp->G.hostrake));
jaddnum(item,"pangearake",dstr(tp->G.pangearake));
array = cJSON_CreateArray();
for (i=0; i<N; i++)
jaddinum(array,dstr(won[i]));
jadd(item,"won",array);
jadd(json,"summary",item);
}
return(json);
}
void pangea_playerprint(struct supernet_info *myinfo,struct table_info *tp,int32_t i,int32_t myind)
{
int32_t countdown; char str[8]; struct player_info *p;
if ( (p= tp->active[i]) != 0 )
{
if ( (countdown= pangea_countdown(tp,tp->active[tp->priv.myind])) >= 0 )
sprintf(str,"%2d",countdown);
else str[0] = 0;
printf("%d: %6s %12.8f %2s | %12.8f %s\n",i,pangea_statusstr(p->betstatus),dstr(p->bets),str,dstr(p->balance),i == myind ? "<<<<<<<<<<<": "");
}
}
void pangea_statusprint(struct supernet_info *myinfo,struct table_info *tp,int32_t myind)
{
int32_t i,N; char handstr[64]; uint8_t handvals[7]; struct hand_info *hand = &tp->hand;
N = tp->G.numactive;
for (i=0; i<N; i++)
pangea_playerprint(myinfo,tp,i,myind);
handstr[0] = 0;
if ( hand->community[0] != hand->community[1] )
{
for (i=0; i<5; i++)
if ( (handvals[i]= hand->community[i]) == 0xff )
break;
if ( i == 5 )
{
if ( (handvals[5]= tp->priv.hole[0]) != 0xff && (handvals[6]= tp->priv.hole[1]) != 0xff )
set_handstr(handstr,handvals,1);
}
}
printf("%s\n",handstr);
}