SRL Archive - Misc. Links and Programs

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 ;)

Well, giving it a try but loading font doesn't work :(

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

From: Frt
Well, giving it a try but loading font doesn't work :(

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)

Aw.
Then how'll I read the words?

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) )

From: Frt
Aw.
Then how'll I read the words?

Hmm, I can dump the font chars if you want :)

From: Freddy1990
Hmm, I can dump the font chars if you want :)

Sounds great :D

From: Frt
Sounds great :D

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 :p But it keeps going :)

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.

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

EDIT: With your coordinates of course

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.

Just a small note: make sure you free the chars :)

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

Freddy, fancy posting the bot?

From: R1ch
Freddy, fancy posting the bot?

Posting it would be too destructive to the project…

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

From: EvilChicken!
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

From: Freddy1990
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?

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

It will make fake answers = Loads of rice ;)


~Home

From: Freddy1990
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?

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

are there like font codes?

Font is an integer variable

Now using scar to give people free rice! Awesome there should be more sites like that out there. Great idea freddy!

From: Home
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 :p

From: nielsie95
That's a pretty smart solution he used :p

Woah, a smart word from Niels (: ( I'm proud (: ) Well ye, it's dam fast and ye it works :D


~Home

Meh, I still think my huge database is cool :p

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

It will make fake answers = Loads of rice ;)


~Home

Compiled it into an easy .xpi to just load into Firefox, no Greasemonkey needed :)
http://www.mediafire.com/download.php?k52tkjrgyyz

From: Harry
Compiled it into an easy .xpi to just load into Firefox, no Greasemonkey needed :)
http://www.mediafire.com/download.php?k52tkjrgyyz

Thanks man (:


~Home


EDIT: And this is even faster :D

From: Home
Thanks man (:


~Home


EDIT: And this is even faster :D

Enjoy :D

Also, lol, overflow errors for the win.

Your friend,
~Home :)

I made a wrote a bot for this in VB.Net :P Shared it with another site and overall we got around 1.5m grains. Still getting more :P If someone were to find out the questions/answers then i could update it quite easily and release a version here.

How do you turn that thing on?

Looks like the database is pretty accurate:

[-=-=-=-=-=-=- [URL="http://www.villavu.com/forum/showthread.php?p=571010#post571010"]Niels95's Rice Donator[/URL] -=-=-=-=-=-=-]
    You have been donating for 1 hours, 16 minutes and 39 seconds
    You have answered 10510 questions
    You have donated 105100 grains of rice
    Accuracy: 100%

:)

yes indeed the database is accurate :)
http://villavu.com/forum/showpost.php?p=573732&postcount=49

~shut