SRL Archive - Other Scripts

Haha, I was bored and, well, ya. Run the script and post what you get!


1000 LINES

You will be making $91230 a year in your future!

EDIT: NEW VERSION!
-Added middle name
-Added encryption
-Added numbers (NOT RECOMMENDED)
-Fixed a few bugs

Well the Script Has A ERROR or somthing…

You will be making $135028 a year in your future!

program YearlyIncomeCalculator;

var
  FirstName, LastName : string;




function GetFirstNamePoints : integer;
var
  Points, i : integer;
begin
  for i := 1 to Length(FirstName) do
  begin
    case Lowercase(FirstName[i]) of
    'e' : Points := Points + 1;
    'a' : Points := Points + 1;
    'i' : Points := Points + 1;
    'o' : Points := Points + 1;
    'n' : Points := Points + 1;
    'r' : Points := Points + 1;
    't' : Points := Points + 1;
    'l' : Points := Points + 1;
    's' : Points := Points + 1;
    'u' : Points := Points + 1;
    'd' : Points := Points + 2;
    'g' : Points := Points + 2;
    'b' : Points := Points + 3;
    'c' : Points := Points + 3;
    'm' : Points := Points + 3;
    'p' : Points := Points + 3;
    'f' : Points := Points + 4;
    'h' : Points := Points + 4;
    'v' : Points := Points + 4;
    'w' : Points := Points + 4;
    'y' : Points := Points + 4;
    'k' : Points := Points + 5;
    'j' : Points := Points + 8;
    'x' : Points := Points + 8;
    'q' : Points := Points + 10;
    'z' : Points := Points + 10;
    end;
  end;
  Result := Points;
end;

function GetLastNamePoints : integer;
var
  Points, i : integer;
begin
  for i := 1 to Length(LastName) do
  begin
    case Lowercase(LastName[i]) of
    'e' : Points := Points + 1;
    'a' : Points := Points + 1;
    'i' : Points := Points + 1;
    'o' : Points := Points + 1;
    'n' : Points := Points + 1;
    'r' : Points := Points + 1;
    't' : Points := Points + 1;
    'l' : Points := Points + 1;
    's' : Points := Points + 1;
    'u' : Points := Points + 1;
    'd' : Points := Points + 2;
    'g' : Points := Points + 2;
    'b' : Points := Points + 3;
    'c' : Points := Points + 3;
    'm' : Points := Points + 3;
    'p' : Points := Points + 3;
    'f' : Points := Points + 4;
    'h' : Points := Points + 4;
    'v' : Points := Points + 4;
    'w' : Points := Points + 4;
    'y' : Points := Points + 4;
    'k' : Points := Points + 5;
    'j' : Points := Points + 8;
    'x' : Points := Points + 8;
    'q' : Points := Points + 10;
    'z' : Points := Points + 10;
    end;
  end;
  Result := Points;
end;

function CalculateYearlySalary : extended;
begin
  Result := Ceil(((GetFirstNamePoints * 3.14) + (GetLastNamePoints * 5.888)) * 1000);
end;



begin
  FirstName := ReadLn('First Name?');
  LastName := ReadLn('Last Name?');
  ClearDebug;
  if (FirstName = 'Skyler') and (LastName = 'Campbell') then
  writeln('You will be making $10,000,000 a year in your future!') else
 writeln('You will be making $'+FloatToStr(CalculateYearlySalary)+' a year in your future!');
end.

You will be making $10,000,000 a year in your future!
Successfully executed

thats better :)

Haha :p

You will be making $120504 a year in your future!

You will be making $119328 a year in your future!

Argh! So close to Jason :p

You will be making $65944 a year in your future!

Good thing i don't need to work anyway :D

You know what'd be cool? If you could make a script that could look at the number you got and work out the possibilities of your name xD Dunno if it's even possible though.

You will be making $23021400 a year in your future!

