hete taart
2013-08-20 07:09:06
Hey guys!
I am kind of struggling for a while now on this script.
It just can't seem to find the upchars from a RSPS that i created myself from a guide from schuttleu.
so here's a picture of my script:
version 1:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
over here, all it does is hover over the stall where i want to steal from and write some random letters in the debug box.
version 2:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
so i tried using autocolor.
over here it just hovers around the chatbox and does nothing.
what am i doing wrong guys?? any help is appreciated :D
I am kind of struggling for a while now on this script.
It just can't seem to find the upchars from a RSPS that i created myself from a guide from schuttleu.
so here's a picture of my script:
version 1:
Program New;
{$i SRL/SRL.simba}
procedure GetText;
begin
LoadFont(RSPS, True);
Wait(5000);
writeln(GetTextAtExWrap(3, 3, 200, 25, 0, 3, 0, 13948373, 50, RSPS));
end;
function steal:boolean;
var
x,y:Integer;
begin
if FindObjCustom (x, y, ['Ste','al'],[2490935,2490935,2490935], 5) then
begin
writeln('found');
GetMousePos(x,y);
case Random (1) of
0:Mouse (x,y,2,2,mouse_Left);
1:begin
mouse(x,y,2,2,false);
WaitOption('Steal',500);
end;
end;
end;
end;
Begin
SetupSRL;
steal;
GetText;
end.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
over here, all it does is hover over the stall where i want to steal from and write some random letters in the debug box.
version 2:
Program New;
{$i SRL/SRL.simba}
procedure GetText;
begin
LoadFont(RSPS, True);
Wait(5000);
writeln(GetTextAtExWrap(3, 3, 200, 25, 0, 3, 0, 13948373, 50, RSPS));
end;
function LetterColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
H, S, L: Extended;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 14408668, 4, 4, 500, 330, 11);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToHSL(arC[i], H, S, L);
if (H >= 0.00) and (H <= 8.35) and (S >= 0.00) and (S <= 3.35) and (L >= 83.51) and (L <= 88.26) then
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 63.22) and (X <= 71.76) and (Y >= 66.52) and (Y <= 75.42) and (Z >= 72.42) and (Z <= 81.30) then
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;
end;
ColorToleranceSpeed(tmpCTS);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
function steal:boolean;
var
x,y:Integer;
begin
if FindObjCustom (x, y, ['r','m'],[LetterColor,LetterColor,LetterColor], 4) then
begin
writeln('found');
GetMousePos(x,y);
case Random (1) of
0:Mouse (x,y,2,2,mouse_Left);
1:begin
mouse(x,y,2,2,false);
WaitOption('Steal',500);
end;
end;
end;
end;
Begin
SetupSRL;
steal;
GetText;
LetterColor;
end.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
so i tried using autocolor.
over here it just hovers around the chatbox and does nothing.
what am i doing wrong guys?? any help is appreciated :D