SRL Archive - Research & Development Lounge

getblacktext fix


Waddo

2008-08-06 10:08:26

the get black chat text function that is used in GetBlackChatMessage wasnt working so ive changed the coords and it works now,

Zephy informed me i should have changed the text coords so this is the updated text coords.


{*******************************************************************************
Function TextCoords(textn: Integer): TPoint;
By: Wizzup? Updated by Waddo.
Description: Returns x, y for text. (1 to 8)
*******************************************************************************}

Function TextCoords(textn: Integer): TPoint;

Begin
Result.X := 11;
Result.Y := 346 + (14 * (textn - 1));
End;

Waddo

2008-08-06 10:28:10

Yes you messed something up

there is no such function/procedure

there is

function FindBlackChatMessage(ChatMsg: string): Boolean;
begin
Result := IsBlackText(ChatMsg, 8);
end;

thats why that needed updating.

and np.

I also noticed that i had 777 posts.

Edit: Wow 2 rep on this thread i didnt eithen expect the rep =p puts me to 42 now tho cool almost half way too 2 green squares =p

ZephyrsFury

2008-08-07 04:32:01

Thanks for the fix but next time you should change TextCoords because that would fix all functions that get text from the chatbox. :)

Waddo

2008-08-07 07:19:29

Oh kk ty I didnt know that would they be what the tp.x and tp.y are?


{*******************************************************************************
Function TextCoords(textn: Integer): TPoint;
By: Wizzup? Updated by Waddo.
Description: Returns x, y for text. (1 to 8)
*******************************************************************************}

Function TextCoords(textn: Integer): TPoint;

Begin
Result.X := 11;
Result.Y := 346 + (14 * (textn - 1));
End;

Im geussing you have already changed this but here it is anyway, and now i know what to change in future.=p

tarajunky

2008-08-07 23:47:24

Fixed it in the Dev SVN

Waddo

2008-08-08 06:29:06

Ok when will it be released my scar looks messy eithen tho i have rev 20 it stail says update srl svn (19->20)

Illkillutill

2008-08-08 08:33:05

Are you sure you have 20 then? I had to checkout SVN because i couldn't just click update 19–>20 because it kept saying that. Just checkout your SVN and it won't say that, and you will get rev 20 for sure.

Waddo

2008-08-08 08:46:20

Nope ive updated abut 8 times including donwgrading and reuprading i have rev 20 it just says i havent it isnt a problem it just anoying