unit1.pas

一个采用类似大富翁游戏模式的背单词软件

    jit_dangqianbs:= GameSave1.dangqianbs;
            jit_caifu:= GameSave1.caifu;
            jit_dangqianbs_dn:= GameSave1.dangqianbs_dn;
            jit_caifu_dn:= GameSave1.caifu_dn;
            jit_koucu:= GameSave1.koucu;
            jit_koucu_dn:= GameSave1.koucu_dn;
            jit_leiji:= GameSave1.leiji;
  end else begin
            jit_dangqianbs:= 0;
            jit_caifu:= 0;
            jit_dangqianbs_dn:= 0;
            jit_caifu_dn:= 0;
            jit_koucu:= 0;
            jit_koucu_dn:= 0;
            jit_leiji:= 0;
            GameSave1.zhuangtai:= 195;
            GameSave1.index:= 0;
            GameSave1.tip1:= 0;
            GameSave1.tip2:= 0;
            GameSave1.tip3:= 0;
            GameSave1.tip4:= 0;
            GameSave1.tip5:= 0;
            GameSave1.tip6:= 0;
            GameSave1.tip7:= 0;
            GameSave1.zqbs:= 0;
            GameSave1.cwbs:= 0;
           end;
  {初始化额外获得物品的状态}
  if GameSave1.tip1> 0 then
   listbox3.Items.Add('幻界水晶：'+ inttostr(GameSave1.tip1)+ '颗');
  if GameSave1.tip2> 0 then
   listbox3.Items.Add('2007小金猪：'+ inttostr(GameSave1.tip2)+ '颗');
  if GameSave1.tip3> 0 then
   listbox3.Items.Add('魔力宝石：'+ inttostr(GameSave1.tip3)+ '颗');
  if GameSave1.tip4> 0 then
   listbox3.Items.Add('上古神石：'+ inttostr(GameSave1.tip4)+ '颗');
  if GameSave1.tip5> 0 then
   listbox3.Items.Add('传世玉佛：'+ inttostr(GameSave1.tip5)+ '颗');
  if GameSave1.tip6> 0 then
   listbox3.Items.Add('极品七星珠：'+ inttostr(GameSave1.tip6)+ '颗');
  if GameSave1.tip7> 0 then
   listbox3.Items.Add('混沌舍利：'+ inttostr(GameSave1.tip7)+ '颗');

 jit_cup_int:= get_jb;
end;

