Bolt enchanting isn't new, look at this masterpiece I've used to enchant tens of thousands of emerald bolts -
SCAR Code:
program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
Var I :Integer;
begin
SmartSetup('world2', true, false, false);
SetTargetDC(SmartGetDC);
SetupSRL;
For I := 0 To 9399 Do
If GetColor(637, 242) = 1523812 Then
Begin
If Not TabExists(7) Then TerminateScript;
Repeat
Mouse(643, 239, 3, 3, True);
If GetColor(190, 34) = 0 Then Break;
Wait(750 + Random(500));
Until(GetColor(190, 34) = 0);
Repeat
If GetColor(484, 172) = 192 Then
TerminateScript;
If GetColor(190, 34) = 0 Then
Mouse(440, 115, 10, 10, True);
Wait(200 + Random(50));
If GetColor(190, 34) <> 0 Then Break;
Wait(1000 + Random(250));
Until(GetColor(190, 34) <> 0);
End Else
Begin
Logout;
TerminateScript;
End;
end.