💷 💆🏿 👛 ग्रेपोलिस के लिए एक बॉट लिखना 👋🏿 🐩 👨🏿‍🤝‍👨🏻

शुभ दोपहर इस लेख में, मैं ऑनलाइन mmo रणनीति गेम ग्रेपोलिस के लिए एक बॉट के लेखन का वर्णन करूंगा। ध्यान दें कि इस तरह के कार्यक्रमों का उपयोग खेल के नियमों द्वारा निषिद्ध है, वे इसके लिए प्रतिबंध लगाएंगे, और बिना कारण के नहीं। मुझे बस खेलों के लिए बॉट लिखने का शौक है। और लिखना निषिद्ध नहीं है। बिल्ली के नीचे, कृपया तर्क और कार्यान्वयन के बारे में कौन परवाह करता है।

हमेशा की तरह, शुरुआत में स्रोत कोड की एक कड़ी है।

मुझे ग्रेपोलिस, एक अच्छा खेल पसंद है। लेकिन वहां जीवित रहने के लिए, आपको हर 5 मिनट में गांवों से श्रद्धांजलि लेने की जरूरत है। और मैं सारा दिन मुख्य काम करने में व्यस्त रहता हूं, इसलिए बॉट लिखने का मुख्य लक्ष्य श्रद्धांजलि इकट्ठा करना था। तब गांवों का ऑटो-सुधार जोड़ा गया (तब वे अधिक लाभ देते हैं), ऑटो-कंस्ट्रक्शन (ताकि रात में, जब मैं सोऊंगा, तो निर्माण की रेखा खाली नहीं होगी)। जैसा कि मैं इसे समझता हूं, ये कार्य खेल के प्रशासन राजस्व का बड़ा हिस्सा लाते हैं। शायद इसलिए कि बॉट का इस्तेमाल करने वाले खिलाड़ियों पर इतनी बार प्रतिबंध लगा दिया जाता है।

अपने आप से, बॉट नहीं खेलेंगे, केवल सहायक कार्यों को सौंपा गया है। और सामान्य तौर पर, इसे लंबे समय तक अकेले नहीं छोड़ना बेहतर है - वे इसे प्रतिबंधित कर सकते हैं।

ईमानदारी से, यह बॉट का दूसरा संस्करण है, साथ ही पर्ल में लिखा गया पहला भी है। हर पांच मिनट में एक बार ताज का पहला संस्करण संसाधन इकट्ठा किया गया, बनाया गया और पूरा किया गया। और इसने अच्छा काम किया, मैं शीर्ष खिलाड़ियों में आ गया, सब कुछ ठीक था। लेकिन फिर खेल थक गया और मैंने स्कोर किया, जब थोड़ी देर बाद मैंने फिर से खेलना शुरू किया - मुझे प्रतिबंधित कर दिया गया। जाहिरा तौर पर, उन्होंने बॉट डिटेक्शन सुविधाओं को जोड़ा। इसलिए आपको दृष्टिकोण बदलने की आवश्यकता है। तथ्य यह है कि पुराने संस्करण को कुछ भी नहीं पता था कि इसके पहले क्या था, सभी जानकारी को फिर से एकत्र किया। मुझे नहीं पता था कि खेतों और शहरों की सूची का निर्धारण कैसे किया जाए और सामान्य तौर पर श्रम नहीं था।

तो दूसरा संस्करण पैदा हुआ। अब, काम करने के लिए, आपको बस निर्दिष्ट करने की आवश्यकता है (उदाहरण के लिए, देव-टूल्स के माध्यम से कुकीज़ से ली गई) और वह सर्वर जिस पर आप खेल रहे हैं। शहरों / खेतों की एक सूची स्वचालित रूप से बनाई गई है। हालाँकि मैंने अभी तक दो शहरों पर इसकी कोशिश नहीं की है, मेरे पास केवल एक शहर है, लेकिन गीथब रिपॉजिटरी पर नज़र रखें - फ़िक्स तुरंत जारी किए जाएंगे। नए संस्करण की ख़ासियत यह है कि यह जितना संभव हो उतना डेटा याद रखता है और कम अनावश्यक अनुरोध भेजने की कोशिश करता है।

