Script Combiner

[mikembm]

I have created a website that helps in combining Soldat scripts.
All you have to do is paste in your current script and your new one and hit combine.

I recommend putting all your scripts into one file and using the template feature to begin with.

Things to know:
- All comments not in the begin section of a procedure will be removed
- Combiner will warn you about missing procedures and wrong number of begin/end statements
- Combined scripts will be formatted nicely with tabs

Also to script developers out there, this will remove "comments" inside of quotes.

I just finished this, so let me know of any bugs in it.
Also let me know what you think

http://scriptcombiner.awardspace.com/


For those of you releasing codes please follow these guidelines so those who use my script combiner can also use your code with it.

The full procedure/function line
The var statement if necessary, followed by the variables
The begin statement followed by the main code
The end; statement

For the built-in functions that have a return statement, only include a return statement if you are changing it's value in your script.

The only comments that will not get stripped out are single line comments using '//' in the begin section of a procedure
Lastly, comment type syntax cannot be used in strings. (myString := '//hello') Comments count as: //comment, (* comment *), and { comment }

[DorkeyDear]

Very nice man! Definitely deserves to be stickied (which it is).
This is going to be very useful for tons of people.

Is the template the one I made? I would check but I GTG.

[mikembm]

No. It's just some boxes with CSS.

[DorkeyDear]

No, I ment the scripting template... when you check off "Use Template."
I looked at it and it is mine. Sweet! Just without the spare enters nor indenting.

Date Posted: June 10, 2007, 06:08:36 PMBUG!:

ERROR: Last procedure was never endedChecking new script... Script is good

Also, you should separate that text a little.

Current script:

Code: [Select]

procedure onadminconnect(ip: string);
begin
end;
procedure onadmindisconnect(ip: string);
begin
end;
procedure onadminmessage(ip, msg: string);
begin
end;
procedure activateserver();
begin
end;
procedure apponidle(ticks: integer);
begin
end;
function oncommand(id: byte; text: string): boolean;
begin
end;
function onplayercommand(id: byte; text: string): boolean;
begin
end;
procedure onexception(errormessage: string);
begin
end;
function onrequestgame(ip: string; state: integer): integer;
begin
end;
procedure onweaponchange(id, primarynum, secondarynum: byte);
begin
end;
procedure onjoingame(id, team: byte);
begin
end;
procedure onjointeam(id, team: byte);
begin
end;
procedure onleavegame(id, team: byte; kicked: boolean);
begin
end;
procedure onflaggrab(id, teamflag: byte; grabbedinbase: boolean);
begin
end;
procedure onflagreturn(id, teamflag: byte);
begin
end;
procedure onflagscore(id, teamflag: byte);
begin
end;
procedure onmapchange(newmap: string);
begin
end;
procedure onplayerkill(killer, victim: byte; weapon: string);
begin
end;
function onplayerdamage(victim, shooter: byte; damage: integer): integer;
begin
end;
procedure onplayerrespawn(id: byte);
begin
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
  if Text = 'noob' then begin
    Command('/say noob');
  end else begin
    Command('/say no noob');
  end;
end;
New script

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
  Command('/say YOU NOOB Mr. ' + IDtoName(ID));
end;
doing "end else begin" seems to bug it

[mikembm]

LOL. Thanks. It was the fact that you had the "end" on the same line as the "else begin" - But I fixed it, works now.

[EnEsCe]

Why do you strip all the capitalization... thats retarded

And link doesn't work.

[mikembm]

Why do you strip all the capitalization... thats retarded

And link doesn't work.

Ummmm.. it doesn't strip capitalization and the link works.. lol

[EnEsCe]

Link does not work, cant resolve the URL.
And looking at the script posted above which was generated by your page, its all lowercase except the bit at the very end...

[chrisgbk]

Link does not work, cant resolve the URL.
And looking at the script posted above which was generated by your page, its all lowercase except the bit at the very end...

URL works fine, must be a problem with your ISPs DNS cache.

Also, it does preserve case, unless someone combines scripts that did not have case present.

The only problem is combining scripts that return results; it causes all the results to be kept, so that you can end up with something like this:

Code: [Select]

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
Result := Damage;
Result := 0;
end;
But not a big deal.

[mikembm]

Well any new script you add will be appended to the end of the procedure. So if you change the return value in your script then it will not affect anything.

[DorkeyDear]

I didn't have any caps except at the end because I just wanted to combine a quickly whipped up script and copied the error of missing events and pasted them, which have no caps... they should.

[Kavukamari]

it says I'm forbidden to view the page O.o

[mikembm]

it says I'm forbidden to view the page O.o

I took it down because it's no longer needed in this version

[Kavukamari]

it isn't?


Date Posted: August 13, 2007, 11:50:05 PMhow do I make scripts work then?

[mikembm]

Nope. When you want to add a script just add a subfolder in the scripts folder and make a new .pas file with the script in it. Also make an Includes.txt in that same folder with the name of the .pas file. Most script releases also have an attachment which contains all the needed files ready to go.

[K_Sparkz]

yea! but anyway, that require more power from the server, its way better to still combinde to save computer resourses!