SRL Archive - First Scripts

Just a simple script i use to pick the price that i am selling per mil rsgp to an rl friend.

program PricePicker;
var e: extended;

   procedure PickPrice;
 begin
 e:= random(10)
   if (e<10) then writeln('todays price=$' +floattostr(e))
      if (e=0) then
      begin
      cleardebug
      clickmouse(518,195,true)
      end;
      end;
begin
  cleardebug
  PickPrice
end.

Could someone explain to me how to make the price a decimal or extended please?

You could try something like
e := (Random(10) / 11,2) * 10

From: nielsie95
You could try something like
e := (Random(10) / 11,2) * 10

ok….but i dont really understand this…maybe you could explain?

I'm sorry I'm bumping this just to show everyone starts somewhere.

:)

Im better than an srl master!!! :)

pssshhht! let's hide Saturn`'s past! he's always been epic, this was his evil brother.

~RM

Why would you even randomize the price of mills lol? Bit indecisive?