SCAR Code:
program LoopBase;
{.include SRL/SRL.scar}
const
startvalue = 0;
Numberk = 10; //should end up as half
var
Number:integer;
procedure SetUp; //useless, but displays procedures before loops.
begin
writeln('Setting Up Script');
wait(1000);
writeln('Please wait.');
wait(1000);
writeln('Script has been set up o.O');
end;
procedure DeclareNumber; //just sets up the Number
begin
Number:=StartValue
end;
procedure Addition(times:integer); //Main loop
var i:integer;
begin
i:=0
repeat
Number:=Number+random(1)
i:=i+1
until(i = times)
writeln(inttostr(Number)+' is the number.');
end;
function UntilThis:boolean; //the until function
var z:integer;
begin
z:=random(10)
if ( z > 5 ) then
result:=true;
end;
begin //begins main script
SetUp; //does procedure SetUp
Repeat //repeat the below
DeclareNumber; //repeats this
Addition(NumberK); //and this
until(UntilThis) //until function UntilThis results true
end.
//end main script
Ends up always being zero... whatever hope it helps.
OffTopic: How do you have 90 posts with 1 bar of Longevity, and I have 82 posts with like 12?