round.pas

一般的数据库管理系统 uses Classes, SConnectEx, TltConst, ExtCtrls, MMSystem, Types, windows, TltLogic , Sy

unit Round;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids, ImgList, Buttons, TltConst;

type
  TRoundMonitorForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    LabelBet1: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Label6: TLabel;
    Label7: TLabel;
    LabelBet2: TLabel;
    LabelBet3: TLabel;
    LabelT1: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    Label20: TLabel;
    ImageList1: TImageList;
    Label16: TLabel;
    LabelV1: TLabel;
    LabelV2: TLabel;
    LabelV3: TLabel;
    SBR1: TSpeedButton;
    SBR2: TSpeedButton;
    SBR3: TSpeedButton;
    Label30: TLabel;
    LabelWillValue: TLabel;
    LabelResult: TLabel;
    LabelValueTotal: TLabel;
    LabelCaici: TLabel;
    Label36: TLabel;
    LabelT2: TLabel;
    SpeedButton4: TSpeedButton;
    Timer1: TTimer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure SBR1Click(Sender: TObject);
    procedure SBR2Click(Sender: TObject);
    procedure SBR3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private

    function GetColorIndex(Num: integer): integer;
    { Private declarations }

  public
    { Public declarations }
  end;

var
  RoundMonitorForm: TRoundMonitorForm;

implementation

uses DM1, main, ManagerInterpreter, player, playeredit,
  RoundQuery, SConnectEx, Setting;

{$R *.dfm}

procedure TRoundMonitorForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  RoundMonitorForm := nil;
  Action := caFree;
end;

function TRoundMonitorForm.GetColorIndex(Num : integer): integer;
begin
  result := -1;
  case Num of
    1, 3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36:
      Result := 0;
    2,4,6,8,10,11,13,15,17,20,22,24,26,28,29,31,33,35:
      Result := 1;
    0: Result := 2;
    else Result := -1;
  end;
end;


procedure TRoundMonitorForm.Timer1Timer(Sender: TObject);
var
  RoundInfo : TRoundInfo;
  BetTime : integer;
  I : integer;
const
  ColorByIndex : array [0..2] of TColor =(clRed, clBlack, clGreen);
  ColorNameByIndex : array [0..2] of String =('红色', '黑色', '绿色');
begin
  if RoundMonitorForm = nil then Exit;
  if rltInterpreter = nil then Exit;
  if TimeSetting.BetTimeSet=0 then TimeSetting := rltInterpreter.CallGetTimeSetting;
  RoundInfo := rltInterpreter.CallGetRoundInfo;
  with RoundInfo do
  begin
    Label2.Caption :=IntToStr(RoundInfo.CurrentRound.No) +'-'+ IntToStr(RoundInfo.CurrentRound.WheelNo);
    LabelBet1.Caption := IntToStr(RoundInfo.CurrentBetCount[0]);
    LabelBet2.Caption := IntToStr(RoundInfo.CurrentBetCount[1]);
    LabelBet3.Caption := IntToStr(RoundInfo.CurrentBetCount[2]);
    LabelV1.Caption := IntTostr(-CurrentBetCount[0]+CurrentBetCount[1]+ CurrentBetCount[2]);
    LabelV2.Caption := IntTostr(CurrentBetCount[0]-CurrentBetCount[1]+ CurrentBetCount[2]);
    LabelV3.Caption := IntTostr(CurrentBetCount[0]+CurrentBetCount[1]-35* CurrentBetCount[2]);
    LabelValueTotal.Caption := IntTostr(CurrentBetCount[0]+CurrentBetCount[1]+ CurrentBetCount[2]);
    LabelCaici.Caption := IntToStr(TotalValue);
    BetTime := TimeSetting.BeforeWheelTimeSet - RoundInfo.CurrentRound.CountDown;
    if BetTime <0 then BetTime := 0;
    LabelT1.Caption := IntToStr(BetTime);
    LabelT2.Caption := IntToStr(TimeSetting.WheelEndSet - RoundInfo.CurrentRound.CountDown);
    if BetTime< TimeSetting.BetTimeSet then
    begin
      if GetColorIndex(RoundInfo.WillResult) =0 then SBR1.Down := true;
      if GetColorIndex(RoundInfo.WillResult) =1 then SBR2.Down := true;
      if GetColorIndex(RoundInfo.WillResult) =2 then SBR3.Down := true;
    end
    else
    begin
      SBR1.Down := false;
      SBR2.Down := false;
      SBR3.Down := false;
    end;
    if RoundInfo.CurrentRound.CountDown>= TimeSetting.BeforeWheelTimeSet then
    begin
      SBR1.Enabled := false;
      SBR2.Enabled := false;
      SBR3.Enabled := false;
    end else
    begin
      SBR1.Enabled := true;
      SBR2.Enabled := true;
      SBR3.Enabled := true;
    end;

  end;
  for I := 0 to ComponentCount-1 do
  begin
    if Components[i] is TLabel then
    begin
      if pos('-',(Components[i] as TLabel).Caption)>0 then
        (Components[i] as TLabel).Font.Color := clRed
      else if Components[i].Tag = 1 then
        (Components[i] as TLabel).Font.Color := clGreen;
    end;
  end;
  if (RoundInfo.CurrentRound.No=1) and (RoundInfo.CurrentRound.WheelNo=1) then
    Label30.Caption := '-'
  else
    Label30.Caption := IntToStr(RoundInfo.OldResult)+'号,'
    +ColorNameByIndex[GetColorIndex(RoundInfo.OldResult)];
    Label30.Font.Color := ColorByIndex[GetColorIndex(RoundInfo.OldResult)];
  if (RoundInfo.CurrentRound.WheelResult>=0) then
  begin
    LabelResult.Caption := IntToStr(RoundInfo.CurrentRound.WheelResult)+'号,'
    +ColorNameByIndex[GetColorIndex(RoundInfo.CurrentRound.WheelResult)];
    LabelResult.Font.Color := ColorByIndex[GetColorIndex(RoundInfo.CurrentRound.WheelResult)];
  end else
    LabelResult.Caption := '-';

  LabelWillValue.Caption := IntToStr(RoundInfo.ObjectValue);
end;

procedure TRoundMonitorForm.SBR1Click(Sender: TObject);
begin
  if rltInterpreter = nil then Exit;
  rltInterpreter.CallSetRoundResult(0);
end;

procedure TRoundMonitorForm.SBR2Click(Sender: TObject);
begin
  if rltInterpreter = nil then Exit;
  rltInterpreter.CallSetRoundResult(1);
end;

procedure TRoundMonitorForm.SBR3Click(Sender: TObject);
begin
  if rltInterpreter = nil then Exit;
  rltInterpreter.CallSetRoundResult(2);
end;

procedure TRoundMonitorForm.SpeedButton4Click(Sender: TObject);
var
  CGameParams : TGameParams;
begin
  if rltInterpreter = nil then Exit;
  if not rltInterpreter.CallGetGameParams(CGameParams) then Exit;
  //提示对话框
  //读取配置
  //设置配置
  if SetGame(CGameParams) then
  begin
    CGameParams.AdminStr := '(nochange)';
    if rltInterpreter.CallSetGameParams(CGameParams) then
    begin
      MessageBox(Handle, '设置游戏参数成功!','',MB_OK);
    end else
    begin
      MessageBox(Handle, '设置游戏参数失败!','',MB_OK or MB_ICONERROR);
    end;
  end;
end;

end.