OnPlayerSpeak

[Rey.]

Hello guys, I have problem. How to change this command alter the map:

!map ctf_Name  to  !map Name (without ctf_) ?

Code: [Select]


if Copy(Text,1,1) = '!' then
begin
Delete(Text,1,1);
if MaskCheck(Text,'map *') then
begin
Delete(Text,1,4);
if FileExists('maps/'+Text+'.PMS') or FileExists('maps/'+Text+'.pms') then
Command('/map '+Text)
else
WriteConsole(ID,'Map not found ('+Text+')', Color);
exit;
end;


Please, help me.

[Furai]

Code: [Select]


if Copy(Text,1,1) = '!' then
begin
Delete(Text,1,1);
if MaskCheck(Text,'map ctf_*') then
begin
Delete(Text,1,8);
if FileExists('maps/ctf_'+Text+'.PMS') or FileExists('maps/ctf_'+Text+'.pms') then
Command('/map ctf_'+Text)
else
WriteConsole(ID,'Map not found (ctf_'+Text+')', Color);
exit;
end;



[SyavX]

Uhm... Furai, I guess this

!map ctf_Name  to  !map Name (without ctf_) ?

means the use of !map command without specifying the "ctf_" prefix for CTF maps.

It could be done like this:

Code: [Select]

    if (Length(Text) > 5) and (Copy(Text,1,5) = '!map ') then begin
        Delete(Text,1,5);
        Text := Trim(Text);
        if Length(Text) > 0 then begin
            if FileExists('maps/'+Text+'.PMS') or FileExists('maps/'+Text+'.pms') then
                Command('/map '+Text)
            else
                if Copy(Text,1,4) <> 'ctf_' then
                    if FileExists('maps/ctf_'+Text+'.PMS') or FileExists('maps/ctf_'+Text+'.pms') then
                        Command('/map ctf_'+Text)
                    else
                        WriteConsole(ID,'Map not found (ctf_'+Text+')', Color)
                else
                    WriteConsole(ID,'Map not found ('+Text+')', Color);
            exit;
        end;
    end;

[Furai]

He didn't say that he wants to retain old functionality as well.

But yeah, I haven't touched single script in years...If anything - use SyavX version.

[Rey.]

Thanks SyavX, Furai for help.