Kik
2007-08-19 21:11:07
Now you can be just like all those great artists you see in museums! Except you can use paint! Just type in how great your art should be (number of squares), drag crosshairs and start the script.
XP Paint. If you have Vista Paint, it won't change colors (and it'll just be weird lines).
XP Paint. If you have Vista Paint, it won't change colors (and it'll just be weird lines).
program ModernArt;
{.include SRL\SRL.scar}
//Drag Crosshairs to the white part of Paint
//Make sure paint window is maximized and white covers maximum space possible
//Hit run and watch you make art!
var HowManySquares, x, y, colors: integer;
const
SquareNum = 50; //How many squares to make.
procedure RandomColor;
Begin
ClickMouse(-26+Random(170), 615+Random(28), True);
wait(100);
colors:=1+random(2);
if colors = 1 then
begin
ClickMouse(-30, 260, true);
end;
if colors = 2 then
begin
ClickMouse(-30, 240, true);
end;
End;
procedure MakeSquare;
begin
HoldMouse(50+random(860), 70+random(500), true);
wait(100);
MoveMouse(50+random(860), 70+random(500));
wait(100);
ReleaseMouse(x, y, true);
wait(100);
end;
begin
HowManySquares:= 0;
ActivateClient;
wait(100);
ClickMouse(-20, 116, true);
wait(100);
HoldMouse(65, 20, true);
wait(100);
MoveMouse(232, 86);
wait(10);
ReleaseMouse(x,y, true);
wait(100);
SendKeys('Modern Art!');
wait(10);
ClickMouse(-45, 165, true);
repeat
RandomColor;
MakeSquare;
HowManySquares:= HowManySquares + 1;
until(HowManySquares = SquareNum)
end.
