YoHoJo
2006-06-06 18:28:49
Ok i also took a try to make a lampsolver.
Fawki said they have all been lagging.
Unfortunately i do not have an acc with a lamp on it.
So here it is for you guys to test.
Just replace 'attack' at the bottom with the skill of your choice.
Fawki said they have all been lagging.
Unfortunately i do not have an acc with a lamp on it.
So here it is for you guys to test.
Just replace 'attack' at the bottom with the skill of your choice.
{.include SRL\SRL.scar}
var attack,strength,range,magic,defence,hitpoints,prayer,agility:integer;
herblore,thieving,crafting,runecrafting,slayer,farming,mining,smithing:integer;
fishing,cooking,firemaking,woodcut,fletching,carpentry:integer;
ok,lawmp:integer;
Procedure Load;
begin
attack := DTMFromString('78DA63BCC6C8C0E003C448A0B4BA86E13F900' +
'689FE0702C62B409637AA1A882C8C04D2D7812C3F026A1E00594E' +
'04D49C00B2A2F0AB0100269F0C2A');
strength := DTMFromString('78DA63FCC2C8C0E007C448C0CD469FE13F900' +
'689FE0702C64F40960BAA1A882C8C04D21F80AC30026A7E0059C1' +
'F8D5000043910AC9');
range := DTMFromString('78DA6314616260F0676440058C4824901604A' +
'A7121A04602A8268C801A1E22D4C800D5B8E2570300D13F0208');
magic := DTMFromString('78DA6334616260F066644006D26C9318FE036' +
'990E87F2060D404AA8940550391859140DA02A8C687801A7DA01A' +
'57026AAC09DB050063BB0857');
defence := DTMFromString('78DA630C616260F0636440058C482490F601A' +
'A7123A02606A82688809A60A09A0822CC216017005750034E');
hitpoints := DTMFromString('78DA633CCEC8C09003C448E0AE3F23C37F200' +
'D12FD0F048C4781AC54543510591809A48F01596504D4EC05B20A' +
'08A8390D6425E35703001E530C35');
prayer := DTMFromString('78DA637CCAC8C0900BC44860DD0A5686FF401' +
'A24FA1F08181F005999A86A20B2301248BF00B20A08A879046415' +
'1250F392B05D007CC20D07');
agility := DTMFromString('78DA6364666260C8626440058C48248826420' +
'D0F504D3A0135FF81AC12026A389808AA010032C40357');
herblore := DTMFromString('78DA6354616260C8656440069C394C0CFF813' +
'448F43F1030AA02D5A4A0AA81C8C248200D525342408D0C504D01' +
'0135BA403585F8D500005E8B086D');
thieving := DTMFromString('78DA6374636260C8666440058C48249006A94' +
'927424D310135964035B904D404125603007580039A');
crafting := DTMFromString('78DA634C666260C86164400611563C0CFF813' +
'448F43F10306601D5A4A0AA81C8C248201D09545342849A54026A' +
'72816A8AF1AB0100F5B609BF');
runecrafting := DTMFromString('78DA63BCCCC8C0D009C42880118904D25780A' +
'C5A22D44C25A0E6041176DD01B29A09A8B905644DC0AF0600FAD1' +
'084F');
slayer := DTMFromString('78DA63FCC4C8C0D00BC448E0FFFFFF0CFF813' +
'42384FD9FF10F905587AA06220B2381F41B206B32116ADA09A8F9' +
'07644DC0AF0600D9A90F8A');
farming := DTMFromString('78DA6314656260E867644006133A1A19FE036' +
'990E87F20601403AAA9475503918591401A64CE54026A38816A5A' +
'09A85100AAE9C6AF06002DF909CE');
mining := DTMFromString('78DA6334666260E8646440066E36FA0CFF813' +
'448F43F1030DA02D534A0AA81C8C24820AD0954339908354D04D4' +
'5812360700D9160976');
smithing := DTMFromString('78DA630C6362606863644006A1D1510CFF813' +
'448F43F10307A03D534A0AA81C8C248201D0D543389801A3FA09A' +
'8904D4C462BA075D0D0054960A79');
fishing := DTMFromString('78DA633CC6C8C0B00288914069750DC37F200' +
'D12FD0F048C3B81AC95A86A20B23012489F01B21612500332670E' +
'01354780ACD5F8D50000B1140D81');
cooking := DTMFromString('78DA637CC9C8C0B0028891C0BA15AC0CFF813' +
'448F43F10303E02B2E6A3AA81C8C248200D52B390809A5740D65C' +
'22CC594F40CD1D206B1101354F80AC39F8D5000080161124');
firemaking := DTMFromString('78DA636461626058CAC8800C365B3233FC07D' +
'220D1FF40C0C80C54330B550D44164602E9BF40D61C026A9880E6' +
'AC23A0E60F90B592809A9F8C84CDE101DAB50ABF1A000D1D0DA2');
woodcut := DTMFromString('78DA635465626058CCC8800C22AC7818FE036' +
'990E87F20605406AA998DAA06220B2381B40250CD3A026A348850' +
'A30954338F801A19A09A45F8D500005AE50A6C');
fletching := DTMFromString('78DA637465626058CAC8800C5C5C1C19FE036' +
'990E87F2060F404AA998DAA06220B2381B40550CD2A026A5C806A' +
'561250130054330FBF1A0042C20A6D');
carpentry := DTMFromString('78DA634C62626058C9C8800C8A23CC19FE036' +
'990E87F2060CC06AA9989AA06220B2381742C50CD3A026AA2816A' +
'161350130954B38A809A74A09A15F8D500005E9D0C4B');
ok := DTMFromString('78DA63AC6764600805626450CBC0F01F48814' +
'4FF0301630E901589A6060A60A28C5940563001359381AC70026A' +
'40EE8921A0A611C80AC2AF06005A710A7F');
lawmp := DTMFromString('78DA63BCCFC8C0E004C440C0CC00038C70F23' +
'F10303EC7AF064CDF06B2CC08A879026419E05703004E28088C');
end;
Procedure SolveLamp(skill:string);
begin
if FindDTM(x,y,lawmp,546, 195, 748, 467) then
begin
Mouse(x,y,2,2,true)
Wait(7000+Random(2957))
Case skill of
'attack':begin If FindDTM(x,y,attack,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'strength':begin If FindDTM(x,y,strength,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'range':begin If FindDTM(x,y,range,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'magic':begin If FindDTM(x,y,magic,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'defence':begin If FindDTM(x,y,defence,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'hitpoints':begin If FindDTM(x,y,hitpoints,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'prayer':begin If FindDTM(x,y,prayer,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'agility':begin If FindDTM(x,y,agility,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'herblore':begin If FindDTM(x,y,herblore,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'thieving':begin If FindDTM(x,y,thieving,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'crafting':begin If FindDTM(x,y,crafting,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'runecrafting':begin If FindDTM(x,y,runecrafting,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'slayer':begin If FindDTM(x,y,slayer,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'farming':begin If FindDTM(x,y,farming,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'mining':begin If FindDTM(x,y,mining,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'smithing':begin If FindDTM(x,y,smithing,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'fishing':begin If FindDTM(x,y,fishing,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'cooking':begin If FindDTM(x,y,cooking,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'firemaking':begin If FindDTM(x,y,firemaking,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'woodcut':begin If FindDTM(x,y,woodcut,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'fletching':begin If FindDTM(x,y,fletching,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
'carpentry':begin If FindDTM(x,y,carpentry,1, 1, 740, 460)then
Mouse(x,y,2,2,true)
end;
end;
Wait(5000+Random(1483))
If FindDTM(x,y,ok,1, 1, 740, 460) then
Mouse(x,y,2,2,true)
end;
end;
begin
SetupSRL;
Load;
Wait(5000)
SolveLamp('attack')
end.