गेम को स्वयं भी अपडेट किया गया है, अगर क्लाइंट को मूल रूप से सिर्फ html कोड भेजा गया था, तो अब अलग-अलग ऑब्जेक्ट दिखाई दिए हैं, हालांकि ऑब्जेक्ट के json फ़ील्ड में एक और json ऑब्जेक्ट भेजना अभी भी एक चाल है। उदाहरण के लिए:

{ 'type' => 'backbone', 'param_id' => 13980, 'subject' => 'Units', 'id' => 4414096, 'param_str' => '{"Units":{"id":13980,"home_town_id":5391,"current_town_id":5391,"sword":23,"slinger":21,"archer":5,"hoplite":10,"rider":0,"chariot":0,"catapult":0,"minotaur":0,"manticore":0,"zyklop":0,"harpy":0,"medusa":0,"centaur":0,"pegasus":0,"cerberus":0,"fury":0,"griffin":0,"calydonian_boar":0,"godsent":34,"big_transporter":0,"bireme":0,"attack_ship":0,"demolition_ship":0,"small_transporter":0,"trireme":0,"colonize_ship":0,"sea_monster":0,"militia":0,"heroes":null,"home_town_link":"<a href=\\"#eyJpZCI6NTM5MSwiaXgiOjUxMSwiaXkiOjYyMywidHAiOiJ0b3duIiwibmFtZSI6IlBlcmwifQ==\\" class=\\"gp_town_link\\">Perl<\\/a>","same_island":true,"current_town_link":"<a href=\\"#eyJpZCI6NTM5MSwiaXgiOjUxMSwiaXkiOjYyMywidHAiOiJ0b3duIiwibmFtZSI6IlBlcmwifQ==\\" class=\\"gp_town_link\\">Perl<\\/a>","current_player_link":"<a href=\\"#eyJuYW1lIjoiUGluZ3ZlaW4iLCJpZCI6e319\\" class=\\"gp_player_link\\">Pingvein<\\/a>"}}', 'time' => 1383837485 }

मैंने सभी आश्रितों को हल करने के लिए डेबियन / ubuntu के साथ "install_lbooks.sh" फ़ाइल बनाई। दूसरों को अपने वितरण के cpan या रिपॉजिटरी का उपयोग करने के लिए प्रोत्साहित किया जाता है। मेरे सभी कोड एकल-थ्रेडेड हैं, क्योंकि यह अजीब होगा यदि बॉट एक ही समय में 2 अनुरोध भेजता है। और IO :: Async :: लूप इस थ्रेड का प्रबंधन करता है। Async.pm:

 package GrepolisBotModules::Async; use GrepolisBotModules::Log; use IO::Async::Timer::Countdown; use IO::Async::Loop; my $loop = IO::Async::Loop->new; sub delay{ my($delay, $callback) = @_; GrepolisBotModules::Log::echo 1, "Start delay $delay \n"; my $timer = IO::Async::Timer::Countdown->new( delay => $delay, on_expire => $callback, ); $timer->start; $loop->add( $timer ); } sub run{ $loop->later(shift); $loop->run; } 1;

