Make 2 simple scripts for me?

[Katelyn]

I wanted a /swapteams script and a script that if I type !(something here) it outputs certain text with /say.
Thanks.

[EnEsCe]

If you want a script, learn to code it yourself. Are you a baby? (Assuming No), then don't expect to be spoon fed.

[ZomgProniss]

If you want a script, learn to code it yourself. Are you a baby? (Assuming No), then don't expect to be spoon fed.

lol well ur nice (sacrasim)...u can usuly find scripts if you brows the scripting release fourms

[Boblekonvolutt]

Well, Im bored so... Im in ur forumz spoonfeedin' ur doodz.

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
  if Copy(Text, 1, 1) = '!' then
    Command('/say ' + Copy(Text, 2, Length(Text)));
end;

procedure SwapTeams;
var i: Integer;
begin
  for i := 1 to 32 do
    if GetPlayerStat(i, 'Active') then
      if GetPlayerStat(i, 'Team') = 1 then
        Command('/setteam2 ' + inttostr(i))
      else
        Command('/setteam1 ' + inttostr(i));
end;

function OnCommand(ID: Byte; Text: String): Boolean;
begin
  if LowerCase(Text) = '/swapteams' then
    SwapTeams;
end;