Scar-naskriptovanie

kubcosvn

Caute...potreboval by som troska helpnut s nejakymi scriptami..resp s programom..
Potrebujem,alebo je to napisane v programe scar...zrejme v delphi jazyku to uz neviem..niesom odbornik..
Nahlad kodu kt.sa nachadza na webe,kt.funguje no nie tak ako by mal.

Kód: Vybrať všetko

var
x, y: integer;

function Targetwheat1 : Boolean;
begin
  if(FindColor(x, y, 1029072, 0, 0, 800, 600))then result:= true
end;

function Targetwheat2 : Boolean;
begin
if(FindColor(x, y, 1935759, 0, 0, 800, 600))then result:= true
end;

function Nextwheat1 : Boolean;
begin
  if(FindColor(x, y, 18096, 0, 0, 800, 600))then result:= true
end;

function Nextwheat2 : Boolean;
begin
  if(FindColor(x, y, 1061237, 0, 0, 800, 600))then result:= true
end;

Procedure Harvest;
begin
if (Targetwheat1)or(Targetwheat2) then
wait(500);
FindColor(x, y, 1029072, 0, 0, 800, 600);
wait(500);
clickmouse(x+5, y, true);
wait(500);
movemousesmooth(x+10, y+30);
wait(500);
clickmouse(x+10, y+30, true);
wait(1000);
end;

function nowheat : Boolean;
begin
  if(FindColor(x, y, 1029072, 0, 0, 800, 600))then result:= false
end;

begin
harvest;
repeat
if (nowheat) then
harvest;
if(nextwheat1)or(nextwheat2)then
harvest;
until(false);
end.

Jedna sa o flash hru Dofus..Problemom je,ze hoc programom oznacim farbu napr nejakej travy,nikdy nie je totozna s inou,menia sa tam odtiene a tym padom postava nezacne plnit svoju ulohu..neviem ci sa da definovat nieco ako v tolerancii odtiena..je to 2d hra...kt ma tzv policka..ci uz na velkej mape su "policka-sektory,malych map"alebo jednotliva mapa ma policka...neviem ci je mozne aby tzv.bot kt.by som rad nakonfiguroval fungoval tak,ze by nehladal danu farbu ale to,co sa na mape zmenilo alebo okruh nejakych farieb...

dalej som rozmyslal ako by som nastavil prechod cez mapu...alebo ako ist hore-dole-napravo-nalavo..teda do stran na inu mapu a proceduru zopakoval s tym ze by vyhladal nejake specificke farby,miesta.body..Vopred dakujem za rady respektive za napady a tipy..
PS : prikaz findcolor nie je dostacujuci,pretoze farba sa jednak meni,a jednak nie je totozna a tak by som musel mat nadefinovanych 20-30 a viac farieb ) ..