'Other' Randoms

[Wool]

Ok, i got the normal randoms in my script but can someone give me a hand on how to put the others like sandwich.

Thx :D

[WT-Fakawi]

You set the Players.Nick (your screenname) once.

You regularly call FindTalk ( 1-4 times a second)

Done. FindTalk solves All Talking Randoms for you.

[Wool]

O, I see,
Thx [smilie=3,30,6]

[lardmaster]

1-4 a sec?

[WT-Fakawi]

You can use this procedure to set your screenname. procedure SetScreenName(ScreenName: string);
begin
NickNameBMP := CreateBitmapMaskFromText(ScreenName, upchars);
end;



and, 1-4 times a second lardmaster? Ow yes, garuanteed 100% result. FindTalk solves almost all Randoms. I have replaced all the wait; statements in my scripts with FTWait;, that waits and performs FindTalk 4 times a second.
procedure FTWait(Time: Integer);
var
t: Integer;
begin
for T := 1 to Time do
begin
Wait(200 + Random(50));
FindTalk;
end;
end;

[hi2u]

wow this all is all way confusing

[xxlegitxx]

wow this all is all way confusing

Basically, instead of putting Wait(500); you put FTWait(500);
Fakawi's procedure takes care of all the anti-randoms for you.

[WT-Fakawi]

Basically, instead of putting Wait(500); you put FTWait(500);
Fakawi's procedure takes care of all the anti-randoms for you.

FTWait(500) would be a little too much. FTWait(4)= 1 second;, so FTWait(500)=125 seconds

[Wool]

Thx alot, im gonna go plug this into my script :D

[xxlegitxx]

Oh, sorry I didn't see that. So on average, 1 FTWait is 225 ms, right?

EDIT:

procedure FTWait2(Time :Integer;);
var
t :Integer;
TimeMark :Integer;
begin
MarkTime(TimeMark);
while(TimeFromMark <= Time) do
begin
FindTalk;
Wait(200 + Random(50));
end;
end;


That could be used interchangeably with Wait then.