Welcome！[Sign In] ！[Sign Up]！
Front-page it | Collect it | [中国-简体中文]
FAQ Fav
Location:
Search - score.j

Search list

[Other] bao.soso.com

Description: 活动介绍 1．智慧夺宝季期间，只要使用SOSO网页、图片、音乐、论坛、视频等搜索频道搜索知识类和健康类的相关内容，在搜索结果页面下方就会随机掉落智慧果，智慧果的数量和概率与你的搜索内容和次数有关哦。点击智慧果，填写个人资料，智慧果就会落入你的囊中，累计你的智慧积分，随时赢取心仪奖品！ 2．活动开始后，你也可以立即参加智慧创想活动，在搜吧中自由畅想搜索的发展和soso的未来，只要在智慧夺宝季期间累计智慧积分在前10000名，同时你的创想又得到专家的认可和青睐，就有机会免费参观腾讯公司。如果你的创想足够透彻，足够新颖，还将获得进入腾讯工作的机会。还等什么？赶快参加吧！ 本软件由易卖网－网店联盟http://www.topmai.cn出品 -activities. J wisdom quarter of 2003, the use of SOSO pages, pictures, music, forums, Video Search, and other channels like search and knowledge of the types of health-related content, in the bottom of the search results pages will be randomly fallen fruit wisdom, wisdom and the quantity of probability with your search content and frequency of the oh. Click on the wisdom of fruit to fill in personal information, wisdom fruit will go to your capsule, the accumulated wisdom of your score, always favored to win prizes! 2. After the commencement of the event, you can immediately participate in the activities to create wisdom, Cafe in the seizure free imagining the search soso development and the future As long as the wisdom of J quarter of the previous integral wisdom accumulated 10,000, Meanw
Platform: | Size: 715386 | Author: wh | Hits:

[Other Games] 瑪莉台(老虎機)

Description:

var
  Form1: TForm1;
  MousePos: TPoint;
  bet_x : Integer;
  bet_y : Integer;
  i, j, k, l, r, m, n : integer;// i:大迴圈 J:跑燈迴圈 K:倍數燈 L:倍數燈 M:大小燈  n:比倍迴圈
  left_bai, right_bai : Integer; //左邊倍數..右邊倍數
  Ti, Tj : Cardinal; //迴圈時間 , 押注連續時間
  rb, rd : integer;//加速用定位
  score : Integer;//現有分數
  take_score : Integer;//得分
  bet_ok : Boolean;    //押注完成
  re_bet : Boolean;    //重新押注
  bar_bet, seven_bet, star_bet, Watermelon_bet, bell_bet, Lemon_bet, Orange_bet, apple_bet : Integer;
  bar_bet_full, seven_bet_full, star_bet_full, Watermelon_bet_full, bell_bet_full, Lemon_bet_full, Orange_bet_full, apple_bet_full : Boolean; //下注全滿
  bet_all : Integer;//押注總和
  runing : Boolean; //正在跑燈
  not_take_score : Boolean;//是否已經取回得分
  big_small : Integer;  //大小  大:0  小:1
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if (not AsphyreDevice1.Initialize()) then
  begin
   Close();
   Exit;
  end;

  Randomize;
  Ti := 451; //毫秒
  score := 5000;
  bet_ok := False;
  runing := False;
  re_bet := True;
  not_take_score := False;
  Tj := 50;
  PlaySound('R_21',hinstance,SND_ASYNC or SND_RESOURCE);

end;

procedure TForm1.AsphyreDevice1Initialize(Sender: TObject;
  var Success: Boolean);
begin
  Success:=AsphyreFonts1.LoadFromASDb(ASDb1);
  if (Success) then
  Success:=AsphyreImages1.LoadFromASDb(ASDB1);
  //if (Success) then SoundSystem1.LoadFromASDb(ASDb1);
  AsphyreTimer1.Enabled:= Success;
end;

