Script help

[Skoller7]

Hello guys Skoller here again,

 

I started from scratch with to rework my script. I think I am actually finally done with it but i made one little mistake I never clicked the play buttom. So i gues i have quite some errors and i dont see what is wrong. Can anyone help me look at them when i come past them? Thanks

 

Here is the

program FishingBot;varFightbuttom, Shinycheck, NormalCheck, UseItem, Bag, Xbuttom, Magikarp, Dratini, Poli, ThrowUltra, ArrowSearch: TSCARBitmap;x, y, Int: Integer;Box1: Tbox; Desktop: TSCARWindowClient   //does this actually search the scar client or does it also find my Chrome(pokemon game)?procedure Shinycheck //[s]begin   Shinycheck := TSCARBitmap.Create('deNqNULkNwCAQo06RGRklo1BkkBskQ9' +   'CnSAxWLAuEFMvFPT7fwZ629Nz1J48PiCMCQc6NAFIViVJOFplGh48DnIWS/kgV' +   'o9scrlDLlVztW8RBCQfEvNP9Z6XI1ejK2ZU8Wy34u+18p7995bn6TylfjisyyA' +   '==');   Dratini := TSCARBitmap.Create('deNpjZ+BmWHbqAx6k4NAARGgi////ZwADY' +   'gQdFBqQBSFqIIINDQfgggkODUAEEUxIcACjAxDFQBFkQQgXjyBEF1AQWRwAZfl' +   '0ig==');      Desktop := TSCARWindowClient.Create(GetDesktopWindow); // Searches the desktop aka Pokemon Map SetClient(Desktop); // Actually only looks to the pokemon map aka my whole screan Box1 := GetWindowBox(GetDesktopWindow);  end;procedure NormalCheck // Magikarpbegin   Magikarp := TSCARBitmap.Create('deNrdkbENgDAMBFmAmvUyCqOkYBAPkiHo' +   'KeDFk8dJkFAoQS7sBJ8/72kYh31bfxlz/lhaMpYxLr2QEDLEDDmiF4L/0YV2lM' +   'grJRyBuNWa+bmCqKsqxadCHhLIoR7CRhjCltYTQZh4giC6okhB6DNHF5D0BDk1' +   'aE3+ObLiVYkM9M5odxjhPbkOG0+8h8Vz3Malk6ZJ4YegKs46AAKqzk0=');   Poli := TSCARBitmap.Create('deNqTYOBl+P/7w8CiBQuWABEyA4IaUAGyFFaU' +   'kABVA2cgi0MQ0Bwg98CBA8SYg0ccaAIyF8gAcoEICOCGwxWgOR7THIgWuJlABr' +   'I78fgLDiBs5HCDmn/nAKZ2POGDHDLIZiIbi98czHAjzz1Y0wmp4YMrzeCPLzwa' +   'BxABALsV+mg=');   Fightbuttom := TSCARBitmap.Create('deNoTZJBgOGCvP8jRh1s3/mOAO+tX' +   '77TVvTFj8pcnj/f6O++100PW8h6s5d3jRy9u3ngJQ0enTlhjofXs6KHf374dqC' +   '7daq2zzw6h5R1Yy/ryoqmGKnOM1eaC0UJT9fWW2ttsdLfHhiw109hkBdSih6Zl' +   'U0XxErAU0EAg2m6ju9tW71RBxqnasu1+TjtsdPfbo9uyuaJ4tYXWHlQ3Q7x5tK' +   'YMqAXTYScWzAW6+Wxd2fn6ciA6GOgCVAPx5s6qEqAjgYJoWtAAxGRkB7y+cA5N' +   'y9EFc4BSOyqhaJWXw2ZrHWQtQAaalo0VxfNM1FeaawJlgQjoEjRbMLUAxYHqgd' +   'EHDAEgAsYd0C8EtWCGGLLUCwy/ENRyKD+dVC1Ar8HFj+en76kqWeppD/QyWvJD' +   'lkI2DcgGhucGK220KMYjBUw8+0Dho4emHr8UMehkUgSpWvaTbst+epUSADd3Xr' +   'o=');   Goldeen := TSCARBitmap.Create('deNqNj0ERwDAIBBEQEZWClEg5KZUSKXXSX' +   'gNhJnwCs48AO0CaNHnL8UB/VJyZbgKLA47JE1xSd3xybNmhRqqOit7DSH/pXQm' +   'AaDFNJlYcHT5YtJnJsW5E3BMHJOHofBPmGqk=');    Slowpoke := TSCARBitmap.Create('deNrjZuBheLDgAAg1NGCiBQ4OIAZBBdRF' +   'CagIQ/bAgQP/YQDIhqhpSGCAKECWRVZDUMGDByA1QB9BBBnAAK4GogCi5j82AF' +   'cAQgsacFmBrAaCILKgkExoAABipBaK');   Psyduck := TSCARBitmap.Create('deNrjYOBkePCg4cEDB3S0wAGr4P///5FFF' +   'iQwANF/MCBVHMJGWLfAASr1+wMQIaQewKR+fwA59YADECHrBYmDBeEIKAUEAJh' +   'ligI=');  Desktop := TSCARWindowClient.Create(GetDesktopWindow); SetClient(Desktop);  Box1 := GetWindowBox(GetDesktopWindow); end;procedure ThrowUltra  //bag    + Arrow begin Bag := TSCARBitmap.Create('deNqFUdsRgDAI898fR2IURmGUjpJROoL/fiiID' +   '67SyuV6bcjRpJ2nZQLTBWCPta214O0yKaM07vKjrq1ApBAZHiYT4ERPYF2mKmL' +   'M9wrAvLkH7RZpBE0QG5iaDKkHJl3TM2lQn2NBOkEjiFQ13/EwSGH7AA3ibx7/C' +   '5SBf3AAfYVbaw==');  ArrowSearch := TSCARBitmap.Create('deNrjYhBgOJDgQCH6Dwb4ZfEoQFaDS' +   'xlBBcRYRIz5RNqLxz3EeITyMCceAQBS6hME');  UseItem := TSCARBitmap.Create('deNqTZOBlOJDgQDv0oKHhwYIDQEQFoxYc+' +   'A8GcJH/vz8AzafcKAibcqOAJkCNWtCAbBooEBoaCJqPbNR/ZPD7A9y/yMJAW4h' +   'yFYwNjogGhDnA0ANHDbIVpIYVZozAZTH9i8coeNCBTIAjsJtJdRVSLBxAQTjCn' +   'yQPgmKWuGBHC2fswY5kMn6j4FzsiQEpIwAACjtndg==');    Desktop := TSCARWindowClient.Create(GetDesktopWindow); SetClient(Desktop);  Box1 := GetWindowBox(GetDesktopWindow);   end;if FindBitmap(x, y, Shinycheck, 0, 0, ClientBox.X2, ClientBox.Y2) //Search Shiny Signthen // catch shiny or other needed pokémon Questionbegin      ThrowUltra;DebugBitmap(UltraSearch);if FindBitmap(x, y, Bag, 0, 0, Box1.X2 - 1, Box1.Y2 - 1) then  //Click Bag imagebeginMoveMouse(x, y);wait(Random(500));ClickMouse(x, y)then  //not sure if it'll always click on a random x,y location?if FindBitmap (x, y, ArrowSearch, 0, 0, Box1.X2 - 1, Box1.Y2 - 1) thenMoveMouse(x, y);wait(Random(750));beginInt := 0;while Int <> 5 dobeginClickMouse(x, y);Inc(Int);            //click 5x to come on the right ultraball page end;then FindBitmap (x, y, UseItem, 0, 0, Box1.X2 - 1, Box1.Y2 - 1) then        // Searches Use Item ButtomthenbeginMoveMouse(x, y);wait(Random(1000)):ClickMouse(x, y);  end;  end;end;  end;else // Kill magikarpif FindBitmap (x, y, NormalCheck, 0, 0, Box1.X2 - 1, Box1.Y2 - 1) thenFindBitmap (x, y, FightButtom, 0, 0, Box1.X2 - 1, Box1.Y2 - 1) thenbego,MoveMouse(x, y);wait(Random(500));ClickMouse(x, y); // To lazy so just 2x same leftmouseclickClickMouse(x, y); end;end.

 

 

My first error already came up at line 9 ( procedure Shinycheck) even tho i have no idea whats wrong in that small sentence i searched off some forums and there i see the same? but without the error. Any idea's? hopefully you can help me

 

-Sko

[Wanted]

You are missing a ; at the end of some lines. You can't name procedure/function names the same as variables. You must give them a different name e.g. bmpShinyCheck.

[Skoller7]

You are missing a ; at the end of some lines. You can't name procedure/function names the same as variables. You must give them a different name e.g. bmpShinyCheck.

 

Thanks man really! got everything fixed up but now I stumbeled on a new problem gues thats how this bot making is?

Do you know something about bitmaps? Been searching around on google a bit because i have a bitmap error it tells me the bitmap on line 73 is invalid. Do you know what could cause this? line 73: if FindBitmap(x, y, Shinycheck, 0, 0, Box1.X2, Box1.Y2)

I first thought it might have been a typo but apperently thats not it. Hopefully u know the answer !

[Wanted]

"ShinyCheck" is a reference in your script to a procedure/function and NOT a bitmap handle.. change that to bmpShinyCheck etc.

[Skoller7]

"ShinyCheck" is a reference in your script to a procedure/function and NOT a bitmap handle.. change that to bmpShinyCheck etc.

 

I changed the procedures to bmp, but yea now i did as you told me change the TScARBitmaps to BmpShinyheck, BmpGoldeen,... But i still get the invalid bitmap error on line 73 :

 

 

