SRL Archive - SRL Archives

Something I whiped up about 10 minutes ago, thought I should let you guys have a look at it.

{*******************************************************************************
function openHouseOptions:boolean;
by: Bebemycat2
Description: Opens the "House Option"
             will return true if clicked
*******************************************************************************}
function openHouseOptions:boolean;
var
 Bx,By,BMIX1,BMIY1,BMIX2,BMIY2 :integer;
 SRLConstructionHouseOption :integer;
begin
   SRLConstructionHouseOption := BitmapFromString(42, 27, 'z78DAED97D10DC02' +
       '0084457728726EE3F523B409B1C3D1490BB0F3F1A43F3104F18E3' +
       '5DD7A339F1EF2749EC62EFC9FEB522FBF97CFAFE7DC5B9EFDCB9A' +
       '73E63D9D7D55215763CE649356F658FF5793CF3FFBCCB1AB3C37B' +
       '24495EFD4C376A5FFFCC9F43C43FC59E27722CFBBAF9C2DAC732A' +
       'FBF95DD6B1EE123231198DACBCCCE57690776E4D6F0B9ADC8CEFB' +
       '86B55FDA33B3FBCE389DE723B18BBDBA6E1E604FF4');
   gametab(12);
   BMIX1:= Trunc(MIX1*0.90);
   BMIY1:= MIY1;
   BMIX2:= MIX2;
   BMIY2:= Trunc(MIY2*0.90);
 if(FindBitmapIn(SRLConstructionHouseOption,Bx, By, BMIX1,BMIY1,BMIX2,BMIY2))then
    MMouse(BX,By,12,12);
  case random(2) of
1: wait(70+random(40));
2: wait(70+random(50)+random(40));
 end;
  Mouse(Bx,By,1,1,true);
  result:=true;
  freebitmap(SRLConstructionHouseOption);
end;

FeedBack Please. ;)

Nicely done. Am I like the only person that doesn't buy membership? :p

From: WhiteShadow
Nicely done. Am I like the only person that doesn't buy membership? :p

Yes. Bebe, 'tis sexy ;p

=( Doubt anyone is gona aut construction.
WAYYY too mcuh walking involved.
Nice thoough:rolleyes:

Nope WhiteShadow I dont buy membership anymore. I did up until the mass ban. I was using a SCAR autofletcher that i modded and it messed up just 1nce the week they were monitering stuff really well and i was logged on for an hour doing nothing.

That bitmap is large. You could just use MouseBox for this =\ And if you're going to use a bitmap, I highly suggest it being smaller. Much smaller :p

Basicly I was in the mood for bitmaps :p

I'll use MouseBox, and a few other cool thing but then again, I hate static coords :(