SRL Archive - Other Scripts

hello :)
i've made a script that paints a funny image in just 1 second :P
note: don't select any window!!!
note2: you don't need to know the gren letters after every clickmouse etc. it's dutch, it helped me :P
here it is:

{
quick instructions:
1. make your screen resolution 1152x864
2. open mspaint
3. make ms paint full screen and start script
4. enyoy, and post a comment :P



}
program New;
var
x,y:integer;

begin
clickmouse(176,38,true);//afbeelding
clickmouse(205,110,true);//kenmerken
SendKeysVB('20', True);//breedte
clickmouse(610,407,true);//blad lengte 1
clickmouse(610,407,true);//blad lengte 2

SendKeysVB('20', True);//lengte
clickmouse(694,352,true);//ok
clickmouse(17,189,true);//lijn
clickmouse(26,312,true);//lijn dikte, dikst

clickmouse(12,239,true);//rondje
MoveMouse(160,160);//rondje
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(600,600);//beweeg
ReleaseMouse(x, y, True);//los, eind rondje
clickmouse(20,305,true);//rondje gevuld
clickmouse(104,791,true);//kleur groen

MoveMouse(273,242);//begin oog 1
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(367,323);//beweeg
ReleaseMouse(x, y, True);//los, eind oog 1

MoveMouse(449,242);//begin oog 2
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(543,323);//beweeg
ReleaseMouse(x, y, True);//los, eind oog 2
clickmouse(69,792,true);//kleur rood

MoveMouse(380,441);//begin mond
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(460,500);//beweeg
ReleaseMouse(x, y, True);//los, eind mond

clickmouse(37,779,true);//zwart
clickmouse(40,88,true);//invul optie
clickmouse(406,384,true);//invul leeg rondje met zwart

clickmouse(17,189,true);//lijn
clickmouse(85,793,true);//kleur geel
MoveMouse(405,344);//begin neus
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(449,386);//beweeg
ReleaseMouse(x, y, True);//los
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(400,386);//beweeg
ReleaseMouse(x, y, True);//los, eind neus

clickmouse(134, 792,true);//kleur blauw
MoveMouse(288,181);//begin haar
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(333,129);//beweeg
ReleaseMouse(x, y, True);//los
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(360,161);//beweeg
ReleaseMouse(x, y, True);//los
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(400,123);//beweeg
ReleaseMouse(x, y, True);//los
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(436,166);//beweeg
ReleaseMouse(x, y, True);//los
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(483,137);//beweeg
ReleaseMouse(x, y, True);//los
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(498,194);//beweeg
ReleaseMouse(x, y, True);//los
ClickMouse(43,90,true);//opvullen
ClickMouse(334,150,true);//stekel 1
ClickMouse(400,150,true);//stekel 2
ClickMouse(470,150,true);//stekel 3, eind haar

clickmouse(150,790,true);//kleur paars
clickmouse(514,658,true);//achtergrond
clickmouse(41,164,true);//schrijf, begin credits
clickmouse(31,307,true);//doorzichtige achtergrond
clickmouse(39,792,true);//kleur wit
MoveMouse(636,720);//beweeg
GetMousePos(x,y);//gewoon
HoldMouse(x, y, True);//vast
MoveMouse(758,750);//beweeg
ReleaseMouse(x, y, True);//los
SendKeysVB('made by Pointer', True);//made by Pointer
end.

plz post comments :P

whats this for?it draws a semi face like thing in paint.very diagonalish…:confused:

nothing :P it's just a script that shows the power of scar, oh and it's something like a smiley or something :P
just made for fun

SCAR's a bit more powerful than this my friend.

From: Spky
SCAR's a bit more powerful than this my friend.

:)

The whole script is just moving/holding/releasing mouse from coordinate to another..

[offtopic] Nice crappy 3rd attemp gof [/offtopic]

Let me guess, you are dutch?

{. Have 1280 X 1024 Resolution. }
{. Make Sure Paint Has The Colors And The Tools On. }
{. DEFAULT Locations. }
{. Run The Script. }

program New;
Var
  X,Y: Integer;

Procedure Paint;
Begin
  ClickMouse(-43, 88, True)
  MoveMouse(403, 154);
  GetMousePos(X,Y);
  HoldMouse(X,Y, True);
  MoveMouse(403, 154);
  MoveMouse(474, 334)
  MoveMouse(535, 154)
  MoveMouse(378, 261)
  MoveMouse(573, 261)
  MoveMouse(403, 154);
  GetMousePos(X,Y);
  ReleaseMouse(X,Y, True);
End;

Procedure Fill;
Begin
  ClickMouse(-18, 39, True)
  ClickMouse(467, 233, True)
  ClickMouse(415, 249, True)
  ClickMouse(471, 288, True)
  ClickMouse(524, 246, True)
  ClickMouse(504, 194, True)
  ClickMouse(437, 197, True)
End;

Procedure RandomColor;
Begin
  ClickMouse(-25+Random(170), 878+Random(28), True)
End;

begin
  ActivateClient;
  Repeat
    Paint;
    Fill;
    RandomColor;
  Until(False);
end.

This one is actually really sweeet!