program FishingBot;    // updates --- Xbuttom toevoegenvarBmpFightbuttom, BmpShinycheck, BmpNormalCheck, BmpUseItem, BmpBag, BmpMagikarp, BmpDratini, BmpGoldeen, BmpPoli, BmpSlowpoke, BmpPsyduck, BmpArrowSearch: TSCARBitmap;x, y, Int: Integer;Box1: Tbox; Desktop: TSCARWindowClient;   //does this actually search the scar client or does it also find my Chrome(pokemon game)?procedure Shinycheck; //[s]begin   BmpShinycheck := TSCARBitmap.Create('deNqNULkNwCAQo06RGRklo1BkkBskQ9' +   'CnSAxWLAuEFMvFPT7fwZ629Nz1J48PiCMCQc6NAFIViVJOFplGh48DnIWS/kgV' +   'o9scrlDLlVztW8RBCQfEvNP9Z6XI1ejK2ZU8Wy34u+18p7995bn6TylfjisyyA' +   '==');   BmpDratini := TSCARBitmap.Create('deNpjZ+BmWHbqAx6k4NAARGgi////ZwADY' +   'gQdFBqQBSFqIIINDQfgggkODUAEEUxIcACjAxDFQBFkQQgXjyBEF1AQWRwAZfl' +   '0ig==');      Desktop := TSCARWindowClient.Create(GetDesktopWindow); // Searches the desktop aka Pokemon Map SetClient(Desktop); // Actually only looks to the pokemon map aka my whole screan Box1 := GetWindowBox(GetDesktopWindow);  end;procedure NormalCheck; // Magikarpbegin   BmpMagikarp := TSCARBitmap.Create('deNrdkbENgDAMBFmAmvUyCqOkYBAPkiHo' +   'KeDFk8dJkFAoQS7sBJ8/72kYh31bfxlz/lhaMpYxLr2QEDLEDDmiF4L/0YV2lM' +   'grJRyBuNWa+bmCqKsqxadCHhLIoR7CRhjCltYTQZh4giC6okhB6DNHF5D0BDk1' +   'aE3+ObLiVYkM9M5odxjhPbkOG0+8h8Vz3Malk6ZJ4YegKs46AAKqzk0=');   BmpPoli := TSCARBitmap.Create('deNqTYOBl+P/7w8CiBQuWABEyA4IaUAGyFFaU' +   'kABVA2cgi0MQ0Bwg98CBA8SYg0ccaAIyF8gAcoEICOCGwxWgOR7THIgWuJlABr' +   'I78fgLDiBs5HCDmn/nAKZ2POGDHDLIZiIbi98czHAjzz1Y0wmp4YMrzeCPLzwa' +   'BxABALsV+mg=');   BmpFightbuttom := TSCARBitmap.Create('deNoTZJBgOGCvP8jRh1s3/mOAO+tX' +   '77TVvTFj8pcnj/f6O++100PW8h6s5d3jRy9u3ngJQ0enTlhjofXs6KHf374dqC' +   '7daq2zzw6h5R1Yy/ryoqmGKnOM1eaC0UJT9fWW2ttsdLfHhiw109hkBdSih6Zl' +   'U0XxErAU0EAg2m6ju9tW71RBxqnasu1+TjtsdPfbo9uyuaJ4tYXWHlQ3Q7x5tK' +   'YMqAXTYScWzAW6+Wxd2fn6ciA6GOgCVAPx5s6qEqAjgYJoWtAAxGRkB7y+cA5N' +   'y9EFc4BSOyqhaJWXw2ZrHWQtQAaalo0VxfNM1FeaawJlgQjoEjRbMLUAxYHqgd' +   'EHDAEgAsYd0C8EtWCGGLLUCwy/ENRyKD+dVC1Ar8HFj+en76kqWeppD/QyWvJD' +   'lkI2DcgGhucGK220KMYjBUw8+0Dho4emHr8UMehkUgSpWvaTbst+epUSADd3Xr' +   'o=');   BmpGoldeen := TSCARBitmap.Create('deNqNj0ERwDAIBBEQEZWClEg5KZUSKXXSX' +   'gNhJnwCs48AO0CaNHnL8UB/VJyZbgKLA47JE1xSd3xybNmhRqqOit7DSH/pXQm' +   'AaDFNJlYcHT5YtJnJsW5E3BMHJOHofBPmGqk=');    BmpSlowpoke := TSCARBitmap.Create('deNrjZuBheLDgAAg1NGCiBQ4OIAZBBdRF' +   'CagIQ/bAgQP/YQDIhqhpSGCAKECWRVZDUMGDByA1QB9BBBnAAK4GogCi5j82AF' +   'cAQgsacFmBrAaCILKgkExoAABipBaK');   BmpPsyduck := TSCARBitmap.Create('deNrjYOBkePCg4cEDB3S0wAGr4P///5FFF' +   'iQwANF/MCBVHMJGWLfAASr1+wMQIaQewKR+fwA59YADECHrBYmDBeEIKAUEAJh' +   'ligI=');  Desktop := TSCARWindowClient.Create(GetDesktopWindow); SetClient(Desktop);  Box1 := GetWindowBox(GetDesktopWindow); end;procedure ThrowUltra;  //bag    + Arrow begin BmpBag := TSCARBitmap.Create('deNqFUdsRgDAI898fR2IURmGUjpJROoL/fiiID' +   '67SyuV6bcjRpJ2nZQLTBWCPta214O0yKaM07vKjrq1ApBAZHiYT4ERPYF2mKmL' +   'M9wrAvLkH7RZpBE0QG5iaDKkHJl3TM2lQn2NBOkEjiFQ13/EwSGH7AA3ibx7/C' +   '5SBf3AAfYVbaw==');  BmpArrowSearch := TSCARBitmap.Create('deNrjYhBgOJDgQCH6Dwb4ZfEoQFaDS' +   'xlBBcRYRIz5RNqLxz3EeITyMCceAQBS6hME');  BmpUseItem := TSCARBitmap.Create('deNqTZOBlOJDgQDv0oKHhwYIDQEQFoxYc+' +   'A8GcJH/vz8AzafcKAibcqOAJkCNWtCAbBooEBoaCJqPbNR/ZPD7A9y/yMJAW4h' +   'yFYwNjogGhDnA0ANHDbIVpIYVZozAZTH9i8coeNCBTIAjsJtJdRVSLBxAQTjCn' +   'yQPgmKWuGBHC2fswY5kMn6j4FzsiQEpIwAACjtndg==');    Desktop := TSCARWindowClient.Create(GetDesktopWindow); SetClient(Desktop);  Box1 := GetWindowBox(GetDesktopWindow);   end;begin [u][b]if FindBitmap(x, y, BmpShinycheck, 0, 0, Box1.X2, Box1.Y2) //Search Shiny Sign[/b][/u]then // catch shiny or other needed pokémon Questionbegin      ThrowUltra;if FindBitmap(x, y, BmpBag, 0, 0, Box1.X2 - 1, Box1.Y2 - 1) then  //Click Bag imagebeginMoveMouse(x, y);wait(Random(500));ClickMouse(x, y, mbLeft)  //not sure if it'll always click on a random x,y location?if FindBitmap (x, y, BmpArrowSearch, 0, 0, Box1.X2, Box1.Y2) thenMoveMouse(x, y);wait(Random(750));beginInt := 0;while Int <> 5 dobeginClickMouse(x, y, mbLeft);Inc(Int);            //click 5x to come on the right ultraball page end; FindBitmap (x, y, BmpUseItem, 0, 0, Box1.X2, Box1.Y2);      // Searches Use Item ButtombeginMoveMouse(x, y);wait(Random(1000));ClickMouse(x, y, mbLeft);  end;  end;end;  end;NormalCheck;if FindBitmap (x, y, BmpNormalCheck, 0, 0, Box1.X2, Box1.Y2) then      // Kill magikarpif FindBitmap (x, y, BmpFightButtom, 0, 0, Box1.X2, Box1.Y2) thenMoveMouse(x, y);wait(Random(500));ClickMouse(x, y, mbLeft); // To lazy so just 2x same leftmouseclickClickMouse(x, y, mbLeft); end.

 

 

As you can see i did change them to Bmp, did i still missunderstood something? What kind of newbish thing am i doing wrong now >.< Hopefully you know it

Btw thanks for trying to explain these things to a noob really appericiate it.

[seafight17]

Try to use keys instead of mouseclicks.. its better.Laso searching bmps one after another might cause you that problem.

 

Try for example to use writeln("it worked"); and see till which point the script is working.Then do the next move without ussing bmp search. For example(these are script for pokemon at another game firs tone is safari second one for fishing random places).Also it better to use procedures and make your script easier for someone to read it and fix it (sadly i got confused a bit and i have to ask you a lot to understant it)

 

procedure  baltletime; var Box: TBox;begin     //  counter:=0; Box := GetClient.ImageArea; wait(2000+random(randomwait)); //writeln('START BATTLE ')   repeat        aa;   //pess a button     wait(3000+random(1000));       kappa;         //it just checks and close windows that may pop up .Also checks if i run out of balls so sets endtime=1     until    (FindBitmapTol(x,y,HP,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) or   (endtime=1) ;  // thats a tricky one If i cant find the bmp "hp" that mean i either caught or lose the fish  so its over .end;

 

or this

 

procedure  baltletime; var Box: TBox;       begin   Box := GetClient.ImageArea; wait(2000+random(randomwait));//wait(3000 +random(4000)) ;    if (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin // no need its just a way to find out faster that you tner in batle              //  writeln('START BATTLE ')  ;               wait(3000+random(1000));                     IF     (FindBitmapTol(x,y,magikarp,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin   // it find a fish!                                    if     (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin  // bag (same as you)                                            repeat                  // path to use ball                                            bb;        // ensures that no key pressed accidently                                            bb;                                            rightx; //                                             aa;                                             rightx;                                            rightx;                                             aa;                                            balls:=balls-1;                                             wait(5000+random(1000)); // the time i believes it needs to use next balls .                                            until    (FindBitmapTol(x,y,magikarp,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) or   (endtime=1) ;                                       end                                    ELSE BEGIN        // that happen in case for some reason the bmp is detected but i cant use the bag yet : for example rain delay time by 2-3 seconds                                              wait(3000+random(1000));                                            if     (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                                                    repeat                                                         bb;                                                        bb;                                                    rightx;                                                    aa;                                                    rightx;                                                    rightx;                                                    aa;                                                     balls:=balls-1;                                                       wait(5000+random(1000));                                                     until    (FindBitmapTol(x,y,magikarp,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) or   (endtime=1) ;                                              end;                                             end;                       // end;                     end;         end; end; 

 

 

