Leo Random ScreenShots.

[XcanadamanX]

I need as many screen shots as i can get for the leo random(gravedigger random) i need the screenshots of when you click on the stones. ex.
http://img265.imageshack.us/img265/732/cookingxk2.png
but of the whole screen. need them quick before i lose interest in my project.
also the screenshots of inside the coffin would be nice too but i need the stone ones first.:stirthepot:

edit: you dont have to post here. you can send me a link to rstevenson23@gmail.com. thanks again.

[Harry]

When I get it I will make a movie... is this Okay too? Also, thanks for your intrest in solving this annoying random.

-Harry

[XcanadamanX]

should be fine.probably even better:p

just thought of something. the videos have to be really clear or my method may not work.

[Jason2gs]

I guess I'll have to do some autoing tonight. (Sarcastic *sigh*)

Here, I'll make a small script to take screen shots for you ;)


program New;

const
ScreeniePath = 'My Documents\My Pictures\GraveDigger\GraveDigger';
WaitTime = 500;

var
FileNumber: Integer;

procedure TakeScreenie;
begin
repeat
Wait(WaitTime);
SaveScreenShot(ScreeniePath + IntToStr(FileNumber) + '.bmp');
FileNumber := FileNumber + 1;
until(False);
end;

begin
TakeScreenie;
end.


I <3 Scripting :D

Edit: Or, you could use Ron's Screenie Taker (http://www.moparisthebest.com/smf/index.php/topic,100143.0.html), but I just wanted to make my own :D

Things make so much more sense when you make the script yourself. (Especially when you're lookin' at one of Smartzkid's scripts :D)

[Smartzkid]

:p Combine that with a boneburrier, then take ~500 screenies when they get leo

PS: You know your dude got mazed last night? heh it was like 5 mins after you left, too

@Post below me: I didn't know the old man teleported you to the evil twin?

Oh, you really should set up reloadevery on your inbox....

[Jason2gs]

Mazed? No... He got the gay Evil Twin. (:()

Oh, you do have to precreate the folder to save the screen shots in, before you run the script. Lemme see if I can get it to make the folder itself...

Edit: Can't seem to get it to work. Feel free to edit it. (Anybody)

[XcanadamanX]

thanks guys. i cant really do anything more until i get some screenies.

[Jason2gs]

I'll put the goblin sche. on tonight then ;)

[XcanadamanX]

yay!

[Mr.Klean]

I'll put on a bone burier tonight :)

[Jason2gs]

Now that you say it, prayer might be good for my pures...

[XcanadamanX]

u guys got any leos last night?

[Mr.Klean]

Nope, surprisingly. Will try again tonight

[XcanadamanX]

damn...wanted to do some scripting today.

[xxchronic2007xx]

if i get a leo ill take pics of just about everything, im gonna gob sced over night.

[XcanadamanX]

good thanks!

[Ejjman]

I'td be easier if u gave him the account I bet...Lots.

[Secet]

I'm gonna use ChickenKiller with burying, if I get Leo event I'll just give you the password so you can mess around with it. :)

[Jason2gs]

I was just thinking that.

If I get a Leo, I'll probably just let you test whatever you need to with my account.

[XcanadamanX]

thats even better! i hope one of you guys gets one cause i think i got it good so far.

[Harry]

Yeah... hypercam vids SUCK in the quality... so I am gonna take screnies when I get it...

[Harry]

YEAH! Just got it on my main! I took screen shots of whole thing... OMG it was as BMP images using rons screenie taker... it is flipping 650mb... =/ I have dial up... any way to compress em all to png in bulk or to snail mail them to you on a CD?

EDIT: Sorry for double post =(

[Boreas]

You can snail mail to me in CT and I'll upload if you want.

[Smartzkid]

You could make thumbnails of them all, then have canadaman choose which ones he wants

Or you could find some kind of freeware image tool and batch -crop and -pngify them all

[Jason2gs]

If it helps, WinRAR will shrink the size down a good bit.

[XcanadamanX]

i dont care what way you do it. just tell me whatever way you do.

[Harry]

OK Boreas, CT is Connecticut right? OK pm me your address and I will burn the CD today... but the images can not actually be uploaded here because they have my main account's username written in it. :eek: So what should I do?

PS: It has 225 images in it.

-Harry

[Boreas]

The RS applet is in the same place relative to the screen right? If it is, I can write a scar script to go thru and block out the username. I could even block out the whole chatbox and gametab if you want, since only the mainscreen is useful right? Pming address now.

[Harry]

ng the CD now and am gonna ship it to Boreas and he will send the pics to you XcanadamanX and you can have fun =) has pics of the whole random, on the headstones, talking to Leo, in the coffins.

Hope this works for you.

FYI, the pics were off my main so please defuzzle the username...

-Harry

EDIT: what you were saying Boreas, I am F2P but use a neat little program called Ad Muncher that 'eats' the ads =) The whole applet window is co-ordinates Start X 126, Start Y 143, Width 764, Height 504 (got the co-ords using hypercam select-a-window.) So you could cut the game tabs and chat window. But when I was doing this I has Priv Chat ON (idk why) and someone pmed me and chat was on split priv chat (on the game window) It is no prob because it doesn't cover any stones and I don't know that person :p

