Zombie mod

[dragus]

I would like edited that you script zombie mod, you edited that script zombie mod, they let's edit only that it was possible to write he (it) included (switched) new commend on scripts  and off scripts

[JFK]

I would like edited that you script zombie mod, you edited that script zombie mod, they let's edit only that it was possible to write he (it) included (switched) new commend on scripts  and off scripts

Being cultivated by old inovations will conclude in a drastic proclariation of independent post-narrative substances, which are being driven by compressive interfaculties written by noodles procreated after effects.


sry, couldn't help myself. Dragus, please restate your question

[danmer]

just write in your mothertongue, someone might translate it <.< Even if they dont, it'll make more sense than what you just wrote =/

[dragus]

ohh sory no  zombie mod,only >>>Mission mod<<< 

who can add For a missionmode script

  command /on mm    = a scripts is on

  command /off mm    = a scripts is off


   this command only can admin


   this is link for a missionmod
    >>>>>>  http://forums.soldat.pl/index.php?topic=29994.0 <<<<<<

[JFK]

Ok, that's clear

Save this as a NEW script:

Code: [Select]

MMDIR = 'MissionMod'; //Directory name of MissionMod goes here

procedure setscriptstate(scriptname: string; state: boolean);
var newfile, newfiletmp: string;
begin
  newfile := readfile('scripts/' + scriptname + '/Includes.txt');
  while newfiletmp <> newfile do begin
    newfiletmp := newfile;
    newfile := regexpreplace(iif(state, '\/\/([^\r\n]+)([\r\n])', '(^|[\r\n])([^\r\n/]+)([\r\n]|$)'), newfile, iif(state, '$1$2', '$1//$2$3'), true);
    end;
  writefile('scripts/' + scriptname + '/Includes.txt', newfile);
  command('/recompile ' + script);
end;

function oncommand(id: byte; text: string): boolean;
begin
  case text of
    '/on mm' : setscriptstate(MMDIR, true);
    '/off mm' : setscriptstate(MMDIR, false);
  end;
end;

Most of the script comes from here. It's not tested. Public debug please, if needed :p

[dragus]

error :/

[Polifen]

Add line "const" before "MMDIR = 'MissionMod'; //Directory name of MissionMod goes here".

[dragus]

error:P can meybe you complite script in a download

[VinceBros]

Try that.
I have no problems but i didn't test it yet with the commands.

Code: [Select]

Const
MMDIR = 'MissionMod'; //Directory name of MissionMod goes here

procedure setscriptstate(scriptname: string; state: boolean);
var newfile, newfiletmp: string;
begin
  newfile := readfile('scripts/' + scriptname + '/Includes.txt');
  while newfiletmp <> newfile do begin
    newfiletmp := newfile;
    newfile := regexpreplace(iif(state, '\/\/([^\r\n]+)([\r\n])', '(^|[\r\n])([^\r\n/]+)([\r\n]|$)'), newfile, iif(state, '$1$2', '$1//$2$3'), true);
    end;
  writefile('scripts/' + scriptname + '/Includes.txt', newfile);
  command('/recompile ' + scriptname);
end;

function oncommand(id: byte; text: string): boolean;
begin
  case text of
    '/on mm' : setscriptstate(MMDIR, true);
    '/off mm' : setscriptstate(MMDIR, false);
  end;
end;