Hey!
When Randoms are solved, it clicks the gift, selects the Reward, and closes the window with the X instead of accepting the gift :X.
Is there a fix for that Problem yet :O?
~caused
Hey!
When Randoms are solved, it clicks the gift, selects the Reward, and closes the window with the X instead of accepting the gift :X.
Is there a fix for that Problem yet :O?
~caused
what does it say in the debug box?
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Did you set up the BoxRewards option for your players?
Senrath: yes.
ShuttleU: Nothing ;/... And it tries it whenever the findrandoms function is called ; '(
I got the Same Problem again right now, Here's an Screenshot.
![]()
SCAR Code:{*******************************************************************************
procedure UseRewardBox: Boolean;
by: Nava2
Description: Finds the reward box, and opens it getting the reward.
*******************************************************************************}
function UseRewardBox: Boolean;
var
I, Time, Height, fx, fy: Integer;
Text, TPA: TPointArray;
B: TBox;
bDTM: Integer;
begin
Result := False;
if not LoggedIn then Exit;
GameTab(4);
if (not(FindColorTolerance(fX, fY, 7280034, MIX1, MIY1, MIX2, MIY2, 20))) then Exit;
bDTM := DTMFromString('78DA634C626660B8C4C8800C568B963070006' +
'990E87F20608C04AA398EAA06220B23813448CD65026A0A816AAE' +
'12A1E62401359940351751D5DC889782BB19AC2619A8E6087E730' +
'0776A0F22');
for I := 1 to 28 do
begin
B := InvBox(I);
if FindItemEx(fx, fy, 'dtm', bDTM, B, []) then
begin
MMouseItem(I);
Wait(RandomRange(100, 150));
Result := IsUpText('event gift');
if Result then Break;
end;
end;
FreeDTM(bDTM);
if not Result then Exit;
GetMousePos(fx, fy);
Mouse(fx, fy, 0, 0, True);
Result := False;
Text := LoadTextTPA('hoose', UpChars, Height);
Time := GetTimeRunning + 10000;
FindColorsTolerance(TPA, 2070783, 185, 34, 327, 50, 3);
while not Result and (GetTimeRunning < Time) do
begin
Wait(RandomRange(80, 100));
FindColorsTolerance(TPA, 2070783, 185, 34, 327, 50, 3);
if Length(TPA) > 10 then
Result := FindTextTPAinTPA(Height, Text, TPA, TPA);
end;
if not Result then
begin
SRL_Warn('OpenRewardBox', 'Could not open Reward Screen', Warn_AllVersions);
Exit;
end;
Wait(Random(100));
if not FindBoxOption(B) then
begin
SRL_Warn('UseRewardBox', 'Could not find a usable option.', Warn_AllVersions);
Exit;
end;
MouseBox(B.x1, B.y1, B.x2, B.y2, 1);
Time := GetTimeRunning + 2000;
Result := False;
while (not Result) and (GetTimeRunning < Time) do
begin
FindColorsTolerance(TPA, 1317148, 35, 70, 362, 311, 3);
Result := Length(TPA) > 50;
end;
if not Result then
begin
CloseWindow;
Exit;
end;
Mouse(393, 166, 77, 39, True);
end;
Fix'd
Last edited by Wizzup?; 06-23-2009 at 06:18 AM.
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1






Fixed properly![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)