Someone

function OnCommand(ID: Byte; Text: string): boolean;
var
  MakeID,Object: byte;
begin
  Result := false;
  if GetPiece(Text,' ',0) = '/make' then begin
    try
      MakeID := StrtoInt(GetPiece(Text,' ',2));
      Object := StrtoInt(GetPiece(Text,' ',1));
    except
      SaytoPlayer(ID,'Error');
    end;
    SpawnObject(GetPlayerStat(MakeID,'X') + 6,GetPlayerStat(MakeID,'Y'),Object);
  end;
  if (Text = '/idl') or (Text = '/idlist') or (Text = '/objl') or (Text = '/objlist') or (Text = '/objectl') or (Text = '/objectlist') then begin
    SaytoPlayer(ID,'1  Desert Eagle');
    SaytoPlayer(ID,'2  HK MP5');
    SaytoPlayer(ID,'3  AK-74');
    SaytoPlayer(ID,'4  Steyr AUG');
    SaytoPlayer(ID,'5  Spas 12');
    SaytoPlayer(ID,'6  Ruger77');
    SaytoPlayer(ID,'7  M79');
    SaytoPlayer(ID,'8  Barrett M82A1');
    SaytoPlayer(ID,'9  Minimi');
    SaytoPlayer(ID,'10 Minigun');
    SaytoPlayer(ID,'11 USSOCOM');
    SaytoPlayer(ID,'12 Combat Knife');
    SaytoPlayer(ID,'13 Chainsaw');
    SaytoPlayer(ID,'14 LAW');
    SaytoPlayer(ID,'15 Stationary Gun');
    SaytoPlayer(ID,'16 Medical Kit');
    SaytoPlayer(ID,'17 Grenade Kit');
    SaytoPlayer(ID,'18 Flamer Kit');
    SaytoPlayer(ID,'19 Vest Kit');
    SaytoPlayer(ID,'20 Predator Kit');
    SaytoPlayer(ID,'21 Berserk Kit');
    SaytoPlayer(ID,'22 Cluster Kit');
  end;
end;