SRL Archive - Other Scripts

MS Paint Inverter


frogy

2006-10-07 17:21:19

This will Goto Colors in an MS Paint drawing and erase them, or change then to a different color…

This is My First Script so I don't expect to get SRL- Scripter status or anything
because
#1 it's not SRL :D

This Script does work pretty good though

{|/////////////////////////////////////////////////////////////////////|
/|/////////////////////////////////////////////////////////////////////|
/|////////////////////This Is My First Script//////////////////////////|
/|//////////////////////////By: FrOgY//////////////////////////////////|
/|/////////Draw a picture in Paint With Some Of These Colors///////////|
/|////////////Dark Blue, Dark Yellow, Red, Black, or White/////////////|
/|/////////Go To The Setup and Type the color you drew with////////////|
/|////////Assign Scar to the Paint Window, then run the Script/////////|
/|//The Script Will Erase or Draw Over all of the color you drew with//|
/|/////////////////////////////////////////////////////////////////////|
/|///////////////Make The Image At Least 10x10/////////////////////////|
/|///////Use The Large Brush Tool or Eraser not pencil/////////////////|
/|/////////////////////////////////////////////////////////////////////|
/|////Start the Mouse By where you want it to start on the picture/////|
/|//////////////////and use ctrl+alt+s to start////////////////////////|
/|/////////////////////////////////////////////////////////////////////|}

program New;
var x,y,w,h: integer;

const
blue = 16711680;
red = 255;
yellow = 65535;
black = 0;
white = 16777215;

// Setup Section
color= blue; //type One Of Above Colors Here
// End Of Setup

procedure ClickColor;
begin
FindColorSpiral(x,y,color,3,3,w-1,h-1);
MoveMouseSmooth(x,y);
ClickMouse(x,y,true);
end;

begin
GetClientDimensions(w,h);
GetMousePos(x,y);
repeat
ClickColor;
until(false)
end.

http://www.villu-reborn.com/showthread.php?p=33554#post33554 for more info

masquerader

2006-10-08 00:28:36

moved to other scripts forum

frogy

2006-10-08 07:22:07

thank you, try it out, it's cool when you do mazes or spirals with it…. :D

The Prince of Randomness?

2006-10-08 21:55:26

Very Preeety.!

frogy

2006-10-09 17:45:43

Man I love SCAR, SRL, and the Pascal programming language is really easy to use.

I just made a World 2 Login Script that checks if the World 2 text is green or white, if it's white it clicks the (v) button (sort servers descending button) over and over again until World 2 turns green (has room for you to join).

I also made a password generator that generates 4 letters, 4 numbers, 4 letters
ex: teue5087febk

Bigfish58

2006-10-10 11:22:05

Looks nice..

frogy

2006-10-10 21:28:20

Anyone try out this script? I had some of my friends try it and they think it's fun, lol