SRL Archive - OSR Help

Ok So i made a simple auto typer, ive been trying for days to improve it but i cant do it lol. so now i need help.


I Want To Add:

Does Random Emote (Clicking Emotes Randomly From 1 through 20)

Does Random Speeds (Messages will appear from 5-15 seconds)

Does Random Text Colors (Red, White, Purple, Cyan, Glow1,2,3 and Flash 1,2,3)

this is all i want, if you can help me put this in my script id appreciate it =)

Script I Made:

{$DEFINE SMART}
{$i srl/srl.simba}
Const
Message0=('Message Here');
Message0=('Message Here');
Message0=('Message Here');
Message0=('Message Here');
Message0=('Message Here');

begin
ClearDebug();
SetupSRL();
Repeat
wait(3000+Random(50)); <—- // I dont want to keep changing speeds, i want the bot to change randomly
TypeSend(Message0);
wait(4000+Random(50)); <—-
TypeSend(Message1);
wait(5000+Random(50)); <—-
TypeSend(Message2);
wait(3000+Random(50)); <—-
TypeSend(Message3);
wait(4000+Random(50)); <—-
TypeSend(Message4);
Until(false)
end.

Rough outline

Random emote
Just make a mousebox around MIX1, MIY1, MIX2, MIY2 and check for uptext. If there is uptext then click otherwise move to a new location.

Random speeds
Wait(RandomRange(5000, 15000));

Random text color

Message: String;

case Random(8) of
  0: Message := 'Red:';
  1: Message := 'Cyan:';
  //etc.
end;

Message := Message + Message0;

From: J J
Rough outline

Random emote
Just make a mousebox around MIX1, MIY1, MIX2, MIY2 and check for uptext. If there is uptext then click otherwise move to a new location.

Random speeds
Wait(RandomRange(5000, 15000));

Random text color

Message: String;

case Random(8) of
  0: Message := 'Red:';
  1: Message := 'Cyan:';
  //etc.
end;

Message := Message + Message0;

thats the thing, i dont know how to exactly do those =/ and or where to put them. would you be able to help?

Made this a long time ago not sure if it still works

function Dancing: boolean
begin
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 0.81);
  if CountColorTolerance(10102614, MIX1, MIY1, MIX2, MIY2, 24) < 500 then
    GameTab(tab_Emotes);
  Mousebox(547, 383, 589, 430, 1);
  Result := True;
end; 

You can change the coords of the mousebox.

Then in the mainloop something like this

while Dancing do
    case Random(5) of
      0: TalkFast('cyan:wave:asdasdasd', True);
      1: TalkFast('red:wave2:asdadasd', True);
      2: TalkFast('purple:shake:asdasdasd', True);
      3: TalkFast('green:scroll:asdasdasd', True);
      4: TalkFast('wave: balbalblab', True);
    end;

TalkFast is a procedure I made myself, types faster than the normal TypeSend. If you look into the code you should be able to make one yourself easily. This should be more than enough to add it in your own script, obviously I could give you the full code but it's more fun to learn yourself :)

There's a function in SRL for adding effects and colours to messages.