[INC] Keypad & player list [0.3e]

native InputFromPlayerList(playerid, event, bool:allowcancel);
forward OnPlayerSelectPlayer(playerid, targetid, event);

#define EVENT_BAN 1
public OnPlayerCommandText(playerid, cmdtext[])
{
  if(!strcmp(cmdtext, "/ban", true))
  {
  InputFromPlayerList(playerid, EVENT_BAN, true);
  return 1;
  }
  return 0;
}

public OnPlayerSelectPlayer(playerid, targetid, event)  
{
  if(event == EVENT_BAN && targetid != INVALID_PLAYER_ID)
  {
  Ban(targetid);
  }
}

native InputFromKeypad(playerid, event, len, bool:allowcancel);
forward OnPlayerKeypadInput(playerid, input, event);

#define EVENT_SETHP 2
public OnPlayerCommandText(playerid, cmdtext[])
{
  if(!strcmp(cmdtext, "/ban", true))
  {
  InputFromPlayerList(playerid, EVENT_SETHP, true);
  return 1;
  }
  return 0;
}

public OnPlayerKeypadInput(playerid, input, event)  
{
  if(event == EVENT_SETHP)
  {
  SetPlayerHealth(playerid, float(input));
  }
}