Page 1 of 2 12 LastLast
Results 1 to 25 of 33

Thread: FreeRice.com words database

  1. #1
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default FreeRice.com words database

    Hi there,

    Most of you know FreeRice.com, you click the right answer, people get free rice

    Harry wrote a script for it which guesses the answers... (http://www.villavu.com/forum/showthread.php?t=26003)

    Now if anyone would be interested in taking that further by writing a SCAR script/program to actually click the right answers... I recently revamped my bot for it, it now stores it's answers database online, so you can view them here (note the list is constantly growing): http://freddy1990.com/freerice.php?html=enabled

    For easy parsing: http://freddy1990.com/freerice.php

    Once that database is complete i might get it started on different topics as well, we'll see, have fun

  2. #2
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, giving it a try but loading font doesn't work
    SCAR Code:
    function LoadFont(Bold: Boolean): Integer;
    begin
      Result := LoadCharsFromFont2('Verdana', 12, Bold, False, False, False); // Line 6
    end;

    [Runtime Error] : Exception: Access violation at address 00720BB7 in module 'scar.exe'. Read of address 00000000 in line 6 in script

  3. #3
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Frt View Post
    Well, giving it a try but loading font doesn't work
    SCAR Code:
    function LoadFont(Bold: Boolean): Integer;
    begin
      Result := LoadCharsFromFont2('Verdana', 12, Bold, False, False, False); // Line 6
    end;

    [Runtime Error] : Exception: Access violation at address 00720BB7 in module 'scar.exe'. Read of address 00000000 in line 6 in script
    Font loading doesn't work for Windows Vista

    (Donated 700K rice since yesterday, lol)

  4. #4
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Aw.
    Then how'll I read the words?

  5. #5
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah I tried asking people for help on the font part in scar but no one answered so I gave up lol xD
    ( I was originally gonna make a script for the site freepoverty.com (I know the name sounds funny lulz) )

  6. #6
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Frt View Post
    Aw.
    Then how'll I read the words?
    Hmm, I can dump the font chars if you want

  7. #7
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Freddy1990 View Post
    Hmm, I can dump the font chars if you want
    Sounds great

  8. #8
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Frt View Post
    Sounds great
    There you go, regular and bold fonts:
    http://freddy1990.com/files/FreeRice.rar

    You can use my database to get the correct answer, and well, if it doesn't contain the answer, just guess i suppose The databse is still growing, it's not reached 1/3th of the total amount of solutions yet But it keeps going
    Last edited by Freddy1990; 05-14-2009 at 12:48 AM.

  9. #9
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    function ReadWord: String;
    var
      F: Integer;
    begin
      F := LoadChars2('C:\Users\Frederik\Documents\FreeRice\Bold\');
      Result := GetTextAtEx(198, 165, 10, F, False, False, 0, 2, 0, 100, False, tr_SmallLetters);
    end;

    Doesn't find the text. Tried picking exact color and changing coordinates around.
    Does however find alot of &'s.

  10. #10
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Try:
    Result := GetTextAtEx(752, 187, 10, Font, False, False, 0, 2, 2302755, 100, False, tr_SmallLetters);

    EDIT: With your coordinates of course
    Last edited by Freddy1990; 05-14-2009 at 02:24 AM.

  11. #11
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    function ReadWord: String;
    var
      F, i, x, y: Integer;
    begin
      F := LoadChars2('C:\Users\Frederik\Documents\FreeRice\Bold\');
      x := 370;
      y := 330;
      while (y < 360) do
      begin
        Inc(x);
        if (x > 400) then
        begin
          Inc(y);
          x := 370;
        end;
        Writeln(IntToStr(x) + ', ' + IntToStr(y) + ' - ' + GetTextAtEx(x, y, 10, F, False, False, 0, 2, 2302755, 100, False, tr_SmallLetters));
      end;
    end;

    Used this trying to find the correct coords.
    didn't find anything.

  12. #12
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Just a small note: make sure you free the chars

  13. #13
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Hmm, it works fine for me... Select the bold word, use the colorpicker to get the coordinate of the most top-left pixel of the selection, then try that as coordinates

    EDIT: The database has pretty much reached it's full size, it's a few answers over 12000 now, finding new ones occurs almost never, my bot just ran trough 6500 questions without getting 1 wrong
    Last edited by Freddy1990; 05-15-2009 at 05:18 PM.

  14. #14
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    Freddy, fancy posting the bot?
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  15. #15
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by R1ch View Post
    Freddy, fancy posting the bot?
    Posting it would be too destructive to the project...

  16. #16
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Freddy, you do know that FreeRice by all probabilities is a scam site?

  17. #17
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by EvilChicken! View Post
    Freddy, you do know that FreeRice by all probabilities is a scam site?
    WFP wouldn't lie... http://www.wfp.org/videos/free-rice-new

  18. #18
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Quote Originally Posted by Freddy1990 View Post
    Posting it would be too destructive to the project...
    If you mean it would be too destructive for FreeRice, you should google "FreeRice bot". There are a lot of (multithreaded) bots with very high accuracy. One more doesn't hurt?

  19. #19
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Well just use Greasemonkey Script:
    http://userscripts.org/scripts/show/30857

    It will make fake answers = Loads of rice


    ~Home

  20. #20
    Join Date
    May 2007
    Location
    Seattle, WA
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Freddy1990 View Post
    Try:
    Result := GetTextAtEx(752, 187, 10, Font, False, False, 0, 2, 2302755, 100, False, tr_SmallLetters);

    EDIT: With your coordinates of course
    doesnt the 'Font' param have to be an integer?

    SCAR Code:
    Result := GetTextAtEx(752, 187, 10, Font, False, False, 0, 2, 2302755, 100, False, tr_SmallLetters);

    are there like font codes?

  21. #21
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Font is an integer variable

  22. #22
    Join Date
    Apr 2009
    Location
    California!
    Posts
    280
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Now using scar to give people free rice! Awesome there should be more sites like that out there. Great idea freddy!
    ~Penguin
    Semi-active
    http://i44.tinypic.com/33vk9aq.jpg
    SELL AUTOED GOODS AT MID-MAX! DON'T LET PRICES FALL AND GIVE US LESS PROFIT. (Put this in your sig)

  23. #23
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Quote Originally Posted by Home View Post
    Well just use Greasemonkey Script:
    http://userscripts.org/scripts/show/30857

    It will make fake answers = Loads of rice


    ~Home
    That's a pretty smart solution he used

  24. #24
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Quote Originally Posted by nielsie95 View Post
    That's a pretty smart solution he used
    Woah, a smart word from Niels (: ( I'm proud (: ) Well ye, it's dam fast and ye it works


    ~Home

  25. #25
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Meh, I still think my huge database is cool

Page 1 of 2 12 LastLast

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
  •