solja Posted December 8, 2015 Share Posted December 8, 2015 (edited) Mod protection works as is... if the text "Mod" appears on the screen the script waits a few minutes... also logs in after a few minutes wait period. any questions or comments, script not working correctly just ask. Usually in RSCE Ventrilo. Vent.Rscemulation.Org Port:7265 program ogrebury; var x, y,runes,coins,arrow,moderator,incombat: Integer; begin repeat x:= Random(510); y:= Random(360); wait(50); //picking runes if(FindColorSpiral2(x,y,(7366239),241,161,300,200))or (FindColorSpiral2(x,y,(5393738),241,161,300,200))or (FindColorSpiral2(x,y,(49404),241,161,300,200))or (FindColorSpiral2(x,y,(1198778),241,161,300,200))then begin Writeln('Picking runes') runes := BitmapFromString(28, 9, 'z78DA7373B334303170C34B0E' + '0680DF3D83C7B5A4BA13977A6254126F17257A29712779EE77232' + '24D12EF1E5A843C31214CAA2DB4087952F335AD4389F8DC4AB93B' + '494DF9D48D77CAF332252907530D00724A379E'); arrow := BitmapFromString(34, 7, 'z78DA3330000137374B03132' + '869804304531CBF2EF24C20C676FC2AC9F30B26204F9654F790EA' + 'F251BFD0DA2FB8D8A492F4F40BF1714189DB46FD426A39469E5D0' + '02C782934'); coins := BitmapFromString(31, 9, 'z78DA3330400037374B03132C' + '247980721328B1853EB6D3336488891D4C71624488B785549753C' + 'B9DE4F98892F44C8B1026DE8F94A416FAB87C30A71652438F54F7' + '5357252D6C2135FD53AB6CA1C43D00135255C5'); clickmouse(x,y,false); wait(234 + Random(20) - 1); if(FindBitmap(runes,x,y))or (FindBitmap(coins,x,y))or (findbitmap(arrow,x,y))then begin clickmouse(x,y,false); wait(300 + Random(120) - 1); end; movemouse(10,350); wait(150); end; //fighting incombat := BitmapFromString(39, 10, 'z78DA3330000137BCC080' + '62405DD368E1066AB970A07C8A6C237DDC407F9F62DA48495A253' + 'EB5132F4B8C4BF0ABA7449678970F1E716A85ED60F32925F905BF' + '7FDD8800A4BA9C1273282F1928B7913EE6905A220DC5FC48AABFC' + '86B390CCEB217974A00D3D405C3'); if(findbitmap(incombat,x,y))then begin writeln('fighting.'); wait(200); while(findbitmap(incombat,x,y))do begin wait(333); end; end; //modcheck moderator := BitmapFromString(23, 9, 'z78DA737343070618C08D' + '0835E40137BC60F0B804D92E625C4B9E8FA8EB1262DC469E1B90D' + '5E06253CB25C4FB74F0B884D4101EBA2E213EFF12633E75F30E00' + '003D2754'); while(Findbitmap(moderator,x,y))do begin writeln ('mod around... waiting 20 minutes.') wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(120000); end; //login while(getcolor(88,172)= 3537407)or (getcolor(108,140)= 3537407)do begin writeln ('waiting 10 mins to login...') wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); wait(5000); clickmouse(309,315,true); wait(2000); SendKeys(#13); wait(2000); SendKeys(#13); wait(2000); SendKeys(#13); wait(2000); SendKeys(#13); wait(2000); SendKeys(#13); wait(2000); end; //closes restart messages while(getcolor(109,185)= 16777215)and (getcolor(319,184)= 16777215)do begin clickmouse(250,270,true); wait(456); end; while(getcolor(99,150)= 0)and (getcolor(101,150)= 16777215)do begin clickmouse(226,226,true); wait(456); end; until (false) end. *EDIT* The scripts i make will be for Scar 3.02, since the findbitmap process has changed in newer versions of scar and actually seem to be buggy. Edited December 8, 2015 by solja forgot to mention scar version that the script works for Quote Link to comment Share on other sites More sharing options...
Wanted Posted December 9, 2015 Share Posted December 9, 2015 (edited) The newer version is just improved handling http://wiki.scar-divi.com/TSCARBitmap http://wiki.scar-divi.com/TSCARBitmap.Create var bmpSomeBMP: TSCARBitmap; X, Y: Integer; begin bmpSomeBMP := TSCARBitmap.Create('adfadfasdfadfadsf'); FindBitmap(X, Y, BmpSomeBMP, 0, 0, 100, 100); bmpSomeBMP.Free; end. Allows you to do thinks like search for color on bmp and is just an overall better system. Definitively not buggy. Just means you need to learn how to use it... and it's not complicated.. if anything less so than the previous outdated versions. Been this way for a few years now Edited December 9, 2015 by Wanted Quote Link to comment Share on other sites More sharing options...
solja Posted December 9, 2015 Author Share Posted December 9, 2015 (edited) I've been using scar 1.08 for ove 7 years bro, and if you ask me the update was unnecessary and the old commands shouldn't have been taken out. I'm not trying to learn new commands and how to code them, everything worked just fine with the older versions I don't understand why they screwed around and took out findbitmap command, any old scar script should be able to work with a newer version of scar. If you want to completely redo my script with the new "SHitTY" commands go ahead, other than that it works fine. EDIT: I spent hours trying to get the new command to work, literally failed time and time again and the new version of scar 3.41 seriously has some major bug issues and doesnt even run for more than 10 minutes without tossing out some kind of an error. Edited December 9, 2015 by solja Quote Link to comment Share on other sites More sharing options...
Wanted Posted December 9, 2015 Share Posted December 9, 2015 (edited) everything worked just fine with the older versions Everything will continue to work just fine. the update was unnecessary Improvements weren't necessary but highly beneficial to the coding method beyond basic user needs. the old commands shouldn't have been taken out. took out findbitmap command FindBitmap and other commands were not removed and still functions identically as it previously did except it uses TSCARBitmap. I'm not trying to learn new commands and how to code them any old scar script should be able to work with a newer version of scar. If you want to completely redo my script [...] go ahead I spent hours trying to get the new command to work, literally failed time and time again The old version of your script would require less than 30 seconds of updating to an improved system. In turn saving you dozens of hours and lines of messy code. I even provided an example of utilizing the new API, which has very simplistic and definite differences. It would by no means or standards require 'redoing' of anything. with the new "SHitTY" commands everything worked just fine with the older versions I don't understand why they screwed around and took out It's clear you don't understand the benefits of the upgraded system. I'll try to elaborate some more on that. Before if you wanted to work with a bitmap you had to create a canvas and rely on changing the WindowDC or the limited amount of canvas functions etc. instead of having to deal with this mess now bitmaps have their own dedicated API as I linked above in the Wiki's documentation. Specific examples of this would include but not be limited to Changing the color of a point on a bitmap Getting the color of a point on a bitmap Finding a color of a point on a bitmap Searching for a bitmap within a bitmap Getting a bitmap from a bitmap Re-sizing a bitmap Rotating a bitmap Placing a bitmap on another bitmap Finding a DTM on a bitmap Capturing the screen to a bitmap Doing the previously mentioned thing for advanced search point return lag work arounds The applications are endless. If you compared the old system side by side to the equivalent of any number of applications it would be clear to any credible skeptic which is the 'shitty' one. the new version of scar 3.41 seriously has some major bug issues and doesnt even run for more than 10 minutes without tossing out some kind of an error. There is no issue or bug with SCAR. Your problems can be classified as user error and should be corrected entirely at an individual level user side. I've been using scar 1.08 for ove 7 years bro, and if you ask me As have many people, but how many hours have you actually spent in front of the IDE doing something a bit more advanced. Take the time to appreciate the variation in skill level between you and advanced users. Edited December 9, 2015 by Wanted Quote Link to comment Share on other sites More sharing options...