SRL Archive - SRL Archives

Another Construction function by me.
(Uses my other function http://82.92.130.193/forums/showthread.php?t=1783)

{*******************************************************************************
function BuildingMode(TurnedOn:string):boolean;
by: Bebemycat2
Description: Will turn on or off Building Mode in "House Options"
*******************************************************************************}
function BuildingMode(TurnedOn:string):boolean;
var
 SRLConstructionBuildingModeOff,SRLConstructionBuildingModeOn: integer;
 Bx,By,BMIX1,BMIY1,BMIX2,BMIY2 :integer;
 begin
  SRLConstructionBuildingModeOn := BitmapFromString(14, 10, 'z78DA3330400067' +
       '2070738390063800F1B2982A71E9C56F2F79AE22C62583CD4C5CB' +
       '68C1C33719946AA5EE25311B5D23C005CB1B401');
  SRLConstructionBuildingModeOff := BitmapFromString(19, 10, 'z78DA333040006' +
       '72070738390063800B21A4C9254359826E3B2D1002F20C6CDC4CB' +
       '8E1C1BF1C7387E35A3A14A0B1BE99F3B0CC82A0128B111002B09E' +
       'E21');
  gametab(12);
 if(openHouseOptions)then
  begin
   BMIX1:= Trunc(MIX1*0.90);
   BMIY1:= MIY1;
   BMIX2:= MIX2;
   BMIY2:= Trunc(MIY2*0.70);
  case Lowercase(TurnedOn) of
'on':
  begin
   if(FindBitmapIn(SRLConstructionBuildingModeOn,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;
 end;
'off':
   begin
    if(FindBitmapIn(SRLConstructionBuildingModeOff,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;
  end;
 end;
 freebitmap(SRLConstructionBuildingModeOn);
 freebitmap(SRLConstructionBuildingModeOff);
end;

On fire. Great work, looks like it'll work well. I like how you have very random wait times.

[jk]You know, the 16 year old girls I know usually spend their time in a different way.[/jk]

<3 Bebe. :)

Actuly I'm really bored and I'm waiting for a friend to call me back :p plus I'm hyper, like really hyper :p

I'm talking in a CHATRoom for AIM. We're talking about Top 3. Hot guys/girls at our school. I'm very entertained. :p

*Listening to some Azn Music too. If you have limewire or whatever. [Download]Jay Chow - Ye Qu
I'm not really understanding it, so it's fun to listen to.

Wow…. sounds amazingly fun :p