You should obfuscate that to make it uncheatable.
Since q and z give the highest points (10), I just pressed z for like 15 seconds for both names :) if someone would make a z presser , salory ++++++ :D

Do i get welfare :( You will be making $3140 a year in your future!

jk, You will be making $74972 a year in your future!

that sucks! cause im gona be a millionair!! :)

You will be making $75756 a year in your future!

Dissapointing, but I could live with it.

origionally i got this: You will be making $65552 a year in your future!

but then i legally changed my name(;)) and got: You will be making $5880000 a year in your future!

You will be making $140524 a year in your future!

Nice little script :D

Same as Ejj :)

You will be making $89104 a year in your future!

Wooooob.

You will be making $81644 a year in your future!

^^ You need to add a few more 0's onto the end like this..

You will be making $81644000000000 a year in your future!
^^

From: n3ss3s
You should obfuscate that to make it uncheatable.
Since q and z give the highest points (10), I just pressed z for like 15 seconds for both names :) if someone would make a z presser , salory ++++++ :D

The max-length for a Readln box is 255.

The max-length for a Readln box is 255.

255 * 10 * 2 := nice points * the things you had there..

I forgot how to work my Obfuscater but who cares people can cheat :D lol

Btw, does ImpSoft obber work? I dont know, just heard of it quickly somewhere… Scripts propably look uhber when obbed :D

EDIT: Ejj, in your avatar the red d hide guy doesnt have a bow
EDIT EDIT: Third post from me in a row me saying uhber leet :D
EDIT EDIT EDIT Cant believe the noobs thing in your sig, that many people not searching even I've made whole tutorial about using search button.

You will be making $113833 a year in your future!

edit:

From: n3ss3s
Btw, does ImpSoft obber work? I dont know, just heard of it quickly somewhere… Scripts propably look uhber when obbed :D

EDIT: Ejj, in your avatar the red d hide guy doesnt have a bow
EDIT EDIT: Third post from me in a row me saying uhber leet :D
EDIT EDIT EDIT Cant believe the noobs thing in your sig, that many people not searching even I've made whole tutorial about using search button.

Imps Obber works but a script that small would be fairly easy to deob.

Edit 2:

Sorry for the double post.

From: n3ss3s
Btw, does ImpSoft obber work? I dont know, just heard of it quickly somewhere… Scripts propably look uhber when obbed :D

EDIT: Ejj, in your avatar the red d hide guy doesnt have a bow
EDIT EDIT: Third post from me in a row me saying uhber leet :D
EDIT EDIT EDIT Cant believe the noobs thing in your sig, that many people not searching even I've made whole tutorial about using search button.

Me and four buddies. At the OGRE training grounds north west of Ardougne. I am in the red. I was throwing around 30k iron knives.

U shude auto :D

You will be making $23021400 a year in your future!

That's the most you can get. Unless you change the point values around a bit. . .You will be making $1619843584 a year in your future! I'm a trillonaire.

You will be making $105588 a year in your future! - My real one.

You will be making $144448 a year in your future!
Nice.

You will be making $100092 a year in your future!

Yessss 6 digits baby!

You will be making $108336 a year in your future!

Woot. =]

You will be making $158580 a year in your future!

Codes are nicer :P

I can live with this yay.

Also, this is the first working script for me with SCAR Divi lol!!!!!!!
I tried many scripts for RS but well, they seem to be all out-dated or just not be able to use with Divi… Whatever.

1st post w00t!

You will be making $4400160 a year in your future!

I guess it works ;) nice

lol cool script :D!

You will be making $90280 a year in your future!

Not bad…that's a fair amount of money and I think I could live on that ;)

EDIT: w00t!! was playing around with it a bit:

You will be making $-708822592 a year in your future!

Awesome! I'll be $708.8 million in debt!!! Maybe I'll just make a call to Mr. Gates to see if he can spot me just this once….

You will be making $132280 a year in your future!