procedure TForm1.show_game_state;  //显示游戏状态
begin
  if groupbox4.Visible then
   begin
     {赌钱状态}
       if ((strtoint(label9.Caption) > 3)and radiobutton4.Checked) or ((strtoint(label9.Caption) < 4)and radiobutton5.Checked) then
       begin
        jit_caifu:= jit_caifu + strtoint(edit1.Text);
         jit_caifu_dn:= jit_caifu_dn - strtoint(edit1.Text);
        listbox3.items[4]:='您赢了'+edit1.Text;
        imagelist1.Draw(MCanvas,4,9,0);
       end else begin
                  jit_caifu:= jit_caifu - strtoint(edit1.Text);
                  jit_caifu_dn:= jit_caifu_dn + strtoint(edit1.Text);
                 listbox3.items[4]:='您输了'+edit1.Text;
                 imagelist1.Draw(MCanvas,4,9,1);
                end;
     if strtoint(edit1.Text)> jit_caifu then
       edit1.Text:= inttostr(jit_caifu div 10);
   end else begin
 jit_dangqianbs:= jit_dangqianbs mod listbox2.Items.Count;
  listbox2.ItemIndex:= jit_dangqianbs;
  listbox3.items[4]:=  listbox2.Items.Strings[jit_dangqianbs];
     prs_game_list2(listbox2.Items.Strings[jit_dangqianbs]); //处理游戏进程
 listbox3.items[3]:= inttostr(jit_dangqianbs); //显示当前步数
            end;
 listbox3.items[2]:= FormatCurr('0.00',jit_caifu);
  case jit_koucu of
  0..10000: listbox3.items[1]:= '平民';
  10001..25000:listbox3.items[1]:= '村长';
  25001..50000:listbox3.items[1]:= '乡长';
  50001..80000: listbox3.items[1]:= '县令';
  80001..125000:listbox3.items[1]:= '知府';
  125001..180000:listbox3.items[1]:= '道台';
  180001..250000:listbox3.items[1]:= '太守';
  250001..350000:listbox3.items[1]:= '都督';
  350001..500000:listbox3.items[1]:= '御史';
  500001..700000:listbox3.items[1]:= '巡按';
  700001..1000000: listbox3.items[1]:= '宰相';
  1000001..3000000: listbox3.items[1]:= '拜侯封王';
  3000001..6000000: listbox3.items[1]:= '崂山寻道';
  6000001..9000000: listbox3.items[1]:= '东渡蓬莱';
  9000001..15000000: listbox3.items[1]:= '气贯长虹';
  15000001..20000000: listbox3.items[1]:= '虚弥幻境';
  20000001..25000000: listbox3.items[1]:= '天长地久';
  25000001..30000000: listbox3.items[1]:= '偶得仙果';
  30000001..35000000: listbox3.items[1]:= '初入仙界';
  35000001..40000000: listbox3.items[1]:= '仙界一级';
  45000001..50000000: listbox3.items[1]:= '仙界二级';
  55000001..60000000: listbox3.items[1]:= '仙界三级';
  65000001..70000000: listbox3.items[1]:= '深入仙界';
  70000001..80000000: listbox3.items[1]:= '天人合一';
  80000001..99000000: listbox3.items[1]:= '大功告成';
  end;

end;

procedure TForm1.save_game_progress(filename: string);
var File1: File Of TGameSave;
begin

            GameSave1.dangqianbs:=jit_dangqianbs;
             GameSave1.caifu:=jit_caifu;
             GameSave1.dangqianbs_dn:=jit_dangqianbs_dn;
             GameSave1.caifu_dn:=jit_caifu_dn;
             GameSave1.koucu:=jit_koucu;
             GameSave1.koucu_dn:=jit_koucu_dn;
            // GameSave1.leiji:=jit_leiji;
             GameSave1.index:= combobox1.ItemIndex;
 if not DirectoryExists(ExtractFileDir(filename)) then
     mkdir(ExtractFileDir(filename));

 AssignFile(File1,filename);
 Rewrite(File1);
 try
   write(File1,GameSave1);
 finally
   CloseFile(File1);
   end;


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 save_check;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if jit_time > -1 then
  begin
  inc(jit_time);
  label9.Caption:= inttostr((jit_time mod 6)+1);
  if checkbox8.Checked then
   begin
     if jit_time = jit_delay then
      begin
       radiobutton1.Font.Color:=clwindowtext;
       radiobutton2.Font.Color:=clwindowtext;
       radiobutton3.Font.Color:=clwindowtext;
      end;
   end;
  end else  begin
             inc(jit_time,-1);
              if not checkbox1.Checked then
               begin
                timer1.Enabled:= false;
               end;
             if jit_time <= -40 then
              groupbox3.Visible:= false;
            end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ss: string;
