label10.Caption:=inttostr(doaddtoint(ac+$258));
edit2.Text :=inttostr(Trunc(doaddtoint(ac+$258)/4));
label11.Caption:=inttostr(doaddtoint(ac+$254-8));
form1.Ba1.Max:=doaddtoint(ac+$254);
ai_ga:=doaddtoint(ac+$258+4);
ai_gb:=doaddtoint(ac+$258+4);
form1.Ba1.Position:=Trunc(doaddtoint(ac+$254) / 2);
form1.Memo1.Lines.Add(''初始化成功!'');
form1.sb1.Panels[0].Text:=''初始化完成!启动-->开启外挂'';
button2.Enabled :=true;
button4.Enabled :=true;
button5.Enabled :=true;
button6.Enabled :=true;
button1.Enabled :=false;
end else
begin
form1.Memo1.Lines.Add(''初始化失败!'');
form1.Memo1.Lines.Add('''');
end;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f2,0);
SendMessage(h_cal,WM_KEYUP,vk_f2,0);
form1.sb1.Panels[0].Text :=''攻击中'';
end;
procedure TForm1.ba1Change(Sender: TObject);
begin
edit1.Text:=inttostr(ba1.Position);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if form1.ba1.Position>doaddtoint(ac+$254) then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f3,0);
SendMessage(h_cal,WM_KEYUP,vk_f3,0);
y_id:=y_id+1;
form1.sb1.Panels.Text :=''已吃红[''+inttostr(y_id)+'']个'';
end;
if strtoint(form1.edit2.Text)>doaddtoint(ac+$258) then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f4,0);
SendMessage(h_cal,WM_KEYUP,vk_f4,0);
form1.sb1.Panels[0].Text :=''吃下蓝药物Oo'';
end;
timer2.Enabled :=false;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f6,0);
SendMessage(h_cal,WM_KEYUP,vk_f6,0);
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f7,0);
SendMessage(h_cal,WM_KEYUP,vk_f7,0);
end;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f8,0);
SendMessage(h_cal,WM_KEYUP,vk_f8,0);
end;
procedure TForm1.Timer7Timer(Sender: TObject);
begin
form1.Label9.Caption :=inttostr(doaddtoint(ac+$254));
form1.Label10.Caption :=inttostr(doaddtoint(ac+$258));
// form1.Label10.Caption :=inttostr(doaddtoint(ac+$79b));
//TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),strtoint(edit1.Text )),strtoint(edit1.Text));
if (ck6.Checked=true) then
begin
// if 0<>doaddtoint(ac+$79b) then
if 0=doaddtoint(ac+$79b) then
begin
if ck2.Checked=true then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_tab,0);
SendMessage(h_cal,WM_KEYUP,vk_tab,0);
form1.sb1.Panels[0].Text :=''正在查找怪物Oo。'';
SendMessage(h_cal,WM_KEYDOWN,vk_f5,0);
SendMessage(h_cal,WM_KEYUP,vk_f5,0);
timer_one:=180;
timer6.Enabled :=false;
timer6.Enabled :=true;
end;
end;
end else begin
if ai_ga<>ai_gb then
begin
ai_gb:=ai_ga;
if ck2.Checked=true then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_tab,0);
SendMessage(h_cal,WM_KEYUP,vk_tab,0);
form1.sb1.Panels[0].Text :=''没看见怪物,正在查找怪物Oo。'';
SendMessage(h_cal,WM_KEYDOWN,vk_f5,0);
SendMessage(h_cal,