I was bored. This clicks the ring anywhere in your inventory and turns you into an egg. I'm sure what it could be used for yet. Ill add unmorph in a second.PHP Code:procedure turnegg;
{.include srl/srl.scar}
var a, b, i, o, ring : integer;
begin
ring:= BitmapFromString(8, 8, 'z78DA6D90490E44210844AF2420834B' +
'41B8FF91DA1F7B61E7B726B5285E9503F73EC9F9A8F4D5F1ABB77' +
'33397B667C15B77A693BD190E69E5A858E52173C1786CAC3B3542' +
'83EC381696B54159B54F642B078431C69952C3BD476AD2D405DE5' +
'26137A6006C1B12B5E0268F7E9B0B12D0F8494DB4461303A9E5CD' +
'9FB7DFA98889DDA718D35217C0F8E15F7F78A663E1BE9124F0BFF' +
'E0F1A3E50AC');
if findbitmaptolerancein(ring, a, b, 571, 226, 715, 463, 20) then
begin;
MMouse(a, b, 5, 5);
getmousepos(i, o)
wait(300+random(500))
clickmouse(i, o, true);
end else
writeln('Couldnt find ring');
freebitmap(ring)
end.



Reply With Quote














