end;
end;
end;

//////////////////////////
if form1.ba1.Position>doaddtoint(ac+$254) then
begin
if ck3.Checked=true then
begin
timer1.Interval :=1;

form1.Timer2.Enabled :=true;
end else
begin
timer1.Interval :=1;
form1.Timer2.Enabled :=true;
end;

if ck7.Checked=true then
begin

if strtoint(form1.edit14.Text)>doaddtoint(ac+$254) then
begin
// TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),strtoint(s_proc )),strtoint(s_proc));
// button3.Click;
// Form1.Show;
memo1.Lines.Add(''发现危险，急速吃下红药Oo![''+inttostr(y_id)+'']'');
SendMessage(h_cal,WM_KEYDOWN,vk_f1,0);
SendMessage(h_cal,WM_KEYUP,vk_f1,0);
y_id:=y_id+1;
//form1.sb1.Panels[0].Text:=''吃下红药Oo[''+inttostr(y_id)+'']个'';
form1.sb1.Panels.Text:=''共[''+inttostr(y_id)+'']个'';
end;
end;
if ck2.Checked=true then
begin
if strtoint(edit11.Text)>doaddtoint(ac+$254) then
begin
TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),strtoint(s_proc )),strtoint(s_proc));
button3.Click;
Form1.Show;
memo1.Lines.Add(''发现危险，关闭游戏!'');

end;
if strtoint(edit12.Text)-40<Y_ID
begin
TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),strtoint(s_proc )),strtoint(s_proc));
button3.Click;
Form1.Show;
memo1.Lines.Add(''没药啦，关闭游戏!'');

end;
end;
end;
if strtoint(edit2.Text)>doaddtoint(ac+$258) then
begin
form1.Timer2.Enabled :=true;
end;
ai_ga:=doaddtoint(ac+$258+4);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
query_thread_id: Cardinal;
begin
button2.Enabled :=false;
button3.Enabled :=true;
form1.timer3.Interval :=strtoint(form1.edit3.Text)*1000;
form1.timer7.Interval :=strtoint(form1.edit7.Text);
baohb:=strtoint(form1.edit12.Text);
y_id:=0;
form1.timer8.Interval :=strtoint(form1.edit6.Text)*1000;
query_thread_handle1 := CreateThread(nil, 0, @Query, nil, 0, query_thread_id);
//query_thread_handle2 := CreateThread(nil, 0, @qhy, nil, 0, query_thread_id);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
timer5.Enabled:=false;
timer6.Enabled:=false;
timer7.Enabled:=false;
timer8.Enabled:=false;
button2.Enabled :=true;
button3.Enabled :=false;
TerminateThread(query_thread_handle1, 0);
form1.sb1.Panels[0].Text :=''停止!'';
end;

procedure TForm1.ck2Click(Sender: TObject);
begin
if ck2.Checked =true then
begin
ck1.Checked :=false;
ck3.Checked :=false ;
end;
end;

procedure TForm1.ck1Click(Sender: TObject);
begin
if ck1.Checked =true then
begin
ck2.Checked :=false;
ck3.Checked :=false ;
end
else
//ck2.Checked :=true;

end;

procedure TForm1.ck3Click(Sender: TObject);
begin
if ck3.Checked =true then
begin
ck1.Checked :=false;
ck2.Checked :=false ;
ck6.Checked :=false ;
edit7.Text :=inttostr(200);
end
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_tab,0);
SendMessage(h_cal,WM_KEYUP,vk_tab,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
f:textfile;
ss:s