Log in

View Full Version : is there any non-rs IsUpText



Rs-Gp-4U
12-26-2007, 07:02 PM
I was wondering if there is a non rs IsUpText

Eg.

if you get the script to right click and then choose 'Select All'

Or w.e please reply i want a quick reply so i can start my project =)

HyperSecret
12-26-2007, 07:06 PM
confusing question i think but i think you answer would be...

find a dtm by DTMRotated on mainscreen or inv then mouse right click then ChooseOption('')

Rs-Gp-4U
12-26-2007, 07:08 PM
I've got this so far

program MuckingAround;

begin
MoveMouse(910,657);
Wait(100);
ClickMouse(910,657,false);
end.

(It clicks on msn logo)

I would like it to click 'Sign Out'.

Could you say where to put what *ThumbsUp

HyperSecret
12-26-2007, 07:17 PM
program MuckingAround;

begin
Mouse(910,657,0,0,false);
wait(25);
Mouse(xcoord, ycoord, 0,0,true);
end.

Mouse moves and clicks the mouse...and xcoord ycoord would be the coord of signout after you right click

so to answer you question...there is no non rs isuptext...understand it now

n3ss3s
12-26-2007, 07:19 PM
Makw a bitmap of the msn icon, then do FindBitmap, then do a right click at the coords FindBitmap returned, have a DTM or bitmap of a part of the text, do FindBitmap and click there :)

Rs-Gp-4U
12-26-2007, 07:20 PM
Line 4: [Error] (4:29): Invalid number of parameters in script

n3ss3s
12-26-2007, 07:20 PM
Umm... You gave it the parameters right? Look at the SCAR Manual -.-

Rs-Gp-4U
12-26-2007, 07:24 PM
Edit: I've Finished Woot

program MessingAround;
{.Include SRL/SRL.Scar}

procedure Clicking;
begin

Mouse(952, 752, 0, 0, false);

Mouse(915, 648, 0, 0, true);

Mouse(306, 258, 0, 0, true);

Mouse(617, 583, 0, 0, true);

Mouse(292, 518, 0, 0, true);

end;

procedure Talk;
begin
TypeSend('Hello!');
Writeln('Finished Spamming :)');
end;

begin
SetupSRL;
MouseSpeed:=8;
Clicking;
Talk;
end.


Thanks to juKKa and all other people thats helped!!! (juKKa on msn)

Wizzup?
12-26-2007, 07:28 PM
Well. It's possible... It's not easy though.
Make your own masks from a font. Like the chars in SCAR.
Load the chars. Then use GetTextAtEx with your own font.

Rs-Gp-4U
12-26-2007, 07:42 PM
EDIT: I've now made it right click on msn logo, click send instant message, check this persons name and now i'm going to make it type 'HELLO!'

Would it be

SendType or TypeSend?

This is my script so far

program MessingAround;

procedure Clicking;
begin
MoveMouse(916, 750);
Wait(2500);
ClickMouse(916, 750,false);

MoveMouse(819, 648);
Wait(2500);
ClickMouse(819, 648, true);

MoveMouse(306, 258);
Wait(2500);
ClickMouse(306, 258, true);

MoveMouse(617, 583);
Wait(2500);
ClickMouse(617, 583, true);

MoveMouse(292, 518);
Wait(2500);
ClickMouse(292, 518, true);
end;

begin
Clicking;

end.

footballjds
12-26-2007, 07:56 PM
Well. It's possible... It's not easy though.
Make your own masks from a font. Like the chars in SCAR.
Load the chars. Then use GetTextAtEx with your own font.
Definitaly not worth it...

btw can you make it double click?

just Mouse(x,y, True);
Mouse(x,y, True);

thats 2 clicks, and to find the DTM you should read a tut, but FYI the exact Syntax is: FindDTM(NameOfDTM,x, y, 0, 0, 1151, 850);

the x and y saves the coords it found it at, the other 4 numbers is the total area for it to search for it.

mastaraymond
12-26-2007, 08:00 PM
Well. It's possible... It's not easy though.
Make your own masks from a font. Like the chars in SCAR.
Load the chars. Then use GetTextAtEx with your own font.


function LoadCharsFromFont2(fontname: string; fontsize: Integer; fontbold, fontitalic, fontunderline, fontstrike: Boolean): Integer;
Load characters from Windows font in memory.
Example:
c := LoadCharsFromFont2('Courier New', 10, False, False, False, False);

Bmp :=CreateBitmapMaskFromText('SomeText',C);

Rs-Gp-4U
12-26-2007, 08:01 PM
I've edited since the posts before go up a couple of posts..

n3ss3s
12-26-2007, 08:02 PM
HAX! :p Jk/Jk - I didn't even consider it since I don't know, and think it would be painful to find out, what the "general" font is.

Rs-Gp-4U
12-26-2007, 08:11 PM
EDIT: WOOT FINISHED

program MessingAround;
{.Include SRL/SRL.Scar}

procedure Clicking;
begin
MoveMouse(916, 750);
Wait(2500);
ClickMouse(916, 750,false);

MoveMouse(819, 648);
Wait(2500);
ClickMouse(819, 648, true);

MoveMouse(306, 258);
Wait(2500);
ClickMouse(306, 258, true);

MoveMouse(617, 583);
Wait(2500);
ClickMouse(617, 583, true);

MoveMouse(292, 518);
Wait(2500);
ClickMouse(292, 518, true);
end;

procedure Talk;
begin
TypeSend('Hello!');
end;

begin
SetupSRL;
Clicking;
Talk;
end.


Any suggestions to change what to what or to add what in?

What mouse movement should i use?

footballjds
12-26-2007, 09:42 PM
well if this were for RS screem and run, but i guess clickmouse and movemouse don't matter that thee easaly detected.... but i wouldn't put in wait(2500);
id use a failsafe and put somthing in like, wait until some color changes or somtin... understand? if you want an example id write one.. but if you don't need one(u shouldn't) i wont =p.

Rs-Gp-4U
12-27-2007, 10:50 AM
Can someone close this please? I've finished xD