Try this 
SCAR Code:
program Cosmicbuyer;
{.include Srl/srl.scar}
//Credit to noidea for helping :D
var
cosmicrune, x, y, a: integer;
Procedure BuyTehCosmics;
begin
cosmicrune := BitmapFromString(29, 27, 'beNq1lltPU0EURuvvI' +
'NEH34wX1KAmQoFKJWkk8cIDYghBFEVEFEQEEZuKIIiIICCCCF bkIh' +
'cpVkAhaqI/w/hT6kq+ZGc8pxJfJF9OptPO6j5rz5ySSqVSARIIbMv' +
'cF2TAlbEmGaed3Lsn282hg4X+aKFhbeCZNKzGyhbY/Zm5HoJKcmm6' +
'fpx/p/FGIvElmfy2vqYP/DvWrvMTr/yT60uLRv6+8Tkt3C/Bvc6Nj' +
'/snKdtD/rG56SH7lY709hph9uWYJhcnJ21yZWbGTxY260BY0Sp9vr' +
'f9vr18PTTEzPToKLFJnDDJVySm36YlG1abRwE70NVlLyGT+PP hqRc' +
'jNkn9mCHLU2+Sc7Mu2Y9tbWjouNsqLBJG+56M9T8l4wMDE4PP CPxf' +
'PzPcwKdshKwtLPjJhm2/09ITiw0+6ibDj3uI+PoK+MTFcgsELZSNk' +
'M0PK5ANy6Du8qWW+hvC9nU86O/sJJQNn+Xi2y24ZCmi7KV4HCGflt' +
'8bmWtt1cXb1+tizc3d0Shkgg34WgtfX2G3YFjdAopoq4Sg+uv qqrp' +
'QU1l561pttKkJveThvTb4xJb7b8FiXYBMzbIhbHVFxc2rNW2N jZCp' +
'GRvEXWv1iw/c3jI52MAzBaNC2AtlZfVXqumayIJ7+u7KMT9GBotnJ' +
'NM+Noaw5WdL1DXIHpo/kF3ziqplY2CY3glbcvqU9NK4LeDmnLLdeW' +
'wLi16OCQdQ2DNFJ6rKy9Erclo4ttVNwd23UI1eShWWxgkbCYf Pnyt' +
'FL2SDQ7aFbiuBe+5CWJg613oo8XjnWlpcjF4iuMi20DaJ4B7V 7A2w' +
'tEwFQ9uRsUtYFcy5cMmEhRICWXB/B2kfWJ0LDBtWZAyzgY0sOAtNd' +
'dpW6rxz+rR7xdy5fbdhC0MhVLAlRPYI8diWDbVPzz32g57/4exgUU' +
'HIfpeZORmJoAKywT1CiJ0ayLRPWJ0+MRUXW5CXyx5ms2HDQ3Z 3iMg' +
'q2J4hwCGEjuTDPJ7zx/8SIlMzNjjRfxMC2eAqWxuV52EwK5h/OO/Y' +
'0ZzU//j7DenJQJ8=');
If (FindbitMapIn(CosmicRune, x, y, MSx1, MSy1, MSx2, MSy2)) Then
Begin
Repeat
Mouse(x, y, 10, 10, False);
Wait(250+random(250));
ChooseOption('uy');
a := a + 1;
Until(a >= 100)
End;
end;
begin
BuyTehCosmics;
End.