Thanks to Warrior it works!
But for some reason after it uses the lamp it stops the script!
Heres the code that follows!
Simba Code:
Procedure FindLantern;
Var
X, Y, LanternDTM:Integer;
SlotBox:Tbox;
Begin
FindNormalRandoms;
LanternDTM := DTMFromString('mrAAAAHic42BgYHBmYmBwAmIvIPYGYg8gtgJiCyj9HKjmBhDfA+JXQPwRil8C8UMgdopZAiSZ4FhaSoqBmUsKzv/FgB8wEsAwAACuKwwe');
If FindDTM(LanternDtm, X, Y, MIX1, MIY1, MIX2, MIY2) Then
Begin
writeln('found DTM');
Mouse(x,y,3,3,mouse_right);
wait(200+random(200));
ChooseOption('Use');
End else
writeln('did not find DTM');
freeDTM(LanternDTM);
End;
Procedure UseonLight;
Var
gX, gY: Integer;
Begin
Wait(1000);
if FindColorSpiralTolerance(gX, gY, 8871996, 113, 3, 340, 89, 25)Then
Begin
WriteLn('Found Light');
Wait(500);
MMouse(gX,gY,5,5);
wait(RandomRange(1000,2000));
ClickMouse2(False);
Wait(RandomRange(1000,1500));
WaitOption('se Sap', 500);
end;
end;