[Boreas]

I'll put a black box over the username.

Edit: as long as the rs applet is in the same position relative to the screenies I can write a script to cover the chat box and gametab :)

Edit2: please please say they have a numbered naming convention lol, like pic1 pic2? Because I will be using the script below. If the names are random it's no big deal, I will just put the names into an array of string.


program BulkBlanker;
{.include srl/srl.scar}
/////////////////////////////////////////////////
const
thepath = 'c:/documents and settings/me/my documents/my pictures/bulktest';
startnumber= 1;
endnumber =2;

{meaning bulktest1.bmp bulktest2.bmp etc}



////////////////////////////////////////////////////
var i,pic:integer;

begin
for i:=startnumber to endnumber do
begin
pic:= LoadBitmap(thepath+inttostr(i)+'.bmp');
for x:=mcx1 to mcx2 do
begin
for y:=mcy1 to mcy2 do
begin
FastSetPixel(pic,x,y,0);
end;
end;
for x:=mix1 to mix2 do
begin
for y:=miy1 to miy2 do
begin
FastSetPixel(pic,x,y,0);
end;
end;
SaveBitmap(pic,thepath+inttostr(i)+'blanked.bmp');
freebitmap(pic);
end;
end.

Edit3: I finally found Ron's screen taker. This version works will work with it. so it will be easy :D
program BulkBlankerRonVersion;
{.include srl/srl.scar}
/////////////////////////////////////////////////
const
xmod=0;// \
// >- location of top left of rs applet
ymod=0;// /
thepath = 'c:/documents and settings/me/my documents/my pictures/';
theprefix='bulktext'
startnumber= 1;
endnumber =2;
{meaning bulktest1.bmp bulktest2.bmp etc}



////////////////////////////////////////////////////
var i,pic:integer;

begin
for i:=startnumber to endnumber do
begin
pic:= LoadBitmap(thepath+theprefix+Padz(IntToStr(intScre en), 3)+'.bmp');
for x:=mcx1+xmod to mcx2+xmod do
begin
for y:=mcy1+ymod to mcy2+ymod do
begin
FastSetPixel(pic,x,y,0);
end;
end;
for x:=mix1+xmod to mix2+xmod do
begin
for y:=miy1+ymod to miy2+ymod do
begin
FastSetPixel(pic,x,y,0);
end;
end;
SaveBitmap(pic,thepath+theprefix+Padz(IntToStr(int Screen), 3)+'blanked.bmp');
freebitmap(pic);
end;
end.

[XcanadamanX]

