PDA

View Full Version : [Any server] Max hit calculator!



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.

Ian
12-30-2012, 08:56 PM
Cool, why is everything capitalized weirdly though? Makes it kinda hard on the eyes :p

Kinda doubting this works though with that huge equation that is mostly adding numbers then subtraction them again :P
nvm, that was just the obfuscation

The Killer
12-30-2012, 09:00 PM
Cool, why is everything capitalized weirdly though? Makes it kinda hard on the eyes :p

yeah, standards :P
anyone good job I suppose :P

Enslaved
12-30-2012, 09:12 PM
Seriously, was that really needed
http://puu.sh/1HlK7

rj
12-30-2012, 09:35 PM
Seriously, was that really needed
http://puu.sh/1HlK7

what?

Enslaved
12-30-2012, 09:37 PM
Your massive equation

NKN
12-30-2012, 09:38 PM
Your massive equation

It's obsfugated or w/e it is

rj
12-30-2012, 09:39 PM
Your massive equation

Explained on 3rd post

StrBon := ((StrToInt(Strength)/3)) + ((StrToInt(Bonus)/9))

pretty much all it is, not accurate for under level 60-65 though

Zyt3x
12-30-2012, 11:39 PM
Again; please de-obfuscate the script..

Stop posting obfuscated scripts on SRL. However strong the obfuscation is, we don't want scripts to be unreadable and non understandable, here :)