/* $Id: gamble.c,v 1.2 2002/03/09 17:27:57 in2 Exp $ */
#include <stdio.h>
#include <time.h>
#include <string.h>
#include <sys/types.h>
#include <stdlib.h>
#include <unistd.h>
#include "config.h"
#include "pttstruct.h"
#include "common.h"
#include "modes.h"
#include "proto.h"
extern int usernum;

#ifndef _BBS_UTIL_C_
extern userec_t cuser;
extern int b_lines;

#define MAX_ITEM	8	//�̤j �䶵(item) �Ӽ�
#define MAX_ITEM_LEN	30	//�̤j �C�@�䶵�W�r����
#define MAX_SUBJECT_LEN 650	//8*81 = 648 �̤j �D�D���� 

static char betname[MAX_ITEM][MAX_ITEM_LEN];
static int currbid;

int post_msg(char* bname, char* title, char *msg, char* author)
{
    FILE *fp;
    int bid;
    fileheader_t fhdr;
    time_t now = time(0);
    char genbuf[256];
                
    /* �b bname ���o���s�峹 */
    sprintf(genbuf, "boards/%c/%s", bname[0], bname);
    stampfile(genbuf, &fhdr);
    fp = fopen(genbuf,"w");
    
    if(!fp)
      return -1;
    
    fprintf(fp, "�@��: %s �ݪO: %s\n���D: %s \n",author,bname,title);
    fprintf(fp, "�ɶ�: %s\n", ctime(&now));
                                                
    /* �峹�����e */
    fprintf(fp, "%s", msg);
    fclose(fp);
                                                                        
    /* �N�ɮץ[�J�C�� */
    strcpy(fhdr.title, title);
    strcpy(fhdr.owner, author);
    setbdir(genbuf,bname);
    if(append_record(genbuf, &fhdr, sizeof(fhdr))!=-1)
      if((bid = getbnum(bname)) > 0)
          setbtotal(bid);
    return 0;
}

int post_file(char* bname,  char* title, char *filename, char* author)
{
 int size=dashs(filename);
 char *msg;
 FILE *fp;

 if(size<=0) return -1;
 if(!(fp=fopen(filename,"r")) ) return -1;
 msg= (char *)malloc(size);
 fread(msg,1,size,fp);
 size= post_msg(bname, title, msg, author);
 fclose(fp);
 free(msg);
 return size;
}


static int load_ticket_record(char *direct, int ticket[])
{
   char buf[256];
   int i, total=0;
   FILE *fp;
   sprintf(buf,"%s/"FN_TICKET_RECORD,direct);
   if(!(fp=fopen(buf,"r"))) return 0;
   for(i=0;i<MAX_ITEM && fscanf(fp, "%9d ",&ticket[i]); i++) 
      total=total+ticket[i]; 
   fclose(fp);
   return total;
}

static int show_ticket_data(char *direct, int *price, boardheader_t *bh) {
    int i,count, total = 0, end=0,
        ticket[MAX_ITEM] = {0, 0, 0, 0, 0, 0, 0, 0};
    FILE *fp;
    char genbuf[256];

    clear();
    if (bh)
      {
        sprintf(genbuf,"%s ��L", bh->brdname);
        showtitle(genbuf, BBSNAME);
      }	
    else
        showtitle("Ptt��L", BBSNAME);
    move(2, 0);
    sprintf(genbuf, "%s/"FN_TICKET_ITEMS, direct);
    if(!(fp = fopen(genbuf,"r")))
    {
      prints("\n�ثe�èS���|���L\n");
      sprintf(genbuf, "%s/"FN_TICKET_OUTCOME, direct);
      if(more(genbuf, NA));
      return 0;
    }
    fgets(genbuf,MAX_ITEM_LEN,fp);
    *price=atoi(genbuf);
    for(count=0; fgets(betname[count],MAX_ITEM_LEN,fp)&&count<MAX_ITEM; count++)
	strtok(betname[count],"\r\n");
    fclose(fp);

    prints("\033[32m���W:\033[m 1.�i�ʶR�H�U���P�������m���C�C�i�n�� \033[32m%d\033[m ���C\n"
         "      2.%s\n"
         "      3.�}���ɥu���@�رm������, ���ʶR�ӱm����, �h�i���ʶR���i�Ƨ���"
         "�`����C\n"
         "      4.�C�������Ѩt�Ω�� 5% ���|��%s�C\n\n"
         "\033[32m%s:\033[m", *price,
         bh?"����L�Ѫ��D�t�d�|��åB�M�w�}���ɶ����G, ��������, �@��A��C":
             "�t�ΨC�� 2:00 11:00 16:00 21:00 �}���C",
	 bh?", �䤤 2% �����}�����D":"",
         bh?"���D�ۭq�W�h�λ���":"�e�X���}�����G");


    sprintf(genbuf, "%s/"FN_TICKET, direct);
    if(!dashf(genbuf))
	{
	  sprintf(genbuf, "%s/"FN_TICKET_END, direct);
	  end=1;
	}
    show_file(genbuf, 8, -1, NO_RELOAD);
    move(15,0);
    prints("\033[1;32m�ثe�U�`���p:\033[m\n");

    total=load_ticket_record(direct, ticket);
    
    prints("\033[33m");
    for(i = 0 ; i<count; i++)
      {
	prints("%d.%-8s: %-7d", i+1, betname[i], ticket[i]);
	if(i==3) prints("\n");
      }
    prints("\033[m\n\033[42m �U�`�`���B:\033[31m %d �� \033[m",total*(*price));
    if(end)
     {
       prints("\n��L�w�g����U�`\n");
       return -count;
     }
    return count;
}

