Jump to content
solja

picker w/login and semi mod protection

Recommended Posts

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 by solja
forgot to mention scar version that the script works for
Link to comment
Share on other sites

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 by Wanted
Link to comment
Share on other sites

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 by solja
Link to comment
Share on other sites

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 by Wanted
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...