Script help

[script]

Hi, Could someone create a script multi modes for me? I would be grateful 

[Furai]

Ekhm...more details?

[script]

a script that  when you type !commands appears gamemodes available and for open a vote use !f12 or !f11 for change gamemode

[Furai]

I believe that there was some script like that. Search the "Scripting releases" subforum.

[chutem]

Do you mean built in gamemodes (ctf, inf, dm, etc) or custom sub-gamemodes (climb, knife volleyball, flying socoms, etc..).

First option you can take a look here, it will need to be updated to work with the new scriptcore: http://forums.soldat.pl/index.php?topic=8205.0

As for the other, bombski's multimode is the only thing I know of like it, and I don't think it is publicly available, but you can look here for more info: http://eat-that.org/index.php?topic=1317.0

[script]

I took a look at this link http://forums.soldat.pl/index.php?topic=8205.0 and I think this script has didn't commands of vote

[Stuffy]

Code: [Select]

procedure ScriptChange(const ScriptName : string; const State : boolean; const ID : byte);

var
Index, SIndex : string;
rec : boolean;

begin
  if not FileExists('scripts/' + ScriptName + '/Includes.txt') then begin
    WriteConsole(ID,'File not found!',Color);
    exit;
  end;
  Index := ReadFile('scripts/' + ScriptName + '/Includes.txt');
    SIndex := Copy(Index,0,length(Index));
  rec := false;
    if (State) and (Copy(Index,0,2) = '//') then begin
      WriteFile('scripts/' + ScriptName + '/Includes.txt',Copy(Index,2,length(Index)));
    WriteConsole(ID,'Script ' + ScriptName + ' enabled.',Color);
      rec := true;
    end else if not (State) and (Copy(Index,0,2) <> '//') then begin
      WriteFile('scripts/' + ScriptName + '/Includes.txt','//' + SIndex);
    WriteConsole(ID,'Script ' + ScriptName + ' disabled.',Color);
      rec := true;
    end else if not (State) and (Copy(Index,0,2) = '//') then begin
      WriteConsole(ID,'Script ' + ScriptName + ' seems to be disabled already.',Color);
    rec := false;
    end else if (State) and (Copy(Index,0,2) <> '//') then begin
      WriteConsole(ID,'Script ' + ScriptName + ' seems to be enabled already.',Color);
        rec := false;
        end;
    if rec then begin
      Command('/recompile ' + ScriptName);
    end else if not rec then exit;
end;
Will disable or enable a script. Like in bomskis multi mode (f.e ScriptChange(VolleyBall,true 'or' false,ID) will en or disable VolleyBall).

[script]

Code: [Select]

procedure ScriptChange(const ScriptName : string; const State : boolean; const ID : byte);

var
Index, SIndex : string;
rec : boolean;

begin
  if not FileExists('scripts/' + ScriptName + '/Includes.txt') then begin
    WriteConsole(ID,'File not found!',Color);
    exit;
  end;
  Index := ReadFile('scripts/' + ScriptName + '/Includes.txt');
    SIndex := Copy(Index,0,length(Index));
  rec := false;
    if (State) and (Copy(Index,0,2) = '//') then begin
      WriteFile('scripts/' + ScriptName + '/Includes.txt',Copy(Index,2,length(Index)));
    WriteConsole(ID,'Script ' + ScriptName + ' enabled.',Color);
      rec := true;
    end else if not (State) and (Copy(Index,0,2) <> '//') then begin
      WriteFile('scripts/' + ScriptName + '/Includes.txt','//' + SIndex);
    WriteConsole(ID,'Script ' + ScriptName + ' disabled.',Color);
      rec := true;
    end else if not (State) and (Copy(Index,0,2) = '//') then begin
      WriteConsole(ID,'Script ' + ScriptName + ' seems to be disabled already.',Color);
    rec := false;
    end else if (State) and (Copy(Index,0,2) <> '//') then begin
      WriteConsole(ID,'Script ' + ScriptName + ' seems to be enabled already.',Color);
        rec := false;
        end;
    if rec then begin
      Command('/recompile ' + ScriptName);
    end else if not rec then exit;