static void append_ticket_record(char *direct, int ch, int n, int count) {
    FILE *fp;
    int ticket[8] = {0,0,0,0,0,0,0,0}, i;
    char genbuf[256];
    sprintf(genbuf, "%s/"FN_TICKET_USER, direct);
    
    if((fp = fopen(genbuf,"a"))) {
	fprintf(fp, "%s %d %d\n", cuser.userid, ch, n);
	fclose(fp);
    }
    load_ticket_record(direct, ticket);
    ticket[ch] += n;
    sprintf(genbuf, "%s/" FN_TICKET_RECORD, direct);
    if((fp = fopen(genbuf,"w"))) {
        for(i=0; i<count; i++)
           fprintf(fp,"%d ", ticket[i]);
	fclose(fp);
    }
}

#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
int ticket(int bid)
{
    int ch, n, price, count, end=0;
    char path[128],fn_ticket[128];
    boardheader_t *bh=NULL; 
    
    if(bid)
      {
       bh=getbcache(bid);
       setbpath(path, bh->brdname);   
       setbfile(fn_ticket, bh->brdname, FN_TICKET);   
       currbid = bid;
      }
    else
       strcpy(path,"etc/");

    lockreturn0(TICKET, LOCK_MULTI);
    while(1) {
	count=show_ticket_data(path, &price, bh);
        if(count<=0) 
        {
	   pressanykey();
           break;
        } 
        move(20, 0);
        reload_money();
	prints("\033[44m��: %-10d  \033[m\n\033[1m�п�ܭn�ʶR������(1~%d)"
        "[Q:���}]\033[m:", cuser.money,count);
	ch = igetch();
	/*-- 
	  Tim011127
	  ���F����CS���D ���O�o���٤��৹���ѨM�o���D,        
	  �Yuser�q�L�ˬd�U�h, ��n���D�}��, �٬O�|�y��user���o������
	  �ܦ��i��]��U����L�������h, �]�ܦ��i��Q���D�s�}��L�ɬ~��
	  ���L�o��ܤ֥i�H���쪺�O, ���h�u�|���@����ƬO����
	--*/
        if(bid && !dashf(fn_ticket))
        {
           move(b_lines-1,0);
           prints("�z!! �@����...���D�w�g����U�`�F ������P");
	   pressanykey();
	   break;
        }

        if(ch=='q' || ch == 'Q')
	    break;
        ch-='1';
	if(end || ch >= count || ch < 0)
	    continue;
        n=0;
        ch_buyitem(price, "etc/buyticket", &n);
	if(n > 0)
		append_ticket_record(path,ch,n,count);
      }	
    unlockutmpmode();
    return 0;
}