इस मॉड्यूल में, इवेंट ट्रिगर्स को मुख्य लूप में जोड़ा जाता है। मेरे पास टाइमर पर सब कुछ है, लेकिन कोड जो एप्लिकेशन को आरंभ करता है उसे "रन" विधि में दिया गया है। कृपया ध्यान दें कि मैं रैंड फ़ंक्शन के आधार पर टाइमर के समय की गणना करने की कोशिश करता हूं, ताकि लड़खड़ाना न हो। मुख्य फ़ाइल grepolis_bot.pl है:

 #!/usr/bin/perl use strict; use warnings; use Config::IniFiles; use GrepolisBotModules::Request; use GrepolisBotModules::Town; use GrepolisBotModules::Async; use GrepolisBotModules::Log; use utf8; my $cfg = Config::IniFiles->new( -file => "config.ini" ); my $config = { security => { sid => $cfg->val( 'security', 'sid' ), server => $cfg->val( 'security', 'server' ) }, global => { log => $cfg->val( 'global', 'log' ), } }; undef $cfg; my $Towns = []; GrepolisBotModules::Async::run sub{ GrepolisBotModules::Request::init($config->{'security'}); GrepolisBotModules::Log::init($config->{'global'}); GrepolisBotModules::Log::echo(0, "Program started\n"); my $game = GrepolisBotModules::Request::base_request('http://'.$config->{'security'}->{'server'}.'.grepolis.com/game'); $game =~ /"csrfToken":"([^"]+)",/; GrepolisBotModules::Request::setH($1); $game =~ /"townId":(\d+),/; GrepolisBotModules::Log::echo 1, "Town $1 added\n"; push($Towns, new GrepolisBotModules::Town($1)); };

हम बाद के अनुरोधों, और वर्तमान शहर के लिए csrfToken को सेट करते हुए कॉन्फिगर को पढ़ते हैं। जैसे ही मैं एक नए शहर पर कब्जा करता हूं, कई शहरों का समर्थन दिखाई देगा। मैं जितनी जल्दी हो सके इसे करने का वादा करता हूं।

