How do I make a progress report?

[dagger5678]

I have been searching SRL, and I couldn't find out how to make a progress report. I want something that tells you how long it's been running for, that's all. I want to incorporate it into my AutoSpammer, TalkingDagger. :google: And also, could someone teach me how to incorporate Anti-Randoms into my script? I am kind of a newb at SRL. Thank you.

[JAD]

read tut "things the beginner tuts don't teach you" links in sig. that teaches proggy and randoms.

[IEatJ00erBaybees]

Yes, JAD had an excellent tutorial.

Here's how you might do one, I'll explain it after


WriteLn ('------------------Proggy--------------------')
WriteLn ('--------------------------------------------')
WriteLn ('----Ores Mined:' +IntToStr+ (Variable Here)'--')
WriteLn ('--------------------------------------------')
WriteLn ('--------------End Proggy-------------------')


WriteLn, as you may know, writes what's inside the parenthesees in the debug box. +IntToStr+ takes your variable, in this case, ores mined, and writes it in!

If I have the IntToStr part wrong, I'm sorry, and somebody please fix it.

Thank You.

PS. I'm just learning how to script as well ;)

[JAD]

no you got it right :p Int=integer To=to Str=string so its integertostring :)

[bustinthejus]

Yes, JAD had an excellent tutorial.

Here's how you might do one, I'll explain it after


WriteLn ('------------------Proggy--------------------')
WriteLn ('--------------------------------------------')
WriteLn ('----Ores Mined:' +IntToStr+ (Variable Here)'--')
WriteLn ('--------------------------------------------')
WriteLn ('--------------End Proggy-------------------')


WriteLn, as you may know, writes what's inside the parenthesees in the debug box. +IntToStr+ takes your variable, in this case, ores mined, and writes it in!

If I have the IntToStr part wrong, I'm sorry, and somebody please fix it.

Thank You.

PS. I'm just learning how to script as well ;)


What that guy said, but you also need



var
oresmined: integer;


and then in your mining or whatever procedure, you have to have this:


procedure Mining
begin
(make it so you mine here)

oresmined:= oresmined+(1);
end;

[JAD]

As it teaches in my tut :p he just said (variable here) because you could call it oresmined, or you could call it philip :p

you should read my tutorial though, may help you out a lot in anti randoms..etc.

[YoHoJo]

Program Miner;
var
OresMined:Integer;
Procedure Mine;
Begin
If FindcolorSpiral(RockColor) then
MMouse(X,y,5,5)
If IsUpText('ine') Then
Begin
Mouse(x,y,0,0,true)
OresMined:=OresMined+1
end;
end;

Procedure ProgresReprot;
Begin
Writeln('You have mined '+IntToStr(OresMined)+ ' ores')
End;