Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IF(@#acplmode=0); // LAUNCHER
- &chat=%@&chatcontent%;
- @#currentpage=0;
- @&collogs[0]=+;
- @#cpfilter=0;
- @#exportlimit=0;
- @#rexportlimit=0;
- @#maxpages=0;
- @#spl=0;
- @&acplogpage=;
- @#l=0;
- @#acpanalysed=0;
- @&acpadditionaltext=;
- @&acpgot=;
- @&acpforce=0;
- @#acpstart=0;
- @#acplmode=2;
- EXEC(co.txt,"[ACP] Cleanup...");
- DO;UNTIL(@#acplmode=0);
- #advrunned=0;
- #error=0;
- #logged=0;
- #startfrom=0;
- #i=0;
- UNSAFE;
- REPLACE(&chat,"a:-b ","a:-block ");
- REPLACE(&chat,"a:+b ","a:+block ");
- REPLACE(&chat,"a:b ","a:block ");
- REPLACE(&chat,"a:-c ","a:-container ");
- REPLACE(&chat,"a:+c ","a:+container ");
- REPLACE(&chat,"a:c ","a:container ");
- REPLACE(&chat,"a:cl ","a:click ");
- REPLACE(&chat,"a:k ","a:kill ");
- REPLACE(&chat,"a:ch ","a:chat ");
- REPLACE(&chat,"a:cmd ","a:command ");
- REPLACE(&chat,"b:do ","b:diamond_ore ");
- ENDUNSAFE;
- IFMATCHES(%&chat%,"^/co e");
- UNSAFE;
- REPLACE(%&chat%," l ","");MATCH(%&chat%,"to:(.+?)\b",{&exp});REPLACE(&chat,"to:%&exp%","");MATCH(%&chat%,"fr:(.+?)\b",{&fr});REPLACE(&chat,"fr:%&fr%","");REPLACE(&chat,"/co e ","");REPLACE(&chat,"/co x ","");
- MATCH(%&chat%,"f:(.+?)\b",{&force});REPLACE(&chat,"f:%&force%","");
- MATCH(%&chat%,"m:(.+?)\b",{&mode});REPLACE(&chat,"m:%&mode%","");
- @&exportfilename=%&chat%;
- REPLACE(@&exportfilename,"u:",",");REPLACE(@&exportfilename,"a:",",");REPLACE(@&exportfilename,"b:",",");REPLACE(@&exportfilename,"t:",",");REPLACE(@&exportfilename,"r:",",");REPLACE(@&exportfilename,"e:",",");REPLACE(@&exportfilename,"to:",",");REPLACE(@&exportfilename,"fr:",",");REPLACE(@&exportfilename," ,",",");
- &date=%DATE%;
- @&exportfilename=%&date%%@&exportfilename%;
- REPLACE(@&exportfilename," ","");
- SET(#fr,%&fr%);
- IF(#fr<=0);#fr=1;ENDIF;
- @#cpfilter=1;
- @#exportlimit=#fr+100;
- @#spl=#fr;
- ENDUNSAFE;
- IFMATCHES(%&chat%,"-ago|-o|-old");
- @&acpadditionaltext="-ago";
- ELSE;
- IF(@#acpdebug=1);LOG(ADDTEXT_NULL: %&chat%);ENDIF;
- @&acpadditionaltext="";
- ENDIF;
- LOG(&7[&eAdvanced&3CoreProtect&7] &e%@&advcpexporting%...);
- LOG(&c%@&advcpcolwarning%);
- IF(%&mode%!=);
- IFMATCHES(%&mode%,"^UG$|^UPGOING$|^ug$|^upgoing$|^1$");
- IF(@#acpdebug=1);LOG(SELECTED_MODE_UG);ENDIF;
- @#acplmode=5;
- ENDIF;
- IFMATCHES(%&mode%,"^SGA$|^SGADAPTIVE$|^STEPGOINGADAPTIVE$|^sga$|^sgadaptive$|^stepgoingadaptive$|^3$");
- IF(@#acpdebug=1);LOG(SELECTED_MODE_SGA);ENDIF;
- @#acplmode=6;
- ENDIF;
- IFMATCHES(%&mode%,"^SG$|^STEPGOING$|^sg$|^stepgoing$|^2$");
- IF(@#acpdebug=1);LOG(SELECTED_MODE_SG);ENDIF;
- @#acplmode=7;
- ENDIF;
- IF(@#acplmode=0);
- IF(@#acpdebug=1);LOG(MODE_UNKNOWN);ENDIF;
- @#acplmode=7;
- ENDIF;
- ELSE;
- IF(@#acpdebug=1);LOG(DEFAULT_MODE SG);ENDIF;
- @#acplmode=7;
- ENDIF;
- EXEC(co.txt,"[ACP] Executing...");
- DO;UNTIL(@#acplmode=0);
- IF(%&force%!=);
- IFMATCHES(%&force%,"^1$|^true$|^forced$");
- IF(@#acpdebug=1);LOG(FORCED);ENDIF;
- @&acpforce=1;
- ENDIF;
- ENDIF;
- WAIT(300ms);
- @#acplmode=3;
- EXEC(co.txt,"[ACP] Analysing...");
- DO;UNTIL(@#acplmode=0);
- @#acplmode=4;
- EXEC(co.txt,"[ACP] Processing...");
- DO;UNTIL(@#acplmode=0);
- IF(@#acpdebug=1);LOG(/co l %&chat%);ENDIF;
- ECHO(/co l %&chat%);
- DO;
- INC(#i);
- IF(@#maxpages!=0);BREAK;ENDIF;
- UNTIL(#i=500);
- IF(#i!=500); // Если 1 страница логов получена
- IF(#i>100);
- LOG(&7[&eAdvanced&3CoreProtect&7] &e%@&acpexportping%);
- ENDIF;
- IFMATCHES(%&exp%,"all");
- #exp=@#maxpages;
- ELSE;
- SET(#exp,%&exp%);
- IF(#exp=0);
- #error=1;
- IF(@#acpdebug=1);LOG(UNKNOWN_LIMIT);ENDIF;
- LOG(&7[&eAdvanced&3CoreProtect&7] &c%@&advcpexporterror%);
- ENDIF;
- IF(#exp>@#maxpages);
- #exp=@#maxpages;
- ENDIF;
- ENDIF;
- IF(@#spl>#exp);
- @#spl=#exp;
- ENDIF;
- @#exportlimit=#exp+1;
- @#rexportlimit=#exp;
- @&exportfilename=%@&exportfilename%,%@#spl%-%@#rexportlimit%;
- IFMATCHES(%@&chatcontent%,"^/co e");
- @#acplmode=1;
- EXEC(co.txt,"[ACP] Exporting...");
- ELSE;
- #error=1;
- IF(@#acpdebug=1);LOG(BEGIN_NOT_COE);ENDIF;
- ENDIF;
- IF(#error=0); // Сам экспорт
- @#acpstart=1;
- ELSE; // Неизв. шибка
- IF(@#acpdebug=1);LOG(EXIT_CODE_1);ENDIF;
- LOG(&7[&eAdvanced&3CoreProtect&7] &c%@&advcpcoxerror%);
- @#acpstart=-1;
- @#currentpage=0;
- @#l=0;
- @#exportlimit=0;
- @#maxpages=0;
- @#spl=0;
- @&acplogpage=;
- @&acpgot=;
- @#acpanalysed=0;
- @&acpforce=0;
- ENDIF;
- ELSE; // Если 1 страница логов не получена
- LOG(&7[&eAdvanced&3CoreProtect&7] &c%@&advcpexporterror%);
- IF(@#acpdebug=1);LOG(EXIT_CODE_2);ENDIF;
- @#currentpage=0;
- @#l=0;
- @#exportlimit=0;
- @#maxpages=0;
- @#spl=0;
- @&acplogpage=;
- @&acpgot=;
- @#acpanalysed=0;
- @&acpforce=0;
- @#acpstart=-1;
- ENDIF;
- ELSE;
- ECHO(%&chat%);
- ENDIF;
- ENDIF;
- IF(@#acplmode=1); // EXPORT
- @#acplmode=0;
- #i=@#spl;
- #k=0;
- IF(@#acpdebug=1);LOG(EXPORTING_PAGE %#i%);ENDIF;
- DO;
- IF(@#spl>=@#exportlimit);BREAK;ENDIF;
- INC(#k);
- ARRAYSIZE(@&collogs,#n);
- IF(#k>500);BREAK;ENDIF;
- UNTIL(#n>=#i);
- IF(#k>500);
- LOG(&7[&eAdvanced&3CoreProtect&7] &c%@&advcpexporterror% [3]);
- IF(@#acpdebug=1);LOG(EXIT_CODE_3);ENDIF;
- @#currentpage=0;
- @#l=0;
- @#exportlimit=0;
- @#maxpages=0;
- @#spl=0;
- @&acplogpage=;
- @&acpgot=;
- @#acpanalysed=0;
- @&acpforce=0;
- ELSE;
- UNSAFE;
- SPLIT("&",%@&collogs[%#i%]%,&logs[]);
- ARRAYSIZE(&logs,#m);
- #m=#m-1;
- ENDUNSAFE;
- UNSAFE;
- FOR(#g,0,%#m%);
- IFMATCHES(%&logs[%#g%]%,"^ \d\d\.\d\d/\d\d:\d\d");
- LOGTO("%@&exportfilename%.txt",%&logs[%#g%]%);
- ELSE; // Поддержка обычного корпротекта (привет, тормоза)
- IFMATCHES(%&logs[%#g%]%,"^\d+?\.\d+?h");
- LOGTO("%@&exportfilename%.txt",%&logs[%#g%]%);
- ENDIF;
- ENDIF;
- NEXT;
- ENDUNSAFE;
- IF(@#acpdebug=1);LOG(WROTE_LOGS %#m%);ENDIF;
- IF(#m!=0);
- @#spl=@#spl+1;
- UNSET(@&collogs[%#i%]);
- ELSE;
- IF(@&acpforce=1);
- IF(@#acpdebug=1);LOG(PAGE_FORCED %@#spl%);ENDIF;
- // @#l=@#spl-1;
- IF(@#acpdebug=1);LOG(/co l %@#spl% %@&acpadditionaltext%);ENDIF;
- ECHO(/co l %@#spl% %@&acpadditionaltext%); // FORCING
- ENDIF;
- ENDIF;
- IF(@#spl<@#exportlimit);
- IF(@#acpdebug=1);LOG(%@#spl%<%@#exportlimit%);ENDIF;
- @#acplmode=1;
- EXEC(co.txt,"[ACP] Exporting... [%@#spl%/%@#rexportlimit%] [%@#acpanalysed%/%@#rexportlimit%]");
- ELSE;
- IF(@#acpdebug=1);LOG(%@#spl%>=%@#exportlimit%);ENDIF;
- LOG(&7[&eAdvanced&3CoreProtect&7] &e%@&advcpexportfinished% &a%@&exportfilename%.txt&e!);
- IF(@#acpdebug=1);LOG(EXIT_CODE_4);ENDIF;
- @#currentpage=0;
- @#l=0;
- @#exportlimit=0;
- @#maxpages=0;
- @#spl=0;
- @&acplogpage=;
- @&acpgot=;
- @#acpanalysed=0;
- @&acpforce=0;
- POP(@&collogs[],&del);
- ENDIF;
- ENDIF;
- ENDIF;
- IF(@#acplmode=2); // CLEANUP
- UNSET(@&collogs[]);
- UNSET(@&colpages[]);
- ARRAYSIZE(@&collogs,#n);
- IF(#n!=0);
- LOG(&7[&eAdvanced&3CoreProtect&7] &c%@&advcpcleanup%...);
- ENDIF;
- FOREACH(@&collogs,&l);POP(@&collogs[],&del);UNSET(@&collogs[]);NEXT;
- FOREACH(@&colpages,&l);POP(@&colpages[],&del);UNSET(@&colpages[]);NEXT;
- @#acplmode=0;
- ENDIF;
- IF(@#acplmode=3); // ANALYSER
- @#acplmode=0;
- DO;
- ARRAYSIZE(@&colpages,#n);
- IF(#n!=0);
- POP(@&colpages[],&page);
- MATCH(%&page%,"Page (.+?)\/(.+?)\.\s",{#p1,#p2});
- IF(@#acpdebug=1);LOG(ANALYSING %#p1% / %#p2%);ENDIF;
- UNSAFE;
- @#currentpage=%#p1%;
- @#maxpages=%#p2%;
- REPLACE(&page,"& "," ");
- @&collogs[%#p1%]=%&page%;
- IFMATCHES(%@&acpgot%," %#p1%\b");ELSE;@&acpgot=%@&acpgot% %#p1%;ENDIF;
- ENDUNSAFE;
- ENDIF;
- UNTIL(@#spl>=@#exportlimit);
- IF(@#acpdebug=1);LOG(ANALYSER_ABORTED);ENDIF;
- ENDIF;
- IF(@#acplmode=4); // STATUS
- @#acplmode=0;
- DO;
- UNSAFE;
- #m=0;
- SPLIT(" ",%@&acpgot%,&inds[]);
- FOREACH(&inds,&ind);
- &i=%&ind%;
- REPLACE(&i," ","");
- SET(#i,%&i%);
- IF(#i!=0);
- #m=#m+1;
- ENDIF;
- NEXT;
- @#acpanalysed=#m;
- #m=#m+1;
- IF(#m=@#exportlimit);BREAK;ENDIF;
- ENDUNSAFE;
- UNTIL(@#spl>=@#exportlimit);
- IF(@#acpdebug=1);LOG(STATUS_ABORTED);ENDIF;
- ENDIF;
- IF(@#acplmode=5); // UPGOING
- @#acplmode=0;
- DO;UNTIL(@#acpstart!=0);
- IF(@#acpdebug=1);LOG(LAUNCHED_UPGOING_EXECUTOR);ENDIF;
- IF(@#acpstart=1);
- DO;
- @#l=@#spl-1;
- DO;
- IF(%@&acpgot%!=);IFMATCHES(%@&acpgot%," %@#l%\b");ELSE;
- IF(@#acpdebug=1);LOG(/co l %@#l% %@&acpadditionaltext%);ENDIF;
- ECHO(/co l %@#l% %@&acpadditionaltext%);
- ENDIF;ENDIF;
- @#l=@#l+1;
- UNTIL(@#l>=@#exportlimit);
- UNTIL(@#spl>=@#exportlimit);
- WAIT(500ms);
- @#cpfilter=0;
- ENDIF;
- @#acpstart=0;
- IF(@#acpdebug=1);LOG(UPGOING_EXECUTOR_ABORTED);ENDIF;
- ENDIF;
- IF(@#acplmode=6); // STEPGOING_ADAPTIVE
- @#acplmode=0;
- DO;UNTIL(@#acpstart!=0);
- IF(@#acpdebug=1);LOG(LAUNCHED_SGA_EXECUTOR);ENDIF;
- IF(@#acpstart=1);
- DO;
- @#l=@#spl-1;
- DO(50);
- IF(%@&acpgot%!=);IFMATCHES(%@&acpgot%," %@#l%\b");ELSE;
- IF(@#acpdebug=1);LOG(/co l %@#l% %@&acpadditionaltext%);ENDIF;
- ECHO(/co l %@#l% %@&acpadditionaltext%);
- ENDIF;ENDIF;
- @#l=@#l+1;
- IF(@#l>=@#exportlimit);BREAK;ENDIF;
- LOOP;
- UNTIL(@#spl>=@#exportlimit);
- WAIT(500ms);
- @#cpfilter=0;
- ENDIF;
- @#acpstart=0;
- IF(@#acpdebug=1);LOG(SGA_EXECUTOR_ABORTED);ENDIF;
- ENDIF;
- IF(@#acplmode=7); // STEPGOING
- @#acplmode=0;
- DO;UNTIL(@#acpstart!=0);
- IF(@#acpdebug=1);LOG(LAUNCHED_STEPGOING_EXECUTOR);ENDIF;
- IF(@#acpstart=1);
- DO;
- #i=0;
- @#l=@#spl-1;
- DO;
- IF(%@&acpgot%!=);IFMATCHES(%@&acpgot%," %@#l%\b");ELSE;
- IF(@#acpdebug=1);LOG(/co l %@#l% %@&acpadditionaltext%);ENDIF;
- ECHO(/co l %@#l% %@&acpadditionaltext%);
- INC(#i);
- ENDIF;ENDIF;
- @#l=@#l+1;
- IF(@#l>=@#exportlimit);BREAK;ENDIF;
- UNTIL(#i>=50);
- UNTIL(@#spl>=@#exportlimit);
- WAIT(500ms);
- @#cpfilter=0;
- ENDIF;
- @#acpstart=0;
- IF(@#acpdebug=1);LOG(STEPGOING_EXECUTOR_ABORTED);ENDIF;
- ENDIF;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement