function OnChat(PlayerId, Type, Message, Target)

if FirstW == "!spy" then

      local iCredits = 1000


      -- |||||||||||||||||||||||||||||||||||||||||||||||||||

      sName = Get_Player_Name_By_ID(pID)

      if Get_Money(pID) > iCredits then
         Attach_Script_Once(Get_GameObj(pID), "RA_Infantry_Spy", "")
         Set_Money(pID, Get_Money(pID) - iCredits)
         InputConsole("page %s You have been made a spy.", sName)
      else
         InputConsole("page %s You need %d credits to buy a spy.", sName, iCredits)
      end

	return 1
end