rj
12-30-2012, 08:05 PM
Self explanatory to run.
Rep would be appreciated :)
Program SoulsplitMaxhit;
var
Hit,StrBon:Integer;
Strength,Bonus,PrayFact:string;
Procedure DisplayMax;
begin
WriteLn('With a strength level of ' + Strength + ' and a equipment bonus of ' + Bonus + ' you can hit a max of ' + IntToStr(StrBon) + ' !')
end;
Procedure DoMath;
begin
StrBon := ((StrToInt(Strength)/3)) + ((StrToInt(Bonus)/9))
//Hit := StrBon * StrToInt(PrayFact)
DisplayMax;
end;
Procedure AskStats;
begin
If (InputQuery('Strength level?', 'Level:' , Strength)) Then
If (InputQuery('Equipment bonus?', 'bonus:' , Bonus)) Then
//If (InputQuery('Prayer factor', 'factor:' , PrayFact)) Then
DoMath;
end;
Begin
AskStats;
end.
Rep would be appreciated :)
Program SoulsplitMaxhit;
var
Hit,StrBon:Integer;
Strength,Bonus,PrayFact:string;
Procedure DisplayMax;
begin
WriteLn('With a strength level of ' + Strength + ' and a equipment bonus of ' + Bonus + ' you can hit a max of ' + IntToStr(StrBon) + ' !')
end;
Procedure DoMath;
begin
StrBon := ((StrToInt(Strength)/3)) + ((StrToInt(Bonus)/9))
//Hit := StrBon * StrToInt(PrayFact)
DisplayMax;
end;
Procedure AskStats;
begin
If (InputQuery('Strength level?', 'Level:' , Strength)) Then
If (InputQuery('Equipment bonus?', 'bonus:' , Bonus)) Then
//If (InputQuery('Prayer factor', 'factor:' , PrayFact)) Then
DoMath;
end;
Begin
AskStats;
end.