Simba Code:
program bot;
var
x,y, e:Integer;
Const
SPOT=12356924; //button color
Energy := BitmapFromString(122, 16, 'meJztWKG2qzoQ/ahRUSgUChUVV' +
'YVCoVBRqP4ACoXiGRQKhUKhUChUVNz4uyEtj0vbc8897ep5a70zis' +
'Kws2dnZjKU+cd+7P9uUTXTziIinqvvIuALqrRiO758lW6YeR4+cFi' +
'fd88vZBFRMZDwEctQROuNfw3BZlCY++cX+prtCXSGKcw6LQ4kn7QW' +
'sF7aph6zueuAu+tzYtM+uZbubCQET1U1sRCR7fT+6X9Kbdipmr6Xz' +
'zOGXaOk6TJyPynrmoT2W3xX7aznlEhXBXlKEDWpZJ5wf7SsdEXkhR' +
'7KJEYGzsCMqvJ88lTmulA1Wl9p3/eJ8CoBPMj/KRU5BBQzfs9V9Ii' +
'ALMc8oNWR824WfgQUrXyeGud8PlGUVyhViVJt0rRC2UpcT03qEOrB' +
'hDEgva2WHcl+FeFRaBsN8ADrqkg9pcE/lcIt7WJf4hK+63vcZwe1D' +
'9EBc4vlY7WB1uqQeS4GFiSBjB0SSVNFKPOpnjkQCQ+5CyQkMl22LT' +
'eWCte6NXkA56EcWQFhKhcBB44o2B8NewLNZCnQQx44z5BCwKKnqHy' +
'o4yVJ4AyJhhLhGIn2SNRlIGlUMWbiAlK289QD32adDbDWleSm9m1o' +
't2rrEJnTLuHIos8QBQf5sObMiL4UCA3Y29x27+7VPmh7OCWdJyhtx' +
'+WGUM0sKeKx3MoEsrhAWk2u02IXcNI6/vCPcD2jgTGpciylS90qgv' +
'N8l4AHHbKTSzaR9RssIBI6sWn2/Pck99fOjOV6MkQxmB/Uvg3tVu1' +
'NMcp6EMYRSlHtEBzavjyfz+1bSriJvJLSl1frC7kPZGPSZYFFHhbj' +
'1kDiGnlOEw+Q/cBzI5D1NlxTccNBv9rWSqXk+VNqlwNaWZIlsqjLV' +
'6kNRosDpDNdMVqFLJrKW7WRGaTbfd/eEuZv1UauBljl9wo6qL0CTk' +
'qik55KHfN8makaVB8lVZO7bL+r9rVT0ZbbrnvcdX6kdmeZhJ7reM/' +
'8JWqjvqSI5EnpWM7dHamdfWEmuUvJqVGib5ulNHpMqHY6qL04i7Nt' +
'0wMH7K7QXRAEhzZyIIAOL0iZJuFr357bhe1o2Iz9Z9TGthIlUNsuB' +
'8dEQHiR2uLctyn9cTT947x9+3XziNJlJhE+Gmweh2z629wO18PLmf' +
'SFG12cehhPzJp1j9SGX5D1S8HapSgwk3hhDBzli7GG7PYznSSpJxd' +
'shUo6nV+ldrHwD7evsCKWbD/6XHqDIbUizCrTpVekjVlDq3lVO0Zb' +
'NvW3EvyiubqerluwVlA613cOynfaRdJVXrNMbn0eLocyGrHA6fnqj' +
'8S32WXYuBZm3puQ1N0h8J0GKZNy8H0lZYhBotIY2wZkOIaZIvK/vf' +
'SeMTfqyHAZyfRJmuGt/yb92Ga/AMCk0F8=');
procedure clickbutton();
begin
if FindColorSpiral(x,y,SPOT,260,350,911,740) then
begin
wait(RandomRange(500,1000));
MoveMouse(x,y);
wait(RandomRange(300,700));
ClickMouse(x,y,1);
wait(RandomRange(3000,3500));
end;
end;
procedure check();
begin
if FindBitmapIn(Energy,x,y,268,192,895,292) then
begin
FreeBitmap(Energy);
e:=1;
end;
end;
begin
while e = 0 do
begin
clickbutton();
check();
end;
end;
things changed to make it compile:
1. e changed from constant to variable, constants are not supposed to be modified
2. moved if statements between begin/end of their procedures
3. added begin/ends for if statements. without begin/end for if statements, it would simply tie the if to the first line of code after it.
Simba Code:
procedure clickbutton();
begin
if FindColorSpiral(x,y,SPOT,260,350,911,740)then
wait(RandomRange(500,1000));
MoveMouse(x,y);
wait(RandomRange(300,700));
ClickMouse(x,y,1);
wait(RandomRange(3000,3500));
end;
this would only do a wait for 500-1000 ms if the specified color is found and then do the next 3 lines of code regardless of whether or not the color is present.
Simba Code:
procedure clickbutton();
begin
if FindColorSpiral(x,y,SPOT,260,350,911,740) then
begin
wait(RandomRange(500,1000));
MoveMouse(x,y);
wait(RandomRange(300,700));
ClickMouse(x,y,1);
wait(RandomRange(3000,3500));
end;
end;
this would do the 4 lines only if the color specified is present.