Whole script :

 

 program New;var up,down,left,right,hotkey,a,b   : string;var  mousewait,keywait,randomwait,reloadwait,x,y,steps,balls,endtime,counter,counterA,counterB,counterC,counterD,counterE,counterF,Cdratini,Cgoldeen,Cseaking,Cpsyduck,Cslowboke,Cdragonnair  :integer;var failcat, magikarp,hp,close,Bag,Battles,BADFISH :TSCARBitmap; //ez game ez life . procedure Loadvariable ;begin//////////////////////////////////////////////KEYS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\up:='w' ;             //updown:='s';            //downleft:= 'a';       // leftright:= 'd' ;          //righta:= 'z'  ;   //b:= 'x'     ;   // hotkey:='v';steps:=0;balls:=300;endtime:=0;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////mousewait:=50;  keywait:=500;randomwait:=100; reloadwait:=2500;/////////counters///////////////////////// THESE ARE USELESScounterA:=0;  //seakingcounterB:=0;  //goldeencounterC:=0;  //dratinicounterD:=0;  //snowbokecounterE:=0;  //psyduckcounterF:=74;  //dragonair/////////catch//////////  NOT IN USE YET!  USELESSCdratini:=1;Cgoldeen:=0;Cseaking:=0;Cpsyduck:=0;Cslowboke:=0;Cdragonnair:=1;end; procedure loadbmp;       begin Loadvariable ;    failcat := TSCARBitmap.Create('deNrVVFlPE1EY5dl/5H+QTcpidyqgBGntgwUjq' +   'YpaFFIaCgKCBBEh8AIBK42NUTNrZzpdYBhZChSwLHFB6i/w0BsnDZ0CLz5482V' +   'yl3PPd+53z9zLRZeKXHfbZt6Gtg9/IyiKulJcQvqacS7gn8ZHOmyra9hIH51Sk' +   'vz609PZrauqRng6fRhiEqtq5FNt7R/7+4dr9MbyCp273bO6/Y2VZKutLnWQIQB' +   '0MOSiy/lIAgDtm+lZs9VWWlZ+s6mZjci5/FxYgJLR8elcqamDY8/TTsdt5/tQi' +   'GKFO61tvt4XVLYBgK/WqTM+//Nmu+NdMMgJ0qOOrt6BIY4XGm85Qp95gpmYnGp' +   'ssucjn3l71OyultaFYJBmuL7BkSa7MzdFbEnhIwkcZGXrUJWakFeuGYxC/Mtm+' +   'igSTXz4xBjN1rMNsKSsG0xmPlux2KJMc6LeYAqL0sjYpPvhEwBWt/YgY3xqRhO' +   'pkstrO6n9Y2Boli8pLc9NATEcHx4ceU3qRpSwHGBloDpxwu53mmHJrjOkggRbS' +   'BSXlAKGr7y6yfAiLLS8sUcxvK6yCgXRRJ4ih1qKpvNzLSlJKS7DsYFAgKxSFG0' +   'wWSQ5eQI4yMzNzWN4tlQw6/UG3B31t2Xd+4th2PvtnuFXE16vF51CyHxyzVxwJ' +   'hw7PRNwtbSoVe3y9bXec8vr6YSyaXc4u/0DZHtldY24uKZRVS488HIMW3BAKOS' +   'jijsrLJqQZ+cXam11FquNmLYQ8iJSEcr6Dgpb33BD9SoM/7ijq0JXdbWi0v2gP' +   'bn7A/MoUf/QKCY1r0aU4tAA28Mttuv15A2ERfmwYDSZzZZa8hQUQl5QKkIQJfU' +   'uUOfY4jKTbehgqP47NMMUeAFONMCHNE3zgqgkd3JtjDgXeYq2UJb/Iv4AQF4NN' +   'g==');  close:= TSCARBitmap.Create('deNptjrsKwkAQRdOLrRDCQqoQQrot8pN2go3Y+' +   'B9qrHwkPjAa368/8ZDBZVkcDsO9d3Znt+W1vfL2me1qQDhI3mmquL7z7ZHuWFB' +   'K+b4voWoKa6ZCGIZBENCTJInj2JmuLi+IoihNU611vjmAhAb9K86wh8Q+w11GW' +   'ZZN1xWat/jP8vzE0kE2G8sGPimaUHIjHCSflNXi9AAj/lontKfz+m4zLvZgJ73' +   'hyKbbH4CdfAEUhRXc'); magikarp:= TSCARBitmap.Create('deNqTZWBlCDQxAaIPM2c6aWk9fvXKVl0dyPY1N' +   'Lx5715LVRWQC0FA9osPHyCyQBLObgkJAZKhZmYQBUATgOZA1EAUVPj6QswBsu0' +   '1NJ69ewdhQxCyUchsIMpwcoKYCURARqWvL9zYuoAAZCvQXIvHWIhro6yskL1TC' +   'zYNjoCmwRXXllVduPv0yuPXcKNuvPiAld0QFARkJNjalucXA02A+w7upJ7IyHA' +   'PzzgbGyC7xt/fXVfXUVMz09kZv7FAB1T7+wPZfkZGvVFREEEA/bjQ3Q==');   HP:= TSCARBitmap.Create('deNqVkLENgDAQA6mpWC5dRE+TUdJRsEJES88UT' +    //chech batle ends?   'EHBBsHSSdaLjldkOZ/jcTIN43D9rN57a62UUmvVFo9SOWcd9VBqPtsmldcpXur' +   'FNPNm4rdS9fkFHcJI3fGpJ0QeGP5e17jExy03gifPuSyehpc6T4TJfMyz74tHz' +   'djA7ymJJJu81ZkNy+uteOTo3fnUC3/NQF4=');                  Battles := TSCARBitmap.Create('deNrt1KERACAQA0G6wdF/KS+RyJdIPD5uZ7aES' +     //  Battles =checks if enters    '+ZY43QDAPDZd5MjsKjqIsd+owQG+F7fm/MAnkMTww=='); Bag := TSCARBitmap.Create('deNqNkUkKgDAMRbPyIp7RhZQiDiCUKlURxcvWQ' +   'LCEpIrhL5rXn6RDCQXEJwBg2C4Sh3xNHg6FmQzWr6lVSrmtW05SqhKDaNe48HY' +   'SquWB5tQzG1jVhgOliYDC8KePvkU9TvEzxKBm3lFZyIn1G+njj/R7cn+2gybGL' +   'aS3QVmDTqvecYIpwhsmb61U');     BADFISH := TSCARBitmap.Create('deNrt3DFu4kAYBWDKLTnCHiHHyBG2Wm2ZknKbl' +   'SgpcwxKypQ5wpaUlC5TUu5Klv+JePbL++0xIPysV4Hx4G/Q75mxkz+rn6vjx/F' +   'meX6+yHm/0bP7tmqDb627jXwq0vz9NZQ4TvVzP51PV8445JKX71+GsGPi+xD26' +   'yuZ3ewPw379Sj5RO45Tavuwf88+wjUiXpnxcmZ2s5u9UpQTVwp46TXYiH8U5yK' +   'Jo1b4YvXHjfCTM7vZzV4rZSwnDPxS2oq/0jr5YUz0x6vGfNNes5v9btlnmopO1' +   'FbYSxPd1lOuiW1mn3grd+6gbXazL5B9puEiBpuuXtsJO2lUmfYqXNhEGbUeT23' +   'Mbnaz4yQOAaWmD69fJje6GzWAJNNVnLcqvU/82fC12zabXRuzm31p7OQuPC5Pk' +   'bodpPhWaaK2P9Hu4YLfFf7A8DJErlmKdtT28orZzb4Y9qEZ1siGQPL96eki6K9' +   'MIUmnE23CPnFkq3wxsshvdrMviL05/E/T7C+CBQpraY/A7x9tCDu5EChjuZTAe' +   'nhT1s3WwsZ+M8MXSrObfTnsCH4RtvTUjYsi+IWRPRJ9FMFTaM7biyhzyVR6egT' +   'OS0FYZzazm93sWOT3+7ehbF/WbQIHyz5qkytCSMaRyxeOLugehybsUpEH5BS7s' +   'sUKWMTsZl8O+6HZ8sSepKwhe48kVHJ8S5knEn/sazzfVMgvLYWM9d/sZjc7Bo+' +   'P2qUYCuxKbSfp6eso8kK5RslUScePIzJ2hNnNbnYSHEkq7GxZm1T7zB+fkplsa' +   'riYKuA9DwPgDVMo6W8fuzZmN/ty2N/Pr2JwBZ6wY90mGfdUZIQUeeVeHinpSke' +   'Q5wSiR3Rks5t9yew4XcXzxU8pi1HK31MoC+Y9/34HtJXlstS4EbsPe8TsZjd7q' +   'rbjVvy7E2eXhsyt/9RdOcJOtMkBU+NGjNnNbvZawRNXdlZMlOcJsXWls5SeJf7' +   'KtLfKANLsZjf75yhFHv0VW9Ij2GjqOOMeYcKFwRv6m93sD8aeWpwPCtwHZ7LjH' +   'mJU/FM9q/QR1nbij/fyzG52s6eQU/6piXAKedxIMlXJCTuZt5rd7GavhYyHxTX' +   '5eEXpa2XZDYP7pLTJ1yDsWOT1caPZzb4c9vkS7ONWoRXtVJHHDk0t3+H/Abv+e' +   'rvZzW72W7H3FPlprZMJNfmvgzfUNrvZ74e9yiiRaYNAqml0w78Uk4o8fHycQGq' +   '6anazmz3V6MiSDgKp02Ts6A+v4NyWHHAie2pOanazm33qcHGadnV2Aog9omiQk' +   'aTZzW72K2TiZJBoSx0x/KnqJ0iW681udrPfbZQlLLIPss9n8gDaZjf7AtnH3XG' +   'rvsi/tJjd7HPkH/RHKow=');end; procedure leftx;     //key leftvar s: string;begin s:=left   TypeText(s);   wait(keywait+random(randomwait));end;procedure rightx;    //key rightvar s: string;begin s:=right   TypeText(s);   wait(keywait+random(randomwait));end;procedure upx;     //key upvar s: string;begin s:=up   TypeText(s);   wait(keywait+random(randomwait));end;Procedure downx;  //key downvar s: string;begin s:=down ; TypeText(s);   wait(keywait+random(randomwait));end;Procedure aa;     //key zvar s: string;begin s:=a  TypeText(s);    wait(keywait+random(randomwait));end;Procedure bb;     //key xvar s: string;begin s:=b  TypeText(s);    wait(keywait+random(randomwait));end;Procedure rod;   //key cvar s: string;begin s:=hotkey  TypeText(s);    wait(5000+random(randomwait));end;procedure playagain;beginrepeat   bb;until False;end;procedure kappa;  var Box: TBox; begin      Box := GetClient.ImageArea;      If  (FindBitmapTol(x,y,close,Box.x1, Box.y1, Box.x2, Box.y2, 50)) then begin        /// ESSENTIAL!    MoveMouse(x,y);     ClickMouse(x, y, mbLeft);     end;end;  procedure leaveb;   begin   wait(random(1000));rightx;  downx;        aa;wait(random(1000));end; procedure  baltletime; var Box: TBox;       begin   Box := GetClient.ImageArea; wait(2000+random(randomwait));//wait(3000 +random(4000)) ;    if (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin             //  writeln('START BATTLE ')  ;               wait(3000+random(1000));                     IF     (FindBitmapTol(x,y,magikarp,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                       //  writeln('CHECK IF SHINY ')  ;                    {   IF (FindBitmapTol(x,y,BADFISH,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then  begin                          //   writeln('NOT SHINY')  ;                         wait(1000+random(2000));                          leaveb;                       end    }                        // ELSE BEGIN  //case of shiny!                                   // writeln(' SHINY')  ;                                    if     (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                                            repeat                                               bb;                                               bb;                                            rightx;                                            aa;                                             rightx;                                            rightx;                                             aa;                                            balls:=balls-1;                                             wait(5000+random(1000));                                             until    (FindBitmapTol(x,y,magikarp,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) or   (endtime=1) ;                                       end                                    ELSE BEGIN                                             wait(3000+random(1000));                                            if     (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                                                    repeat                                                         bb;                                                        bb;                                                    rightx;                                                    aa;                                                    rightx;                                                    rightx;                                                    aa;                                                     balls:=balls-1;                                                       wait(5000+random(1000));                                                     until    (FindBitmapTol(x,y,magikarp,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) or   (endtime=1) ;                                              end;                                             end;                       // end;                     end;         end; end;procedure fishy;    var Box: TBox;begin              rod;Box := GetClient.ImageArea;//wait(3000+random(randomwait));       If    (FindBitmapTol(x,y,failcat,Box.x1, Box.y1, Box.x2, Box.y2, 50))             then begin                                bb;                       end        ELSE  BEGIN               //find fishy.                  bb;                bb;                wait(4000+random(randomwait))               If  (FindBitmapTol(x,y,magikarp,Box.x1, Box.y1, Box.x2, Box.y2, 50)) then begin                     // writeln('DRAGONAIR NOYS ')                       counterF:=CounterF+1 ;                      baltletime;               end;                end;end;function TimeH(time : extended) : integer; begin result := Floor(DecRet(time)*24) end;function TimeM(time : extended) : integer; begin result := Floor(DecRet(time*24)*60) end;function TimeS(time : extended) : integer; begin result := Floor(DecRet(time*24*60)*60) end;function TimeMs(time : extended) : integer; begin result := Floor(DecRet(time*24*60*1000)*1000) end;function TimeStr : string;var v : extended;begin    v := now;     result :=inttostr(TimeH(v)) + ':'+inttostr(TimeM(v)) + ':'+ inttostr(TimeS(v))+' '  ;end;beginwait(1000);Loadbmp ;cleardebug;SetClient(TSCARWindowClient.Create(GetDesktopWindow)).Free;repeat     counter:=counter+1;    fishy;        kappa;                      writeln ('MAGICARPS:='+inttostr(counterF)+'  TIME:'+Timestr);    //  If (balls<=0) then playagain;until False;

 

 

 

