SRL Archive - Non-RuneScape Scripts

[Any server] Max hit calculator!

rj

2012-12-30 15:05:33

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

2012-12-30 15:56:20

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

2012-12-30 16:00:29

From: BMWxi
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

2012-12-30 16:12:57

Seriously, was that really needed

rj

2012-12-30 16:35:46

From: Enslaved
Seriously, was that really needed

what?

Enslaved

2012-12-30 16:37:02

Your massive equation

NKN

2012-12-30 16:38:58

From: Enslaved
Your massive equation

It's obsfugated or w/e it is

rj

2012-12-30 16:39:02

From: Enslaved
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

Gu3st...

2012-12-30 18:39:17

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 :)