savage gang

program PlayWorld_Cwars_Nser;
{$i srl-6\srl.simba}
var
x, y: integer;
Count:integer;
EnterWhitePortal:integer;

const

USERNAME = '';//type account username in here
PASSWORD = '';//type account password in here
function IsLoggedIn: boolean;
begin
if findcolortolerance(x, y, 1779499, 722, 127, 762, 164, 10) then
begin
result := true
wait(200)
end
else
begin
result := false
wait(200)
end;
end;

procedure Login;
begin
wait(4000)
  begin
  movemouse(375, 211);
  writeln('entering username');
  Wait(200);
  clickmouse(x, y, mouse_left);
  count := 0;
  repeat
    Inc(count);
    PressKey(VK_Back);
  until count > 25;
  Wait(250);
  sendkeys(USERNAME, 0, 0);
  Wait(1000);
  writeln('entering password');
  movemouse(375, 254);
  Wait(200);
  clickmouse(x, y, Mouse_left);
  Wait(200);
  count := 0;
  repeat
    PressKey(VK_Back);
    Inc(count);
  until count > 25
  sendkeys(PASSWORD, 50, 25);
  writeln('logging in');
  Wait(1000);
  movemouse(379, 297);
  Wait(1000);
  ClickMouse(x, y, mouse_left);
  Wait(6000);
  writeln('logged in! (?)')
end;
end;

procedure setmeup;
begin
writeln('setting up....');
writeln('putting angle up');
sleep(3000)
count := 0
repeat
inc(count);
presskey(38);
until count > 25;
sleep(1000);
movemouse(544, 21);
wait(50)
clickmouse2(mouse_left);
wait(50)
clickmouse2(mouse_left);
end;

procedure CompassReset;
begin
movemouse(543, 23);
wait(50)
clickmouse2(mouse_left);
wait(50)
clickmouse2(mouse_left);
end;

function InPortal: boolean;
begin
if findcolortolerance(x, y, 2070783, 458, 181, 494, 200, 10) then
begin
result := true
wait(20)
end
else
begin
result := false
wait(20)
end;
end;
procedure FindPortal;

begin
repeat
if findcolortolerance(x, y, 11383238, 1, 1, 518, 336, 10) then
begin
WRITELN('FOUND PORT');
  mmouse(x, y,0,0);
  wait(250);
  ClickMouse(X, Y, mouse_Right)
  sleep(100)
mouse(x, y+25, 0, 0, mouse_left)
begin

  wait(4000);
  writeln('entered portal')
  MMouse(627, 69, -15, 15)
  wait(50)
  clickmouse(x, y, mouse_left);
end;
end;
until(inportal)
MMouse(627, 69, -15, 15)
   wait(50)
   clickmouse(x, y, mouse_left);
end;


procedure mainloop;
begin
//CompassReset;
if not inportal then
   begin
   FindPortal;
   end;
end;

procedure loadstuff;
begin
enterwhiteportal :=BitmapFromString(130, 12, 'meJzVmN1u2kAQhREY41RKQ6Sqh' +
        'UoEUgiEqCVw0+fre/SuzwMXtZ0+T8/uWQ/Drm1MoVErHaFd/wzsfP' +
        'Ozy2x0PbNaLYfU19UIn9nPNpXnETVTT/IZSq5vlh//bQ3X1CM1eH4' +
        'crBYfoDyLoM8P76k87UBP03fQfHIr+jS6no5v0rQNYVCiSV9rfn+r' +
        'X6/Sw6TPHzYLWMDtu12r121ryd3/zf9G61oKWGzSi4SCmcadkAIRx' +
        'LFRIwoNQAgF/k7xKkQKSRJ5ntfO/6v+f8m71OvkQhMKWdqpQ+BRGB' +
        'cURMoOVUph82RlcaAW7baGAooP9ZrBT/9fJV14A7owheWeAkH4FDi' +
        'N/aKUWTqVCJqAuHcIenGHSyOFb99/QGEu/MqdBzAQEBCmAERMUBi6' +
        'YfTW3KqhgK8GBYzxyUGpHZk2sD98ySOnLPpDClufAmuUSBCkJnGKm' +
        'D+kYEp9bBIBnxBzgTWfztfeZkWipBwJHTwjLwIHQzeMXolq75Z2ae' +
        'hATeGoHZnybpVlO46uEiO+cj4F3SasOpAgiGMV82UUxCzdqKOdxUe' +
        '6s04Quf4m6ULyPMuXRKx2oJ56t+g0Le3wkGapHRlrZFWWaZO5YN7q' +
        'RefnAm2qjZPLheJ6Z+/2ohxJLRKzHgKJeToWFGRpBGGuF137IHG2X' +
        'GC3lELprRrxFQ9NPYUGVS5yudBzuYDBan5adw4pQEwE2mRrkFyIi1' +
        'wgBUimkg6agrcForfD1Qkdfb4wCbJtVQW2+NO71bAvXITC2jYFeh6' +
        'tWXLhJAqpXXtVd0Yu2N7tKpIbj/s6F8oqUp8U5Jigt0BVq+N1qVTy' +
        'os4Fr8jrXGjYoEu/XdvRLbshBchZyPYV6bTzwt1bs8xtq6o1szWwK' +
        'JVUJLXR0hQgFEZd+fe7VrU58STXvYNDTcCfnwuhnaO/00PADSo8L0' +
        'oKCvB8YqcYsBcAQaIaqFBwIHYtrxyJDIKiNbAisUdXUzB6Xph9wtp' +
        'pv6PeHOh49F5Wzat9E4WHNaPF4IstR6QgIoWSvy8sAmh6d1N3cFMU' +
        'eGRwp4bDQ4dH4TfEJthG');
end;




begin
repeat
  SetUpSRL;
  LoadStuff;
    If (Not LoggedIn) Then
  Begin
    Login;
    CompassReset;
  end;
if (isloggedin) then
      mainloop;
  Until(false);
end.program new;
begin
end.