procedure TForm1.AsphyreDevice1Render(Sender: TObject);
begin
  AsphyreCanvas1.Draw(AsphyreImages1.Image['23ok1.image'],0,0,0,1); //背景加載
  AsphyreFonts1[2].TextOut(format('%6s',[IntToStr(score)]), 232,56, $FF2425FF); //資金顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%6s',[IntToStr(take_score)]), 66,56, $FF2425FF); //得分顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(bar_bet)]), 18,523, $FF2425FF); //BAR押注顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(seven_bet)]), 64,523, $FF2425FF); //77押注顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(star_bet)]), 112,523, $FF2425FF); //双星押注顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(Watermelon_bet)]), 159,523, $FF2425FF); //西瓜押注顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(bell_bet)]), 206,523, $FF2425FF); //鈴鐺押注顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(Lemon_bet)]), 253,523, $FF2425FF); //檸檬押注顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(Orange_bet)]), 300,523, $FF2425FF); //橘子押注顯示( $FF0400FF 正紅 )
  AsphyreFonts1[2].TextOut(format('%2s',[IntToStr(apple_bet)]), 347,523, $FF2425FF); //蘋果押注顯示( $FF0400FF 正紅 )
  //AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 174,90+i,0,1);
  Demo;
  Form1.FormStyle := fsStayOnTop;
  if (bet_x > 267) and (bet_x < 374) and (bet_y > 555) and (bet_y < 588) then AsphyreCanvas1.Draw(AsphyreImages1.Image['start4.image'], 265,555,0,1);
  if (bet_x > 24) and (bet_x < 83) and (bet_y > 559) and (bet_y < 587) then AsphyreCanvas1.Draw(AsphyreImages1.Image['big2.image'], 24,559,0,1);
  if (bet_x > 89) and (bet_x < 144) and (bet_y > 559) and (bet_y < 587) then AsphyreCanvas1.Draw(AsphyreImages1.Image['small2.image'], 89,559,0,1);
end;

procedure TForm1.AsphyreTimer1Timer(Sender: TObject);
begin
  AsphyreDevice1.Render(0,true);
  AsphyreDevice1.Flip;
end;

procedure TForm1.Demo();     //選擇性顯示
begin
    case j of
      1 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 174,90,0,fxMax);
      2 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 224,90,0,fxMax);
      3 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 276,90,0,fxMax);
      4 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 326,90,0,fxMax);
      5 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 326,142,0,fxMax);
      6 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 326,192,0,fxMax);
      7 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 326,244,0,fxMax);
      8 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 326,294,0,fxMax);
      9 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 326,346,0,fxMax);
      10 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 326,398,0,fxMax);
      11 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 276,398,0,fxMax);
      12 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 224,398,0,fxMax);
      13 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 174,398,0,fxMax);
      14 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 122,398,0,fxMax);
      15 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 71,398,0,fxMax);
      16 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 20,398,0,fxMax);
      17 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 20,346,0,fxMax);
      18 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 20,294,0,fxMax);
      19 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 20,244,0,fxMax);
      20 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 20,192,0,fxMax);
      21 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 20,142,0,fxMax);
      22 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 20,90,0,fxMax);
      23 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 71,90,0,fxMax);
      24 : AsphyreCanvas1.Draw(AsphyreImages1.Image['1.image'], 122,90,0,fxMax);
    end;
    case k of
      1 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-2.image'], 74,454,0,fxMax);
      2 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-2.image'], 121,454,0,fxMax);
      3 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-2.image'], 167,454,0,fxMax);
    end;
    case l of
      1 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-2.image'], 309,454,0,fxMax);
      2 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-2.image'], 261,454,0,fxMax);
      3 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-2.image'], 215,454,0,fxMax);
    end;
    case m of
      1 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-1.image'], 123,285,0,fxMax);
      2 : AsphyreCanvas1.Draw(AsphyreImages1.Image['-1.image'], 244,285,0,fxMax);
    end;
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (x > 267) and (x < 374) and (y > 555) and (y < 588) or    //这里是改变鼠标样子的 --開始
     (x > 14) and (x < 55) and (y > 492) and (y < 546) or //--BAR
     (x > 61) and (x < 101) and (y > 492) and (y < 546) or  //--77
     (x > 109) and (x < 149) and (y > 492) and (y < 546) or  // --双星
     (x > 155) and (x < 197) and (y > 492) and (y < 546) or  // --西瓜
     (x > 203) and (x < 243) and (y > 492) and (y < 546) or  //  --鈴鐺
     (x > 249) and (x < 289) and (y > 492) and (y < 546) or  //  --檸檬
     (x > 297) and (x < 337) and (y > 492) and (y < 546) or  //  --橘子
     (x > 344) and (x < 384) and (y > 492) and (y < 546) or  //  --蘋果
     (x > 24) and (x < 83) and (y > 559) and (y < 587) or    //  --押大
     (x > 89) and (x < 144) and (y > 559) and (y < 587) then //  --壓小
     begin
       form1.Cursor := crHandPoint //进入这个区域，鼠标变成手型
     end
  else
    form1.Cursor := crDefault; //离开时，恢复默认鼠标

GetCursorPos(MousePos);
//Form1.Caption:='相對座標'+IntToStr(x)+','+IntToStr(y) + '絕對座標'+IntToStr(MousePos.X)+','+IntToStr(MousePos.Y);
bet_x := x;
bet_y := y;

end;



procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x > 267) and (x < 374) and (y > 555) and (y < 588) then // --開始
    begin


    end;
  if (x > 14) and (x < 55) and (y > 492) and (y < 546) then  //--BAR 押分
    begin

    end;
  if (x > 109) and (x < 149) and (y > 492) and (y < 546) then  //--77 押分
  begin

  end;
  if (x > 109) and (x < 149) and (y > 492) and (y < 546) then    // --双星
  begin

  end;
  if (x > 155) and (x < 197) and (y > 492) and (y < 546) then     // --西瓜
  begin

  end;
  if (x > 203) and (x < 243) and (y > 492) and (y < 546) then     //  --鈴鐺
  begin

  end;
  if (x > 249) and (x < 289) and (y > 492) and (y < 546) then      //  --檸檬
  begin

  end;
  if (x > 297) and (x < 337) and (y > 492) and (y < 546) then      //  --橘子
  begin

  end;
  if (x > 344) and (x < 384) and (y > 492) and (y < 546) then   //  --蘋果
  begin

  end;
end;


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x > 267) and (x < 374) and (y > 555) and (y < 588) then // --開始壓下檢查
     begin
       if (not runing) then
       begin
         if (take_score > 0) then
           begin
             PlaySound('R_1',hinstance,SND_ASYNC or SND_RESOURCE);
             score := take_score + score;
             take_score := 0;
           end
           else
             start_key();
       end;
     end;
  if (x > 14) and (x < 55) and (y > 492) and (y < 546) then  //--BAR 押分
    begin

    end;
  if (x > 61) and (x < 101) and (y > 492) and (y < 546) then  //--77 押分
    begin

    end;
  if (x > 109) and (x < 149) and (y > 492) and (y < 546) then    // --双星
  begin

  end;
  if (x > 155) and (x < 197) and (y > 492) and (y < 546) then     // --西瓜
  begin

  end;
  if (x > 203) and (x < 243) and (y > 492) and (y < 546) then     //  --鈴鐺
  begin

  end;
  if (x > 249) and (x < 289) and (y > 492) and (y < 546) then      //  --檸檬
  begin

  end;
  if (x > 297) and (x < 337) and (y > 492) and (y < 546) then      //  --橘子
  begin

  end;
  if (x > 344) and (x < 384) and (y > 492) and (y < 546) then   //  --蘋果
  begin

  end;
  if (x > 24) and (x < 83) and (y > 559) and (y < 587) then   //  --押大
  begin
    if (take_score >= 1) then
    begin
      big_small := 0;
      r := random(4);
      Timer2.Enabled := True;
    end;
  end;
  if (x > 89) and (x < 144) and (y > 559) and (y < 587) then   //  --押小
  begin
    if (take_score >= 1) then
    begin
      big_small := 1;
      r := random(4);
      Timer2.Enabled := True;
    end;
  end;
  if (x > 201) and (x < 221) and (y > 54) and (y < 74) then  //移動分數
    begin

    end;

end;


procedure TForm1.Timer1Timer(Sender: TObject);    //跑燈
var
  ra : integer;//總步數
begin
  runing := True;
  Timer1.Interval := Ti;
  ra := 72;
  ra := ra + r;
  rb := rb + 1;
  i := i + 1;

  if (rb < 10) then
    begin
      Ti := Ti - 50; //加速
      PlaySound('R_1',hinstance,SND_ASYNC or SND_RESOURCE);
    end;
  if (i > ra-12) then
    begin
      Ti := Ti + 50;//減速
      PlaySound('R_1',hinstance,SND_ASYNC or SND_RESOURCE);
    end;
  j := j + 1;
  if (j >= 25) then j := 1;

  k := k + 1;
  if (k >= 4) then  k := 1;

  l := l + 1;
  if (l >= 4) then l := 1;

  {m := m + 1;
  if (m >= 3) then m := 1;}
  //PlaySound('R_1',hinstance,SND_ASYNC or SND_RESOURCE);
  //SoundSystem1.Play('Unti1.wav', False);
  Form1.Caption := inttostr(Ti) + '-j:' + inttostr(j) + '-r:' + IntToStr(r) + '-ra:' + IntToStr(ra) + '--rb:' + IntToStr(rb) + '__';
  if (i >= ra) then //燈跑完後要做的事
  begin
    Timer1.Enabled := False;
    Ti := 451;
    rb := 0;
    i := j+1;
    take_allscore();
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
  rc : integer;//總步數
begin
  runing := True;
  Timer2.Interval := Tj;
  rc := 12;
  rc := rc + r;
  rd := rd + 1;
  n := 1 + n;
  if (n >= rc) then //燈跑完後要做的事
  begin
    Timer2.Enabled := False;
    Tj := 50;
    rd := 1;
    n := 0;
    bi_bai_take_allscore();
  end;
 
  if (n > rc-12) then
    begin
      Tj := Tj + 50;//減速
      PlaySound('R_1',hinstance,SND_ASYNC or SND_RESOURCE);
    end;

  m := m + 1;
  if (m >= 3) then m := 1;
