SRL Archive - Research & Development Lounge

Lamp interface changed, This thread for pictures.

{*******************************************************************************
function FindLamp(skill: String): Boolean;
by: Pups, Starblaster100 and PriSoner. Updated by Lee Lok Hin
Description: handles Genie. Results True if lamp found and handled.
skill: Skill to use with lamp eg. 'strength', 'attack', etc.
*******************************************************************************}

function FindLamp(skill: string): Boolean;
var
  LampTime, x, y, i: Integer;
begin
  GameTab(4);
  if FindColorTolerance(x, y, 1084300, MIX1, MIY1, MIX2, MIY2, 40) then
    if (FindBitmapToleranceIn(Lamp, x, y, MIX1, MIY1, MIX2, MIY2, 40)) then
    begin
      Result := True;
      Inc(Lamps);
      TakeScreen('Lamp Random Solved');
      AddToSRLLog('******** SOLVED LAMP RANDOM ********');
      //WriteFileString(TheFile, '******** SOLVED LAMP RANDOM ********' + Chr(13));
      Mouse(x, y, 1, 1, True);
      Wait(1500 + Random(500));
      MarkTime(LampTime);
      for i:= 1 to 4 do
      begin
        case (LowerCase(Skill)) of
          'attack': Mouse(81, 109, 12, 12, True);
          'strength': Mouse(139, 110, 12, 12, True);
          'ranged': Mouse(196, 113, 12, 12, True);
          'magic': Mouse(257, 117, 12, 12, True);
          'defence': Mouse(319, 109, 12, 12, True);
          'crafting', 'craft': Mouse(376, 111, 12, 12, True);
          'hitpoints', 'hp': Mouse(436, 112, 12, 12, True);
          'prayer', 'pray': Mouse(79, 166, 12, 12, True);
          'agility': Mouse(141, 166, 12, 12, True);
          'herblore': Mouse(199, 171, 12, 12, True);
          'thieving', 'thief': Mouse(258, 167, 12, 12, True);
          'fishing', 'fish': Mouse(325, 164, 12, 12, True);
          'runecraft', 'runecrafting': Mouse(375, 167, 12, 12, True);
          'slayer', 'slay': Mouse(436, 173, 12, 12, True);
          'farming', 'farm': Mouse(83, 224, 12, 12, True);
          'mining', 'mine': Mouse(137, 222, 12, 12, True);
          'smithing', 'smith': Mouse(197, 220, 12, 12, True);
          'hunting', 'hunt', 'hunter': Mouse(257, 222, 12, 12, True);
          'cooking', 'cook': Mouse(318, 227, 12, 12, True);
          'firemaking', 'fire': Mouse(378, 226, 12, 12, True);
          'woodcutting', 'wc': Mouse(439, 222, 12, 12, True);
          'fletching', 'fletch': Mouse(199, 275, 12, 12, True);
          'construction': Mouse(255, 277, 12, 12, True);
          'summoning': Mouse(323, 276, 12, 12, True);
          else Mouse(438, 113, 12, 12, True);
        end;
        Wait(500 + Random(200) + Random(100));
        if FindColorTolerance(x, y, 5602449, 41, 75, 470, 302, 30) then Break;
        if (TimeFromMark(LampTime) > 10000) then
        begin
          Result := False;
          Logout;
          Players[CurrentPlayer].Rand := 'Lamp';
          Exit;
        end;
      end;
      Mouse(416, 281, 7, 1, True);
      Wait(500 + Random(150) + Random(150));
    end;
end;

Use this to replace the old FindLamp in Include> Srl> Srl> Core> Antirandom> Antirandoms.scar

I added this to the dev svn.

Woah , thanks a ton .
~Eerik~

Thanks for the fix :).

Thanks i guess i knew somethin was wrong when it said i had solved 30 lamps….

Thanks dude, just saw it solve one a few minutes ago, works fine. Thanks.

im surprised im not banned yet… i was autoing and got a lamp random now it says ive had like 800 lamps :(