SRL Archive - SRL Archives

Rick Turpentine Random


Santa_Clause

2009-01-07 04:40:29

Is anyone aware of any bugs? Because I've died from the only 2 talking randoms that I've encountered in the past 2 days with Narcle's Echo fighter. I'm sure the nick is set correctly.

Lee Lok Hin

2009-01-07 04:41:48

There's a problem with ChoosOptionMultiCustom with 3.20, I think.

P.s. Talked to Zytex yet?

Dervish

2009-01-07 12:11:53

Can someone tell me why people use SCAR 3.20 while its in Beta ?

Curiousity probably…

Anyways : Don't use Beta stuff when scripting , you get errors and stuff. Use ready versions (3.15 :))

Torrent of Flame

2009-01-07 12:47:29

Scar Divi 3.15 ftw :o

Naike

2009-01-07 14:24:16

I use 3.15 and i solved some randoms a week ago? If the problem came after that then i have no clue. Ask freddy1990

Gu3st...

2009-01-07 15:33:20

From: Lee Lok Hin
P.s. Talked to Zytex yet?

Hmm.. Might explain why I found myself in falador when I wake up.. :p
There might be a bug in it

Santa_Clause

2009-01-09 02:30:22

Well, seeing as you're all recommending 3.15 I'll just revert back to that. Thanks.

ZephyrsFury

2009-01-09 03:22:02

ChooseOptionGetMenuText which is used in antirandoms is stuffing up in SCAR 3.20. To fix it use 3.15b or replace ChooseOptionGetMenuText from AntiRandoms.scar with this one:


function ChooseOptionGetMenuText(var RawMenuText: string; cx, cy: Integer; Text: string): Boolean;
var
B: TBox;
TPA: TPointArray;
X, Y, I, C: Integer;
P: TPoint;
begin
Result := False;
GetClientDimensions(B.X2, B.Y2);
B.X1 := 0;
B.Y1 := 0;
FindColorsTolerance(TPA, 4674653, B.X1, B.Y1, B.X2, B.Y2, 0);
If Length(TPA) < 10 Then
Exit;
B.X2 := 0;
B.Y2 := 0;

P := TPA[0];
For I := 0 To High(TPA) - 1 Do
If TPA[i].X = TPA[I+1].X - 1 Then
Begin
If C > 5 Then
Begin
B.X1 := P.X;
B.Y1 := P.Y;
Break;
End Else
C := C + 1;
End
Else
Begin
P := TPA[I + 1];
C := 0;
End;
If I = Length(TPA) Then
Begin
WriteLn('Choose Option Menu Getting Failed');
Exit;
End;
InvertTPA(TPA);
C := 0;
P := TPA[0];
For I := 0 To High(TPA) - 1 Do
If TPA[i].X = TPA[I+1].X + 1 Then
Begin
If C > 5 Then
Begin
B.X2 := P.X;
B.Y2 := P.Y;
Break;
End Else
C := C + 1;
End Else
Begin
P := TPA[I + 1];
C := 0;
End;
If I = Length(TPA) Then
Begin
WriteLn('Choose Option Menu Getting Failed');
Exit;
End;

If FindText(X, Y, Text, upchars, B.X1, B.Y1, B.X2, B.Y2) Then
Begin
Result := True;
RawMenuText := GetTextAtEx(X, Y, 0, upchars, True, True, 0, 0, -1, 25, False, tr_NormalChars);
Mouse(B.X1 + 5, y + 1, B.X2 - B.X1 - 5, 13, True);
Exit;
End;

MMouse(B.X1 - 50, B.Y1 - 50, 40, B.Y2 - B.Y1);
Wait(200 + Random(100));
end;

That should fix it. Proper update will be in SRL Rev #32.

Santa_Clause

2009-01-09 04:18:31

Officially love you.

Tniffoc

2009-01-10 16:21:27

<3 Zephers. I had this problem too. But, only on Rick Turpentine.

noidea

2009-01-10 16:58:50

Why was it stuffing up In SCAR 3.2 Zeph?

ZephyrsFury

2009-01-10 22:52:33

From: noidea
Why was it stuffing up In SCAR 3.2 Zeph?


The old function used bitmaps to determine where the corners of the menu were to allow FindText to search that area for the option text. In 3.20 however the bitmaps weren't finding the corners and the text couldn't be found. I have no idea why that happened since Freddy has assured my that FindBitmap and the family haven't been changed at all since SCAR 3.15.