शहर के लिए मॉड्यूल, Town.pm:

 package GrepolisBotModules::Town; use strict; use warnings; use GrepolisBotModules::Request; use GrepolisBotModules::Farm; use GrepolisBotModules::Log; use JSON; my $get_town_data = sub { my( $self ) = @_; my $resp = JSON->new->allow_nonref->decode( GrepolisBotModules::Request::request( 'town_info', 'go_to_town', $self->{'id'}, undef, 0 ) ); $self->{'max_storage'} = $resp->{'json'}->{'max_storage'}; $resp = JSON->new->allow_nonref->decode( GrepolisBotModules::Request::request( 'data', 'get', $self->{'id'}, '{"types":[{"type":"backbone"},{"type":"map","param":{"x":0,"y":0}}]}', 1 ) ); foreach my $arg (@{$resp->{'json'}->{'backbone'}->{'collections'}}) { if( defined $arg->{'model_class_name'} && $arg->{'model_class_name'} eq 'Town' ){ my $town = pop($arg->{'data'}); $self->setResources($town->{'last_iron'}, $town->{'last_stone'}, $town->{'last_wood'}); } } foreach my $data (@{$resp->{'json'}->{'map'}->{'data'}->{'data'}->{'data'}} ) { foreach my $key (keys %{$data->{'towns'}}) { if( defined $data->{'towns'}->{$key}->{'relation_status'} && $data->{'towns'}->{$key}->{'relation_status'} == 1 ){ my $village = new GrepolisBotModules::Farm($data->{'towns'}->{$key}->{'id'}, $self); push($self->{'villages'}, $village); } } } }; my $build_something; $build_something = sub { my $self = shift; GrepolisBotModules::Log::echo 0, "Build request ".$self->{'id'}."\n"; my $response_body = GrepolisBotModules::Request::request('building_main', 'index', $self->{'id'}, '{"town_id":"'.$self->{'id'}.'"}', 0); $response_body =~ m/({.*})/; my %hash = ( JSON->new->allow_nonref->decode( $1 )->{'json'}->{'html'} =~ /BuildingMain.buildBuilding\('([^']+)',\s(\d+)\)/g ); my $to_build = ''; if(defined $hash{'main'} && $hash{'main'}<25){ $to_build = 'main'; }elsif(defined $hash{'academy'}){ $to_build = 'academy'; }elsif(defined $hash{'farm'}){ $to_build = 'farm'; }elsif(defined $hash{'barracks'}){ $to_build = 'barracks'; }elsif(defined $hash{'storage'}){ $to_build = 'storage'; }elsif(defined $hash{'docks'}){ $to_build = 'docks'; }elsif(defined $hash{'stoner'}){ $to_build = 'stoner'; }elsif(defined $hash{'lumber'}){ $to_build = 'lumber'; }elsif(defined $hash{'ironer'}){ $to_build = 'ironer'; } if($to_build ne ''){ my $response_body = GrepolisBotModules::Request::request( 'building_main', 'build', $self->{'id'}, '{"building":"'.$to_build.'","level":5,"wnd_main":{"typeinforefid":0,"type":9},"wnd_index":0,"town_id":"'.$self->{'id'}.'"}', 1 ); } my $time_wait = undef; my $json = JSON->new->allow_nonref->decode($response_body); if(defined $json->{'notifications'}){ foreach my $arg (@{$json->{'notifications'}}) { if( $arg->{'type'} eq 'backbone' && $arg->{'subject'} eq 'BuildingOrder' ){ my $order = JSON->new->allow_nonref->decode($arg->{'param_str'})->{'BuildingOrder'}; $time_wait = $order->{'to_be_completed_at'} - $order->{'created_at'}; } } } if(defined $time_wait){ GrepolisBotModules::Log::echo 0, "Town ".$self->{'id'}." build ".$to_build."\n"; GrepolisBotModules::Async::delay( $time_wait + int(rand(60)), sub {$self->$build_something} ); }else{ GrepolisBotModules::Log::echo 0, "Town ".$self->{'id'}." can not build. Waiting\n"; GrepolisBotModules::Async::delay( 600 + int(rand(300)), sub {$self->$build_something} ); } }; sub setResources{ my $self = shift; my $iron = shift; my $stone = shift; my $wood = shift; $self->{'iron'} = $iron; $self->{'wood'} = $wood; $self->{'stone'} = $stone; GrepolisBotModules::Log::echo 1, "Town ".$self->{'id'}." resources updates iron-".$self->{'iron'}.", stone-".$self->{'stone'}.", wood-".$self->{'wood'}."\n"; } sub needResources{ my $self = shift; my $resources_by_request = shift; if( $self->{'iron'} + $resources_by_request < $self->{'max_storage'} || $self->{'wood'} + $resources_by_request < $self->{'max_storage'} || $self->{'stone'} + $resources_by_request < $self->{'max_storage'} ){ return 1; } return 0; } sub toUpgradeResources{ my $self = shift; return { wood => int($self->{'iron'}/5), stone => int($self->{'wood'}/5), iron => int($self->{'stone'}/5), }; } sub getId{ my $self = shift; return $self->{'id'}; } sub new { my $class = shift; my $self = { id => shift, villages => [], max_storage => undef, iron => undef, wood => undef, stone => undef }; bless $self, $class; GrepolisBotModules::Log::echo 0, "Town ".$self->{'id'}." init started\n"; $self->$get_town_data; GrepolisBotModules::Log::echo 0, "Town ".$self->{'id'}." data gettings finished\n"; $self->$build_something; GrepolisBotModules::Log::echo 0, "Town ".$self->{'id'}." build started\n"; return $self; } 1;

जब यह शुरू होता है, तो इसके पास मौजूद संसाधनों को पढ़ता है, उन खेतों की खोज करता है जहां से इसे श्रद्धांजलि और गोदाम की मात्रा की आवश्यकता हो सकती है। इसके अलावा "build_something" प्रक्रिया पर ध्यान दें। मैंने वास्तव में किसी विशेष निर्माण रणनीति के बारे में नहीं सोचा था, इसलिए जैसा कि आप फिट देखते हैं, आप निर्माण की प्राथमिकता को बदल सकते हैं। "खेतों" (तथाकथित किसान बस्तियों) के लिए मॉड्यूल Farm.pm:

 package GrepolisBotModules::Farm; use GrepolisBotModules::Request; use GrepolisBotModules::Log; use JSON; my $get_farm_data = sub { my $self = shift; my $resp = JSON->new->allow_nonref->decode( GrepolisBotModules::Request::request( 'farm_town_info', 'claim_info', $self->{'town'}->getId, '{"id":"'.$self->{'id'}.'"}', 0 ) ); $self->{'name'} = $resp->{'json'}->{'json'}->{'farm_town_name'}; $resp->{'json'}->{'html'} =~ /<h4>You\sreceive:\s\d+\sresources<\/h4><ul><li>(\d+)\swood<\/li><li>\d+\srock<\/li><li>\d+\ssilver\scoins<\/li><\/ul>/; $self->{'resources_by_request'} = $1; if($resp->{'json'}->{'html'} =~ /<h4>Upgrade\slevel\s\((\d)\/6\)<\/h4>/ ){ $self->{'level'} = $1; }else{ die('Level not found'); } }; my $upgrade = sub{ my $self = shift; my $donate = $self->{'town'}->toUpgradeResources(); $json = '{"target_id":'.$self->{'id'}.',"wood":'.$donate->{'wood'}.',"stone":'.$donate->{'stone'}.',"iron":'.$donate->{'iron'}.',"town_id":"'.$self->{'town'}->getId().'"}'; my $response_body = GrepolisBotModules::Request::request('farm_town_info', 'send_resources', $self->{'town'}->getId(), $json, 1); GrepolisBotModules::Log::echo 1, "Village send request. Town ID ".$self->{'town'}->getId()." Village ID ".$self->{'id'}."\n"; $self->$get_farm_data; }; my $claim = sub{ my $self = shift; $json = '{"target_id":"'.$self->{'id'}.'","claim_type":"normal","time":300,"town_id":"'.$self->{'town'}->getId.'"}'; my $response_body = GrepolisBotModules::Request::request('farm_town_info', 'claim_load', $self->{'town'}->getId, $json, 1); my $json = JSON->new->allow_nonref->decode($response_body)->{'json'}; if(defined $json->{'notifications'}){ foreach my $arg (@{$json->{'notifications'}}) { if( $arg->{'type'} eq 'backbone' && $arg->{'subject'} eq 'Town' ){ my $town = JSON->new->allow_nonref->decode($arg->{'param_str'})->{'Town'}; $self->{'town'}->setResources($town->{'last_iron'}, $town->{'last_stone'}, $town->{'last_wood'}); } } } GrepolisBotModules::Log::echo 1, "Farm ".$self->{'id'}." claim finished\n"; }; my $needUpgrade = sub { my $self = shift; if($self->{'level'} < 6){ return true; }else{ return false; } }; my $tick; $tick = sub { my $self = shift; if($self->{'town'}->needResources($self->{'resources_by_request'})){ $self->$claim(); GrepolisBotModules::Async::delay( 360 + int(rand(240)), sub { $self->$tick} ); }elsif($self->$needUpgrade()){ $self->$upgrade(); GrepolisBotModules::Async::delay( 600 + int(rand(240)), sub { $self->$tick} ); } }; sub new { my $class = shift; my $self = { id => shift, name => undef, resources_by_request => undef, town => shift, level => undef }; GrepolisBotModules::Log::echo 0, "Farm ".$self->{'id'}." init started\n"; bless $self, $class; $self->$get_farm_data; GrepolisBotModules::Log::echo 0, "Farm ".$self->{'id'}." data gettings finished\n"; $self->$tick; GrepolisBotModules::Log::echo 0, "Farm ".$self->{'id'}." ticker started\n"; return $self; } 1;

प्रारंभिक स्तर पर, खेत अपने स्तर और प्रत्येक 5 मिनट में आवंटित संसाधनों की मात्रा को पढ़ता है। अनुरोधों को बचाने के लिए, मैं जांचता हूं कि क्या शहर को वास्तव में इन संसाधनों की आवश्यकता है, यदि नहीं, तो जांचें कि क्या वर्तमान निपटान में सुधार किया जा सकता है ताकि यह एक बार में अधिक संसाधन दे सके। निपटान से संसाधनों का अनुरोध किए जाने के बाद, मैं सूचनाओं की जांच करता हूं, और उनके आधार पर मैंने शहर को संसाधनों के मूल्य निर्धारित किए ताकि इसके लिए अलग-अलग अनुरोध न भेजें। प्रत्येक सुधार के बाद, निपटान के बारे में जानकारी अपडेट की जाती है। मैं उस मॉड्यूल से एक टुकड़े के बारे में लिखूंगा जो सर्वर को अनुरोध भेजने के लिए जिम्मेदार है, Request.pm:

 if($response_body =~ /^{/){ my $json = JSON->new->allow_nonref->decode( $response_body )->{'json'}; if(defined $json->{'notifications'}){ foreach my $arg (@{$json->{'notifications'}}) { if( ( $arg->{'type'} ne 'building_finished' && $arg->{'type'} ne 'newreport' && ( $arg->{'type'} ne 'backbone' || $arg->{'type'} eq 'backbone' && ( !(defined $arg->{'subject'}) || ( $arg->{'subject'} ne 'BuildingOrder' && $arg->{'subject'} ne 'Town' && $arg->{'subject'} ne 'PlayerRanking' && $arg->{'subject'} ne 'Buildings' && $arg->{'subject'} ne 'IslandQuest' && $arg->{'subject'} ne 'TutorialQuest' ) ) ) ) ){ GrepolisBotModules::Log::dump 5, $arg; } } } }

मैं उन हितों को उजागर करने के लिए सूचनाओं की जांच करता हूं जो मुझे रुचती हैं अर्थात्, कैप्चा की शुरुआत के लिए एक अनुरोध। दरअसल, मैं बॉट की गतिविधि को सीमित करने के लिए कैप्चा दर्ज करने की आवश्यकता से पहले अनुरोधों को पढ़ने की योजना बना रहा हूं। एक और "नाइट मोड" की योजना बनाई गई है - ताकि रात में बॉट अनुरोध न भेजें। हालांकि, यदि गोदाम भरे हुए हैं और निर्माण लाइन लंबे कार्यों से भरी है, तो वैसे भी अनुरोध नहीं भेजे जाएंगे।

खेल में, पहला शहर सार्वभौमिक है, लेकिन फिर आपको इसे शहरों में विभाजित करना होगा, जो कि समुद्री हमलावर सेना, समुद्री रक्षा और भूमि पर हमला करने वाले / रक्षा करने वाले हैं। शहर के प्रकार के आधार पर, विभिन्न इमारतों का निर्माण इसमें किया जाता है, ताकि मुक्त आबादी और विभिन्न वैज्ञानिक नीतियों को बचाया जा सके। मुझे टिप्पणियों को देखकर खुशी होगी कि क्या यह शहर के आधार पर सेनाओं, भवनों, ऑटो अनुसंधान के ऑटो-निर्माण को लागू करने के लायक है या बॉट को एक साधारण ऑटो-कलेक्टर के रूप में छोड़ रहा है। मुझे आश्चर्य है कि अगर अनुसूचित भेजने का कार्य उपयोगी होगा।

मुझे ग्रीपोलिस सर्वर की उन विशेषताओं के बारे में टिप्पणियों में जवाब देने में खुशी होगी जो मुझे खोजने में कामयाब रहे।

ग्रेपोलिस के लिए एक बॉट लिखना

More articles: