ok so im working on a script that does a lot of cool things im not done it yet but atm it flips a coin, finds out your yearly income and im working on the dice roller version [1].0 has the dice roller functions and stuff in the script and is included in the setup and proggy but it does not work. The other parts in the script work but if anybody could please try my script and post there reports and please post on here how to make my dice roller work it would be greatly appreciated. I will post the script below
~Insanomano~
SCAR Code:program AmazingScript;
{ AMAZING SCRIPT
V [1].0
Author: Insanomano.
Version: [1].0.
Description: Tells you some stuff when you imput the correct information.
Setup: (lines 19-25), click run.
DICE ROLLER DOES NOT WORK IN VERSION [1].0
}
var
HeadsNumber, Tails, Heads, TailsNumber, FlipCount: integer; //coin flip
One, Two, Three, Four, Five, Six, RollCount: integer; //dice roll
YearsIncome : integer; //income calculator
const
{COIN FLIP}
FlipAmount= 1000; // How many time you want to flip a coin.
{DICE ROLL}
RollAmount= 100;
{YEARLY INCOME CALCULATOR}
HourlyWage= 10; // Put how much money you make hourly at your job (WHOLE NUMBERS ONLY, ROUND UP).
HoursWeekly= 40; // Put how many hours a week you work.
Procedure Intro;
var
qwerty: integer;
begin
ClearDebug;
Writeln('WELCOME TO THE WORLDS MOST AMAZING SCRIPT');
wait(2000);
ClearDebug;
Writeln('IN JUST A FEW MOMENTS IM GOING TO HAVE ALL YOUR ANSWERS FOR YOU !!!!');
wait(2000);
ClearDebug;
repeat
Writeln('PLEASE WAIT .');
wait(300);
ClearDebug;
Writeln('PLEASE WAIT ..');
wait(300);
ClearDebug;
Writeln('PLEASE WAIT ...');
wait(300);
ClearDebug;
QWERTY := qwerty + 1;
until(QWERTY >= 4);
end;
function Flip : integer;
begin
case Random(2) of
0: Result := 0;
1: Result := 1;
end;
FlipCount := FlipCount+(1);
end;
function Roll : integer;
begin
case Random(6) of
0: Result := 0;
1: Result := 1;
2: Result := 2;
3: Result := 3;
4: Result := 4;
5: Result := 5;
end;
RollCount := RollCount+(1);
end;
procedure WhatWasCoin;
begin
if Flip = 0 then
TailsNumber := TailsNumber+(1)
else
HeadsNumber := Headsnumber+(1);
end;
procedure WhatWasDice;
begin
if Roll = 0 then
One := One+(1)
else if Roll = 1 then
Two := Two+(1)
else if Roll = 2 then
Three := Three+(1)
else if Roll = 3 then
Four := Four+(1)
else if Roll = 4 then
Five := Five+(1)
else if Roll = 5 then
Six := Six+(1)
end;
Procedure IncomeCalculator;
begin
YearsIncome := (HourlyWage) * (HoursWeekly) * 52 * (1);
end;
Procedure TheWholeAmazingLoop;
begin
IncomeCalculator;
repeat
WhatWasCoin;
until (FlipCount = (FlipAmount));
repeat
WhatWasDice;
until(RollCount = (RollAmount));
end;
Procedure EndingItAll;
Begin
Writeln('==========================================');
Writeln('======= Worlds Most amazing script =======');
writeln('==========================================');
Writeln('======== YEARLY INCOME CALCULATOR ========');
writeln('==========================================');
Writeln('== Your yearly income was $' + IntToStr(YearsIncome) + '.');
writeln('==========================================');
Writeln('=============== COIN FLIP ================')
writeln('==========================================');
Writeln('== Flip amount was ' + IntToStr(FlipAmount) + '.');
Writeln('== Tails amount was ' + IntToStr(TailsNumber) + '.');
Writeln('== Heads amount was ' + IntToStr(HeadsNumber) + '.');
writeln('==========================================');
writeln('=============== DICE ROLL ================');
writeln('==========================================');
Writeln('== Rolled 1 |' + IntToStr(One) + '| times');
Writeln('== Rolled 2 |' + IntToStr(Two) + '| times');
Writeln('== Rolled 3 |' + IntToStr(Three) + '| times');
Writeln('== Rolled 4 |' + IntToStr(Four) + '| times');
Writeln('== Rolled 5 |' + IntToStr(Five) + '| times');
Writeln('== Rolled 6 |' + IntToStr(Six) + '| times');
writeln('==========================================');
end;
Begin
Intro;
TheWholeAmazingLoop;
EndingItAll;
end.
EDIT: Thx GoF![]()




Reply With Quote



