Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal

seafight17

Members
  • Content Count

    99
  • Joined

  • Last visited

Everything posted by seafight17

  1. This script is old. You have to change lots of funtions . http://www.freddy1990.com/index.php?page=products maybe here you find the version of the scar that sed to work with it . However i reccoment you to recreate the script so it can work with scar 3.41
  2. I check it again. Its not scar or OS. I can normally run scar scirpt at this game on my old pc which has windows xp. I can also ay my pc that has win 8/ Its virtual box + games that for some reason create that problem. What i notice is that at virtual box printcreen is not working at this game .I tested it for win8/7/xp all the same. Print screen not working so scar divi not either. Scar functions that has to do wiht keys works but bitmaps/colours cant be seen because the games appeals to be a "black/screen background image". So i tried a different virtual machine. I did with VMware workstations.Things where a bit better(scar is able to see the pictures) .However i face extreme lag which i dont know why. Normally my laptop can affort it by far (vurtual os ram/cpu aint even close to 100% to ccause that trouble). So do you have anny idea which other virtual (free) machine i can try out? *yeap i set 3d accelarate/ enought video memory to support it but nothing changed.
  3. I got 5 varriables type int counterA:=0; counterB:=0; cx counterC:=0; counterD:=0; counterE:=0; The script runs these change values. Now i want once i stop the script these values to be saved auto. Any way that happen? So far i ended up with that (i have to copy paste sadly) writeln ('counterA:='+inttostr(counterA)+';'); writeln ('counterB:='+inttostr(counterB)+';'); writeln ('counterC:='+inttostr(counterC)+';'); writeln ('counterD:='+inttostr(counterD)+';'); writeln ('counterE:='+inttostr(counterE)+';');
  4. 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
  5. 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 .
  6. yeap oonly that game. I am really trying to find a way to set my script to run at virtual machine however i cant. At windos xp i cant download the right version of java. At win 7 i got this problem (i tried a lot of things nothing works) At win 8 (same as my pc windows) virtual box got some other problems (pixel accelarate ) so i cant do something .
  7. Hello i use a script that does some stuffs. Normally at windows 8 i dont have any problem eveything works fine. However once i tried on my vb win 7 script didnt worked, The game uses java .And as i saw at windoes 7 i cant see the bmps/colors of the games(when i try with scar divi or prt screen). (the "client" doesnt show once i try to make a bmp). The game is playing normally however4 at both OS , example: up picture how it looks like at my vb when i try to get a bmp down how looks like at win 8 (my pc not vb) when i try to pick up a bmp Any help what i should change at my vb win 7 os to make it work? game :PokeMMO EDIT:at win 7 printscreen also doesnt work with same way it works at win 8. I got same porblem there as well.
  8. ok im sorry We are having a client game (which we download it and play it) not like others whch we simple enter from mozzila with justa usename and pass At these games i notice that every sript that thdont work ..I mean that when i start a sript it willl work at my deskop(if we are speaking for mouse kliks) but once i open the game will no respond... any solotion to make it work there?
  9. Hello i have the follow problem: If i have any sript for a client game(even if it just click at one spot x,y) it not work in the game I try on games like atlanticaa/lol and no repont Is any function that can make scar to work there? thank you very much
  10. Sorry i don't understant.. you want to press the "left CRLT" to use the second bar ? or the second bar when you press T or Y not work ? if you need to change the key that will active the second bar you have to go to line 28-29 > [scar] defence:=84; // key to active defencive orders atack:=89; // key toactive atack orders [/scar] and set the keys that you want from the Vb keycodes(the fisrt one that i upload) you have to use the Mactoprogramm 1.05 not the older.. You can not use the left crlt cause i set it as active second bar.. (if you set 162 it will all time activate you havve to set onother key like right crlt )
  11. mmm 1)its turksish (al elit ships adn so one that to do this these countries ) and not so global..this i a small problem.. (you play a europe/global game not a game that based in 3-5 countries ) 2)its like seafight and has problems that also seafight has (easy sripting /many hitpoints for the payers that will pay) 3)it is a "clone" of seafight not nice grafic and not based in the way that seafight was Anywayi may say its good cause you can play it from your cellphone i think so its funny
  12. Hallo everyone, Fierstly (i forgot to say it earlier) i big thank to wutertute cause he make me with the sripts he wrote in seafight(before some years) to start thinking stipting Cause macroing mouse/keyboard are really expensive(and piss of players that don;t have cause if theire high speed) .Here is a small macro porgramm (maybe in future add more) Before you start the stript ..check the settings> 1)open scar 2)open the file (macroprogramm) 3)set up the keys(if you want) [scar] ////////////////////////SET THE KEYS which will active the macro ... Active1:=85; //Key to active macro 1 //gia energopoihshths prwths akolou8ias (Macro1) Active2:=73; //Key to active macro 2 //gia energopoihshths no2 akolou8ias (Macro2) Active3:=79; //Key to active macro 3 //gia energopoihshths no3 akolou8ias (Macro3) Active4:=80; //Key to active macro 4 //gia energopoihshths no4 akolou8ias (Macro4) Keystop:=71; //Key to stop the sript/termnate defence:=84; // key to active defencive orders atack:=89; // key toactive atack orders Key1:=49; Key2:=50; Key3:=51; Key4:=52; Key5:=53; Key6:=54; Key7:=55; Key8:=56; Key9:=57; Key0:=48; autotarget:=0; // 1 ayto shoot 0 no shoot ! end;[/scar] in Macro 1.2.3.4 add the numbers of the solts that you want to active all together ex Macro1:='12345'; (if you want 5 rockets) Macro2:='6789'; (for handman and so one) You may not use ALL macro (i put 4 i think enought) in that case set the Active[number of macro]:=0; Right now the sript play with the follow way : ppress key "U" or "u" > and automaticly the stipt press 123 (3 items ) press key "I" or "i" > and automaticly the stipt press 456 (3 items ) tress key "O" or "o" > and >> 78 and with key P > 90 THESE KEYS CAN BE CHANGED (you change them in Active1-4 use the guide that i give with the sript .. >> +T key for using the same time ALL defencive orders +Y >> >> >> ALL atacking orders (need to lock the future shipwerk ) Once you make the setting start sript (besouce sometimes prees the keys when it started enter or "open" the seacart 5-10 second after prees run sript) Happy sailling and arena (without spending money to expensive mouse ) You may also use a 5 button mouse (it cost not more that 10 eyro my ) and set the 3 extra keys for macro (he 2 in left side and the midly key ) ..you need to make a small trick setting in your pc to do it of corse (so not to kick you out of seacarte) I can help you in any question (aam sorry for my bad english im greek ^^ ) vb keycodes.scar Macroprogram.1.05.scar
  13. seafight17

    Pirate Storm

    Bacisally i had create one bot for this game but it didn't collect the boxes it just shoot all NPC in one map (you set it inside) ..its easy to create one but you really believe that Pirate Storm should be play with bots.?I mean its free and cheap game no good to destroy it like seafight *I personally stop it using it once i finish my quest (for the moon protactios ) then its just a good gold bot and ex shooter. If you want a small help the way to create a bot is this(my opionion) THIS IS A PART and nothing more just some procedure that might help and not the whole sript 1)use masks for detectiond NPC (seperate then in kategories depentig the map so it sersh only 3 masks) [scar] procedure newmap1; begin if FindBitmapMaskTolerance(Masks1, x, y, skx1, sky1, skx2, sky2, masktol, maskisetol) or FindBitmapMaskTolerance(Masks2, x, y, skx1, sky1, skx2, sky2, masktol, maskisetol) or FindBitmapMaskTolerance(Masks3, x, y, skx1, sky1, skx2, sky2, masktol, maskisetol)then begin // writeln('NPC found at'+inttostr(x)+'/'+inttostr(y)+TimeToStr(Time)); atackaction; end; end; procedure atackaction; begin HMouse(x,y); HMouse(x-3,y); HMouse(x-1,y-3); wait(25+Random(Waitrandom)); toship; shoot; HHMouse(x,y); shoot; // procedure to fire key toship; // procedure to find you ship wait(1000); HHMouse(x,y); // mouse klik but with distance so to target the NPC //HHMouse(x,y); end; [/scar] 2)use the minmap cordi (A1 A0 F4 ) for driving in map [scar] procedure randomdrive; //var i:integer; begin if FindBitmapTol(plx, ply, upleft, skx1, sky1, skx2, sky2, 27) or // a bitmap to detect that it is up leff FindBitmapTol(plx, ply, downleftt, skx1, sky1, skx2, sky2, 27) then begin // to detect tthat is down left writeln('I AM IN LEFT SIDE (PN1/PN3) I CHANGE DRIVE MODULE TO (PN2/PN4) ;') ni:=2; end; if FindBitmapTol(plx, ply, downright, skx1, sky1, skx2, sky2, 27) or // same for right side FindBitmapTol(plx, ply, uprightt, skx1, sky1, skx2, sky2, 27) then begin writeln('I AM IN RIGHT SIDE (PN2/PN4) I CHANGE DRIVE MODULE TO (PN1/PN3) ;') ni:=1; end; if FindBitmapTol(plx, ply, pp3, skx1, sky1, skx2, sky2, 27) then begin // to be down left writeln('change fyll ;') PN; // go up PN;// go up PN; // go up panwaristera; //mouse clik panwde3ia; //mouse clik katwde3ia; //mouse clik toship; wait(3000); ni:=2; // varible that is use to change the drive (mouse klik) end; newmap1; //searsh for NPC if (ni=1) then begin // ni=1 so drive to up left Mouse(moveskx1,movesky1); Mouse(moveskx1+random(50),movesky1+random(50)); toship; end; if (ni=2) then begin // ni =2 drive to down reght Mouse(moveskx2,movesky2); Mouse(moveskx2+random(50),movesky2+random(50)); toship; end; writeln('ni:='+inttostr(ni)+';'); end; [/scar] 3)to rejoin after sunk may usesomething like tis this > [scar]procedure restart; var wer,weq,deathx,deathy :integer; begin if FindBitmapTol(ax, ay, sunk,skx1, sky1, skx2, sky2, 50) then begin if (fuckyou=1) then SaveScreenshot2(ScreenPath + 'sunk'); // save screenshot writeln('I am dead=true > 3 sendnds wait! '); wait(3000+Random(Waitrandom)+Random(Waitrandom)+Random(Waitrandom)); if FindBitmapTol(ax, ay, mee,skx1, sky1, skx2, sky2, 50) then begin deathx:=ax; deathy:=ay+30; end else begin deathx:=569; deathy:=484; end; Mouse(deathx,deathy); contor:=contor+1 wait(1300+Random(Waitrandom)); wer:=901; weq:=568; Mouse(wer,weq); repair; wait(60000+Random(Waitrandom)); Mouse(leavex,leavey); drivemodule:=contor; writeln(' TIMES I SUNK > '+inttostr(contor)+' TIME I SUNK > '+TimeToStr(Time)); if ((drivemodule mod 4=0)=true) then drive1;// procedure for drive up left corner if ((drivemodule mod 4=1)=true) then drive2;// procedure for drive up right corner l if ((drivemodule mod 4=2)=true) then drive3;// procedure for drive down left if ((drivemodule mod 4=3)=true) then drive4;// procedure for drive down right wer:=541; weq:=505; Mouse(wer,weq); Writeln('I save that f in screenshoot >>go scar divi >AScreenshots'); end; end; [/scar] *You can also and funtions that will detect enemy ships and play like human (i mean to shoot back ships if it get shooted) **I am not selling or giving the bot cause i don't believe that game is expensive enought to use bots to play (so as longs it stay in normal price from my side no bots will be used ) Happy Sailings *** You are intresting for gold bot /bonnus bot or also for others kinds ?
  14. ok .I have a mask (bitmap) ..the sustem detect it (everything is fine till here) but then i want a reaction in case the colour of the mask(maskcolour) is ex red>153 a picture of the mask (first one the pattern//mask second and third is the 2 colour that the mask can take) .So i want to check the colour of the mask (if it is pocible).>> Uploaded with ImageShack.us
  15. Hallo and merry christmas I wonder if it pocible in scar divi after finding a "mask" in the specific cordinates to check the colour if it is yellow or red or enother colour(there are specific colour so i no need the tolerance)..ex> [scar] procedure maskcolour; begin If FindBitmapMaskTolerance(Mask1, x, y, skx1, sky1, skx2, sky2, masktol, maskisetol) then begin //mask in the specific search area // and here any action that can deteck the colour the the mask end; end; [/scar] thank you
  16. For me (as greek) Its correct to bann guns from citizen..But I think that its not guns but the "opinion" "WHY I HAVE A GUN?" I use it to protect myself or to kill?The nation know that the citizen tthat will take the gun is degarous r not or just give guns to make "rich" the creators?(mean udtestry ) .Maybe thst should be done is to make stricter the rules of taking gun..
  17. Hallo i accidently clik to close the function list but right now is not pocible to open it from View>Open Function list..I tried to unstall and istall agian scar divi but no vhange any solution?
  18. thank you very much it works perfectly!!
  19. hallo I want to save the scrennshot of the screen (print screen) but not just one time in the sript but many.. it make one scrennshoot(bmp in the folder ) but then it replace it with the new..i want to save all bmp then the " if " is true so after to find them > procedure snapshoot; [scar]begin if ..... then begin /// some actions SaveScreenshot(ScreenPath + 'sunk.bmp'); //snappshoot end; end;[/scar]
  20. Yes this is that i want to leader how to do it in windows 7.. the fond smouthings is pocble to be deactivate in windows xp but i dont now where from system's performance settings. in windows 7
  21. so its not pocible to use the mask that is creates in windows xp home edesin on a pc which runs windows 7? Besouce that i want i to use the mask which i create in windows XP(the fisrt one) to a comrupet that runs windows 7 but i don;t knwo the settings so the "game" (where i the srtipt wil detect the mask) will so the mask in one coloyr like in window xp and npt with 3-4 which happen now in windows 7 So is pocible to to vhange the settings in my second computer (windows 7) so the mask will be the same ?and if yes which are? thank you
  22. Hallo i used winodows XP and i tried the same in windos 7 in windos Xp i deactivate clear type efect and other like that so i create a MASK that has only one color (and 100% acurate)>> i windows 7 i tried the same nut the result that i sussed is this >> so any help to make the same mask in windows 7 ?
×
×
  • Create New...