Results 1 to 18 of 18

Thread: Evony and scar

  1. #1
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default Evony and scar

    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?

  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    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!
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

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

  4. #4
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    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/showpos...8&postcount=25


    Yeah I have msn. Smartzkid-@hotmail.com

    Will return and add more thoughts asap, maybe a script or two..
    Last edited by Smartzkid; 07-04-2009 at 02:37 PM.
    Interested in C# and Electrical Engineering? This might interest you.

  5. #5
    Join Date
    Jul 2008
    Location
    Canada
    Posts
    1,612
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  6. #6
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    pming smarter child and Smartzkid right now

  7. #7
    Join Date
    Jan 2007
    Location
    BC, Canada
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.


    Code:
    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.
    Last edited by fORCE_wORKS; 09-11-2009 at 10:54 AM.

  8. #8
    Join Date
    Dec 2007
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Jan 2007
    Location
    BC, Canada
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  10. #10
    Join Date
    Dec 2007
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Smartzkid View Post
    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/showpos...8&postcount=25


    Yeah I have msn. Smartzkid-@hotmail.com

    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.

  11. #11
    Join Date
    Jan 2007
    Location
    BC, Canada
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ive never used plugins before but ill look into it.

  12. #12
    Join Date
    Dec 2009
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script is not working... Anyone know why?

  13. #13
    Join Date
    Aug 2009
    Location
    Inside the Matrix...yes it has me, and it has you too.
    Posts
    1,896
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by s7up1d View Post
    This script is not working... Anyone know why?
    maybe its outdated? this was a good while ago.
    NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN NYAN

  14. #14
    Join Date
    Jan 2007
    Location
    BC, Canada
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  15. #15
    Join Date
    Dec 2009
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  16. #16
    Join Date
    May 2008
    Location
    Canada
    Posts
    665
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Hmm. Evony is controversial

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

  17. #17
    Join Date
    Jan 2010
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  18. #18
    Join Date
    Dec 2009
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    Thanks!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •