Simba Code:
program ogyCitadel;
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
var
x, y, CitadelTab: Integer;
aFound:extended ;
procedure MSI_RandomFKey;
var
i, randInt, randKey, currTab: Integer;
keys: array[0..4] of Word;
begin
currTab := GetCurrentTab();
keys[0] := VK_F1;
keys[1] := VK_F2;
keys[2] := VK_F3;
keys[3] := VK_F4;
keys[4] := VK_F5;
randInt := Random(6);
case randInt of
0..4:
begin
KeyDown(keys[randInt]);
wait(35+random(85));
KeyUp(keys[randInt]);
end;
else
for i := 1 to 3 do
begin
randKey := Random(5);
KeyDown(keys[randKey]);
wait(35+random(85));
KeyUp(keys[randKey]);
end;
end;
wait(75+random(100));
GameTab(currTab);
end;
procedure AntiBan;
begin
writeln('Pick random');
case random(4) of
0 : begin
writeln('Random movement selected');
RandomMovement;
end;
1 : begin
writeln('Hover skill Woodcut');
HoverSkill(skill_Woodcutting,false);
end;
2 : begin
writeln('Game Tab stats selected');
GameTab(23);
end;
3 : begin
writeln('Random wait selected');
Wait(randomrange(1000,2000));
end;
4 : begin
writeln('Citadel Tab Selected');
CitadelTab := DTMFromString('m6wAAAHic42ZgYJBgYmBQAGJhIBYAYkUoXxDKB7GlgVgMiJ8xMjDcg+InUPwCit+i4X3rehlqZUXB+MaRRQxOTlYM3h6ODE8ub2V49+oMw4pF04G2M4KxEZDkJxIzkoCRAACRZhoW');
if FindDTMRotated(CitadelTab, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, True);
end;
FreeDTM(CitadelTab);
end;
end;
wait(randomrange(500,1000));
end;
procedure ChopRoots;
var
x, y, root1,root2,root3,root4,root5: Integer;
aFound:extended ;
begin
root1 := DTMFromString('mVAEAAHicpcxLCoJgFIbh0wpsN6G2D0HKQZO8kWiJIQgNRChQiqJoq458f/kb2NQDD+fywVmKyAUVajS44oYWd3R44ImX9sEbX5xRosAJOTIcdU9wQKp7hBi+tnNWsnfNUbCxJPLWE79MzSpX1B5u7fHW88OYYTHTfw1GEyHO');
if FindDTMRotated(root1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 4, 4, False);
ChooseOption('hop');
wait(5000+random(250));
end;
FreeDTM(root1);
begin
root2:= DTMFromString('mpAIAAHicxc7dikFRFMDxPU/gFTzGEGMeY5JEkiRNkztNIUoupCgXSo2iMMYcJl/jGPNcrvzXbp0bNy7PqV/ra++1T9AYs8AX5hql/tT4jSVWcPCDNTaaS9xr3OKAHX617+KIP5y0/4+zzmZ696C1q3NH3xdTNcEYI3xgiAH6qocuOmijhSYaqKOCGqp4V2UUkhGTi4dszCfCNi+morYWr+kn23vLxEz25dHWMpdaSC1K2Wd77jbKGdkru7xc7ns7LvxDwEcPPrv3XQG4c03K');
if FindDTMRotated(root2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 4, 4, False);
ChooseOption('hop');
wait(5000+random(200));
end;
FreeDTM(root2);
end;
begin
root3 := DTMFromString('m4wIAAHiczc49agJhEMbx9QQewkuI+HENC5GIpBAJYmUTJGiRJqUoQkBRiYKiCIIeQCTgVxIlrCAohOAdrPzPMq9saenCj5l595l312dZ1hY7tVcHHPGHf5zwjQ2+tJe6Ugv8wMavK2sr+cZSz+eYYa17n5iqBpr4QAdd9DDAECNM0ELblem73o9RwzsqqKKMEup4U68o4AVF5PGscnh6CFnpePBK5kwi7FTTp2KB61k2GXF6qe6MzCZn7jK9ZB6jfmcW0ptdIXuSO/M/3jvhuSM3PBcXNVm9');
if FindDTMRotated(root3, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 4, 4, False);
ChooseOption('hop');
wait(5000+random(235));
end;
FreeDTM(root3);
end;
begin
root4 := DTMFromString('mOwIAAHicvc29CsIwFIbhVBBExQ6OXoWDi/h3A04uDlJaaq21VCkKTl6uDg4OgoOi6JtylHRxbODhIx8nJy2lVMlSqowKqqjDRtPoa2hI9+LNG0/ccRNXccHZcBJHxEiwRood9jhghSUCg56NRCy5wByhQd89uPCl23iDTOL2s0z9odoGo1ynU4tm3VyadBc7vZ9vPx23lTPpZHsf/GcXxCrQn/MBusY4Og==');
if FindDTMRotated(root4, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 4, 4, False);
ChooseOption('hop');
wait(5000+random(150));
end;
FreeDTM(root4);
end;
begin
root5 := DTMFromString('mJgIAAHicvc1fC8FQGAbwd27Iv+XWZ6AQaZptyZpIo+XC0iJJkiRfWpHccGE3nnfeuXO7U7/OeZ7znk6ZiNIKURZyUBSq5AzkoSAdKwk+K5CCkL5e8IQH3OEGV7iACTpo0IYm1KXvQR8cGMIYJuDBHAyZiWdtsCTzu4FkvjutTdoHeuSw7NJu0aGtr0X5vLGinWe453vOx5Xx62M8yz3vgdci323Q1KnSbFQj167QG3+pCVAS8n99AN9oLL8=');
if FindDTMRotated(root5, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 4, 4, False);
ChooseOption('hop');
wait(5000+random(250));
end;
FreeDTM(root5);
end;
end;
Procedure BackToStart;
var
x, y, Map: Integer;
aFound:extended ;
begin
Map := DTMFromString('mPwEAAHicpcuxDsFgAMTx4wXqFSRK4gGEiKbS9lM+BtJELG0i0pGhhjKZzAajJzX5pxKDkUt+ueXOkbSvSxdsUWCNK1a44YAcJ2xwR4AHEv4pMhwxxQx99NDAECOUOCPHDmO/q9i0ZUJXdt6Rjd+SpfexsIOqg6glM3Hl+c1q++Tv/Kj2h6+8ABBqGMc=');
if FindDTMRotated(Map, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, True);
FFlag(6);
Wait(1500 + Random(250));
end;
FreeDTM(Map);
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
repeat
ChopRoots;
BackToStart;
if FindBlackChatMessage('ressource cap') then
begin
Logout;
end;
until FindBlackChatMessage('ressource cap')
end.