end;



procedure TForm1.take_allscore();
begin
  case k of
      1 : left_bai := 40;
      2 : left_bai := 30;
      3 : left_bai := 20;
    end;

  case k of
      1 : right_bai := 10;
      2 : right_bai := 20;
      3 : right_bai := 15;
    end;

  case j of
      1 : begin
          if (bar_bet >= 1) then
          begin
             PlaySound('R_11',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := bar_bet * 100;
          end;
           end;
      2 : begin
          if (apple_bet >= 1) then
          begin
            PlaySound('R_18',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := apple_bet * 5;
          end;
          end;
      3 : begin
          if (Lemon_bet >= 1) then
          begin
            PlaySound('R_16',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := Lemon_bet * 2;
          end;
          end;
      4 : begin
          if (Lemon_bet >= 1) then
          begin
            PlaySound('R_16',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := Lemon_bet * right_bai;
          end;
          end;
      5 : begin
          if (Watermelon_bet >= 1) then
          begin
            PlaySound('R_14',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := Watermelon_bet * left_bai;
          end;
          end;
      6 : begin
          if (Watermelon_bet >= 1) then
          begin
            PlaySound('R_14',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := Watermelon_bet * 2;
          end;
          end;
      7 : begin
            take_score := 0;
          end;
      8 : begin
          if (apple_bet >= 1) then
          begin
            PlaySound('R_18',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := apple_bet * 5;
          end;
          end;
      9 : begin
          if (Orange_bet >= 1) then
          begin
            PlaySound('R_17',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := Orange_bet * 2;
          end;
          end;
      10 : begin
           if (Orange_bet >= 1) then
           begin
            PlaySound('R_17',hinstance,SND_ASYNC or SND_RESOURCE);
            take_score := Orange_bet * right_bai;
           end;
          end;
      11 : begin
           if (bell_bet >= 1) then
           begin
             PlaySound('R_15',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := bell_bet * right_bai;
           end;
           end;
      12 : begin
           if (bell_bet >= 1) then
           begin
             PlaySound('R_15',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := bell_bet * 2;
           end;
           end;
      13 : begin
           if (seven_bet >= 1) then
           begin
             PlaySound('R_12',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := seven_bet * left_bai;
           end;
           end;
      14 : begin
           if (apple_bet >= 1) then
           begin
             PlaySound('R_18',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := apple_bet * 5;
           end;
           end;
      15 : begin
           if (apple_bet >= 1) then
           begin
             PlaySound('R_18',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := apple_bet * 2;
           end;
           end;
      16 : begin
           if (Lemon_bet >= 1) then
           begin
             PlaySound('R_16',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := Lemon_bet * right_bai;
           end;
           end;
      17 : begin
           if (star_bet >= 1) then
           begin
             PlaySound('R_13',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := star_bet * left_bai;
           end;
           end;
      18 : begin
           if (star_bet >= 1) then
           begin
             PlaySound('R_13',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := star_bet * 2;
           end;
           end;
      19 : begin
             take_score := 0;
           end;
      20 : begin
           if (apple_bet >= 1) then
           begin
             PlaySound('R_18',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := apple_bet * 5;
           end;
           end;
      21 : begin
           if (seven_bet >= 1) then
           begin
             PlaySound('R_12',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := seven_bet * 2;
           end;
           end;
      22 : begin
           if (Orange_bet >= 1) then
           begin
             PlaySound('R_17',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := Orange_bet * right_bai;
           end;
           end;
      23 : begin
           if (bell_bet >= 1) then
           begin
             PlaySound('R_11',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := bell_bet * right_bai;
           end;
           end;
      24 : begin
           if (bar_bet >= 1) then
           begin
             PlaySound('R_18',hinstance,SND_ASYNC or SND_RESOURCE);
             take_score := bar_bet * 50;
           end;
           end;
    end;

  runing := False;
  bet_ok := False;;
  re_bet := True;
  bar_bet_full := False;
  seven_bet_full := False;
  star_bet_full := False;
  Watermelon_bet_full := False;
  bell_bet_full := False;
  Lemon_bet_full := False;
  Orange_bet_full := False;
  apple_bet_full := False;
end;

procedure TForm1.bi_bai_take_allscore();
begin
  case m of
      1 : if (big_small = 1) then
          begin
            take_score := take_score * 2;
            PlaySound('R_19',hinstance,SND_ASYNC or SND_RESOURCE);
          end
            else
            begin
            take_score := 0;
            PlaySound('R_20',hinstance,SND_ASYNC or SND_RESOURCE);
            end;
      2 : if (big_small = 0) then
          begin
            take_score := take_score * 2;
            PlaySound('R_19',hinstance,SND_ASYNC or SND_RESOURCE);
          end
            else
            begin
            take_score := 0;
            PlaySound('R_20',hinstance,SND_ASYNC or SND_RESOURCE);
            end;
    end;

  runing := False;
  bet_ok := False;;
  re_bet := True;
  bar_bet_full := False;
  seven_bet_full := False;
  star_bet_full := False;
  Watermelon_bet_full := False;
  bell_bet_full := False;
  Lemon_bet_full := False;
  Orange_bet_full := False;
  apple_bet_full := False;
end;



procedure TForm1.start_key();
begin
  bet_all := bar_bet + seven_bet + star_bet + Watermelon_bet + bell_bet + Lemon_bet + Orange_bet + apple_bet;
  if (not runing) then
     begin
       if (take_score >= 0) then
          begin
            score := take_score + score;
            take_score := 0;
            if (bar_bet >= 1) or (seven_bet >= 1) or (star_bet >= 1) or (Watermelon_bet >= 1) or
               (bell_bet >= 1) or (Lemon_bet >= 1) or (Orange_bet >= 1) or (apple_bet >= 1) then
               Begin
                 if re_bet then
                 begin
                   if (score >= bet_all) then
                   begin
                     score := score - bet_all;
                     bet_ok := True;
                   end
                   else
                   begin
                     bet_ok := False;
                     Exit;
                   end;
                 end;
                 if bet_ok then
                 begin
                   r := random(24);
                   Timer1.Enabled := True;
                 end;
               end;
          end;
     end;
end;




procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if (bet_x > 14) and (bet_x < 55) and (bet_y > 492) and (bet_y < 546) then  //--BAR 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;

            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (bar_bet >= 99) then
            begin
              bar_bet_full := True;
            end
            else
            begin
              PlaySound('R_2',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              bar_bet := bar_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if (bet_x > 61) and (bet_x < 101) and (bet_y > 492) and (bet_y < 546) then  //--77 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;
            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (seven_bet >= 99) then
            begin
              seven_bet_full := True;
            end
            else
            begin
              PlaySound('R_3',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              seven_bet := seven_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if (bet_x > 109) and (bet_x < 149) and (bet_y > 492) and (bet_y < 546) then  //--star 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;
            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (star_bet >= 99) then
            begin
              star_bet_full := True;
            end
            else
            begin
              PlaySound('R_4',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              star_bet := star_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if (bet_x > 155) and (bet_x < 197) and (bet_y > 492) and (bet_y < 546) then  //--西瓜 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;
            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (Watermelon_bet >= 99) then
            begin
              watermelon_bet_full := True;
            end
            else
            begin
              PlaySound('R_5',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              watermelon_bet := watermelon_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if (bet_x > 203) and (bet_x < 243) and (bet_y > 492) and (bet_y < 546) then  //--鈴鐺 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;
            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (bell_bet >= 99) then
            begin
              bell_bet_full := True;
            end
            else
            begin
              PlaySound('R_6',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              bell_bet := bell_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if (bet_x > 249) and (bet_x < 289) and (bet_y > 492) and (bet_y < 546) then  //--檸檬 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;
            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (lemon_bet >= 99) then
            begin
              lemon_bet_full := True;
            end
            else
            begin
              PlaySound('R_7',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              lemon_bet := lemon_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if (bet_x > 297) and (bet_x < 337) and (bet_y > 492) and (bet_y < 546) then  //--橘子 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;
            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (orange_bet >= 99) then
            begin
              orange_bet_full := True;
            end
            else
            begin
              PlaySound('R_8',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              orange_bet := orange_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if (bet_x > 344) and (bet_x < 384) and (bet_y > 492) and (bet_y < 546) then  //--蘋果 押分
    begin
      if (not runing) then
      begin
        if (score >= 1) then
        begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;
            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
          begin
            if (apple_bet >= 99) then
            begin
              apple_bet_full := True;
            end
            else
            begin
              PlaySound('R_9',hinstance,SND_ASYNC or SND_RESOURCE);
              score := score - 1;
              apple_bet := apple_bet + 1;
              bet_ok := True;
            end;
          end;
        end;
      end;
    end;
  if bar_bet_full and seven_bet_full and star_bet_full and Watermelon_bet_full and bell_bet_full and Lemon_bet_full and Orange_bet_full and apple_bet_full then
  begin
    start_key();
  end;
end;





procedure TForm1.FormDblClick(Sender: TObject);
begin
  if (not runing) then
      begin
        if (score >= 1) then
        begin
          if (score >= 792) then
          begin
          if re_bet then
          begin
            score := take_score + score;
            take_score := 0;

            bar_bet := 0;
            seven_bet := 0;
            star_bet := 0;
            Watermelon_bet := 0;
            bell_bet := 0;
            Lemon_bet := 0;
            Orange_bet := 0;
            apple_bet := 0;
            re_bet := False;
          end
          else
  &
Platform: | Size: 4438122 | Author: 039917 | Hits:

[Other] bao.soso.com

Description: 活动介绍 1．智慧夺宝季期间，只要使用SOSO网页、图片、音乐、论坛、视频等搜索频道搜索知识类和健康类的相关内容，在搜索结果页面下方就会随机掉落智慧果，智慧果的数量和概率与你的搜索内容和次数有关哦。点击智慧果，填写个人资料，智慧果就会落入你的囊中，累计你的智慧积分，随时赢取心仪奖品！ 2．活动开始后，你也可以立即参加智慧创想活动，在搜吧中自由畅想搜索的发展和soso的未来，只要在智慧夺宝季期间累计智慧积分在前10000名，同时你的创想又得到专家的认可和青睐，就有机会免费参观腾讯公司。如果你的创想足够透彻，足够新颖，还将获得进入腾讯工作的机会。还等什么？赶快参加吧！ 本软件由易卖网－网店联盟http://www.topmai.cn出品 -activities. J wisdom quarter of 2003, the use of SOSO pages, pictures, music, forums, Video Search, and other channels like search and knowledge of the types of health-related content, in the bottom of the search results pages will be randomly fallen fruit wisdom, wisdom and the quantity of probability with your search content and frequency of the oh. Click on the wisdom of fruit to fill in personal information, wisdom fruit will go to your capsule, the accumulated wisdom of your score, always favored to win prizes! 2. After the commencement of the event, you can immediately participate in the activities to create wisdom, Cafe in the seizure free imagining the search soso development and the future As long as the wisdom of J quarter of the previous integral wisdom accumulated 10,000, Meanw
Platform: | Size: 714752 | Author: wh | Hits:

[Chess Poker games] J2ME_PIG

Description: 手机网络纸牌游戏（拱猪） 游戏的基本设计思想是根据游戏规则制定的，下面给出拱猪游戏的简单游戏规则： 牌的大小按下列顺序排列：A、K、Q、J、10、9、8、7、6、5、4、3、2。 1．出牌 （1）每轮只允许出一张牌。 （2）第一局游戏由得到梅花2的一方首先出牌，并且必须出梅花2。 （3）必须先出与首家相同花色的牌，无相同花色时方可用其它花色代替。 （4）最大方得到该轮的所有分牌，并获得本轮先出牌的资格。 2．分值计算 红桃：红桃为分牌。-Mobile Network card games (Gong Zhu) game basic design is established under the rules of the game, here are the simple rules of the game Gong Zhu game: card size in the following order: A, K, Q, J, 10,9 , 8,7,6,5,4,3,2. 1. The card (1) only allows a card each round. (2) The first games to get plum 2 by the first party to the cards, and must be a plum 2. (3) must be the same with the first color of the card, not when the same color be replaced with other colors. (4) the largest party by the round of all sub-license, and obtained the qualification round of the first play. 2. Score calculated Hearts: Hearts for the sub-license.
Platform: | Size: 946176 | Author: 亮亮 | Hits:

[Algorithm] sequence-alignment-matrix-

Description: 求解序列比对得分矩阵，对于两个序列S和T，令[S]和[T]分别为序列S和T的长度，S[i]和T[j](其中正整数i，j满足0≤j< [S]和0≤j <[T])都属于字符集Ω={A,T,C,G,-},对Ω中的任何元素和空符号。 设计S[i]和T[j]两两之间的一个记分值来比较序列间的同一性的优劣,用记分函数σ(x，y)表示， σ(S[i],T[j])=2 ( S[i]=T[j]≠-)；σ(S[i],T[j])= -1 ( S[i]≠T[j],S[i]≠-,T[j]≠-)；σ(S[i],T[j])= -2 (S[i]orT[j]=-)。-Solve the sequence alignment score matrix for two sequences S and T, so [S] and [T] S and T respectively, sequence length, S [i] and T [j] (which is an integer i, j satisfying 0 ≤ j < [S] and 0 ≤ j < [T]) belong to the character set Ω = {A, T, C, G,-}, any element of Ω, and the empty symbols. Design S [i] and T [j] between any two of a record score to compare the sequence identity between the pros and cons, with the score function σ (x, y) that, σ (S [i], T [j ]) = 2 (S [i] = T [j] ≠-) σ (S [i], T [j]) =-1 (S [i] ≠ T [j], S [i] ≠- , T [j] ≠-) σ (S [i], T [j]) =-2 (S [i] orT [j ]=-)。
Platform: | Size: 4096 | Author: zhouyanghua | Hits:

[Chess Poker games] 21card

Description: “21点”是一个古老的扑克牌游戏，游戏规则是：各个参与者设法使自己的牌达到总分21而不超过这个数值。扑克牌的分值取他们的面值，A充当1分或者11分(由玩家自己确定选择一种分值)，J、Q和K人头牌都是10分。 庄家对付1~7个玩家。在一局开始时，包括庄家在内的所有参与者都有两张牌，玩家可以看到他们的所有牌以及总分，而庄家有一张牌暂时是隐藏的。接下来，只要愿意，各个玩家都有机会再拿一张牌。如果某个玩家的总分超过了21(成为“引爆”)，那么这个玩家就输了。在所有玩家都拿了额外的牌后，庄家将显示它隐藏的牌。只要庄家的总分等于或小于16，那么他就必须再拿牌。如果庄家引爆了，那么还没有引爆的所有玩家都将获胜。否则，将余下的各玩家的总分与庄家的总分作比较，如果玩家的总分大于庄家的总分，则玩家获胜。如果两者的总分相同，则玩家与庄家打成平局。 -"Excellent counting systems available" is an old poker game, the game is ： all participants to make his cards total 21 and not to exceed the value of the header values. playing cards for their face value, a as 1分- by himself or (players for a header values), and j, q and he heads the cards are 10. the deal with a ~ seven players in a game start, including the all participants are two cards, the player can see all their cards, and marks and the dealer has a card for a hidden. next, as long as you like, the players have the chance to get a card. if the players final score more than 21 (as "triggering"), the players lost. in all players have an extra card, the makers will show it to hide the card.
Platform: | Size: 5120 | Author: 小陈 | Hits:

[Data structs] zyyt

Description: 租用游艇问题 成绩: 5 / 折扣: 0.8 长江游艇俱乐部在长江上设置了n 个游艇出租站1，2，…，n。游客可在这些游艇出租站租用游艇，并在下游的任何一个游艇出租站归还游艇。游艇出租站i 到游艇出租站j 之间的租金为r(i,j),1<=i<j<=n。试设计一个算法，计算出从游艇出租站1 到游艇出租站n 所需的最少租金。 编程任务： 对于给定的游艇出租站i 到游艇出租站j 之间的租金为r(i,j),1<=i<j<=n，编程计算从游艇出租站1 到游艇出租站n所需的最少租金。 数据输入： 文件的第1 行中有1 个正整数n（n<=200），表示有n个游艇出租站。接下来的n-1 行是r(i,j),1<=i<j<=n。 结果输出: 程序运行结束时，将计算出的从游艇出租站1 到游艇出租站n所需的最少租金输出。 输入文件示例： 3 5 15 7 输出文件示例： 12 -The rented yacht score: 5/Discount: 0.8 Yangtze River Yacht Club is set in the Yangtze River n a yacht rental stations 1,2, ..., n. Visitors rent yachts, yacht rental points in the lower reaches of a yacht rental station to return the yacht. Yacht rental station i to j the rent of the yacht rental station for r (i, j), 1 < = i <j<=n。试设计一个算法，计算出从游艇出租站1 到游艇出租站n 所需的最少租金。 编程任务： 对于给定的游艇出租站i 到游艇出租站j 之间的租金为r(i,j),1<=i<j<=n，编程计算从游艇出租站1 到游艇出租站n所需的最少租金。 数据输入： 文件的第1 行中有1 个正整数n（n<=200），表示有n个游艇出租站。接下来的n-1 行是r(i,j),1<=i<j<=n。 结果输出: 程序运行结束时，将计算出的从游艇出租站1 到游艇出租站n所需的最少租金输出。 输入文件示例： 3 5 15 7 输出文件示例： 12
Platform: | Size: 104448 | Author: JKFrancis | Hits:

[Other Riddle games] russian-square

Description: 本程序主要完成俄罗斯方块的基本功能，开始界面可选择开始游戏、查看游戏说明和得分记录。方块下落速度随分数的增加而增加，消行时会闪烁，游戏结束可重新开始也可保存游戏，可查看游戏记录和游戏说明，有背景音乐。 算法1：卡位判断，用矩阵解决。当移动方向上地图的值和方块的值都不为零时，返回值为零，不能移动，否则返回值为一，可以移动。如果将图形打出来，会多出不少有规律且重复的代码。 算法2：转动方块：定义b[i][j],将旋转赋值给b,判断b与所在位置是否可以放下，若可以，将b值再赋值给a-Complete Tetris start interface may choose to start the game, view game descriptions and scoring records. Box falling speed is increased with increasing score, eliminate line flicker, the end of the game can start again You can also save the game, you can view the game records and play background music.
Platform: | Size: 33850368 | Author: 小咩 | Hits:

[.net] card

Description: 计算每副牌的分值：每副牌有个原始大小(即排除对子，顺子，金花，顺金，筒子的大小），再 每张牌的分值为一个2位数，不足2位的补前导0，例如 A ：14，‘10’：10，’2‘：’02‘，’k‘：13，’7‘：07 将3张牌按点数大小排序(从大到小)，凑成一个6位数。例如’A27 ：140702，‘829’：090802，‘JK8’：131108，‘2A10’：141002 例外，对于对子要将对子的位数放在前两位(后面会看到为什么这么做）。例如‘779’：070709，‘7A7’：070714，‘A33’：030314 现在的分值是一个6位数，将对子设为一个原始值加上10*100000的值，现在为一个7位数。例如‘779’：1070709，‘7A7’：1070714，‘A33’：1030314 对于顺子，将结果加上20*100000.。例如‘345’：2050403，‘QKA’：2141312，‘23A’：2140302 对于金花，将结果加上30*100000。例如‘Spade K,Spade 6,Spade J ：3131106 因为顺金的时候其实是金花和顺子的和，所以顺金应该是50*10000。 例如‘Spade 7,Spade 6,Spade 8 ：5080706 对于筒子，将结果加上60*100000。例如’666‘：6060606，’JJJ‘：6111111 3“ 比较两幅牌的大小(用所计算的分值来比较） 就这么简单-Scores calculated for each of the cards : Each of the cards have the original size ( ie excluding pairs, straights , Jinhua, Shun-Jin , cheese the size ) , and then         The score of each card a 2-digit , less than two s complement leading 0, for example A : 14, 10 : 10, 2 : 02 , k : 13, 7 : 07         The three cards in descending order according to points ( descending ) , make up a six digits. For example A27 : 140702, 829 : 090802, JK8 : 131108, 2 A10 : 141002         Exception to the pair on the first two pairs of digits ( you ll see later how to do so ) . For example 779 : 070709, 7 A7 : 070714, A33 : 030314       Now the score is a six-digit , it will set an original value plus the sub- 10* 100000 value , is now a seven digits. For example 779 : 1070709, 7 A7 : 1070714, A33 : 1030314       For the straight , the result plus 20* 100000 . For example 345 : 2050403, QK
Platform: | Size: 1024 | Author: 刘朝阳 | Hits:

[JSP/Java] s4

Description: （4）编写程序，设计一个学生成绩表，用二维数组Score[i][j]，存放10名同学的5门学习成绩，学号和分数均为整数。可以由用户录入成绩；打印每门课的平均成绩；打印总成绩最高的同学的学号-(4) Write a program to design a table student achievement, with a two-dimensional array Score [i] [j], store 10 students five grades, school and scores are integers. Results can be entered by the user print the average score for each course print total score highest number of students in school
Platform: | Size: 6144 | Author: zhouqiubin | Hits:

[Chess Poker games] game_of_21_point

Description: “21”点纸牌游戏，游戏规则：各个参与者设法使自己的牌达到总分21而不超过这个数值，扑克牌的分数取它们的面值，A充当1分或11分（由玩家自己选择一种分值），J,Q和K人头牌都是10分。庄家对付1—7个玩家，在一局开始时，包括庄家在内的玩家都有2张牌，玩家可以看到他们的所有牌及总分，而庄家有一张牌暂时是隐藏的。接下来，只要愿意，各玩家都有机会依次再拿一张牌。如果某个玩家的总分超过21分（称为引爆），那么，这个玩家就输了。在所有玩家都拿到额外的牌后，庄家将显示隐藏的牌，只要庄家总分小于或等于16，他就必须再拿牌。如果庄家引爆，那么还没有引爆的所有玩家获胜，引爆的玩家打成平局。否则，将余下的各玩家的总分和庄家总分比较，总分大者获胜，分数相同则打成平局。-"21" card game, the rules of the game: each participant trying to make their brand reach 21 without exceeding this value score, score cards take their face value, A acts as a point or 11 points (by the players themselves choose a kind of score), J, Q and K face cards are 10 points. Makers deal with 1-7 players, at the beginning of a round, the player including the dealer has 2, including cards, players can see all their cards and score, and the dealer has a card temporarily hidden. Then, if they wish, each player in turn has the opportunity to retake a card. If a player scores more than 21 points (called detonation), then the players lose. After all the players have to get additional cards, the dealer will display the hidden card, as long as the dealer score less than or equal to 16, he must retake card. If the dealer detonated, then all the players have not yet detonated win, players draw detonated. Otherwise, the rest of the score of each player and the dealer total score, score big
Platform: | Size: 394240 | Author: liangxiaofang | Hits:

CodeBus www.codebus.net