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

seafight17

Members
  • Content count

    99
  • Joined

  • Last visited

Community Reputation

0 Neutral

About seafight17

  • Rank
    Member

Personal Information

  • Location
    Greece
  • Interests
    sripting and bots
  • Occupation
    no job to early !
  • Studies
    stundent at Ceid 2 year
  1. Scripting Help

    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. win7 and win 8 problem

    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. Script help

    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. Script help

    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. win7 and win 8 problem

    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. win7 and win 8 problem

    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. scar divi can work on client game?

    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. 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 ?
  11. Ckeck colour of mask(biramap mask) is pocible?

    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
  12. 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
  13. Should guns be banned and confiscated?

    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..
  14. Lost Function list?

    thank you )
  15. Lost Function list?

    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?
×