tell me when you got it done boreas. thanks to all. may need more. ill post after if i dont.

[Harry]

I am buying the envelope to send it in right now... should get it in 1-3 days depending on how slow your mail carrier is.

Edit: Oh shoot, forgot mail doesn't send on sundays... you should get it on monday or tuesday =/

-Harry

[Boreas]

Okey dokey.

[Zodia]

I'll try to get screenies for your script!

[Harry]

You get it Boreas?

[Smartzkid]

@ Boreas: If the names are all weird, just copy them to your computer (which, I assume, you will already have to do), select them all, and rename them. They'll have names like name(1), name(2), etc

:D You probably already knew this, but just incase...

*still trying to get something, just it ain't coming!*

[Boreas]

Not yet. You mailed it on saturday?

Smartz, I didn't know that, thanks.

[Harry]

No, my aunt said she brought it to the North Syracuse post office on sunday (the central one for new york (the one where everything from NY leaves) and it was going to be sent on Monday... if you don't get it in 3 days i'll have to resend it =/ I didn't put a return address on it :eek:

-Harry

[Boreas]

It came yesterday, but I didn't find out til today. I blocked out the chatbox and gametab, rar'ed it and split it. DL them all and run the exe to combine, then extract.

www.uppit.com/FLKQU
http://rapidshare.com/files/28096183/pics.rar.1
http://rapidshare.com/files/28096182/pics.rar.2
http://rapidshare.com/files/28096181/pics.rar.3
http://rapidshare.com/files/28096180/pics.rar.4
http://rapidshare.com/files/28093644/pics.rar.5

[Jason2gs]

An exe to combine? How does that work?

Grr, wish I was on my laptop... Then I could DL it myself and see :)

Edit: If the internet was working again, that is.

[xxchronic2007xx]

omg..... after like 2 weeks of god sced and all my noobs now lvl 20+ and i put bone burying true and etc. all i could do to get leo but..... nothing :(

[Boreas]

An exe to combine? How does that work?

Grr, wish I was on my laptop... Then I could DL it myself and see :)

Edit: If the internet was working again, that is.

http://www.dekabyte.com/filesplitter/

[XcanadamanX]

thanks guys for all your help!

[Harry]

Welcomes =)

[Mutant Squirrle]

-_- if the stupid website boreas put these on wasnt gay

[XcanadamanX]

i know...everytime after you downlaod one you have to wait 19 mins.

edit:for some reason my winrar didn't extract like 60 of the pics

[Smartzkid]

Here (http://smartzkid.googlepages.com/pics.exe)

OMG! Smartzkid just compressed 700 megs of pix into a >4 meg package!?!

:p If you don't belive me, try it.

http://smartzkid.googlepages.com/untitled.bmp

PS: No lie.

Compression Ratio: 0.5%.

[XcanadamanX]

works perfectly thanks!

[Boreas]

I wanted to upload multiple files at once and leave it :p

Nice find (http://www.softpedia.com/progDownload/WinUHA--RC-Download-5148.html)Smartz

[Jason2gs]

Ah, thanks Boreas ;)

@ Smartz

Oooh, that with WinRAR?

Cool :D

I guess that answers my question about if there's a limit on file zipping :p

Now to condense my HD down to about a gig or two... ((h))

[Smartzkid]

:p Boreas posted a link to it (actually a mirror of it)

It uses compression called UHARC. The program I used is called WinUHA

(PS: It took me ~7 minutes to compress the 700 mb (core 2 duo 6600))

[Jason2gs]

*looks again*

Ah, found it ;)

Thanks

[Harry]

Are you searious? All of those pics into a 4mb package? WOWz

[Rambozin]

Offtopic -> Whats the site for all the virusscanners? :) I have been looking for one.

[Smartzkid]

http://virusscan.jotti.org/

[Harry]

So has XcanadamanX done htis, or did he lose interest?

[bullzeye95]

