बॉल्स 2.0 खेलने के लिए एक बॉट लिखना

हाल ही में मैं एक साधारण खिलौने में आया था जहाँ आपको गेंद को उसी रंग के समूहों में शूट करने की आवश्यकता होती है। हालांकि मैं शायद ही कभी खेल खेलता हूं, लगभग 30 मिनट तक मैं उसके साथ बैठा रहा।
मैं इस प्रक्रिया को स्वचालित करना चाहता था। खेल के लिए ज्ञान की आवश्यकता नहीं है, लेकिन बहुत सारे खेल हैं।
मैं इस खेल के लिए एक बॉट लिखने की प्रक्रिया का वर्णन करता हूं।



विचार इस प्रकार था:
चरण 1. स्क्रीन से एक चित्र प्राप्त करें
चरण 2. मैट्रिक्स में गेंदों के रंगों को स्थानांतरित करें
चरण 3. स्थिति की गणना करें और चाल को पूरा करने के लिए माउस के साथ क्लिक करें

कार्यक्रम लिखने के लिए, मैंने क्यूटी और डेल्फी के बीच थोड़ा संकोच किया, लेकिन चूंकि मैं सब कुछ जल्दी से जल्दी करना चाहता था इसलिए मैंने डेल्फी पर करने का फैसला किया।

अब आप चरण 1 को लागू कर सकते हैं ।
चित्र प्राप्त करने के लिए, गेम के साथ विंडो की अनुमानित स्थिति सेट करें और इस अनुभाग को कॉपी करके TImage पर रखें, जो पहले फ़ॉर्म पर स्थित है।

procedure MakeFrame(); var bmp:TBitmap; rect:TRect; begin rect.Left := 50; rect.Top:= 150; rect.Right:=550; // Screen.Width rect.Bottom:=550; // Screen.Height bmp := TBitmap.Create; bmp.Width := Screen.Width; bmp.Height := Screen.Height; BitBlt(bmp.Canvas.Handle, 0, 0, rect.Right, rect.Bottom, GetDC(0), rect.Left, rect.Top, SRCCOPY); Form1.Image1.Width := rect.Right; Form1.Image1.Height := rect.Bottom; Form1.Image1.Picture.Assign(bmp); bmp.Free; end; 

यदि आप इस कोड को टाइमर में रखते हैं, तो गेम के साथ विंडो को घुमाते हुए, आप इसे स्थिति में ला सकते हैं ताकि गेम की छवि कॉपी हो जाए।

चरण 2। आपको गेंदों के रंग जानने की जरूरत है। जैसा कि आप देख सकते हैं कि केवल 3 विकल्प हैं, सीधे आरजीबी।
गेंदों की पंक्तियों और व्यास के बीच की ऊंचाई स्थिर है, इसलिए हम गेंदों की स्थिति का एक ग्रिड बना सकते हैं।

 for I:=0 to rows do begin offset:=10; //  if (I mod 2) <> 0 then offset:=offset+(36 div 2); for J:=0 to cols do begin mat[i,j].Y := 10+Round(I*36); //   mat[i,j].X := offset+Round(J*36); //  (        ) if (I=rows) and (J=cols) then begin mat[i,j].Y := 519; mat[i,j].X := 262; end; //    end; end; 

एक गेंद के रंग का पता लगाने के लिए, इसके पिक्सेल की तुलना RGB रंगों में से प्रत्येक के थ्रेशोल्ड मान से करें

  rgb:=Form1.Image1.Canvas.Pixels[ mat[i,j].X, mat[i,j].Y-4 ]; mat[i,j].color := 0; mat[i,j].summa := 0; if GetRValue(rgb) > 230 then mat[i,j].color:=1; if GetGValue(rgb) > 230 then mat[i,j].color:=2; if GetBValue(rgb) > 230 then mat[i,j].color:=3; 

और यह सुनिश्चित करने के लिए कि सब कुछ क्रम में है, गेंद पर परिणामी रंग के साथ एक छोटी आयत खींचें

  if mat[i,j].color = 0 then Form1.Image1.Canvas.Brush.Color := clWhite; if mat[i,j].color = 1 then Form1.Image1.Canvas.Brush.Color := clRed; if mat[i,j].color = 2 then Form1.Image1.Canvas.Brush.Color := clGreen; if mat[i,j].color = 3 then Form1.Image1.Canvas.Brush.Color := clBlue; Form1.Image1.Canvas.Rectangle( mat[i,j].X-5, mat[i,j].Y-5, mat[i,j].X+5, mat[i,j].Y+5 ); 