You will be making $234728 a year in your future!

you should get the script to count your middle name… if you have one… and the numeral at the end of your name if you have one….


because everyone know if you have a numeral at the end of your name you got some sort of inheritance comming to you XD!

You will be making a lot a year in your future!

What?!! :P

NEW VERSION!

whats crazy is my true name = neg numbers…. owell i mean if you have to… use a case statement XD and subtract "points" for each number… even a space… then….XD


:spot:

ejj is the easiest to hax0r i swear….

You will be making $88050 a year in your future! lol

It's dat true?

Ya, that is your future. :)

Darky what are you toking about, I use if..then statements noob. They pwn cases butt wholes. :O BURN!

You will be making $153640 a year in your future! That's ok :)

You will be making $69064200 a year in your future!

$98132 a year in your future! :mad:rawr!:mad: that meens im not gonna be pro football player welll maybe microsoft !:)

You will be making $23021400 a year in your future! w00t ok maybe im not called zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
:rolleyes:

lol i wan your money hand it over or die lol just jk

Look what i got :( You will be making $-1136934592 a year in your future!
Ill be Barney Gumble :D

$1857556967 - ??? I seriously got that. I didnt get the noobs thing at the end so I put my full name! :D

I got You will be making $134430 a year in your future!
What does it mean if you get "Letters? (NOT SUGGESTED NOOBS YOUR REAL NAME)"? Now if I put my full name in there I get:

"You will be making $1295101726 a year in your future!"

I guess I wasn't supposed to do that :P.

You will be making $-999873300 a year in your future!

LMFAO!!!

You will be making $142280 a year in your future!

You will be making $0 a year in your future!

….What?

:(

    'z' : Points := Points + 10000000000000000000000000000000000000000000000000000000000000;
    end;
  end;
  Result := Points;
end;

function CalculateYearlySalary : extended;
begin
  Result := Ceil(((GetFirstNamePoints * 3.14) + (GetLastNamePoints * 5.888)) * 100000000000000000000000000000000000000000000000000000000);
end;

My orginal: You will be making $187624 a year in your future!

You will be making $-999928530 a year in your future!

what's with the negative sign, and i don't really get the forth box that comes up, one that says "(letters? (not suggested noobs etc etc)" i jus put the amount of letters in there.. and it came up with the minus thing
lol guess i owe so much

OK…I don't get the last box bit where it says Letters (don't try noobs, your real name) or whatever it says…What do I put in there?

Btw, this is my result:

You will be making $-1999908000 a year in your future!

I am going to be losing money! Woo!

Heh…
My shorter version:

begin
  WriteLn('You will be making $1,000,000,000 a year in your future!');
end.

:p

Correction:

begin
writeln('Freddy shall be making $1,000,000,000 a year in your future!');
end.

:p - That's if you sold scar, which, I doubt you will ever do.

You will be making $-1999917420 a year in your future!

Wtf???? That's it, better get my studies up. Rofl!

 You will be making $141760 a year in your future! 

This is from my real Last name Middle name, and first name

 You will be making $-22 a year in youe future

That's more like it!

You will be making $79450 a year in your future!…Damn

$-999920580??

lol haha must have been a glitch or something.

*looks at the number*

wow, i guess i'm gonna blow it on my new computer. :f:

You will be making $1059061760 a year in your future!
Successfully executed

Dude I 1337 hax0r3d your script!

lol, is there anyway to stop that? I changed all the letters in my name to 10000000000000000 so I type in my real name and get a huge salary 1bil+

You will be making $153530 a year in your future!
Successfully executed

Thanks heres what mine said

You will be making $1794678248 a year in your future!
Successfully executed

Obiously i made R worth 100000000000000000 points lol


Oh and by the way im back to the forums after a long break

You will be making $90400 a year in your future!

After a little tweaking :D :D

You will be making $1371520 a year in your future!

*cough* Gravedig*cough*