begin
 if checkbox2.Checked then
  begin
   if not Assigned(jit_spk1) then
    begin
    jit_spk1:= Tjit_spk.create('hello');
    sleep(500);
    end;
  end;

 if Assigned(form6) then
 begin
 if form6.Showing then
  begin
   postmessage(form6.Handle,form6_msg,0,cn_jit_game_star);
    exit;
  end;
 end;

 if jit_time < jit_delay then
  jit_time:= jit_delay-1;

 if Sender <> Action8 then
  begin
 if groupbox3.Visible and (radiobutton1.Checked= false) and (radiobutton2.Checked= false) and (radiobutton3.Checked= false) then
  exit;
  end;

 if not jit_game_start then    //载入游戏脚本
  begin
   screen.Cursor:= crhourglass;
   listbox2.Items.Clear;
   listbox2.Items.LoadFromFile(ExtractFilePath(application.ExeName)+'moneybags.dat');
   jit_game_start:= true;
   screen.Cursor:= crdefault;
  end;

 groupbox4.Visible:= false;
 radiobutton1.Checked:= false;
 radiobutton2.Checked:= false;
 radiobutton3.Checked:= false;
 jit_tmp_3:= Random(3);
 jit_time:= 0;
  if (checkbox3.Checked= false) and checkbox9.Checked then
   begin
    if jit_words_i< jit_words_i_c then
     begin
      inc(jit_word_p);
      inc(jit_words_i);
     end else begin
               jit_words_i:= 0;
               jit_word_p:= Random(wordlist1.Count);
               end;
   end else begin
             jit_word_p:= Random(wordlist1.Count);
            end;
            
   if jit_word_p>= wordlist1.Count then
      jit_word_p:= wordlist1.Count -1;

  ss:= wordlist1.Strings[jit_word_p];
  if ss='' then
   begin
    jit_word_p:= Random(wordlist1.Count);
    ss:= wordlist1.Strings[jit_word_p];
   end;
  if ss= '' then
   begin
    messagebox(handle,'警告：单词本内含有太多的空行，请删除单词本里的空行。','错误信息',MB_OK or MB_ICONERROR);
    exit;
   end else begin
              if ss[1]= '[' then
               begin
                jit_word_p:= Random(wordlist1.Count);
                ss:= wordlist1.Strings[jit_word_p];
               end;
            end;
    if ss[1]= '[' then
      begin
                jit_word_p:= Random(wordlist1.Count);
                ss:= wordlist1.Strings[jit_word_p];
      end;

    if checkbox3.Checked then
     richedit1.Lines[0]:= copy(ss,pos('=',ss)+1,64)    //反向学习
      else
       richedit1.Lines[0]:= copy(ss,1,pos('=',ss)-1);

   if jit_tmp_3= 0 then
    begin    //111-------****

     if checkbox3.Checked then
        radiobutton1.Caption:= copy(ss,1,pos('=',ss)-1)  //反向学习
          else
            radiobutton1.Caption:= copy(ss,pos('=',ss)+1,128);
      ss:= wordlist1.Strings[Random(wordlist1.Count)];
      if ss= radiobutton1.Caption then
       ss:= wordlist1.Strings[Random(wordlist1.Count)];

         if checkbox3.Checked then
            radiobutton2.Caption:= copy(ss,1,pos('=',ss)-1)
              else
               radiobutton2.Caption:= copy(ss,pos('=',ss)+1,128);
      ss:= wordlist1.Strings[Random(wordlist1.Count)];
          if checkbox3.Checked then
              radiobutton3.Caption:= copy(ss,1,pos('=',ss)-1)
                else
                 radiobutton3.Caption:= copy(ss,pos('=',ss)+1,128);

    end else if jit_tmp_3= 1 then begin   //111 222 -------------- ****

     if checkbox3.Checked then
      radiobutton2.Caption:= copy(ss,1,pos('=',ss)-1)    //反向学习
        else
            radiobutton2.Caption:= copy(ss,pos('=',ss)+1,128);
        ss:= wordlist1.Strings[Random(wordlist1.Count)];
        if ss= radiobutton2.Caption then
          ss:= wordlist1.Strings[Random(wordlist1.Count)];

         if checkbox3.Checked then
            radiobutton1.Caption:= copy(ss,1,pos('=',ss)-1)
             else
               radiobutton1.Caption:= copy(ss,pos('=',ss)+1,128);
       ss:= wordlist1.Strings[Random(wordlist1.Count)];
           if checkbox3.Checked then
              radiobutton3.Caption:= copy(ss,1,pos('=',ss)-1)
               else
                radiobutton3.Caption:= copy(ss,pos('=',ss)+1,128);

    end else begin   ///222 333 ---------------  ************

               if checkbox3.Checked then
                radiobutton3.Caption:= copy(ss,1,pos('=',ss)-1)   //反向学习
                  else
                   radiobutton3.Caption:= copy(ss,pos('=',ss)+1,128);
        ss:= wordlist1.Strings[Random(wordlist1.Count)];
        if ss= radiobutton3.Caption then
           ss:= wordlist1.Strings[Random(wordlist1.Count)];
           
             if checkbox3.Checked then
               radiobutton1.Caption:= copy(ss,1,pos('=',ss)-1)
                else
                 radiobutton1.Caption:= copy(ss,pos('=',ss)+1,128);
       ss:= wordlist1.Strings[Random(wordlist1.Count)];
             if checkbox3.Checked then
                radiobutton2.Caption:= copy(ss,1,pos('=',ss)-1)
                 else
                  radiobutton2.Caption:= copy(ss,pos('=',ss)+1,128);

             end;      ///333

 groupbox3.Visible:= true;
  groupbox3.Refresh;
 timer1.Enabled:= true;
    //  eciVolume

     if checkbox5.Checked then
      eciCopyVoice(jit_h, 2, 0 )
    else if checkbox6.Checked then
       eciCopyVoice(jit_h, 3, 0 );
   // eciSetVoiceParam(jit_h, 0, 7, 90);
    if checkbox2.Checked then
     begin
      jit_spk1.spk:= richedit1.Lines[0];
      postthreadmessage(jit_spk1.ThreadID,um_ontimer,0,0);
     end;
    button1.SetFocus;
    radiobutton1.Color:= clMedGray;
    radiobutton2.Color:= clMedGray;
    radiobutton3.Color:= clMedGray;
    if checkbox8.Checked then
     begin
      radiobutton1.Font.Color:= clMedGray;
      radiobutton2.Font.Color:= clMedGray;
      radiobutton3.Font.Color:= clMedGray;
    end else begin
               radiobutton1.Font.Color:=clwindowtext;
               radiobutton2.Font.Color:=clwindowtext;
               radiobutton3.Font.Color:=clwindowtext;
             end;
   jit_chayifense; //差异分色显示
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 if RadioButton1.Checked then
 check_asw(0);