[ANGRY FINNISH] stna JuKka mihi jäi waitit?!?!?!?! CPUta scari ei vieny onneks ku 98% ja senki jälkee ku olin 15 minsan Alt + F4 rämppäilyn jälkee saanun scarin kii, ni paintti vilkkuu w00t!! [/ANGRY FINNISH]

Please use English on SRL, anything else keep on MSN pl0x.

Well, I can translate…
JuKKas script got out of control, and after 15 minutes of pressing ALT F4 and CTRL ALT DEL I got handle of Task Manager and closed scar, but paint was still flashing lol

From: n3ss3s
Well, I can translate…
JuKKas script got out of control, and after 15 minutes of pressing ALT F4 and CTRL ALT DEL I got handle of Task Manager and closed scar, but paint was still flashing lol

well it worked perfectly fine for me :P maybe add a few waits :D

Maybe rofl

Lol Cool :bart:

No mortal human will ever understand the power of scar.

OMG, THIS USES CLICKMOUSE……YOU'RE GOING TO GET BANNED SOOOO FAST ……oh wait, this isn't for RS :rolleyes:, lol, Very Nice Script demonstration for other potabilities, uses and to demonstrate the processing power of this program (compared to a human) :)

~RAM

And at your Signature, I thought it was funny to keep the princess clothes also, after getting a sex change, but to bad you can't actually cross gender dress……:eek:

He posted it because you can't have both…glitch or so…

From: SantaClause
He posted it because you can't have both…glitch or so…

yeah, glitch, try it…get a frog token…change your sex from male to female…exchange token for princess dress…change back to male….try to put on princess dress…it changes back to male prince outfit…same as if you were wearing it when you got the sex change…you can keep it in your bank…but not wear it….

got a little update ;)

{
quick instructions:
1. make your screen resolution 1152x864
2. open mspaint
3. make ms paint full screen and start script
4. enyoy, and post a comment :P



}
program New;
var
x,y:integer;

begin
clickmouse(176,38,true);//afbeelding
wait(100);
clickmouse(205,110,true);//kenmerken
wait(100);
SendKeysVB('20', True);//breedte
wait(100);
clickmouse(610,407,true);//blad lengte 1
wait(100);
clickmouse(610,407,true);//blad lengte 2
wait(200);
SendKeysVB('20', True);//lengte
wait(100);
clickmouse(694,352,true);//ok
wait(100);
clickmouse(17,189,true);//lijn
wait(100);
clickmouse(26,312,true);//lijn dikte, dikst
wait(200);
clickmouse(12,239,true);//rondje
wait(100);
MoveMouse(160,160);//rondje
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(600,600);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los, eind rondje
wait(100);
clickmouse(20,305,true);//rondje gevuld
wait(100);
clickmouse(104,791,true);//kleur groen
wait(200);
MoveMouse(273,242);//begin oog 1
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(367,323);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los, eind oog 1
wait(200);
MoveMouse(449,242);//begin oog 2
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(543,323);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los, eind oog 2
wait(100);
clickmouse(69,792,true);//kleur rood
wait(200);
MoveMouse(380,441);//begin mond
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(460,500);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los, eind mond
wait(200);
clickmouse(37,779,true);//zwart
wait(100);
clickmouse(40,88,true);//invul optie
wait(100);
clickmouse(406,384,true);//invul leeg rondje met zwart
wait(200);
clickmouse(17,189,true);//lijn
wait(100);
clickmouse(85,793,true);//kleur geel
wait(100);
MoveMouse(405,344);//begin neus
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(449,386);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(400,386);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los, eind neus
wait(200);
clickmouse(134, 792,true);//kleur blauw
wait(100);
MoveMouse(288,181);//begin haar
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(333,129);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(360,161);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(400,123);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(436,166);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(483,137);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(498,194);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
ClickMouse(43,90,true);//opvullen
wait(100);
ClickMouse(334,150,true);//stekel 1
wait(100);
ClickMouse(400,150,true);//stekel 2
wait(100);
ClickMouse(470,150,true);//stekel 3, eind haar
wait(200);
clickmouse(150,790,true);//kleur paars
wait(100);
clickmouse(514,658,true);//achtergrond
wait(100);
clickmouse(41,164,true);//schrijf, begin credits
wait(100);
clickmouse(31,307,true);//doorzichtige achtergrond
wait(100);
clickmouse(39,792,true);//kleur wit
wait(100);
MoveMouse(636,720);//beweeg
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(758,750);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los
wait(100);
SendKeysVB('made by Pointer', True);//made by Pointer
wait(200);
clickmouse(39,778,true);
clickmouse(18,238,true);
MoveMouse(322,292);//beweeg, begin pupil 1
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(338,312);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los, eind pupil 1
wait(200);
MoveMouse(503,292);//beweeg, begin pupil 2
wait(100);
GetMousePos(x,y);//gewoon
wait(100);
HoldMouse(x, y, True);//vast
wait(100);
MoveMouse(518,312);//beweeg
wait(100);
ReleaseMouse(x, y, True);//los, eind pupil 2
wait(200);

end.

Very interesting…

pointless, but interesting ;)