end;
Will disable or enable a script. Like in bomskis multi mode (f.e ScriptChange(VolleyBall,true 'or false,ID) will en or disable VolleyBall).

Type this script is already with the command ! Vote + number of mod and when I put copies of soldat.ini I put everything in the same folder?

[Stuffy]

I'll do it when Im back at home

[script]

ok,thanks

[Stuffy]

Here it is, !change <ScriptName> is the command.
I've only tested it on my local test-server, so tell me if there are any bugs in it.

EDIT: Corrected Version.

[script]

I put this script together with the multi script mods?

[Stuffy]

you do not need any other script, just use mine.

[daniel35]

This script has a command to see the scripts that exist on the server? you could make a script with this command?: / modes: the scripts of shows serv with the ID of the script
exp:
1 - volleyball
2 - m79 climb
there to vote for the volleyball type !vote 1
and climb to vote for m79 type !vote 2
Can you make a script like this?

[mascarado]

Dear Stuffy.

I am not able to configure this scripted mode.

I was wondering if you could configure it with the following scripts 

ZRPG, Hide n Seek, Pirate Vs Ninja, Lawcath, Volley boll ...

Or make a tutorial on how to install them ...

Code: [Select]

const
Color = $E56600;
VoteTime = 60;
AddTime = 60;
VotePerc = 70;

var
Voted : array[1..32] of boolean;
VoteRun, EnDis : boolean;
Time : integer;
Script : string;

procedure ScriptChange(const ScriptName : string; const State : boolean);

var
Index, SIndex : string;
rec : boolean;

begin
  if not FileExists('scripts/' + ScriptName + '/Includes.txt') then begin
  exit;
  end;
  Index := ReadFile('scripts/' + ScriptName + '/Includes.txt');
    SIndex := Copy(Index,0,length(Index));
  rec := false;
    if (State) and (Copy(Index,0,2) = 'ZRPG') then begin
      WriteFile('scripts/' + ScriptName + '/Includes.txt',Copy(Index,3,length(Index)));
    rec := true;
    end else if not (State) and (Copy(Index,0,2) <> 'ZRPG') then begin
      WriteFile('scripts/' + ScriptName + '/Includes.txt','ZRPG' + SIndex);
    rec := true;
    end else if not (State) and (Copy(Index,0,2) = '//') then begin
  rec := false;
    end else if (State) and (Copy(Index,0,2) <> '//') then begin
      rec := false;
        end;
    if rec then begin
    Command('/loadcon ZRPG.ini'); 
            Command('/loadlist ZRPGMAPS');
            Command('/recompile ' + ScriptName);
    end else if not rec then exit;
end;

function GetScriptState(const ScriptName : string): boolean;

var
Index : string;

begin

  if FileExists('scripts/' + ScriptName + '/Includes.txt') then begin
    Index := ReadFile('Modes/' + ScriptName + '/Includes.txt');
  if Copy(Index,0,2) = 'ZRPG' then begin
    Result := false;
  end else Result := true
  end;
end;

procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);

begin

end;

procedure OnPlayerSpeak(ID: byte; Text: string);

var
Total, i : integer;
begin
  if (LowerCase(GetPiece(Text,' ',0)) = '!vote') and not (Voted[ID]) then
    if (GetPlayerStat(ID,'Active')) then
  if FileExists('scripts/' + GetPiece(Text,' ',1) + '/Includes.txt') then begin
    Total := Total + 1;
      Voted[ID] := true;
        VoteRun := true;
  if Time = 0 then Time := VoteTime else Time := Time + AddTime;
        if GetScriptState(GetPiece(Text,' ',1)) = true then begin
      EnDis := false;
    WriteConsole(ID,'Player ' + IdToName(ID) + ' voted to enable the script ' + GetPiece(Text,' ',1),Color);
end else if GetScriptState(GetPiece(Text,' ',1)) = false then begin
      EnDis := true;
    WriteConsole(ID,'Player ' + IdToName(ID) + ' voted to disable the script ' + GetPiece(Text,' ',1),Color);
end;
  Script := GetPiece(Text,' ',1);
 
 
    if (100 * Total / (NumPlayers - NumBots) >= VotePerc) then begin
      for i := 1 to 32 do Voted[ID] := false;
    WriteConsole(ID,'Script-Change vote passed! Script "' + Script + '" is now ' +iif(EnDis,'en','dis') + 'abled',Color);
      ScriptChange(Script,EnDis);
 end else WriteConsole(0,FloatToStr(RoundTo(100 * Total / (NumPlayers - NumBots), 2)) + '% / ' + InttoStr(VotePerc) + '% required for a vote pass', Color);
   end else WriteConsole(ID,'Error, Script ' + GetPiece(Text,' ',1) + ' not found.',Color);
end;

procedure AppOnIdle(Ticks: integer);

var
i, b : integer;
begin

  if Time >= 0 then begin
    Time := Time - 1;
  end;
 
  if Time = 0 then begin
    for b := 1 to 32 do Voted[b] := false;
  WriteConsole(0, 'Script-Vote failed', Color);
  end;
end;



[daniel35]

(I changed my vote to change) when I type! vote appears the id of the script file does not exist I do not know where the scripts for that poem to vote for someone knows where to put the scripts?

[Stuffy]

Version I've uploaded in the earlier posts is wrong, I'll attach the correct version. (the one I posted earlier is missing some parts.)

The command is !change <script-name>, so if you playing Volley Ball and like to change to ZRPG, you've to type !change ZRPG to start the vote.

And, since theres are some people who want to use this script, I'll create a better one later this day, with a config.ini where you can set the scripts you like to use and just vote them with ID's then.

[daniel35]

Version I've uploaded in the earlier posts is wrong, I'll attach the correct version. (the one I posted earlier is missing some parts.)

The command is !change <script-name>, so if you playing Volley Ball and like to change to ZRPG, you've to type !change ZRPG to start the vote.

And, since theres are some people who want to use this script, I'll create a better one later this day, with a config.ini where you can set the scripts you like to use and just vote them with ID's then.

You can enter a command that whoever / modes appears in the list of mods you have on serv?


From: February 08, 2011, 05:51:42 pmThere's not a better place to leave the scripts instead of being in the "scripts", you could not have created a folder within your script? For here the scripts are collapsing 

From: February 08, 2011, 07:48:35 pmI modified the script so that the mods are within the "vote-script" folder so that scripts do not collapse

was not so hard to change that:)
stuffy have a question: the command is necessary for people to vote in the mod? because when I type !f12 nothing happens