procedure TellyHome;
var
x, y, LunarHome: integer;
begin
LunarHome := DTMFromString('mbQAAAHicY2VgYOBggABeIBYAYmYgZgdibi DmA2IWqPy+I58Y2ubcQMFuDJiAEQsGAwBv+wr5');
begin
repeat
if GameTab(tab_Magic) then
if FindDTM(LunarHome, X, Y, MIX1, MIY1, MIX2, MIY2) then
MMouse(x, y, 2, 2);
Wait( randomrange (100, 300));
until IsUpText('Cast');
if IsUpText('Cast') then
begin
ClickMouse2(true);
Wait( randomrange (10000, 14000));
end;
if FindObjCustom(X, Y, ['Altar'], [8354429], 5) then
begin
TellyHome;
end;
end;
end;