SRL Archive - Other Scripts

Hey, my Dad (of all people) got me started on Evony. If any of you guys have played it, you might have that about how easy it would be to make a script for it to do something. I was thinking of making something that makes a certain # of cottages and then upgrades them to a certain level. Any ideas?

I play it too :)

Server 3; Smartzkid, Lower Lorainne, shadow alliance.

I actually do have a couple small scar scripts I whipped up for upgrading my buildings, but they're fairly basic and low-tech. If there's enough interest, I'd love to help build larger scale scripts alongside an include. It would be very helpful if someone made a way to extract the game images. Any takers?

EDIT: Wow, s3 prices are -SKYROCKETING-! .8 food, 2.0 lumber, 2.0 iron!

haha i just started :] we could start something, smartzkid, u got MSN? if so PM me

I'm away for a little while; check this out in the meantime:

http://www.villavu.com/forum/showthread.php?t=45534

Specifically, this post:
http://www.villavu.com/forum/showpost.php?p=571348&postcount=25


Yeah I have msn. [email]Smartzkid-@hotmail.com[/email]

Will return and add more thoughts asap, maybe a script or two..

i can help.

pming smarter child and Smartzkid right now

i made a map scanner for this a few months back to scan for enemy alliance members. but i havent played in quite a while so it probably needs some updating. yours to tinker with. and i just remember that the procedure to calculate the scan progress had something wrong with it.

program CivonyMapScan;
Const
  mapx1 = 600;
  mapy1 = 0;
  mapx2 = 799;
  mapy2 = 199;
  RedFlag = 160;
  GrnFlag = 110082;
Var
  FilePath: String;
  a,b,x,y,cx,cy: Integer;
  
procedure CreateFilePath;
var
  i: Integer;
  zeros: String;
begin
  i:= 0;
  repeat
    Inc(i);
    if(Length(IntToStr(i)) = 1)then
    zeros:=  '00';
    if(Length(IntToStr(i)) = 2)then
    zeros:=  '0';
    if(Length(IntToStr(i)) = 3)then
    zeros:=  '';
  until(FileExists(AppPath + 'Scripts\mapscan'+zeros+IntToStr(i)+'.ini') = False);
  FilePath:= (AppPath + 'Scripts\mapscan'+zeros+IntToStr(i)+'.ini');
  writeln('file saved as: '+AppPath+'Scripts\mapscan'+zeros+IntToStr(i)+'.ini');
end;

procedure EraseBoxCoords(coordsbox: Integer);
begin
  if(coordsbox = 1) then  ClickMouse(795,57,True);
  if(coordsbox = 2) then  ClickMouse(848,57,True);
  wait(200);
  SendKeysSilent(chr(8));
  wait(50);
  SendKeysSilent(chr(8));
  wait(50);
  SendKeysSilent(chr(8));
  wait(50);
  SendKeysSilent(chr(8));
  wait(50);
  SendKeysSilent(chr(8));
  wait(100);
end;

procedure FindFlags;
var
x1,y1,Column,Row: Integer;
begin
  if(findColorTolerance(x,y,GrnFlag,27,43,948,581,1) or findColorTolerance(x,y,RedFlag,27,43,948,581,1))then
  begin
    Column:= 0;
    Row:= 0;
    repeat
    x1:= Round(51+(Column*126.83));
    y1:= Round(41+(Row*79));
    if(findColorTolerance(x,y,GrnFlag,x1,y1,x1+43,y1+18,20))then
    begin
      writeln('found Member at:  '+IntToStr(cx-3+Column)+','+IntToStr(cy-3+Row));
      WriteINI('Member Coordinates List', 'Member'+IntToStr(a),' '+IntToStr(cx-3+Column)+','+IntToStr(cy-3+Row),FilePath);
      Inc(a);

    end;
    if(findColorTolerance(x,y,RedFlag,x1,y1,x1+43,y1+18,20))then
    begin
      writeln('found Hostile at: '+IntToStr(cx-3+Column)+','+IntToStr(cy-3+Row));
      WriteINI('Hostile Coordinates List', 'Hostile'+IntToStr(b),' '+IntToStr(cx-3+Column)+','+IntToStr(cy-3+Row),FilePath);
      Inc(b);
    end;
    Inc(Column);
    if(Column > 6) then
    begin
      Column:= 0;
      Inc(Row);
    end;
    until((Row = 7) and  (Column = 1));
    
  end;
end;

procedure Setup;
begin
  cx:= mapx1;
  cy:= mapy1;
  EraseBoxCoords(1);
  SendKeysSilent(IntToStr(cx));
  wait(500);
  EraseBoxCoords(2);
  SendKeysSilent(IntToStr(cy));
  wait(200);
  ClickMouse(883,57,True);
  wait(500);
  repeat
    wait(100);
  until(Not(getcolor(160,133)=8899834));
  FindFlags;
end;

procedure CalculateProgress;
var
  s: Integer;

begin
  s:= ((((cx+3)*(mapx2-mapx1))+(7*(cy+3-mapy1))*100));
  status(IntToStr(s));
end;

procedure MapScan;
begin
  repeat
    if(cy > 796) or (cy > mapy2) then
    begin
      cy:= mapy1-4;
      cx:= (cx + 7);
      EraseBoxCoords(1);
      SendKeysSilent(IntToStr(cx));
      wait(200);
    end else
    begin
      cy:= (cy + 6);
      EraseBoxCoords(2);
      SendKeysSilent(IntToStr(cy));
      wait(100);
      ClickMouse(883,57,True);
      wait(1000);
      repeat
        wait(100);
      until(Not(getcolor(160,133)=8899834) and Not(getcolor(788,474)=8899834));
      wait(200);
      FindFlags;
      CalculateProgress;
    end;
  until((cx > 792) or (cx > mapx2));
end;


begin
  CreateFilePath;
  Setup;
  MapScan;
    writeln('|---------------|');
    writeln('MAP SCAN COMPLETE');
    writeln('|---------------|');
end.

Anyone still interested in this? I think it could be interesting especially using nielsie95's Appa.

nielsie95's Appa?

From: Smartzkid
I'm away for a little while; check this out in the meantime:

http://www.villavu.com/forum/showthread.php?t=45534

Specifically, this post:
http://www.villavu.com/forum/showpost.php?p=571348&postcount=25


Yeah I have msn. [email]Smartzkid-@hotmail.com[/email]

Will return and add more thoughts asap, maybe a script or two..

There is the link to the Appa script. It is like SMART for applets.

Ive never used plugins before but ill look into it.

This script is not working… Anyone know why?

From: s7up1d
This script is not working… Anyone know why?

maybe its outdated? this was a good while ago.

yah i wrote the script quite a while back evony has gone through plenty of changes since. ill be rewriting the script soon as i get my computer fixed.

Cool. I would try, but I am still learning…

Hmm. Evony is controversial

http://www.youtube.com/watch?v=yFb9QKkNDU8
Arguing that Evony is fraud.

What's the deal with that map scanner script? Did that ever get sorted out?

I tried to get it working but its not working as OP said above. Has anybody managed to get this working yet?

Thanks!