int openticket(int bid) {
    char path[128],buf[256],outcome[128];
    int i, money=0, count, bet, price, total = 0, ticket[8]={0,0,0,0,0,0,0,0};
    boardheader_t *bh=getbcache(bid);
    time_t now = time(NULL);
    FILE  *fp, *fp1;

    setbpath(path, bh->brdname); 
    count=-show_ticket_data(path, &price, bh);
    if(count==0)
      {
         setbfile(buf,bh->brdname,FN_TICKET_END);
         unlink(buf); //Ptt: ��bug
         return 0;
      }
    lockreturn0(TICKET, LOCK_MULTI);
    do
    {
     do
     {
       getdata(20, 0, "\033[1m��ܤ��������X(0:����)\033[m:", buf, 3, LCECHO);
       bet=atoi(buf);
       move(0,0);
       clrtoeol();
     } while(bet<0 || bet>count);
     if(bet==0) 
        {unlockutmpmode(); return 0;}
     getdata(21, 0, "\033[1m�A���T�{���������X\033[m:", buf, 3, LCECHO);
    }while(bet!=atoi(buf));

    bet -= 1; //�ন�x�}��index

    total=load_ticket_record(path, ticket);
    setbfile(buf,bh->brdname,FN_TICKET_END);
    if(!(fp1 = fopen(buf,"r")))
      {
         unlockutmpmode();
         return 0; 
      }
        // �٨S�}���������� �u�nmv�@���N�n 
    money=total*price;
    demoney(money*0.02);
    mail_redenvelop("[������Y]", cuser.userid, money*0.02, 'n');
    money = ticket[bet] ?  money*0.95/ticket[bet]:9999999; 
    setbfile(outcome,bh->brdname,FN_TICKET_OUTCOME);
    if((fp = fopen(outcome, "w")))
    {  
      fprintf(fp,"��L����\n");
      while(fgets(buf,256,fp1))
         {
	   buf[255]=0;
	   fprintf(fp,"%s",buf);
         }
      fprintf(fp,"�U�`���p\n");

      fprintf(fp, "\033[33m");
      for(i = 0 ; i<count; i++)
      {
        fprintf(fp, "%d.%-8s: %-7d",i+1,betname[i], ticket[i]);
        if(i==3) fprintf(fp,"\n");
      }
      fprintf(fp, "\033[m\n");
                                        
      fprintf(fp, "\n\n�}���ɶ��G %s \n\n"
             "�}�����G�G %s \n\n"
             "�Ҧ����B�G %d �� \n"
             "������ҡG %d�i/%d�i  (%f)\n"
             "�C�i�����m���i�o %d �T�޹� \n\n",
             Cdatelite(&now), betname[bet], total*price, ticket[bet], total,
             (float) ticket[bet] / total, money);
             
      fprintf(fp, "%s ��L�}�X:%s �Ҧ����B:%d �� ����/�i:%d �� ���v:%1.2f\n",
              Cdatelite(&now), betname[bet], total*price, money,
              total? (float)ticket[bet] / total:0);
              
      fclose(fp);
    }
    fclose(fp1); 

    setbfile(buf, bh->brdname, FN_TICKET_END);
    unlink(buf);
/*
    if(fork())
      {
        more(outcome,YEA);
        unlockutmpmode();
        return 0;
      }
*/
    sprintf(buf, "[���i] %s ��L�}��", bh->brdname);
    post_file(bh->brdname, buf, outcome, "[�䯫]");
    post_file("Record", buf+7, outcome, "[�������l]");
    /*
      �H�U�O�����ʧ@
    */
    setbfile(buf, bh->brdname, FN_TICKET_USER);
    if (ticket[bet] && (fp = fopen(buf, "r")))  
    {
        int mybet, uid;
        char userid[IDLEN];
        
        while (fscanf(fp, "%s %d %d\n", userid, &mybet, &i) != EOF)
        {
           if (mybet == bet)
           {
                printf("���� %-15s�R�F%9d �i %s, ��o %d �T�޹�\n"
                       ,userid, i, betname[mybet], money * i);                    
                if((uid=getuser(userid))==0) continue;
                deumoney(uid, money * i);
                sprintf(buf, "%s ������! $ %d", bh->brdname,  money * i);
                mail_id(userid, buf, outcome, "Ptt���");
            }
        }   
    }
    setbfile(buf, bh->brdname, FN_TICKET_RECORD); 
    unlink(buf);
    setbfile(buf, bh->brdname, FN_TICKET_USER); 
    unlink(buf);
    return 0;
}

int ticket_main() {
    ticket(0);
    return 0;
}
#endif