Well, if you're still interested (http://uppit.com/d/86XR8 )...

[XcanadamanX]

i hit a block so i stopped for awhile but ive been really busy for the past 2 weeks so hopefully ill be back at it once the next week is done

[Harry]

Any updates?

[Lalaji]

yeah hows the solver doing?

[XcanadamanX]

ive been busy working on my smelter. ill probably start working on it again next week

[bullzeye95]

Maybe when piv's plugin comes out it will be easier... I don't know though.

Just to throw this out there, Lorax uses luminance for detecting edges and it works really good.

EDIT: Here's an example of using luminance for it. This'll find the spinning tablet thingy's dimensions. Just fill in line 88 with a path to a clear picture of the tablet. It takes a second or two though. program New;
var
BMP: TBitmap;
B: TBox;

function CompareLum(col1, col2: Integer): Extended;
var
H, S, L: Array [1..2] of Extended;
begin
ColortoHSL(col1, H[1], S[1], L[1]);
ColortoHSL(col2, H[2], S[2], L[2]);
Result:= Abs(L[1] - L[2]);
end;

function GetHighestPoint(P: TPointArray; X: Boolean): Integer;
var
CurHigh, I: Integer;
begin
if(X)then
CurHigh:= P[0].x
else
CurHigh:= P[0].y;
for I:= 0 to Length(P) - 1 do
begin
if(X)then
if(CurHigh < P[I].x)then
CurHigh:= P[I].x;
if(not(X))then
if(CurHigh < P[I].y)then
CurHigh:= P[I].y;
end;
Result:= CurHigh;
end;

function GetLowestPoint(P: TPointArray; X: Boolean): Integer;
var
CurLow, I: Integer;
begin
if(X)then
CurLow:= P[0].x
else
CurLow:= P[0].y;
for I:= 0 to Length(P) - 1 do
begin
if(X)then
if(CurLow > P[I].x)then
CurLow:= P[I].x;
if(not(X))then
if(CurLow > P[I].y)then
CurLow:= P[I].y;
end;
Result:= CurLow;
end;

function GetBox(P: TPointArray): TBox;
begin
Result.x1:= GetLowestPoint(P, True);
Result.x2:= GetHighestPoint(P, True);
Result.y1:= GetLowestPoint(P, False);
Result.y2:= GetHighestPoint(P, False);
end;

function FindBox: TBox;
var
SearchBox: TBox;
x, y: Integer;
P: TPointArray;
begin
SearchBox:= IntToBox(96, 45, 424, 292);
for y:= SearchBox.y1 to SearchBox.y2 do
for x:= SearchBox.x1 to SearchBox.x2 do
begin
if((Y mod 3) = 0)then
if((X mod 2) = 0)then
if(CompareLum(GetDebugCanvas.Pixels[x, y], GetDebugCanvas.Pixels[x + 1, y]) > 4)then
begin
SetLength(P, Length(P) + 1);
P[Length(P) - 1].x:= x;
P[Length(P) - 1].y:= y;
end;
end;
Result:= GetBox(P);
end;

begin
BMP:= TBitmap.Create;
DisplayDebugImgWindow(741, 465);
BMP.LoadFromFile('');
SafeCopyCanvas(BMP.Canvas, GetDebugCanvas, 0, 0, BMP.Width, BMP.Height, 0, 0, BMP.width, BMP.height);
B:= FindBox;
writeln(inttostr(B.x1) + ', ' + inttostr(B.y1) + ', ' + inttostr(B.x2) + ', ' + inttostr(B.y2));
end.
Oh and if you want, I'll do anything to help with making it.

[Harry]

Bumping is fun =]

http://www.srl-forums.com/forum/showthread.php?t=19095

Evil people beating you to it ;)

[XcanadamanX]

^^ and thats why i stopped.

Edit: AND STOP GRAVEDIGGING. lol sorry but seriously...

[busha5a5a5]

never got this random... looks cool :\