in case you want any help give me a shout .HOwever i need somekind of more info about your script / game you looking at.

Pokemon script are easy .

Edited March 16, 2016 by seafight17

[Skoller7]

Thanks for the response i'll watch into it when i wake up, did a quick sneak peak and wtf it looks insane, i'll observe it when i wake up and hit you up thanks again and cya tomorrow!

[Wanted]

I changed the procedures to bmp, but yea now i did as you told me change the TScARBitmaps to BmpShinyheck, BmpGoldeen,... But i still get the invalid bitmap error on line 73 :

As you can see i did change them to Bmp, did i still missunderstood something? What kind of newbish thing am i doing wrong now >.< Hopefully you know it

Btw thanks for trying to explain these things to a noob really appericiate it.

 

You didn't call the procedure that initiated the bitmap before searching for it so it's trying to find a bitmap that hasn't loaded yet. You have to call that procedure you defined in your main body before so that it will load that bitmap so it doesn't try searching with an empty one which is throwing an error.

[Skoller7]

I re-wrote it again with looking how Seafight117 wrote hes and tried to learn from it now let me first explain what this bot actually has to do :

You start by pressing F (which i didnt put into the script since you only have to press it once and it'll fish until you press f again)

 

When you get a catch you get a pop-up screen looking like this :

 

Now i saw that Seafight made hes code with they w,a,s,d keys but sadly enough you cant battle with the keyboard so thats why I again used loads of bitmaps in my new version. (see bottom of post)

 

As you see i found a magikarp so what the bot has to do if it found out i dont need this pokemon it will click on Fight and after that on the first attack which is on the same coordinates as the fight buttom.

 

Now what if it found a pokemon that I want to catch?

Then I try to make it click the " BAG " buttom but them comes a stupid part.

After clicking on " BAG " this will pop-up :

 

As you see I will need to make it click the " > "So i needed another bitmap for that.

It has to click " > " 5times to actually be at the ultra balls.

Then it wil click on the use item ( with another bitmap )

And this will be repeated until the bitmap of the battle background dissapears.

 

After that it will just repeat

 

Now i also have some questions about your code that i still dont really understand :

-

unction TimeH(time : extended) : integer; begin result := Floor(DecRet(time)*24) end;function TimeM(time : extended) : integer; begin result := Floor(DecRet(time*24)*60) end;function TimeS(time : extended) : integer; begin result := Floor(DecRet(time*24*60)*60) end;function TimeMs(time : extended) : integer; begin result := Floor(DecRet(time*24*60*1000)*1000) end;function TimeStr : string;

What does this actually do? i really dont get this part

 

Also what does the

bb;

do that you used quite alot? I wrote it in my code but tbh i really don't know what it actually is for.

 

I probally will have some small mistakes left in the code but if you dont mind you can always take a look and tell me what can be made better, I also gues you understand what i am trying to make a bit better now

Thanks again for the help guys!

 

 

program New;var up,down,left,right,hotkey,a,b   : string;var  mousewait,keywait,randomwait,reloadwait,x,y,steps,balls,endtime,counter,counterA,counterB,counterC,counterD,counterE,counterF,Cdratini,Cgoldeen,Cseaking,Cpsyduck,Cslowboke,Cdragonnair  :integer;var failcat, magikarp,hp,close,Bag,Battles,BADFISH :TSCARBitmap; procedure Loadvariablebegin//////////////////////////////////////////////KEYS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\mousewait:=50;  keywait:=500;randomwait:=100;                           // No Walking needed so no need for movement buttomsreloadwait:=2500;Cdragonnair:=1;Cdratini:=1;end;procedure loadbmp; begin   Loadvariable ;  Battles := TSCARBitmap.Create('deNpjYdBk+PDjBxyduPGCbgjZXmR048ULmiJc9' +     //Checks if you are in the battle screen   'iKjBx8+0BT9wAGAMjRFANs4v50='); close := TSCARBitmap.Create('deNrjZeBj+A8GBxwccKH/qAC/mgVIbDxqgFy' +         // Close buttom of learning your pokemon a new attack   'sKtHUHMCmEqsaTJW41GCqXDBS/b4AzMYT9RAFAHHHWLw=');  Bag := TSCARBitmap.Create('deNqFUdsRgDAI898fR2IURmGUjpJROoL/fiiID' +         // Searches the Bag Buttom   '67SyuV6bcjRpJ2nZQLTBWCPta214O0yKaM07vKjrq1ApBAZHiYT4ERPYF2mKmL' +   'M9wrAvLkH7RZpBE0QG5iaDKkHJl3TM2lQn2NBOkEjiFQ13/EwSGH7AA3ibx7/C' +   '5SBf3AAfYVbaw==');   GOODFISH := TSCARBitmap.Create('deNpjZ+BmWHbqAx6k4NAARGgi////ZwAD' +         // Dratini   'YgQdFBqQBSFqIIINDQfgggkODUAEEUxIcACjAxDFQBFkQQgXjyBEF1AQWRwAZf' +   'l0ig=='); Shinycheck := TSCARBitmap.Create('deNqNULkNwCAQo06RGRklo1BkkBskQ9' +         // Shiny?   'CnSAxWLAuEFMvFPT7fwZ629Nz1J48PiCMCQc6NAFIViVJOFplGh48DnIWS/kgV' +   'o9scrlDLlVztW8RBCQfEvNP9Z6XI1ejK2ZU8Wy34u+18p7995bn6TylfjisyyA' +   '==');                                                             NextItem := TSCARBitmap.Create('deNrjYhBgOJDgQCH6Dwb4ZfEoQFaDSxlB' +         // Click next item buttom   'BcRYRIz5RNqLxz3EeITyMCceAQBS6hME');   Ultra := TSCARBitmap.Create('deNrjYOBg+HHBAogurBAoaJgAR0Dujw8RCzYcQ' +       // Ultraball   'BaEoB9ggCmFSxwogtUcrAjNGQjDL1jgEgcAvqNrWQ==');          UseItem := TSCARBitmap.Create('deNqTZOBlOJDgQDv0oKHhwYIDQEQFoxYc+' +          //Click on the useitem buttom   'A8GcJH/vz8AzafcKAibcqOAJkCNWtCAbBooEBoaCJqPbNR/ZPD7A9y/yMJAW4h' +   'yFYwNjogGhDnA0ANHDbIVpIYVZozAZTH9i8coeNCBTIAjsJtJdRVSLBxAQTjCn' +   'yQPgmKWuGBHC2fswY5kMn6j4FzsiQEpIwAACjtndg==');        FB := TSCARBitmap.Create('deNoTZJBgOGCvP8jRh1s3/mOAO+tX77TVvTFj8p' +         //Fight buttom   'cnj/f6O++100PW8h6s5d3jRy9u3ngJQ0enTlhjofXs6KHf374dqC7daq2zzw6h' +   '5R1Yy/ryoqmGKnOM1eaC0UJT9fWW2ttsdLfHhiw109hkBdSih6ZlU0XxErAU0E' +   'Ag2m6ju9tW71RBxqnasu1+TjtsdPfbo9uyuaJ4tYXWHlQ3Q7x5tKYMqAXTYScW' +   'zAW6+Wxd2fn6ciA6GOgCVAPx5s6qEqAjgYJoWtAAxGRkB7y+cA5Ny9EFc4BSOy' +   'qhaJWXw2ZrHWQtQAaalo0VxfNM1FeaawJlgQjoEjRbMLUAxYHqgdEHDAEgAsYd' +   '0C8EtWCGGLLUCwy/ENRyKD+dVC1Ar8HFj+en76kqWeppD/QyWvJDlkI2DcgGhu' +   'cGK220KMYjBUw8+0Dho4emHr8UMehkUgSpWvaTbst+epUSADd3Xro=');    end;procedure playagain;beginrepeat   bb;until False;end;procedure kappa;  var Box: TBox; begin      Box := GetClient.ImageArea;      If  (FindBitmapTol(x,y,close,Box.x1, Box.y1, Box.x2, Box.y2, 50)) then begin        /// ESSENTIAL!           Closes an not needed popup ? or am i wrong?   MoveMouse(x,y);     ClickMouse(x, y, mbLeft);     end;end; procedureprocedure  baltletime; var Box: TBox;       begin   Box := GetClient.ImageArea; wait(2000+random(randomwait));  if (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin               writeln('START BATTLE ')  ;               wait(3000+random(1000));                   IF     (FindBitmapTol(x,y,GOODFISH,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)                              // If it is a shiny or a Dratini then move to bag               OR     (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)   then begin               // And Try to catch it                       repeat                       bb; // What was this bb; for?  to afraid to delete it haha                       bb;                      (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                      MoveMouse(x, y);                      wait(5000+random(1000));                         ClickMouse(x, y, mbLeft); then                                  repeat                               (FindBitmapTol(x,y,NextItem,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)                                MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);                                 until(FindBitmapTol(x,y,Ultra,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true); then                                       (FindBitmapTol(x,y,UseItem,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)   then begin                                        MoveMouse(x, y, mbLeft);                                      end;                       until (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) ;                            end                 ELSE BEGIN                              wait(3000+random(1000)):                      (FindBitmapTol(x,y,GOODFISH,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false)                                          OR      (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false)  then               begin                       (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then                     repeat                     MoveMouse(x, y);                     wait1000+random(1000);                       ClickMouse(x, y, mbLeft);                     until (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) ;                   end;      end;  end; end; beginwait(100);Loadbmp;cleardebug;SetClient(TSCARWindowClient.Create(GetDesktopWindow)).Free;repeat     kappa;     battletime;until False;end;end.

 

[Wanted]

I wouldn't bother with bitmaps. Use GetColor and coordinates at fixed positions on the screen since it looks like nothing is dynamic. I'm not sure where you are getting those 'time functions' from either..

Edited March 17, 2016 by Wanted

[seafight17]

no need it just show at debbuget the time.

 

function TimeH(time : extended) : integer; begin result := Floor(DecRet(time)*24) end;function TimeM(time : extended) : integer; begin result := Floor(DecRet(time*24)*60) end;function TimeS(time : extended) : integer; begin result := Floor(DecRet(time*24*60)*60) end;function TimeMs(time : extended) : integer; begin result := Floor(DecRet(time*24*60*1000)*1000) end;function TimeStr : string; 

 

 

Now i saw some wierd stuffs let me explain you.

 

if (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin               writeln('START BATTLE ')  ;               wait(3000+random(1000));                   IF     (FindBitmapTol(x,y,GOODFISH,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)                              // If it is a shiny or a Dratini then move to bag               OR     (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)   then begin               // And Try to catch it                       repeat                       bb; // What was this bb; for?  to afraid to delete it haha                       bb;                      (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                      MoveMouse(x, y);                      wait(5000+random(1000));                         ClickMouse(x, y, mbLeft); then                                  repeat                               (FindBitmapTol(x,y,NextItem,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)                                MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);                                 until(FindBitmapTol(x,y,Ultra,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true); then                                       (FindBitmapTol(x,y,UseItem,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)   then begin                                        MoveMouse(x, y, mbLeft);                                      end;                       until (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) ;                            end                 ELSE BEGIN                              wait(3000+random(1000)):                      (FindBitmapTol(x,y,GOODFISH,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false)                                          OR      (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false)  then               begin                       (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then                     repeat                     MoveMouse(x, y);                     wait1000+random(1000);                       ClickMouse(x, y, mbLeft);                     until (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) ;                   end;      end;  end; end;  

 

 

you search for 1 bmp ( i recoment use hp bmp)

then you search for 2 other (dratini/shiny) in case you find them you do something like this :

 

 rocedure    abcd;var Box: TBox;begin Box := GetClient.ImageArea;    repeat                      // bb; // What was this bb; for?  to afraid to delete it haha     > no need                      // bb;                     if (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                      MoveMouse(x, y);                      wait(5000+random(1000));                         ClickMouse(x, y, mbLeft); then                                  repeat                               (FindBitmapTol(x,y,NextItem,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)                                MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);                                wait(1000+random(100));                               // or do this      since the time you find the bag you need FIXED 5 clicks so :i dont use for but you can if you want to be smaller.                               {                                 MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);  //1 click                               MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);           //2                                MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);               //3                               MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);                  //4                               MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);                     //5  > skip the until                                }                               until(FindBitmapTol(x,y,Ultra,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true); then                                       (FindBitmapTol(x,y,UseItem,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)   then begin                                        MoveMouse(x, y, mbLeft);                                         // click Mouse ??                                      end;                      until (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) ;                            end;    //  end; 

 

but if you dont ? what you do?

I guees you just need to do this.]

 

 procedure  baltletime; var Box: TBox;       begin   Box := GetClient.ImageArea; wait(2000+random(randomwait));  if (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin       // SET THE BMP OF HP               writeln('START BATTLE ')  ;               wait(3000+random(1000));                   IF     (FindBitmapTol(x,y,GOODFISH,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)  OR   IF (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)   then begin                         // If it is a shiny or a Dratini then move to bag               abcd;               end ELSE BEGIN                      // In that case you MUST leave battle right?                       //click at run.                end;      end;  end; end;  

 

my idea of script is like this.

 

program New;var up,down,left,right,hotkey,a,b   : string;var  mousewait,keywait,randomwait,reloadwait,x,y,steps,balls,endtime,counter,counterA,counterB,counterC,counterD,counterE,counterF,Cdratini,xx,yy,Cgoldeen,Cseaking,Cpsyduck,Cslowboke,Cdragonnair  :integer;var failcat, magikarp,hp,close,Bag,Battles,BADFISH,GOODFISH, Shinycheck ,NextItem,Ultra,UseItem,FB :TSCARBitmap; procedure Loadvariable;begin//////////////////////////////////////////////KEYS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\mousewait:=50;  keywait:=500;randomwait:=100;                           // No Walking needed so no need for movement buttomsreloadwait:=2500;Cdragonnair:=1;Cdratini:=1;end;procedure loadbmp; begin   Loadvariable ;  Battles := TSCARBitmap.Create('deNpjYdBk+PDjBxyduPGCbgjZXmR048ULmiJc9' +     //Checks if you are in the battle screen    >> hp BMP its the safesest    'iKjBx8+0BT9wAGAMjRFANs4v50='); close := TSCARBitmap.Create('deNrjZeBj+A8GBxwccKH/qAC/mgVIbDxqgFy' +         // Close buttom of learning your pokemon a new attack   'sKtHUHMCmEqsaTJW41GCqXDBS/b4AzMYT9RAFAHHHWLw=');  Bag := TSCARBitmap.Create('deNqFUdsRgDAI898fR2IURmGUjpJROoL/fiiID' +         // Searches the Bag Buttom   '67SyuV6bcjRpJ2nZQLTBWCPta214O0yKaM07vKjrq1ApBAZHiYT4ERPYF2mKmL' +   'M9wrAvLkH7RZpBE0QG5iaDKkHJl3TM2lQn2NBOkEjiFQ13/EwSGH7AA3ibx7/C' +   '5SBf3AAfYVbaw==');   GOODFISH := TSCARBitmap.Create('deNpjZ+BmWHbqAx6k4NAARGgi////ZwAD' +         // Dratini   'YgQdFBqQBSFqIIINDQfgggkODUAEEUxIcACjAxDFQBFkQQgXjyBEF1AQWRwAZf' +   'l0ig=='); Shinycheck := TSCARBitmap.Create('deNqNULkNwCAQo06RGRklo1BkkBskQ9' +         // Shiny?   'CnSAxWLAuEFMvFPT7fwZ629Nz1J48PiCMCQc6NAFIViVJOFplGh48DnIWS/kgV' +   'o9scrlDLlVztW8RBCQfEvNP9Z6XI1ejK2ZU8Wy34u+18p7995bn6TylfjisyyA' +   '==');                                                             NextItem := TSCARBitmap.Create('deNrjYhBgOJDgQCH6Dwb4ZfEoQFaDSxlB' +         // Click next item buttom   'BcRYRIz5RNqLxz3EeITyMCceAQBS6hME');   Ultra := TSCARBitmap.Create('deNrjYOBg+HHBAogurBAoaJgAR0Dujw8RCzYcQ' +       // Ultraball   'BaEoB9ggCmFSxwogtUcrAjNGQjDL1jgEgcAvqNrWQ==');          UseItem := TSCARBitmap.Create('deNqTZOBlOJDgQDv0oKHhwYIDQEQFoxYc+' +          //Click on the useitem buttom   'A8GcJH/vz8AzafcKAibcqOAJkCNWtCAbBooEBoaCJqPbNR/ZPD7A9y/yMJAW4h' +   'yFYwNjogGhDnA0ANHDbIVpIYVZozAZTH9i8coeNCBTIAjsJtJdRVSLBxAQTjCn' +   'yQPgmKWuGBHC2fswY5kMn6j4FzsiQEpIwAACjtndg==');        FB := TSCARBitmap.Create('deNoTZJBgOGCvP8jRh1s3/mOAO+tX77TVvTFj8p' +         //Fight buttom   'cnj/f6O++100PW8h6s5d3jRy9u3ngJQ0enTlhjofXs6KHf374dqC7daq2zzw6h' +   '5R1Yy/ryoqmGKnOM1eaC0UJT9fWW2ttsdLfHhiw109hkBdSih6ZlU0XxErAU0E' +   'Ag2m6ju9tW71RBxqnasu1+TjtsdPfbo9uyuaJ4tYXWHlQ3Q7x5tKYMqAXTYScW' +   'zAW6+Wxd2fn6ciA6GOgCVAPx5s6qEqAjgYJoWtAAxGRkB7y+cA5Ny9EFc4BSOy' +   'qhaJWXw2ZrHWQtQAaalo0VxfNM1FeaawJlgQjoEjRbMLUAxYHqgdEHDAEgAsYd' +   '0C8EtWCGGLLUCwy/ENRyKD+dVC1Ar8HFj+en76kqWeppD/QyWvJDlkI2DcgGhu' +   'cGK220KMYjBUw8+0Dho4emHr8UMehkUgSpWvaTbst+epUSADd3Xro=');    end;procedure kappa;  var Box: TBox; begin      Box := GetClient.ImageArea;      If  (FindBitmapTol(x,y,close,Box.x1, Box.y1, Box.x2, Box.y2, 50)) then begin        ///    MoveMouse(x,y);     ClickMouse(x, y, mbLeft);     end;end; procedure    abcd;var Box: TBox;begin Box := GetClient.ImageArea;    repeat                      // bb; // What was this bb; for?  to afraid to delete it haha     > no need                      // bb;                     if (FindBitmapTol(x,y,Bag,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin                      MoveMouse(x, y);                      wait(5000+random(1000));                         ClickMouse(x, y, mbLeft);                              writeln('BAG FOUND ')  ;                                // or do this      since the time you find the bag you need FIXED 5 clicks so :i dont use for but you can if you want to be smaller.                               {                                 MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);  //1 click                               MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);           //2                                MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);               //3                               MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);                  //4                               MoveMouse(x, y);                               ClickMouse(x, y, mbLeft);                     //5  > skip the until                                }                                 if     (FindBitmapTol(x,y,UseItem,Box.x1, Box.y1, Box.x2, Box.y2, 50))   then begin                                            writeln('USE ITEM FOUND ')  ;                                        MoveMouse(x, y);                                         // click Mouse ??                                 end;                          end;         until (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=false) ;                              //  end;procedure  battletime; var Box: TBox;       begin         /// key for fishing  Box := GetClient.ImageArea; wait(2000+random(randomwait));   if (FindBitmapTol(x,y,Battles,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true) then begin       // SET THE BMP OF HP               writeln('START BATTLE ')  ;               wait(3000+random(1000));                   IF     (FindBitmapTol(x,y,GOODFISH,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)  OR    (FindBitmapTol(x,y,Shinycheck,Box.x1, Box.y1, Box.x2, Box.y2, 50)=true)   then begin                         // If it is a shiny or a Dratini then move to bag                 writeln('FISH FOUND ')  ;               abcd;               end ELSE BEGIN                      // In that case you MUST leave battle right?                  writeln('I LEAVE ')  ;    //leave procedure you make it and then you fish again                end;    end;  end; beginwait(100);Loadbmp;cleardebug;SetClient(TSCARWindowClient.Create(GetDesktopWindow)).Free;repeat     //kappa;     battletime;until False;end;end. 

 

 

 

the you may set procedure abcd; like you had before (keep in mind the follow however cause i think you done some loops very strange.

if > then its one line and no need end

if > then begin needs end .

if then begin

if this dont work sent me the name of the game(whisper so i check it out at weekend )

//bla bla

end else begin

// bla bla

end;

Also at some findbitmaptol i didnt found the if ahead( nnot sure if matter i dont rly know pascal )

IN CASE WRITELN WORKS then we got problem with the clicks if you dont see anyw riteln bmp are wrong

Edited March 18, 2016 by seafight17

[AnthonyPhics]

オンライン カジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブル ゲームを楽しむ機会を提供する仮想プラットフォームです。 オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。 プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。 必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。 これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。 ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。 技術革新のおかげで、オンライン ゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンライン カジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。 これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。 このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。 ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。 カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供します pornhub ph5604ec4c74469

全体として、オンライン カジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。 幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。 ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。

[AnthonyPhics]

オンライン カジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブル ゲームを楽しむ機会を提供する仮想プラットフォームです。 オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。 プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。 必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。 これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。 ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。 技術革新のおかげで、オンライン ゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンライン カジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。 これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。 このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。 ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。 カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供します ｐｏｒｎｈｕｂ

全体として、オンライン カジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。 幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。 ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。

[JanisItach]

Похудение это тема, которая всегда актуальна для многих девушек. Почти многие среди нас стремятся к идеальной форме, но довольно частенько сталкиваются с трудностями и препятствиями на пути к этой цели. Но, с правильным подходом, похудение может быть достижимо без нервного напряжения и изнурительных диет. В данной статье мы рассмотрим 10 действенных стратегий похудения, которые помогут девушкам добиться желаемых результатов и сохранить здоровье.

1. Установите цель

Первым шагом к успешному похудению является установление конкретной цели. Определите, сколько килограммов вы хотите сбросить и по какой причине. Цель обязана быть близкой к реальности, измеримой и достижимой.

2. Питание

Здоровое питание играет ключевую роль в процессе похудения. Сосредотачивайтесь на употреблении естественных товаров, богатых витаминами и минералами. Избегайте стремительных углеводов и жирной пищи. Устремляйтесь к балансу макро- и микроэлементов в рационе.

3. Физическая активность

Регулярные физические упражнения не только лишь посодействуют сжигать калории, а также укрепят мышцы, улучшат общее самочувствие и увеличат выносливость. Найдите вид активности, который вам нравится: от йоги до плавания, от бега до танцев.

4. Гидрация

Пить достаточное количество воды во время денька не только поможет вам поддерживать уровень жидкости в организме, но и ускорит метаболизм, снизит аппетит и поможет скинуть излишний вес.

5. Сон

Качественный сон играет важную роль в ходе похудения. Старайтесь спать более 7-8 часов в сутки, чтоб ваш организм мог восстановиться, а метаболизм был в норме.

6. Управление стрессом

Стресс может стать препятствием на пути к похудению как правильно скинуть вес Найдите способы расслабления и отдыха: медитация, йога, чтение книжек, прогулки на природе.

7. Ежедневный контроль

Ведение дневника пищевых повадок и физической активности поможет вам понять, что вы едите и какое количество калорий потребляете, также оценить свои успехи.

8. Постепенные изменения

Избегайте радикальных диет и стрессовых ситуаций. Внедряйте изменения в кормлении и виде жизни чуть-чуть, чтобы они стали размеренными привычками.

[JanisItach]

Похудение это тема, которая всегда животрепещуща для многих женщин. Многие из нас стремятся к идеальной форме, но довольно частенько сталкиваются с трудностями и препятствиями для этой цели. Но, с правильным подходом, похудение возможно достижимо без нервного напряжения и изнурительных диет. В данной статье будут рассмотрены 10 эффективных стратегий похудения, которые помогут девушкам добиться желанных результатов и сохранить здоровье.

1. Установите цель

Первым шагом к успешному похудению является установление определенной цели. Определите, сколько килограммов вы хотите сбросить и по какой причине. Цель обязана быть реалистичной, измеримой и достижимой.

2. Питание

Здоровое питание играет главную роль в ходе похудения. Сосредотачивайтесь на употреблении натуральных товаров, богатых витаминами и минералами. Опасайтесь быстрых углеводов и жирной пищи. Устремляетесь к балансу макро- и микроэлементов в рационе.

3. Физическая активность

Регулярные физические упражнения не только помогут спаливать калории, да и укрепят мышцы, улучшат общее самочувствие и увеличат выносливость. Найдите вид активности, который вам нравится: от йоги до плавания, от бега до танцев.

4. Гидрация

Пить достаточное количество воды в течение денька не только поможет вам поддерживать уровень жидкости в организме, а также ускорит метаболизм, понизит аппетит и поможет скинуть излишний вес.

5. Сон

Качественный сон играет важную роль в ходе похудения. Старайтесь спать более 7-8 часов в день, чтобы ваш организм мог восстановиться, а метаболизм был в норме.

6. Управление стрессом

Стресс может стать препятствием на пути к похудению как похудеть самостоятельно Найдите методы расслабления и отдыха: медитация, йога, чтение книжек, прогулки на природе.

7. Ежедневный контроль

Ведение дневника пищевых повадок и физической активности поможет вам понять, что вы едите и какой-никакое количество калорий потребляете, а также оценить свои успехи.

8. Постепенные изменения

Опасайтесь радикальных диет и стрессовых ситуаций. Внедряйте конфигурации в кормлении и виде жизни равномерно, чтоб они стали стабильными привычками.

[TerryKig]

can i stream the super bowl on peacock actual bitcoin fee how to get crypto airdrops how many bitcoins are lost forever foresight ventures 1 bitcoin rand value alice and bob cryptography omb ordinals etoro buy bitcoin with paypal how to buy bitcoin at atm with cash crypto platforms 00049440 bitcoin akon coin aes-ni cpu crypto no acheter wrapped bitcoin

cross the ages buying some bitcoins 2017 crypto graph acheter cardano crypto bitcoin.com buy limit how to buy bitcoin using gemini shiba inu coin today genesis digital assets buy and pay with bitcoin best crypto based company

a crucial clue in the 4.5 billion bitcoin heist buy hobbycraft gift card with bitcoin ali coin crypto $200 million bitcoin password market capitalization of gm best books on cryptocurrency trading 16 in bitcoin playxdefiant how to buy and secure bitcoin applications of crypto

cindx ada crypto robinhood is it better to mine bitcoin or buy 2018 velocity black careers fastest way of buying and using bitcoin 0.00000020 bitcoin to aud 0.01967416 bitcoin sites to buy crypto can you buy anything with bitcoin faucet crypto

42 dollars in bitcoin will shiba hit 1 cent how to buy bitcoin in us store juegos play to earn crypto eri

[TerryKig]

cashzone is the super bowl on peacock hnt prive overnight crypto bitcoin website buy bitcoin with visa total credit card is crypto a commodity cashapp or zelle 0 iv pokemon shiba inu stock prices metamask swapping fees 611 bitcoin tool crypto set list buying bitcoin on credit card with coinbase 600 million crypto hack

rmrk 2019 bitcoin lowest price alameda ftx bitcoin genesis 1.15b april crypto paper trading how to buy bitcoin besides coinbase cake token where to buy renq crypto binance buy bitcoin cash how many bitcoins does microstrategy have adam samuels bitcoin

338 dollars in bitcoin buy bitcoin 10 euro best crypto growth potential daylight crypto buy bitcoin mining rig all crypto names rlc coin 1 bitcoin to cad in 2009 buy bitcoins us citizen avenida crypto

best place to buy bitcoin in ethiopia can you send bitcoin from cash app to another wallet alex wice crypto colt crypto presale ablt crypto how to buy bitcoin on chipper cash 347 bitcoin in usd acheter une voiture en bitcoin flag trading pattern games that earn bitcoins

2017 bitcoin what caused surge can i buy bitcoin at ameritrade onyx crypto price prediction 0.00219854 bitcoin 2018 bitcoin price

[TerryKig]

how to buy bitcoin with usd dollar play to earn.net buy sell bitcoin in hong kong ghst bitcoin flash crash 16 bitcoin to gbp age population crypto investors 2017 2000 bitcoin price aster crypto how do you buy bitcoin in canada 5 bitcoins a pesos mexicanos best exchanges in us to buy bitcoin bigtime crypto crypto exchanges that accept credit cards buying bitcoins with ideal

how do you sell bitcoin on cash app buy bitcoin with your 401k how to buy bitcoin blockchain info how to start cryptocurrency trading how to buy large amounts of bitcoin australia axion crypto price prediction 2025 a better bitcoin taro crypto sky ventures xrm price

0.0002 bitcoin per action can you buy increments of bitcoin pubg next update buy bitcoin with paypal instantly 1 bitcoin a dГіlar estadounidense acheter crypto anonyme crypto nodes list how to buy bitcoin with card buy gun parts with bitcoin is cash app a safe place to buy bitcoin

exfi buy bitcoin with uk bank account yuga lab binance twitter ftx coin price how do i sell on crypto.com a cuГЎnto equivale un bitcoin en dГіlar is bitcoin mining a scam best places to buy bitcoin 2018 polygonscan

1950x vs 7900x for crypto mining erc-404 $not crypto buy domains with bitcoin buy bitcoin testnet coins

[TerryKig]

orca exchange buy bitcoin with instadebit bitcoin etf launch tokens market crypto casino australia best crypto bot strategies buy bitcoin in rochester ny betus crypto bonus golden inu price prediction 3.63 bitcoin vitcoin stellar blade what are altcoins in crypto mog coin buy real bitcoin crypto games now

mbs crypto is crypto.com an exchange shibainu crypto moon cryto 0 009 bitcoin threshold crypto price prediction best american site to buy bitcoin buy bitcoin at cvs best ai based crypto prix bitcoin

coinbase fees vs gemini how to buy bitcoin for hong kong dollars crypto pool mining buy and use bitcoins instant ly coinbase how to buy and trnasfer bitcoin bitcoin a dollar aave crypto release date bitcoin scanner how to trade solana meme coins 2017 crypto wallets

coindesk buying bitcoin buy 45 dollars in bitcoin how long does it take to buy bitcoin days $tribe crypto europe digital id aliexpress crypto can you do a money order with a credit card crypto credit card agario crypto origin of protocol

best crypto exchange for non us residents 2022 bullish crypto 10x in crypto infidelity investments how is bitcoin created

[TerryKig]

crypto.com arena monster jam is crypto making a comeback adhive crypto buy bitcoins india paytm crypto.com luna 2 airdrop wabetainfo news 350 million bitcoin lost how to buy bitcoin in roth ira best cryptos for metaverse which advertisers are boycotting x bitcoin local easy way to buy bitcoin with credit card 4 unexpected surprise bitcoin buy phone card with bitcoin what is natural selection brainly

can i buy bitcoin with entropay options on crypto cheapest place to buy bitcoin 2018 best crypto dao projects $psyop coin 730 euro to bitcoin arcana network pogo march 2024 coffin of andy and leyley developer doxxed 2pac bitcoin miner

wifi map crypto buy and sell bitcoin tips vet reddit crypto $dot crypto price gmrx token price ai fetch bank bitcoins near tokens metropoly ai what are tokens

my shell ai 1 bitcoin in euro 2022 2024 bitcoin halving prediction best app for buying and selling bitcoin how to buy bitcoin with coinsource atm how many bitcoins in the world buy bitcoin leverage wall street crypto bit dao buy gold with bitcoin phoenix az

crypto digital which crypto exchange has the lowest fees easiest way to buy bitcoin in indonesia mythos crypto can i use kucoin in the us

[MiltonSmure]

Гидроизоляция это ключевой элемент в строительстве, обеспечивающий защиту объектов от воздействия влаги и воды. В зависимости от критерий эксплуатации и материала конструкции, выбирается определенный тип гидроизоляции. Рассмотрим главные разновидности и их применения.

1. Рулонные материалы

Рулонные водоизоляционные материалы используются для защиты кровель и фундаментов. Они посещают на основе битума и полимеров.
- Битумные рулоны известны благодаря своей доступности и безопасности. Используются на плоских крышах и в основании построек.
- Полимерные рулоны имеют более высокую прочность и долговечность, то что надо для сложных погодных условий.

2. Жидкая гидроизоляция

Жидкие гидроизоляторы используются для творения бесшовного покрытия. Они бывают на основе:
- Полимеров просто наносятся и образуют прочную мембрану.
- Цемента идеально то что надо для ванной и кухни, обладают превосходными гидрофобными качествами.

3. Проникающая гидроизоляция

Этот тип просачивается в структуру бетона и заполняет микротрещины, обеспечивая надежную защиту. Применяется преимущественно для фундаментов и подвалов. Проникающая гидроизоляция отлично совладевает с постоянным воздействием воды.

4. Мембранная гидроизоляция

Мембранные системы часто используются для крыши и находящийся под землей конструкций. Такой метод дает обеспечение надежную защиту от осадков и грунтовых вод.
- ЭПДМ и ТПО мембраны имеют высокую устойчивость к солнечному излучению и механическим повреждениям https://gidroizolyaciya-dlya-vsekh.ru

5. Гидрофобные добавки

Гидрофобные добавки в бетон или раствор помогают предотвратить проникновение воды. Они идеально то что надо для создания водонепроницаемых конструкций, таких как бассейны и резервуары.

Выбор типа гидроизоляции

При выборе гидроизоляции важно учитывать:
- Условия эксплуатации влажность, температура, вероятные нагрузки.
- Материалы конструкции для каждого типа материала существует собственный лучший вариант гидроизоляции.
- Бюджет некоторые способы более накладные, но обеспечивают большую долговечность.

В заключение, выбор гидроизоляции зависит от множества причин. Правильное решение поможет продлить срок службы строительных объектов и избежать серьезных проблем с влажностью.

[MatthewHom]

Выбор трактора Шифенг: на что обратить внимание

Тракторы марки Шифенг захватили популярность на земельном базаре благодаря своей надежности, многофункциональности и доступной цене. Однако, чтоб выбрать подходящую модель, необходимо учесть несколько ключевых факторов. В этой статье мы рассмотрим, на что обратить внимание в момент выбора трактора Шифенг в зависимости от ваших потребностей и условий эксплуатации.

1. Определите цели использования

Прежде всего, нужно определить, для какой-никаких задач намереваетесь использовать трактор. Основные направления применения тракторов Шифенг включают:

- Сельскохозяйственное производс: обработка почвы, посадка, сбор урожая, перевозка.
- Строительство:, подъем и транспортировка строительных материалов.
- Лесозаготовка: вывоз древесины, уборка на делянках.

Каждое направление может требовать различной мощности, производительности и дополнительных функций, потому принципиально чётко понять свои цели.

2. Выбор мощности и типа двигателя

Тракторы Шифенг представлены в диапазоне мощностей, начиная от легких моделей для маленьких хозяйств и заканчивая мощными машинами для крупных агроформирований. Принципиально учесть следующие моменты:

- Мощность мотора: по этой причине параметра зависит способность трактора выполнять разные виды работ. Более сильные машины подходят для томных условий эксплуатации.
- Тип мотора: дизеля почаще используются в тракторов весьза их экономичности и долговечности, однако и бензиновые модели имеют свои преимущества.

3. Конструкция и качество

В момент выбора трактора принципиально направить внимание на его конструкцию и качество материалов. Тракторы Шифенг довольно частенько делают из крепких сплавов, что наращивает их долговечность. Также проверьте:

- Тип коробки: механическая или гидростатическая, каждая из которых имеет свои плюсы и минусы.
- Подвеска: наличие передней и задней подвески подсобляет улучшить устойчивость и маневренность.

4. Комплектация и дополнительные опции

Дополнительные опции могут существенно воздействовать на комфорт и функциональность работы с трактором. При рассмотрении модели направьте свой взгляд на:

- Наличие фар и освещения для работы в темное время суток.
- Кабина: хорошо утепленная и оснащенная системами вентиляции и кондиционирования очень сильно повысит комфорт оператора.
- Дополнительное оборудование: возможность установки разной навесного или прицепного оборудования (плуг, культиватор, фреза и так далее).

5. Сервис и гарантия

Важно учитывать доступность сервисного обслуживания и наличие запасных частей. Выучите:

- Гарантийные условия: они могут варьироваться в зависимости от производителя.
- Квалификация сервисного центра: его возможности по ремонту и обслуживанию тракторов.

6. Бюджет

Помните о http://www.amiciditorre.it/guestbook/?bid=1 вашем бюджете. Тракторы Шифенг предлагают широкий ценовой диапазон, но также принципиально учитывать расходы на эксплуатацию, обслуживание и возможные ремонты в будущем. Сравните разные модели и выберите ту вот, которая наихорошим образом соответствует вашим финансовым возможностям.

Заключение

Выбор трактора Шифенг это ответственный процесс, который может зависеть от огромного количества причин. Определите цели его использования, учитывайте мощность и тип мотора, качество конструкции, дополнительные опции, доступность сервиса и свой бюджет. Правильно подобранный трактор станет надёжным ассистентом в вашем хозяйстве, обеспечивая эффективность и продуктивность работы надолго. Не торопитесь с покупкой, лучше заранее соберите всю нужную информацию и проконсультируйтесь с специалистами, чтоб сделать обоснованный выбор.

[Richardnuaxy]

Эскортницы Минска для предпринимателей: Как искать безупречный вариант

В Минске, как и в других крупных городках, услуги эскорта становятся все более пользующимися популярностью, в особенности посреди предпринимателей. Это связано с тем, что многие из них ищут компанию для деловых встреч, мероприятий либо просто для отдыха. Но поиск подходящей эскортницы может быть непростой задачей. В этой статье мы рассмотрим несколько практических советов по тому, как найти безупречную компанию в Минске.

1. Обусловьте свои потребности

Перед тем как начать поиск, главно четко определить, что именно вы разыскиваете. Вам нужна эскортница для деловой встречи, вечеринки, ужина либо другого мероприятия? Каждое из этих событий требует разного подхода и, соответственно, различных качеств от модели. Точное понимание своих целей поможет вам сделать правильный выбор.

2. Обследуйте предложения

Существует множество эскорт-агентств в Минске, поэтому стоит потратить время на изучение их услуг. Ознакомьтесь с веб-сайтами разных агентств, их рейтингами, доступными моделями и предложениями. Хорошие агентства обычно имеют доскональные контурные профили с фото и описаниями.

3. Читайте отзывы и рекомендации

Отзывы других клиентов могут предоставить вам ценную информацию о качестве услуг определенного агентства. Постарайтесь отыскать самостоятельные источники, где можно ознакомиться с мнениями пользователей. Это поможет избежать неприятных ситуаций и неудовлетворительных встреч.

4. Направьте свой взгляд на профессионализм

Качество услуг сильно зависит от профессионализма моделей. Хорошие эскортницы должны быть включая привлекательными, а также умело вести беседу, быть уверенными в себе и приятно общаться. Более того, профессиональные модели умеют адаптироваться к различным ситуациям и могут поддерживать беседу на разные темы.

5. Уточните стоимость услуг

Различные агентства могут иметь различные цены на свои услуги. До этого чем делать выбор, уточните цену на конкретные услуги и убедитесь, что в ней нет укрытых платежей. Сравните цены нескольких агентств, чтоб избрать более подходящее предложение.

6. Обеспечение безопасности и конфиденциальности

Если вы организуете встреч с эскортницей важно учесть вопросы безопасности и конфиденциальности. Изучайте, какие меры принимает агентство для защиты собственной инфы клиентов. Надежные агентства дают обеспечение конфиденциальность и безопасность как моделей, так и клиентов http://tujuoutdoor.com/home.php?mod=space&uid=123505&do=profile&from=space

7. Общение с агентством

Если вы нашли подходящее агентство, не стыдитесь задавать вопросы. Общение с представителями агентства окажет вам помощь лучше понять их подход, условия работы и убедиться в их профессионализме. Не плохое агентство всегда открыто для того, чтобы общаться и готово ответить на ваши запросы.

Заключение

Поиск эскортницы в Минске для бизнесменов это задача, требующая внимательности и тщательного подхода. Четкое понимание своих потребностей, исследование агентств и тщательный отбор помогут для вас найти идеальную компанию для любого события. Удачи в вашем поиске!

[Peteranant]

Ирвин Казино: Промокод и Как им Воспользоваться

Ирвин Казино это популярная онлайн-платформа для азартных игр, предлагающая широкий выбор слотов, настольных игр и живых казино. Одним из методов привлечь новых игроков и поощрить постоянных является внедрение промокодов. В этой статье мы расскажем, как использовать промокод Ирвин Казино, какой-никакие достоинства он предоставляет и на что обратить внимание.

Что такое промокод?

Промокод это композиция цифр и букв, которая предоставляет игрокам определённые бонусы или превосходства во время регистрирования либо внесении депозита. Промокоды могут делать отличное предложение различные виды акций, такие как безвозмездные вращения, валютные призы либо повышенные ставки на определённые игры.

Как получить промокод Ирвин Казино

Есть несколько способов получить промокод Ирвин Казино:

1. Сайт: Довольно частенько казино публикует актуальные промокоды на своём сайте в разделе акций либо бонусов. Часто инспектируйте этот раздел, чтобы не пропустить выгодные предложения.

2. Рассылка на электрическую почту: Подписавшись на новинки казино, вы можете быть информированными о специальных акциях и промокодах прямо на свою электронную почту.

3. Социальные сети: Смотрите за страницами Ирвин Казино в социальных сетях. Нередко там публикуются уникальные предложения и промокоды для подписчиков.

4. Форумы и сообщества: Участие в форумах и обществах азартных игроков может помочь для вас найти животрепещущие промокоды, которые делятся пользователями.

Как воспользоваться промокодом

Внедрение промокода в Ирвин Казино довольно просто. Вот пошаговая практическое руководство:

1. Регистрация либо вход в акк: Если вы новый игрок, зарегайтесь на сайте. Если у вас теснее есть аккаунт, просто сделайте вход.

2. Переход в раздел бонусов: На веб-сайте казино найдите раздел, где можно ввести промокод. Обычно это находится в процессе внесения депозита или в личном кабинете Промокод в казино Ирвин

3. Введите промокод: В соответственном поле введите приобретенный промокод и нажмите кнопку Активировать или Применить.

4. Пополнение счета: Если промокод связан с первым депозитом, внесите необходимую сумму для активации приза.

5. Получение бонусов: После успешного ввода промокода ваши призы будут зачислены на счёт, и вы сможете начать их использовать.

[Peteranant]

Ирвин Казино: Промокод и Как им Воспользоваться

Ирвин Казино это популярная он-лайн-платформа для азартных игр, предлагающая широкий выбор слотов, настольных игр и живых казино. Одним из способов привлечь новых игроков и поощрить неизменных является внедрение промокодов. В данном посте мы поведаем, как использовать промокод Ирвин Казино, какие достоинства он предоставляет и на что обратить внимание.

Что есть промокод?

Промокод это комбинация цифр и букв, которая предоставляет игрокам определённые бонусы или достоинства при регистрации или внесении депозита. Промокоды могут предлагать разные виды акций, такие как безвозмездные вращения, денежные призы либо завышенные ставки на определённые забавы.

Как получить промокод Ирвин Казино

Есть несколько методов получить промокод Ирвин Казино:

1. Сайт: Часто казино публикует актуальные промокоды на своём сайте в разделе акций либо призов. Регулярно проверяйте этот раздел, чтобы не пропустить выгодные предложения.

2. Рассылка на электрическую почту: Подписавшись на анонсы казино, вы можете получать информацию о специальных акциях и промокодах прямо на свою электронную почту.

3. Социальные сети: Следите за страничками Ирвин Казино в социальных сетях. Довольно частенько там публикуются уникальные предложения и промокоды для подписчиков.

4. Форумы и сообщества: Участие в форумах и сообществах азартных игроков может посодействовать вам найти животрепещущие промокоды, которые делятся пользователями.

Как воспользоваться промокодом

Использование промокода в Ирвин Казино достаточно просто. Вот пошаговая практическое руководство:

1. Регистрация либо вход в аккаунт: Ежели вы новый игрок, зарегистрируйтесь на сайте. Если у вас теснее есть аккаунт, просто сделайте вход.

2. Переход в раздел бонусов: На сайте казино найдите в этом разделе можно ввести промокод. Как обычно это находится в ходе внесения депозита или в своем собственном кабинете Ирвин Казино Промокод

3. Введите промокод: В соответствующем поле введите приобретенный промокод и нажмите кнопку Активировать или Применить.

4. Пополнение счета: Если промокод связан с первым депозитом, внесите нужную необходимую сумму для активации приза.

5. Получение призов: После удачного ввода промокода ваши бонусы будут зачислены на счёт, и у вас есть возможность начать их использовать.