यह इस तरह के एक सुंदर तस्वीर निकलता है।


यह ग्रिड के साथ काम पूरा करता है और परिणामस्वरूप मैट्रिक्स के साथ काम करना शुरू करता है

चरण 3
हम इस पर गोलीबारी की संभावना के लिए सभी गेंदों की जांच करेंगे, इसके लिए हमें यह जांचने की आवश्यकता है कि हम इसके रास्ते में एक और गेंद का सामना नहीं करेंगे।
नेस्टेड लूप के माध्यम से चेकिंग होती है (गेंदों के द्वारा और प्रत्येक के लिए हम बाकी की जांच करते हैं)
सत्यापन की स्थिति स्वयं तीन असमानताओं की एक प्रणाली के लिए प्राप्त की जाती है।

{A = 1, B = (x0-y0) / (y1-y0), C = -x0-By0}
| Ax3 + By3 + C | / sqrt (A ^ 2 + b ^ 2) <= त्रिज्या

  ///      for I:=0 to rows-1 do for J:=0 to cols do begin if (mat[I,J].color = 0) and (I <> 0) then continue; mat[i,j].allow:=1; //    LineMaxX:=mat[I,J].X; LineMaxY:=mat[I,J].Y; //    LineMinX:=mat[rows,cols].X; LineMinY:=mat[rows,cols].Y; mat[I,J].dist := sqrt( sqr(mat[I,J].X-mat[rows,cols].X)+ sqr(mat[I,J].Y-mat[rows,cols].Y)); for II:=I+1 to rows-1 do for JJ:=0 to cols do begin if mat[II,JJ].color = 0 then continue; //    LineMiddleX:=mat[II,JJ].X; LineMiddleY:=mat[II,JJ].Y; //        //      ka:=1; kb:=(LineMinX-LineMaxX)/(LineMaxY-LineMinY); kc:=-LineMinX-kb*LineMinY; kz:= abs(ka*LineMiddleX + kb*LineMiddleY+kc)/ sqrt(sqr(ka)+sqr(kb)); if kz < 39 then mat[i,j].allow:=0; //Form1.Memo1.Lines.Add(FloatToStr(kz)); end; 

स्पष्टता के लिए, उन गेंदों की रेखाएं खींचिए जिनसे आप गोली मार सकते हैं।

 if mat[i,j].allow = 1 then begin Form1.Image1.Canvas.Pen.Width:= 2; Form1.Image1.Canvas.Pen.Color:= clWhite; Form1.Image1.Canvas.MoveTo(Round(LineMinX),Round(LineMinY)); Form1.Image1.Canvas.LineTo(Round(LineMaxX),Round(LineMaxY)); end; 

अनुमत लोगों से एक ही रंग के साथ एक गेंद चुनना आवश्यक है।

  for I:=0 to rows-1 do for J:=0 to cols do begin if mat[i,j].allow = 1 then begin Form1.Image1.Canvas.Pen.Width:= 2; Form1.Image1.Canvas.Pen.Color:= clWhite; Form1.Image1.Canvas.MoveTo(Round(LineMinX),Round(LineMinY)); Form1.Image1.Canvas.LineTo(Round(LineMaxX),Round(LineMaxY)); //  if mat[i,j].color=mat[rows,cols].color //    then begin MouseX:=mat[i,j].X+50; MouseY:=mat[i,j].Y+250; //  +    break; end; end; end; 

और WinApi के माध्यम से स्क्रीन पर माउस क्लिक करें

  if Form1.CheckBox2.Checked then begin GetCursorPos(MouseL); SetCursorPos(MouseX,MouseY); mouse_event(MOUSEEVENTF_LEFTDOWN,MouseX,MouseY,0,0);// -    mouse_event(MOUSEEVENTF_LEFTUP,MouseX,MouseY,0,0);// -    SetCursorPos(MouseL.X,MouseL.Y); end; 

यह टाइमर में सब कुछ करने और चाय पीने के लिए रहता है।

कार्यक्रम का वीडियो


आप एल्गोरिथ्म में सुधार कर सकते हैं, उदाहरण के लिए, बड़ी संख्या में गेंदों के साथ समूह ढूंढें या उन लाइनों की तलाश करें जो क्षेत्र के कुछ हिस्सों को काटते हैं।

फ़ंक्शन नाम और चर को अच्छी तरह से नामित नहीं किया जा सकता है, लेकिन इसे ठीक किया जा सकता है।
यदि आपको स्रोत की आवश्यकता है, तो वे यहां हैं ।