Thank you for all the warm comments and I knew about Tip.It. Though, I wanted to include my own combat calc in the script. 
Sure. But it's an old one. I made the function much better. You can check it out here.
Code from: http://www.villavu.com/forum/showthread.php?t=3300
Code:
program TestExplode;
var
MyArray : Array of String;
i : Integer;
// The Explode procedure looks through a string and separates it with whatever
// you suplied as a separator, and takes each value and puts them into an array.
// Example: Explode('*', 'a*b*c*d*e*');
// Made by Ron :)
function Explode(Separator, Str : string) : array of string;
var
i : integer;
begin
if(pos(Separator, Str) > 0)then
repeat
SetArrayLength(Result, i + 2);
Result[i] := copy(Str, 1, pos(Separator, Str)-1);
delete(Str, 1, pos(Result[i], Str)+Length(Result[i]));
i := i + 1;
until(pos(Separator, Str) = 0)
else
SetArrayLength(Result, 1);
Result[i] := Str;
end;
begin
ClearDebug;
MyArray := Explode('*', 'ass*bitch*cunt*doosh*erm*fuck');
for i := 0 to GetArrayLength(MyArray) - 1 do
WriteLn(' MyArray[' + IntToStr(i) + '] := ''' + MyArray[i] + ''';');
end.
~Ron