end;

procedure TForm1.check_asw(i: integer);
var int1:int64;
begin
 if jit_tmp_3= -1 then
  exit;
  
  case jit_tmp_3 of
    0: radiobutton1.Color:= clgreen;
    1: radiobutton2.Color:= clgreen;
    2: radiobutton3.Color:= clgreen;
    end;
   
 if i= jit_tmp_3 then
  begin
    QueryperformanceCounter(int1);   //获取cpu脉冲数
    jit_time:= (int1 mod 6)+ 1;      //取模
   label9.Caption:= inttostr(jit_time);
   inc(jit_dangqianbs,jit_time);
    show_game_state;  //显示游戏状态
    jit_jewelry(jit_time);
    jit_time:= -1;
    inc(GameSave1.zqbs);
  end else begin
             jit_time:= -1;
             jit_tmp_3:= -1;
             listbox3.items[4]:= '选择错误，步数为零。';
             inc(GameSave1.cwbs);
             if checkbox7.Checked then
             PlaySound(pchar(extractfilepath(application.ExeName)+'Button15.wav'),0,SND_FILENAME or SND_ASYNC);
              case i of
             0: radiobutton1.Color:= clred;
             1: radiobutton2.Color:= clred;
             2: radiobutton3.Color:= clred;
              end;
             label9.Caption:= '0';
           end;
  if not groupbox4.Visible then
      begin
            jit_dangqianbs_dn:= jit_dangqianbs_dn + Random(7);
      end;